Consegnato per lineaF;cliente

#SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE #DADATA #ADATA

GRMERC MESSAGE RESET,F2.105 GRMERC MESSAGE COPY,F2.106 DESCR MESSAGE COPY,F2.107

CLIENTE MESSAGE RESET,F3.105 CLIENTE #THIS @ "F3.101" ! MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#101,RAGSOC

REGIONE MESSAGE RESET,F4.105 MESSAGE TABLEREAD,%RGI,REGIONE,S0

#PAGE

MESSAGE COPY,F2,106 MESSAGE COPY,F2,107

MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#101,RAGSOC MESSAGE ADD,F2.105

MESSAGE ADD,F4.105

USE 1000 SELECT ((#CLIENTE='')||(CLIENTE=#CLIENTE))(NUM(ANSI(DATADOC)E;=ANSI(#DADATA)))(NUM(ANSI(DATADOC)C;=ANSI(#ADATA))) FROM GRMERC=#DAGRMERC CLIENTE=#CLIENTE TO GRMERC=#AGRMERC CLIENTE=#CLIENTE