m.lcNuoroda=""
blue_emi_qr_link(@lcNuoroda,1.00,"Mokėjimo paskirtis testas","01")
f_info(m.lcNuoroda,.t.)
blue_emi_qr_link(@lcNuoroda,lnSuma,lcPaskirtis,lcKodas_ks,[lcLaukas],[lcKodas_op],[lcModulis])
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.../"
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)
Detaliau: bar_kod_gen_qr_full.
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.