preventivo standard

"ruffoa.jpg" MESSAGE _CLIENTE,!RAGSOC

"ruffoa.jpg" 33.NOTE 33.NOTE MESSAGE ISAMREAD,122,CODAGE=#10,RAGSOC 33.NDOC[1,1] 33.NDOC[2,3] 33.DATADOC 33.CODAG MESSAGE _CLIENTE,COFI MESSAGE _CLIENTE,PAIV MESSAGE _CLIENTE,!RAGSOC MESSAGE _CLIENTE,!INDNUM MESSAGE _CLIENTE,LOCALITACF MESSAGE _CLIENTE,!CAP MESSAGE _TABLEREAD,%STA,#27,S0 20.REFERENTE 210@.S0 MESSAGE _CLIENTE,STATOPAIV 18.RAGSOC 18.LOCALITA 18.CAP 18.REFERENTE

#REPORT.PAGE @ 1 = IF "B0" HIDE ELSE "B0" SHOW THEN

34.TIPORIGA='P1' 34.CODART MESSAGE _DESCRIGA 34.UMQTA MESSAGE _ALIGN,#52,BOTTOM 30 34.QTA MESSAGE _ALIGN,#52,BOTTOM 29 34.PREZZO MESSAGE _ALIGN,#52,BOTTOM 29 34.QTA*34.PREZZO MESSAGE _ALIGN,#52,BOTTOM

34.TIPORIGA='05' 34.CODART 1 "34.PRIORITY" @ + 2 * 0 #THIS_FIELD SET_POS MESSAGE _DESCRIGA

34.TIPORIGA='P2' MESSAGE _DESCRIGA 34.QTA MESSAGE _ALIGN,#52,BOTTOM 34.QTAGG1 MESSAGE _ALIGN,#52,BOTTOM 34.QTAGG2 MESSAGE _ALIGN,#52,BOTTOM 34.QTAGG3 MESSAGE _ALIGN,#52,BOTTOM

33.NDOC[1,1] 33.NDOC[2,3] #PAGE #BOOKPAGES 210@.S0

USE 33 JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN 18 TO 33 INTO CFPI==OCFPI JOIN 13 TO 18 INTO COM==COM STATO==STATO JOIN 47 TO 34 INTO CODART==CODART JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG JOIN 122 TO 33 INTO CODAGE==CODAG JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1 JOIN %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1 JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA JOIN %VAL TO 33 ALIAS 209 INTO CODTAB==CODVAL JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC JOIN %MSP TO 33 ALIAS 211 INTO CODTAB==CODSPMEZZO JOIN CMS TO 33 ALIAS 212 INTO CODTAB==CODCMS JOIN BNP TO 33 ALIAS 213 INTO CODTAB==CODABIP+CODCABP+PROGBNP