API_LUTEX_SMS()

API_LUTEX atsisiuntimas (Konsultantams ir atstovams):

SMS siuntimas tiesiai per Lutex sistemą.

Būtinai reikalinga galiojanti VPS sutartis (kitaip programa nustoja veikti).

Pasirašoma sutartis su Lutex, gaunami prisijungimo vardai.

Prisijungimo vardai turi būti prie Lutex sistemos (ne ESMS ! ).

Parametre SS_SMS_VART - "SMS vartotojas" nurodomas prisijungimo prie Lutex paslaugos vartotojo vardas ir slaptažodis.

Parametre SS_SMS_SIUNT - "SMS siuntėjas" nurodomas savo, kaip siuntėjo, pavadinimas arba telefonas.

Siuntėjo pavadinimas parametre SS_SMS_SIUNT - "SMS siuntėjas" turi atitikti reikalavimus:
Kai nurodomas telefono numeris (tik skaitmenys) - ilgis 3-14 simbolių
Kai nurodomas pavadinimas (raidės, skaitmenys ir tarpas) - ilgis 3-11 simbolių.

Išsiųstos žinutės (taip pat kaip ir el. laiškai) Rivile GAMA sistemoje neišsisaugo. Norint išsaugoti debitorinėse/kreditorinėse operacijose SMS pranešimų sąraše, parametrui llRegistruoti priskiriama reikšmė .T.

Sintaksė

API_LUTEX_SMS(lcText,lcPhones,llRegistruoti,lcKodas_ks )

Grąžina

.T. jei pavyko išsiųsti, .F. - jei siuntimas nepavyko. Klaidos rodomos tik l_window.

Parametrai

Parametras Aprašymas Formatas
lcText SMS žinutės tekstas C
lcPhones Gavėjo telefono numeriai (keli telefono numeriai atskiriami kabliataškiu) C
llRegistruoti Ar registruoti SMS pranešimų sąraše (debitorinėse/kreditorinėse operacijose)? Pagal nutylėjimą .F.
lcKodas_ks Kliento kodas

Pavyzdžiai

API_LUTEX_SMS("Su gimimo diena!","+37066200000")

API_LUTEX_SMS("Su gimimo diena!","+37066200000",.T.,"KS001")

SMS pranešimų siuntimas gali būti suprogramuotas įvairiose programos vietose, priklausomai nuo proceso logikos.

SMS pranešimai gali būti kuriami ir siunčiami iš :

Servisas -> Debitorinės/ Kreditorinės operacijos -> SMS pranešimai.

Tam turi būti :

  • Registracijoje uždėta "Leisti siųsti SMS" ir limitas 5 (turi būti laisvas bent vienas siuntimas),
  • aprašytas formos INIT-as:
_thisform=thisform

EXECSCRIPT(SUBSTR(komanda_v,ATC(CHR(13),komanda_v,ij_k+1)))
EXIT
ON ERROR

IF TYPE("_thisform.sms_perk_command")#"C"
    =ADDPROPERTY(_thisform,"sms_perk_command","")
    _thisform.sms_perk_command=;
    [_klaida=""]+CHR(13)+CHR(10)+;
    [IF INLIST(WK05k.K05_perkelta,1,4)]+CHR(13)+CHR(10)+;
    [   IF api_lutex_sms(ALLTRIM(WK05k.K05_tekstas),ALLTRIM(WK05k.K05_tel))]+CHR(13)+CHR(10)+;
    [       replace K05_perkelta WITH 3 in WK05k]+CHR(13)+CHR(10)+;
    [       replace K05_perkelta WITH 3 in WK05]+CHR(13)+CHR(10)+;
    [   ELSE]+CHR(13)+CHR(10)+;
    [       replace K05_perkelta WITH 4, K05_PASTABOS with _klaida in WK05k]+CHR(13)+CHR(10)+;
    [       replace K05_perkelta WITH 4, K05_PASTABOS with _klaida in WK05]+CHR(13)+CHR(10)+;
    [       =vyk_upd("WK05k")]+CHR(13)+CHR(10)+;
    [   ENDIF]+CHR(13)+CHR(10)+;
    [ENDIF]+CHR(13)+CHR(10)

    =bind_command("EXECSCRIPT(thisform.sms_perk_command)",_thisform.grid1,[inf_perk],.T.)
ENDIF