Mastrini CA

MESSAGE RESET,F1.101 MESSAGE RESET,F1.102 #SYSTEM.RAGSOC #SYSTEM.DATE #COSTO CA_FORMAT_COSTO MESSAGE ISAMREAD,CDC,CODCOSTO=RMOVANA.CODCCOSTO,DESCRIZ #COMMESSA CA_FORMAT_COMMESSA MESSAGE ISAMREAD,COMMESSE,CODCMS=RMOVANA.CODCMS,DESCRIZ #FASE CA_FORMAT_FASE MESSAGE ISAMREAD,FASI,CODFASE=RMOVANA.CODFASE,DESCRIZ

CODCONTO MESSAGE RESET,F2.101 MESSAGE RESET,F2.102 MESSAGE RESET,F2.201 MESSAGE RESET,F2.202 CODCONTO CA_FORMAT_CONTO CODCONTO CA_FORMAT_CONTO_DESCR SALDOINI:DARE MESSAGE COPY,B1.103 SALDOINI:AVERE #THIS @ DUP 0 E; IF -1 * "B1.103" +! ELSE DROP THEN

DATACOMP MESSAGE RESET,F3.103

NUMREG != 0 DATACOMP MESSAGE COPY,F3.131 NUMREG NUMRIG DESCR MOVANA.NUMREGCG MOVANA.DATADOC MOVANA.NUMDOC MOVANA.CODCAUS MESSAGE ISAMREAD,CAUS,CODCAUS=MOVANA.CODCAUS,DESCR IMPORTO "RMOVANA.SEZIONE" @ "A" = IF 0 #THIS ! ELSE #THIS @ "B1.103" +! THEN MESSAGE ADD,F2.101 IMPORTO "RMOVANA.SEZIONE" @ "D" = IF 0 #THIS ! ELSE #THIS @ -1 * "B1.103" +! THEN MESSAGE ADD,F2.102 MESSAGE COPY,F3.103 MOV.TIPO MOV.CODCF MESSAGE ISAMREAD,CLIFO,TIPOCF=#104!CODCF=#105,RAGSOC

#REPORT.PAGE

#101-#102

MESSAGE ADD,F1.101 MESSAGE ADD,F1.102 #101+#H2.201 #102+#H2.202 #201-#202

#103 != 0

USE RMOVANA KEY 2 JOIN MOVANA INTO NUMREG==NUMREG JOIN MOV TO MOVANA INTO NUMREG==NUMREGCG : 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 ;