Registro soci carico e scarico
MESSAGE RESET,F1
MESSAGE RESET,B1
CLIFO.RAGSOC[1,30]+' '+TRIM(CLIFO.RAGSOC[31,50])
"101@.CODCF" @
#EC_SOCIO !
CLIFO.COFI
"101@.CODCF" @
#EC_SOCIO !
CLIFO.PAIV
"101@.CODCF" @
#EC_SOCIO !
99 @
1 +
99 !
DOC.DATADOC
DOC.NDOC
ANAMAG.USER5
MESSAGE RESET,202
MESSAGE RESET,201
RDOC.QTA
MESSAGE ADD,F1.201
RDOC.QTA
MESSAGE ADD,F1.202
33.TOTMER
MESSAGE ADD,F1.203
202 @
"#PERC" @
*
100 F;
#THIS !
MESSAGE ADD,F1.204
199 @
"V" = IF
203 @
"#PERC" @
*
100 F;
ELSE
0
THEN
#THIS !
MESSAGE ADD,F1.205
#201
#202
(#301+#302)F;100
USE DOC
KEY 2
SELECT (CODNUM=#CODNUM)(TIPODOC=#TIPODOC)(ANAMAG.USER5!="")
JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN RDOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC NRIGA==1
JOIN ANAMAG TO RDOC INTO CODART==CODART
FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO
TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO