root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Aggiunta gestione fattore di conversione per cambio

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5588 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-11-11 09:17:00 +00:00
parent 298a1b4844
commit 6423580907
1 changed files with 79 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
pr/pr1300a.frm
View File

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