Integracijos diegimas

Konsultantams ir atstovams:

Diegimas

  • Į Rivile GAMA\ALL katalogą įrašomi failai:
    • blue_emi_qr_link.fxp
  • Pardavimo operacijų sąraše aprašomas testavimo klavišas (CTRL+Q):
m.lcNuoroda=""
blue_emi_qr_link(@lcNuoroda,1.00,"Mokėjimo paskirtis testas","01")
f_info(m.lcNuoroda,.t.)

blue_1

  • Pirmą kartą paleidus testavimo klavišą, automatiškai susikuria parametrai: BLUE_EMI_USR ir BLUE_EMI_EML.
  • Įvedamos parametro BLUE_EMI_USR reikšmės:
    • Brand ID ir Key - ši informacija gaunama iš Blue EMI
  • Įvedamos parametro BLUE_EMI_EML reikšmės:
    • Blue EMI el. paštas - nurodomas el. paštas, kuris bus perduodamas į Blue EMI. Jei šis parametras neužpildytas, tai perduodamas el. paštas iš kliento kortelės.
  • Pardavimo operacijų sąraše paspaudus testavimo klavišą, sėkmės atveju parodoma pilnai suformuota nuoroda, kurią nukopijavus į naršyklę atidaromas dokumento apmokėjimo langas Blue EMI puslapyje. Jei viskas veikia tinkamai - testavimo mygtuką galima ištrinti.
  • Susiimportuojama papildoma ataskaita - joje aprašytas nuorodos įkėlimo pavyzdys.
  • Analogiškai pakoreguojamos kliento naudojamos ataskaitos arba el. laiškų tekstai:
    • Įkeliamas nuorodos stulpelis ruošiant duomenis ataskaitos INIT'e
    • Įkeliamas QR ir apmokėjimo tekstas su nuoroda
    • Pridedama sugeneruota nuorda į el. laiško tekstą

BLUE_EMI_QR_LINK

blue_emi_qr_link(@lcNuoroda,lnSuma,lcPaskirtis,lcKodas_ks,[lcLaukas],[lcKodas_op],[lcModulis])
  • lcNuoroda - grąžinama nuoroda arba klaidos pranešimas (Privalomas)
  • lnSuma - nurodoma suma. Tipas skaitmeninis (Privalomas)
  • lcPaskirtis - mokėjimo paskirtis, gavus pavedimą bus matoma ši mokėjimo paskirtis (Privalomas)
  • lcKodas_ks - kliento kodas Rivilės sistemoje (Privalomas)
  • lcLaukas - laukas kuriame bus saugomas iš Blue EMI gautas nuorodos fragmentas. Jei lauko kodas nenurodomos, tuomet visada bus generuojama nauja apmokėjimo nuoroda. Perdavus šį parametrą privaloma perduoti ir du likusius parametrus lcKodas_op ir lcModulis. Skirtas tik pirkimams ir pardavimams
  • lcKodas_op - pirkimo/pardavimo operacijos numeris. Neprivalomas (privalomas tik tuo atveju jei perduodamas lcLaukas)
  • lcModulis - modulio kodas. PO - pirkimai arba RO - pardavimai. Neprivalomas (privalomas tik tuo atveju jei perduodamas lcLaukas)

Procedūra blue_emi_qr_link grąžina .T. arba .F., pagal šias reikšmes galime nustatyti ar nuoroda buvo sugeneruota ar ne.

Naudojimo pavyzdys be nuorodos fragmento išsaugojimo:

 m.lcNuoroda=""
 blue_emi_qr_link(@lcNuoroda,200.99,"Dokumentas #AAA","01")
* Kintamajame m.lcNuoroda grąžinama nuoroda arba klaidos pranešimas:
* "https://gate.blueemi.com/p/daf1fe0a-0931-4e8b-8ac4-5b9a11ac1.../"

Naudojimo pavyzdys be nuorodos fragmento išsaugojimo pardavimuose:

