Lista ritenute per F24
#SYSTEM.RAGSOC #SYSTEM.DATE #DANUM #ANUM
CODCF CODCF MESSAGE _ISAMREAD,CLIFO,TIPOCF='C'!CODCF=CODCF,RAGSOC
USE RDOC SELECT (TIPORIGA=='04')(110@-E;S10!='') JOIN SPP ALIAS 110 INTO CODTAB==CODART FROM PROVV=#PARENT.PROVV ANNO=#PARENT.ANNO CODNUM=#PARENT.CODNUM NDOC=#PARENT.NDOC TO PROVV=#PARENT.PROVV ANNO=#PARENT.ANNO CODNUM=#PARENT.CODNUM NDOC=#PARENT.NDOC NDOC 33.DATADOC RITENUTA MESSAGE _TABLEREAD,SPP,CODART,S10
USE DOC KEY 4 SELECT (CODNUM=#NUM)(NDOCE;=#DANUM)(NDOCC;=#ANUM) FROM TIPOCF='C' TO TIPOCF='C'