diff --git a/pr/pr1300a.frm b/pr/pr1300a.frm index 138396223..dfddef6f7 100755 --- a/pr/pr1300a.frm +++ b/pr/pr1300a.frm @@ -157,13 +157,23 @@ BEGIN MESSAGE COPY,402 END +STRINGA 3 6 +BEGIN + SPECIAL STRINGA INTESTAZIONE "Valuta" "Codice valuta" + SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" + SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" + KEY "RSoc" + PROMPT 3 1 "" +END + + NUMBER 103 15 BEGIN SPECIAL STRINGA INTESTAZIONE "@CTotale doc./rata" "Totale documento/rata" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 3 1 "" + PROMPT 4 1 "" END NUMBER 104 14 BEGIN @@ -171,7 +181,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 4 1 "" + PROMPT 5 1 "" END NUMBER 105 6 BEGIN @@ -179,7 +189,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 5 1 "" + prompt 6 1 "" END NUMBER 106 15 BEGIN @@ -187,7 +197,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 6 1 "" + prompt 7 1 "" END NUMBER 107 14 BEGIN @@ -195,7 +205,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 7 1 "" + prompt 8 1 "" END NUMBER 108 15 BEGIN @@ -203,7 +213,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 8 1 "" + prompt 9 1 "" END NUMBER 109 14 BEGIN @@ -211,7 +221,7 @@ BEGIN SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra" KEY "IMPORTO" - PROMPT 9 1 "" + prompt 10 1 "" END SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE @@ -259,6 +269,13 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE SECTION RATEDOC 1 0 0 FILE LF_PROVV GROUP CODNUM+NDOC // body doc: rate dello stesso documento + NUMERO 666 10 + BEGIN + KEY "FATTORE DI CONVERSIONE" + FLAGS "H" + MESSAGE _NUMEXPR,IF(CODVAL,1,CAMBIO) + END + SECTION RATA_DAPAGARE 1 1 1 STREXPR LF_PROVV->SALDATA!="X" STRINGA 101 15 BEGIN @@ -273,33 +290,39 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE PROMPT 2 1 "del " FIELD LF_PROVV->DATASCAD END + STRINGA 3 6 + BEGIN + KEY "CODVAL" + PROMPT 3 1 "" + FIELD LF_PROVV->CODVAL + END NUMBER 103 15 BEGIN KEY "IMPORTO rata" - PROMPT 3 1 "" + PROMPT 4 1 "" PICTURE "###.###.###.###" - FIELD LF_PROVV->IMPRATA + MESSAGE _NUMEXPR,LF_PROVV->IMPRATA*#666 MESSAGE ADD,203 END NUMBER 104 14 BEGIN KEY "IMPORTO provvigione" - PROMPT 4 1 "" + PROMPT 5 1 "" PICTURE "##.###.###.###" - FIELD LF_PROVV->IMPPROVV + MESSAGE _NUMEXPR,LF_PROVV->IMPPROVV*#666 MESSAGE ADD,204 END NUMBER 105 6 BEGIN KEY "perc. provv." - PROMPT 5 1 "" + prompt 6 1 "" PICTURE "##@,@#" MESSAGE _NUMEXPR,#104/#103*100 END NUMBER 106 15 BEGIN KEY "IMPORTO pagato" - PROMPT 6 1 "" + prompt 7 1 "" PICTURE "###.###.###.###" FIELD PAGATO MESSAGE ADD,206 @@ -307,25 +330,25 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 107 14 BEGIN KEY "provv pagata" - PROMPT 7 1 "" + prompt 8 1 "" PICTURE "##.###.###.###" - FIELD PROVVPAG + MESSAGE _NUMEXPR, PROVVPAG*#666 MESSAGE ADD,207 END NUMBER 108 15 BEGIN KEY "IMPORTO" - PROMPT 8 1 "" + prompt 9 1 "" PICTURE "###.###.###.###" - FIELD PAGMAT + MESSAGE _NUMEXPR, PAGMAT*#666 MESSAGE ADD,208 END NUMBER 109 14 BEGIN KEY "provv mat" - PROMPT 9 1 "" + prompt 10 1 "" PICTURE "##.###.###.###" - FIELD PROVVMAT + MESSAGE _NUMEXPR, PROVVMAT*#666 MESSAGE ADD,209 END END // RATA @@ -344,49 +367,55 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE PROMPT 2 1 "del " FIELD LF_PROVV->DATASCAD END + STRINGA 3 6 + BEGIN + KEY "CODVAL" + PROMPT 3 1 "" + FIELD LF_PROVV->CODVAL + END NUMBER 103 15 BEGIN KEY "IMPORTO rata" - PROMPT 3 1 "" + PROMPT 4 1 "" PICTURE "###.###.###.###" - FIELD LF_PROVV->IMPRATA + MESSAGE _NUMEXPR, LF_PROVV->IMPRATA*#666 MESSAGE ADD,203 END NUMBER 104 14 BEGIN KEY "totale provv" - PROMPT 4 1 "" + PROMPT 5 1 "" PICTURE "##.###.###.###" - FIELD LF_PROVV->IMPPROVV + MESSAGE _NUMEXPR, LF_PROVV->IMPPROVV*#666 MESSAGE ADD,204 END NUMBER 105 6 BEGIN KEY "perc provv" - PROMPT 5 1 "" + prompt 6 1 "" PICTURE "##@,@#" MESSAGE _NUMEXPR,#104/#103*100 END NUMBER 106 15 BEGIN KEY "IMPORTO pagato" - PROMPT 6 1 "" + prompt 7 1 "" PICTURE "###.###.###.###" - FIELD PAGATO + MESSAGE _NUMEXPR,PAGATO*#666 MESSAGE ADD,206 END NUMBER 107 14 BEGIN KEY "provv pagata" - PROMPT 7 1 "" + prompt 8 1 "" PICTURE "##.###.###.###" - FIELD PROVVPAG + MESSAGE _NUMEXPR, PROVVPAG*#666 MESSAGE ADD,207 END STRINGA 108 15 BEGIN KEY "flag saldato" - PROMPT 8 1 " SALDATA " + prompt 9 1 " SALDATA " END END // RATA @@ -407,7 +436,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 203 15 BEGIN KEY "IMPORTO" - PROMPT 3 1 "" + PROMPT 4 1 "" PICTURE "###.###.###.###" MESSAGE ADD,303 GROUP G_TOTDOC @@ -415,7 +444,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 204 14 BEGIN KEY "IMPORTO" - PROMPT 4 1 "" + PROMPT 5 1 "" PICTURE "##.###.###.###" MESSAGE ADD,304 GROUP G_TOTDOC @@ -423,14 +452,14 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 205 6 BEGIN KEY "IMPORTO" - PROMPT 5 1 "" + prompt 6 1 "" PICTURE "##@,@#" MESSAGE _NUMEXPR,#204/#203*100 END NUMBER 206 15 BEGIN KEY "IMPORTO" - PROMPT 6 1 "" + prompt 7 1 "" PICTURE "###.###.###.###" MESSAGE ADD,306 GROUP G_TOTDOC @@ -438,7 +467,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 207 14 BEGIN KEY "IMPORTO" - PROMPT 7 1 "" + prompt 8 1 "" PICTURE "##.###.###.###" MESSAGE ADD,307 GROUP G_TOTDOC @@ -446,7 +475,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 208 15 BEGIN KEY "IMPORTO" - PROMPT 8 1 "" + prompt 9 1 "" PICTURE "###.###.###.###" MESSAGE ADD,308 GROUP G_TOTDOC @@ -454,7 +483,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 209 14 BEGIN KEY "IMPORTO" - PROMPT 9 1 "" + prompt 10 1 "" PICTURE "##.###.###.###" MESSAGE ADD,309 GROUP G_TOTDOC @@ -478,7 +507,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 303 15 BEGIN KEY "IMPORTO" - PROMPT 3 1 "" + PROMPT 4 1 "" PICTURE "###.###.###.###" MESSAGE ADD,403 GROUP G_TOTCLI @@ -486,7 +515,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 304 14 BEGIN KEY "IMPORTO" - PROMPT 4 1 "" + PROMPT 5 1 "" PICTURE "##.###.###.###" MESSAGE ADD,404 GROUP G_TOTCLI @@ -494,14 +523,14 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 305 6 BEGIN KEY "IMPORTO" - PROMPT 5 1 "" + prompt 6 1 "" PICTURE "##@,@#" MESSAGE _NUMEXPR,#304/#303*100 END NUMBER 306 15 BEGIN KEY "IMPORTO" - PROMPT 6 1 "" + prompt 7 1 "" PICTURE "###.###.###.###" MESSAGE ADD,406 GROUP G_TOTCLI @@ -509,7 +538,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 307 14 BEGIN KEY "IMPORTO" - PROMPT 7 1 "" + prompt 8 1 "" PICTURE "##.###.###.###" MESSAGE ADD,407 GROUP G_TOTCLI @@ -517,7 +546,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 308 15 BEGIN KEY "IMPORTO" - PROMPT 8 1 "" + prompt 9 1 "" PICTURE "###.###.###.###" MESSAGE ADD,408 GROUP G_TOTCLI @@ -525,7 +554,7 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE NUMBER 309 14 BEGIN KEY "IMPORTO" - PROMPT 9 1 "" + prompt 10 1 "" PICTURE "##.###.###.###" MESSAGE ADD,409 GROUP G_TOTCLI @@ -547,21 +576,21 @@ END // end clienti NUMBER 403 15 BEGIN KEY "IMPORTO" - PROMPT 3 2 "" + PROMPT 4 2 "" PICTURE "###.###.###.###" GROUP G_TOTAGE END NUMBER 404 14 BEGIN KEY "IMPORTO" - PROMPT 4 2 "" + PROMPT 5 2 "" PICTURE "##.###.###.###" GROUP G_TOTAGE END NUMBER 405 6 BEGIN KEY "IMPORTO" - PROMPT 5 2 "" + prompt 6 2 "" PICTURE "##@,@#" MESSAGE _NUMEXPR,#404/#403*100 GROUP G_TOTAGE @@ -569,28 +598,28 @@ END // end clienti NUMBER 406 15 BEGIN KEY "IMPORTO" - PROMPT 6 2 "" + prompt 7 2 "" PICTURE "###.###.###.###" GROUP G_TOTAGE END NUMBER 407 14 BEGIN KEY "IMPORTO" - PROMPT 7 2 "" + prompt 8 2 "" PICTURE "##.###.###.###" GROUP G_TOTAGE END NUMBER 408 15 BEGIN KEY "IMPORTO" - PROMPT 8 2 "" + prompt 9 2 "" PICTURE "###.###.###.###" GROUP G_TOTAGE END NUMBER 409 14 BEGIN KEY "IMPORTO" - PROMPT 9 2 "" + prompt 10 2 "" PICTURE "##.###.###.###" GROUP G_TOTAGE END