Predmet:Re: NSC fiskalni printer

---

Analiza odgovora koristeći CLARION 6.3 za WIN
ODG je fajl odgovora.

Relate:ODG.Open
SET(ODG,1)
LOOP
NEXT(ODG)
IF ERRORCODE() THEN BREAK .

IF INSTRING('56,',ODG:ODG,1,1)<>0 AND INSTRING('Ok;',ODG:ODG,1,1)<>0
IF GLO:VRDOK='SFR'
!Ako je fiskalni
odbr#=INSTRING(',',ODG:ODG,1,INSTRING('Ok;',ODG:ODG,1,1))+1
dobr#=INSTRING(',',ODG:ODG,1,odbr#)
.
IF GLO:VRDOK='RFR'
!Ako je reklamirani
odbr#=INSTRING(',',ODG:ODG,-1,Len(ODG:ODG))+1
dobr#=INSTRING(';',ODG:ODG,-1,Len(ODG:ODG))
.
brfs#=SUB(ODG:ODG,odbr#,dobr#-odbr#)
vrod"='OK'
.
.