Stampa Estratto Conto Socio
101@.CODCF
#SYSTEM.DATE
101@.RAGSOC
#DATAINI
#DATAFIN
101@.INDCF+" ,"+101@.CIVCF
101@.LOCALITACF
101@.CAPCF+" "+COMUNI.DENCOM+" "+COMUNI.PROVCOM
#PARENT.DATADOC
DESCR
#PARENT.NFASTA
Q.ta
34.PREZZONN
PREZZONS
RITENUTA
IMPCNS
IMPCNS
USE RDOC
SELECT (TIPORIGA='CO')||(TIPORIGA='06')
JOIN %SPP ALIAS 201 INTO CODTAB==CODART
FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
#PARENT.DATADOC
DESCR
33.NFASTA
34.TIPORIGA
#THIS @
"CO" = \ confronta tiporiga con "CO"
IF
#101 ENABLE
#102 ENABLE
#103 ENABLE
#104 ENABLE
#105 ENABLE
#106 DISABLE
#107 ENABLE
ELSE
#101 DISABLE
#102 DISABLE
#103 DISABLE
#104 DISABLE
#105 DISABLE
#106 ENABLE
#107 ENABLE
THEN
1
QTA
MESSAGE ADD,F2.101
1
PREZZONN
1
PREZZONS
1
IMPCNN-IMPCNS
MESSAGE ADD,F2.104
1
IMPCNS
MESSAGE ADD,F2.105
MESSAGE ADD,F2.115
2
IMPCNS
MESSAGE ADD,F2.106
IMPOSTA
MESSAGE ADD,F2.107
USE RDOC
SELECT (TIPORIGA='CO')||(TIPORIGA='06')
JOIN %SPP ALIAS 201 INTO CODTAB==CODART
FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
DESCR
34.TIPORIGA
#THIS @
"CO" = \ confronta tiporiga con "CO"
IF
#101 ENABLE
#102 ENABLE
#103 ENABLE
#104 ENABLE
#105 ENABLE
#106 DISABLE
#107 ENABLE
ELSE
#101 DISABLE
#102 DISABLE
#103 DISABLE
#104 DISABLE
#105 DISABLE
#106 ENABLE
#107 ENABLE
THEN
QTA
MESSAGE ADD,F2.101
PREZZONN
PREZZONS
IMPCNN-IMPCNS
MESSAGE ADD,F2.104
IMPCNS
MESSAGE ADD,F2.105
IMPCNS
MESSAGE ADD,F2.106
IMPOSTA
MESSAGE ADD,F2.107
USE DOC
KEY 2
SELECT (NUM(ANSI(DATADOC)E;=ANSI(#DATAINI)))(NUM(ANSI(DATADOC)C;=ANSI(#DATAFIN)))
JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF
FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAINI
TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAFIN