From 8649090cbda26a96934a2c80efa52e7656547192 Mon Sep 17 00:00:00 2001 From: guy Date: Fri, 23 Dec 2011 14:50:36 +0000 Subject: [PATCH] Patch level : 10.0 Files correlati : ca1100a.rep Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@22536 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ca/ca1100a.rep | 445 +++++++++++++++++++++++++++++++++++++++++-------- 1 file changed, 380 insertions(+), 65 deletions(-) diff --git a/ca/ca1100a.rep b/ca/ca1100a.rep index c41848446..a825edc83 100644 --- a/ca/ca1100a.rep +++ b/ca/ca1100a.rep @@ -1,41 +1,45 @@ - +
- - - "BILANCIO DAL " + #DATAINI + " AL " + #DATAFIN + " STAMPA DEL " + #DATASTA + + + + "BILANCIO " + YEAR(#DATAFIN) + " - SITUAZIONE AL " + #DATASTA
CODCCOSTO - - + MESSAGE RESET,F2 + + + + "Situazione al " + #DATASTA + + + "Situazione al " + #DATAFIN + + + + + + + + + + + + + + CODCCOSTO - - MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO,DESCRIZ + + MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO,DESCRIZ - - "AL " + #DATASTA - - - - - - - - - - - - - - -
CODCONTO @@ -46,8 +50,8 @@
-
-
+
+ + + + + + + + + + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + + + + 201 @ +203 @ +- . + + + 201 @ +0 = IF + 0 +ELSE + 205 @ + 201 @ + F; 100 * + 0 ROUND +THEN +. + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + + + + 301 @ +303 @ +- . + + + 301 @ +0 = IF + 0 +ELSE + 305 @ + 301 @ + F; 100 * + 0 ROUND +THEN +. + + +
+
+ + + + + + + + + + + + #H2.101 + + + #H2.102 + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F1." #THIS GET_ID + \ Costruisce la stringa F1.201 ++! \ Somma il valore corrente al corrispondente in F1 + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F1." #THIS GET_ID + \ Costruisce la stringa F1.201 ++! \ Somma il valore corrente al corrispondente in F1 + + + + 201 @ +203 @ +- . + + + 201 @ +0 = IF + 0 +ELSE + 205 @ + 201 @ + F; 100 * + 0 ROUND +THEN +. + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F1." #THIS GET_ID + \ Costruisce la stringa F1.201 ++! \ Somma il valore corrente al corrispondente in F1 + + + + #THIS @ 0 C; IF + #THIS @ + -1 * + #THIS ! + #THIS GET_ID_NEXT + "A" +ELSE + #THIS @ + 0 = IF + "" + ELSE + "D" + THEN +THEN + #THIS GET_ID_NEXT ! + + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F1." #THIS GET_ID + \ Costruisce la stringa F1.201 ++! \ Somma il valore corrente al corrispondente in F1 + + + + 301 @ +303 @ +- . + + + 301 @ +0 = IF + 0 +ELSE + 305 @ + 301 @ + F; 100 * + 0 ROUND +THEN +. + + +
- - + + - + - - #H3.101 - - MESSAGE ISAMREAD,PCONANA,CODCONTO=#H3.101,DESCR + + #H3.101 + CA_FORMAT_CONTO_DESCR #THIS @ 0 C; IF @@ -164,8 +448,15 @@ ELSE THEN #THIS GET_ID_NEXT ! + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F2." #THIS GET_ID + \ Costruisce la stringa F2.201 ++! \ Somma il valore corrente al corrispondente in F2 - + #THIS @ 0 C; IF #THIS @ @@ -183,20 +474,28 @@ ELSE THEN #THIS GET_ID_NEXT ! + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F2." #THIS GET_ID + \ Costruisce la stringa F2.203 ++! \ Somma il valore corrente al corrispondente in F2 + - - - 104 @ -102 @ -- . + + + 201 @ +203 @ +- . - - 102 @ + + 201 @ 0 = IF 0 ELSE - 106 @ - 102 @ + 205 @ + 201 @ F; 100 * 0 ROUND THEN @@ -220,8 +519,16 @@ ELSE THEN #THIS GET_ID_NEXT ! + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F2." #THIS GET_ID + \ Costruisce la stringa F2.301 ++! \ Somma il valore corrente al corrispondente in F2 + - + #THIS @ 0 C; IF #THIS @ @@ -239,20 +546,28 @@ ELSE THEN #THIS GET_ID_NEXT ! + #THIS @ \ Legge il valore del campo corrente +#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo +"A" = IF \ Se vale Avere + -1 * \ Cambia segno +THEN +"F2." #THIS GET_ID + \ Costruisce la stringa F2.303 ++! \ Somma il valore corrente al corrispondente in F2 + - + - 104 @ -102 @ -- . + 301 @ +303 @ +- . - - 102 @ + + 301 @ 0 = IF 0 ELSE - 106 @ - 102 @ + 305 @ + 301 @ F; 100 * 0 ROUND THEN