inventarioMESSAGE _PAGENO33.DATADOC33.NDOC34.CODMAG210@.S016.STATO#THIS @
STRLEN
DUP
1 =
IF
"00" #THIS @ + #THIS !
THEN
2 =
IF
"0" #THIS @ + #THIS !
THEN
MESSAGE _TABLEREAD,%STA,#40,S0
MESSAGE APPEND,69"TestaBolla1.bmp"!((34.TIPORIGA='08'))34.QTA34.CODARTMAGMESSAGE EMPTY DISABLE,51
MESSAGE ENABLE,5134.CODART34.DESCRMESSAGE _DESCRIGA207@.S0CODSPMEZZOTRIM(205@.S0)MESSAGE COPY,107TRIM(205@.S1[1,35])MESSAGE APPEND,107TRIM(205@.S1[36,45])MESSAGE APPEND,107TRIM(205@.S7)MESSAGE APPEND,107TRIM(205@.S1[46,70])MESSAGE APPEND,107205@.S9MESSAGE _ISAMREAD,13,COM=#112,DENCOM
MESSAGE APPEND,107MESSAGE _ISAMREAD,13,COM=#112,PROVCOM
MESSAGE APPEND,107ORAPARTDATAPART206@.S0IF(33.PNETTO=0,TOTPESO,33.PNETTO)IF(33.NCOLLI=0,TOTCOLLI,33.NCOLLI)IF(33.NBANC=0,TOTBANC,33.NBANC)33.NOTE203@.S0USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 168 INTO CODCF==CODCF CODCONT==CODCONT
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 13 TO 16 INTO STATO=STATO COM=COM
JOIN 47 TO 34 INTO CODART==CODART
JOIN 122 TO 33 INTO CODAGE==CODAG
JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ABE 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 GCA TO 34 ALIAS 212 INTO CODTAB==3+CODART[7,12]
JOIN GCA TO 34 ALIAS 213 INTO CODTAB==5+CODART[17,18]