Interrogazione Cliente\Articolo
34.CODART
MESSAGE RESET,F3.1000
MESSAGE RESET,F3.2000
MESSAGE _TODAY
MESSAGE _PAGENO
#F_CODCF
#F_RAGSOC
#F_CODART
#F_DESART
#F_CODAGG1
#F_DESCODAGG1
#F_CODNUM
#F_DESCODNUM
#F_TIPODOC
#F_DESTIPODOC
#F_DATADOC_DA
#F_DATADOC_A
IF(#F_TOT=='X';'Si';'No')
166.DOTIN
166.DOTOD
166.DOTTM
169.INDTTMP
169.FIDTTMP
IF(#F_TOT=='X';' ';'')
IF(#F_TOT=='X';' ';'Num. Tipo Anno')
IF(#F_TOT=='X';' ';'Num.Doc.')
IF(#F_TOT=='X';' ';'Data Doc.')
IF(#F_TOT=='X';' ';'Caus.Lav.')
IF(#F_TOT=='X';' ';'')
IF(#F_TOT=='X';' ';'')
TRIM(34.CODART) + "-" + TRIM(47.DESCR)
MESSAGE RESET,F3.3000
(#F_TOT!='X' )(((B1.201!='0')(B1.201!=''))||((B1.202!='0')(B1.202!='')))
33.CODNUM
33.TIPODOC
33.ANNO
33.NDOC
33.DATADOC
34.CODAGG1
34.QTAGG1
MESSAGE ADD,F3.1000
34.QTA
MESSAGE ADD,F3.2000
(34.PREZZO*34.QTA)-((34.PREZZO*34.QTA)*SCONTOF;100)
MESSAGE ADD,F3.3000
104@.S2[31,31]
204@.S2[31,31]
(#F_TOT=='X' )(((B1.201!='0')(B1.201!=''))||((B1.202!='0')(B1.202!='')))
33.CODNUM
33.TIPODOC
33.ANNO
33.NDOC
33.DATADOC
34.CODAGG1
34.QTAGG1
MESSAGE ADD,F3.1000
34.QTA
MESSAGE ADD,F3.2000
USE 34 KEY 2
SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)(BETWEEN(33.CODCF,#F_CODCF,#F_CODCF))(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))(BETWEEN(34.CODAGG1,#F_CODAGG1,#F_CODAGG1)))
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 47 TO 34 INTO CODART==CODART
JOIN 166 TO 34 INTO ANNOES==ANNO TIPOCF=="C" CODCF==#F_CODCF CODART==CODART
JOIN 169 TO 34 INTO CODCF==#F_CODCF CODART==CODART CODCONT='1'
JOIN CAU TO 34 INTO CODTAB==CODAGG1
JOIN %CAU TO CAU ALIAS 104 INTO COD==COD CODTAB==S1
JOIN %CAU TO CAU ALIAS 204 INTO COD==COD CODTAB==S2
FROM CODNUM=#F_CODNUM ANNO=#F_ANNO PROVV='D' CODART=#FROM
TO CODNUM=#F_CODNUM ANNO=#F_ANNO PROVV='D' CODART=#TO