Movimenti CA per numero registrazione

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

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

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 DATAREG 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 IMPORTO "RMOVANA.SEZIONE" @ "D" = IF 0 #THIS ! THEN MESSAGE ADD,F1.102

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 ;