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
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