m.lcNuoroda=""
blue_emi_qr_link(@lcNuoroda,i06_suma+i06_suma_pvm,"Dokumentas #"+alltrim(i06_dok_nr),i06_kodas_ks)
* Kintamajame m.lcNuoroda grąžinama nuoroda arba klaidos pranešimas:
* "https://gate.blueemi.com/p/daf1fe0a-0931-4e8b-8ac4-5b9a11ac1.../"

Naudojimo pavyzdys su nuorodos fragmento išsaugojimu pardavimuose:

m.lcNuoroda=""
blue_emi_qr_link(@lcNuoroda,i06_suma+i06_suma_pvm,"Dokumentas #"+alltrim(i06_dok_nr),i06_kodas_ks,"i06_aprasymas3",i06_kodas_po,"RO")
* Kintamajame m.lcNuoroda grąžinama nuoroda arba klaidos pranešimas:
* "https://gate.blueemi.com/p/daf1fe0a-0931-4e8b-8ac4-5b9a11ac1.../"

Pavyzdžiai sąskaitoje faktūroje ir el. laiško tekste

Sąskaitoje faktūroje:

Spausdinant ataskaitoje, sugeneruotą nuorodą reikėtų įterpti į ataskaitos duomenis (ataskaitos INIT'e). Pavyzdžiui:

LOCAL lal
lal=ALIAS()

IF TYPE(lal+".blue_emi_link")#"C"
    LOCAL lcNuoroda
    IF !blue_emi_qr_link(@lcNuoroda,i06_suma+i06_suma_pvm,"Dokumentas #"+alltrim(i06_dok_nr),i06_kodas_ks,"i06_aprasymas3",i06_kodas_po,"RO")
        WAIT WINDOW m.lcNuoroda
        RETURN .F.
    ENDIF
    IF EMPTY(m.lcNuoroda)
        WAIT WINDOW "Nepavyko sugeneruoti nuorodos"
        RETURN .F.
    ENDIF
    SELECT *, CAST(m.lcNuoroda as M) as blue_emi_link FROM (lal) INTO CURSOR (lal) READWRITE
ENDIF

SELECT (m.lal)
GO TOP

Ataskaitos formoje įkeliama nuoroda. Nuoroda pagal XFRX taisykles aprašoma objekto komentaruose:

#UR A HREF=blue_emi_link

Norint ataskaitoje suformuoti QR kodą, komanda paveiksliuko objektui:

bar_kod_gen_qr_full(blue_emi_link,330)

blue_emi_w3

Detaliau: bar_kod_gen_qr_full.

El. laiško tekste:

Siunčiant el. laišką sugeneruotą nuorodą reikėtų įterpti į ataskaitos duomenis (ataskaitos INIT'e). Pavyzdžiui:

LOCAL lcNuoroda

IF !blue_emi_qr_link(@lcNuoroda,i06_suma+i06_suma_pvm,"Dokumentas #"+alltrim(i06_dok_nr),i06_kodas_ks,"i06_aprasymas3",i06_kodas_po,"RO")
    WAIT WINDOW m.lcNuoroda
    RETURN .F.
ENDIF

IF EMPTY(m.lcNuoroda)
    WAIT WINDOW "Nepavyko sugeneruoti nuorodos"
    RETURN .F.
ENDIF

m.lcPav="PVM S/F"
m.lcText=[Laba diena,<br><br>]
m.lcText=m.lcText+[Siunčiame Jums PVM Sąskaitą-Faktūrą.<br>]
m.lcText=m.lcText+[Apmokėti galite <a href="]+alltrim(m.lcNuoroda)+[" target="_blank">ČIA</a><br>]
...

IF !f_mail_Chilkat(m.lcE_mail,m.lcPav,,m.lcFile,m.lcText)
...

Kad nuoroda būtų aktyvi el. laiške, privaloma laiško tekstą formatuoti ir siųsti HTML formatu.