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'
   .
 .