Movimenti CA per data

#ESERCIZIO @ 0 E; IF 121 122 SCAMBIA_CAMPI THEN ; #SYSTEM.RAGSOC #SYSTEM.DATE #REPORT.PAGE

MESSAGE RESET,F1.101 MESSAGE RESET,F1.102

IF (#ANNO E; 0,MOVANA.DATACOMP,MOVANA.DATAREG) MESSAGE RESET,F2.131 MESSAGE RESET,F2.132

NUMREG MOVANA.NUMREG MOVANA.DATADOC MOVANA.NUMREGCG MOVANA.NUMDOC MOVANA.TIPODOC MOVANA.DESCR MOVANA.CODCAUS MESSAGE ISAMREAD,CAUS,CODCAUS=MOVANA.CODCAUS,DESCR MOVANA.TIPOMOV MOVANA.TOTDOC "MOVANA.SEZIONE" @ "A" = IF 0 #THIS ! THEN MOVANA.TOTDOC "MOVANA.SEZIONE" @ "D" = IF 0 #THIS ! THEN MOVANA.DATAREG MOVANA.DATACOMP

#ESERCIZIO @ 0 E; IF 121 122 SCAMBIA_CAMPI THEN ; NUMRIG CODCCOSTO CA_FORMAT_COSTO CODCMS CA_FORMAT_COMMESSA CODFASE CA_FORMAT_FASE CODCONTO CA_FORMAT_CONTO DESCR IMPORTO "RMOVANA.SEZIONE" @ "A" = IF 0 #THIS ! THEN MESSAGE ADD,F1.101 MESSAGE ADD,F2.131 IMPORTO "RMOVANA.SEZIONE" @ "D" = IF 0 #THIS ! THEN MESSAGE ADD,F1.102 MESSAGE ADD,F2.132

USE RMOVANA JOIN MOVANA INTO NUMREG==NUMREG : SCAMBIA_CAMPI ( F1 F2 -- ) VARIABLE _X1 \ coordinate del campo F1 VARIABLE _Y1 VARIABLE _X2 \ coordinate del campo F2 VARIABLE _Y2 2DUP \ duplica i campi F1 F2 sullo stack GET_POS \ prende le coordinate del campo F2 _Y2 ! \ e le mette in _Y2 e _X2 _X2 ! GET_POS \ prende le coordinate del campo F1 _Y1 ! \ e le mette in _Y1 e _X1 _X1 ! _X1 @ \ legge le coordinate di F1 _Y1 @ ROT SET_POS \ mette le coord in F2 _X2 @ _Y2 @ ROT SET_POS ;