From 2952da11a7db6364df77c20dd6e131835b635d8f Mon Sep 17 00:00:00 2001 From: pirro Date: Thu, 30 Oct 1997 10:24:55 +0000 Subject: [PATCH] aggiornato modulo fattura Buffetti 8904 M200 ed aggiunti in profilo fattura i campi porto,causale trasporto, N. e data documento di riferimento git-svn-id: svn://10.65.10.50/trunk@5492 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/fatturac.src | 23 ++-- ve/vefat.frm | 297 +++++++++++++++++++++++++++--------------------- 2 files changed, 184 insertions(+), 136 deletions(-) diff --git a/ve/fatturac.src b/ve/fatturac.src index 132fc0424..c59d7a21c 100755 --- a/ve/fatturac.src +++ b/ve/fatturac.src @@ -71,12 +71,16 @@ DESCONT = S_DISABILITATO //810 CODCAMP = S_NORMALE //820 DESCAMP = S_DISABILITATO //820 SCONTOPERC = S_NORMALE //830 +DATADOCRIF = S_NORMALE //1000 +NUMDOCRIF = S_NORMALE //1000 CODAG = S_NORMALE //1100 DESAG = S_NORMALE //1100 CODZON = S_NORMALE //1100 DESZON = S_NORMALE //1100 CODPORTO = S_NORMALE //1210 DESPORTO = S_NORMALE //1210 +CAUSTRASP = S_NORMALE //1400 +DENCAUSTRASP = S_NORMALE //1400 CODVETT1 = S_NORMALE //1500 CODVETT2 = S_NASCOSTO //1500 CODVETT3 = S_NASCOSTO //1500 @@ -144,8 +148,10 @@ NHANDLER=0 810 = S_NORMALE 820 = S_NORMALE 830 = S_NORMALE +1000 = S_NORMALE 1100 = S_NORMALE 1210 = S_NORMALE +1400 = S_NORMALE 1500 = S_NORMALE 1600 = S_NASCOSTO 1800 = S_NORMALE @@ -156,7 +162,7 @@ NHANDLER=0 4000 = S_NORMALE [ORDINEGRUPPI] -NGROUPS=17 +NGROUPS=21 1=100 2=200 3=300 @@ -168,10 +174,13 @@ NGROUPS=17 9=810 10=820 11=830 -12=1100 -13=1800 -14=1900 -15=2200 -16=2300 -17=2400 +12=1000 +13=1100 +14=1210 +15=1400 +16=1800 +17=1900 +18=2200 +20=2300 +21=2400 diff --git a/ve/vefat.frm b/ve/vefat.frm index 3b1ba44dc..e8172e5f7 100755 --- a/ve/vefat.frm +++ b/ve/vefat.frm @@ -11,6 +11,7 @@ JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1 JOIN %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1 +JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP END @@ -37,9 +38,9 @@ BEGIN FONT "Courier New" SIZE 12 MODULE "BUFFETTI_FATTURA_01" - PRI_DECIMALS 0 3 + PRI_DECIMALS 0 2 QTA_DECIMALS 3 3 - IMP_DECIMALS 0 3 + IMP_DECIMALS 0 2 EXCLUDE "," END @@ -74,29 +75,29 @@ BEGIN MESSAGE _DITTA,!COM END -STRINGA 5 5 1 +STRINGA 5 8 1 BEGIN KEY "scritta P.IVA" - PROMPT 3 7 "P.IVA" + PROMPT 3 7 "P.IVA IT" END STRINGA 6 16 1 BEGIN KEY "partita iva ditta" - PROMPT 9 7 "" + PROMPT 12 7 "" MESSAGE _DITTA,!IVA END -STRINGA 7 9 1 +STRINGA 7 12 1 BEGIN KEY "scritta COD.FISC." - PROMPT 3 8 "COD.FISC." + PROMPT 3 8 "COD.FISC. IT" END STRINGA 8 16 1 BEGIN KEY "codice fiscale ditta" - PROMPT 13 8 "" + PROMPT 16 8 "" MESSAGE _DITTA,!CF END @@ -105,6 +106,7 @@ BEGIN KEY "reg.soc.trib...." PROMPT 3 9 "REG.SOC.TRIB.R.E. " MESSAGE _DITTA,!REGSOC + FLAGS "D" END NUMERO 10 30 1 @@ -112,19 +114,20 @@ BEGIN KEY "c.c.i.a.a. ....." PROMPT 3 10 "C.C.I.A.A. " MESSAGE _DITTA,!CCIAA + FLAGS "D" END STRINGA 11 10 1 BEGIN KEY "data fattura" - PROMPT 61 21 "" - FILED 33->DATADOC + PROMPT 58 21 "" + FIELD 33->DATADOC END STRINGA 12 7 BEGIN KEY "numero fattura" - PROMPT 74 21 "" + PROMPT 73 21 "" FIELD 33->NDOC END @@ -192,10 +195,10 @@ BEGIN MESSAGE _CLIENTE,!INDNUM END -STRINGA 22 3 +STRINGA 22 2 BEGIN KEY "Numero di pagina" - PROMPT 74 10 "" + PROMPT 80 21 "" MESSAGE _PAGENO END @@ -220,75 +223,111 @@ BEGIN MESSAGE _CLIENTE,!COM->PROVCOM END +STRINGA 26 3 1 +BEGIN + KEY "cliente codice stato" + PROMPT 44 17 "" + MESSAGE _CLIENTE,STATOCF + FLAGS "H" +END + +STRINGA 27 25 1 +BEGIN + KEY "cliente nome stato" + PROMPT 44 17 "" + MESSAGE _TABLEREAD,%STA,#26,S0 +END + +STRING 28 11 1 +BEGIN + KEY "partita iva cliente" + PROMPT 37 23 "" + MESSAGE _CLIENTE,PAIV +END + +STRING 29 2 1 +BEGIN + KEY "codice iso iva cliente" + PROMPT 34 23 "" + MESSAGE _CLIENTE,STATOPAIV +END + +STRING 30 15 +BEGIN + KEY "causale di trasporto" + PROMPT 67 23 "" + FIELD 207@->S0 +END + END SECTION BODY ODD 5 -STRINGA 51 13 1 +STRINGA 51 12 1 BEGIN KEY "codice articolo" FIELD 34->CODART PROMPT 2 1 "" END -STRINGA 52 25 4 +STRINGA 52 20 4 BEGIN KEY "descrizione articolo" MESSAGE _DESCRIGA - PROMPT 17 1 "" + PROMPT 16 1 "" END STRINGA 53 2 BEGIN KEY "unita' di misura" - PROMPT 42 1 "" + PROMPT 37 1 "" FIELD 34->UMQTA MESSAGE _ALIGN,#52,BOTTOM END -NUMBER 54 10 +NUMBER 54 9 BEGIN KEY "quantita'" - PROMPT 45 1 "" + PROMPT 40 1 "" FIELD 34->QTA - PICTURE "######" + PICTURE "#########" GROUP 30 MESSAGE _ALIGN,#52,BOTTOM END -NUMBER 55 15 +NUMBER 55 12 BEGIN KEY "prezzo unitario" - PROMPT 56 1 "" - PICTURE "###.###.###.###" + PROMPT 49 1 "" FIELD 34->PREZZO + PICTURE "###.###.###" GROUP 29 MESSAGE _ALIGN,#52,BOTTOM END -STRINGA 56 25 +STRINGA 56 3 BEGIN KEY "sconto" - PROMPT 72 1 "" + PROMPT 62 1 "" FIELD 34->SCONTO MESSAGE _ALIGN,#52,BOTTOM + FLAGS "D" END -NUMBER 57 15 +NUMBER 57 12 BEGIN KEY "importo netto" - PROMPT 68 1 "" - FLAGS "H" - GROUP 29 + PROMPT 66 1 "" FIELD 34->IMPNN - PICTURE "###.###.###.###" + PICTURE "###.###.###" + GROUP 29 MESSAGE _ALIGN,#52,BOTTOM END -STRINGA 58 4 +STRINGA 58 3 BEGIN KEY "iva" - PROMPT 81 1 "" + PROMPT 79 1 "" FIELD 34->CODIVA MESSAGE _ALIGN,#52,BOTTOM END @@ -328,7 +367,7 @@ END END -SECTION FOOTER ODD 13 +SECTION FOOTER ODD -52 STRINGA 81 5 1 BEGIN @@ -338,24 +377,23 @@ END END -SECTION FOOTER LAST 13 +SECTION FOOTER LAST -52 -NUMBER 101 15 +NUMBER 101 12 BEGIN KEY "spese" - PROMPT 56 3 "" - PICTURE "###.###.###.###" - FIELD TOTSPE - FLAGS "H" + PROMPT 69 1 "" + PICTURE "###.###.###" + FIELD SPESE GROUP 31 END NUMBER 102 15 BEGIN KEY "spese di trasporto" - PROMPT 56 3 "" - PICTURE "###.###.###.###" - // Aggiungere il campo per le spese di trasporto + PROMPT 56 1 "" + PICTURE "###.###.###" + FIELD SPESE FLAGS "H" GROUP 31 END @@ -363,297 +401,298 @@ END NUMBER 103 15 BEGIN KEY "spese di imballo" - PROMPT 56 4 "" - PICTURE "###.###.###.###" - // Aggiungere il campo per le spese di imballo + PROMPT 56 1 "" + PICTURE "###.###.###" + FIELD SPESE FLAGS "H" GROUP 31 END -NUMBER 104 15 +NUMBER 104 8 BEGIN KEY "spese di incasso" - PROMPT 56 5 "" - PICTURE "###.###.###.###" - FIELD SPESEINC + PROMPT 55 11 "" + PICTURE "###.###" + FIELD SPESINC GROUP 31 END NUMBER 105 11 BEGIN KEY "spese bolli" - PROMPT 60 6 "" + PROMPT 60 11 "" FIELD BOLLI GROUP 31 + FLAGS "D" END -STRING 106 4 +STRING 106 3 BEGIN KEY "codice iva 1" - PROMPT 2 2 "" + PROMPT 1 3 "" MESSAGE _RIEPILOGOIVA,1,COD,0 END -NUMBER 107 15 +NUMBER 107 12 BEGIN KEY "imponibile 1" - PROMPT 7 2 "" + PROMPT 6 3 "" MESSAGE _RIEPILOGOIVA,1,IMP,0 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END -NUMBER 108 5 +NUMBER 108 2 BEGIN KEY "iva 1" - PROMPT 23 2 "" + PROMPT 18 3 "" MESSAGE _RIEPILOGOIVA,1,ALI,0 - PICTURE "##,@@" + PICTURE "##" END -NUMBER 109 15 +NUMBER 109 10 BEGIN KEY "imposta 1" - PROMPT 28 2 "" + PROMPT 22 3 "" MESSAGE _RIEPILOGOIVA,1,IVA,1 - PICTURE "###.###.###.###" + PICTURE "##.###.###" GROUP 31 END -STRING 110 4 +STRING 110 3 BEGIN KEY "codice iva 2" - PROMPT 2 3 "" + PROMPT 1 4 "" MESSAGE _RIEPILOGOIVA,1,COD,0 END -NUMBER 111 15 +NUMBER 111 12 BEGIN KEY "imponibile 2" - PROMPT 7 3 "" + PROMPT 6 4 "" MESSAGE _RIEPILOGOIVA,1,IMP,0 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END -NUMBER 112 5 +NUMBER 112 2 BEGIN KEY "iva 2" - PROMPT 23 3 "" + PROMPT 18 4 "" MESSAGE _RIEPILOGOIVA,1,ALI,0 - PICTURE "##,@@" + PICTURE "##" END -NUMBER 113 15 +NUMBER 113 10 BEGIN KEY "imposta 2" - PROMPT 28 3 "" + PROMPT 22 4 "" MESSAGE _RIEPILOGOIVA,1,IVA,1 - PICTURE "###.###.###.###" + PICTURE "##.###.###" GROUP 31 END -STRING 114 4 +STRING 114 3 BEGIN KEY "codice iva 3" - PROMPT 2 4 "" + PROMPT 1 5 "" MESSAGE _RIEPILOGOIVA,1,COD,0 END -NUMBER 115 15 +NUMBER 115 12 BEGIN KEY "imponibile 3" - PROMPT 7 4 "" + PROMPT 6 5 "" MESSAGE _RIEPILOGOIVA,1,IMP,0 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END -NUMBER 116 5 +NUMBER 116 2 BEGIN KEY "iva 3" - PROMPT 23 4 "" + PROMPT 18 5 "" MESSAGE _RIEPILOGOIVA,1,ALI,0 - PICTURE "##,@@" + PICTURE "##" END -NUMBER 117 15 +NUMBER 117 10 BEGIN KEY "imposta 3" - PROMPT 28 4 "" + PROMPT 22 5 "" MESSAGE _RIEPILOGOIVA,1,IVA,1 - PICTURE "###.###.###.###" + PICTURE "##.###.###" GROUP 31 END -NUMBER 118 15 +NUMBER 118 12 BEGIN KEY "imponibile 4" - PROMPT 7 5 "" + PROMPT 6 7 "" MESSAGE _RIEPILOGOIVA,30,IMP,0 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END -STRINGA 119 4 +STRINGA 119 3 BEGIN KEY "codice iva 4" - PROMPT 2 5 "" + PROMPT 1 7 "" MESSAGE _RIEPILOGOIVA,30,COD,0 END STRINGA 120 45 BEGIN KEY "descrizione altri 4" - PROMPT 23 5 "" + PROMPT 33 7 "" MESSAGE _RIEPILOGOIVA,30,DES,1 END -NUMBER 121 15 +NUMBER 121 12 BEGIN KEY "imponibile 5" - PROMPT 7 6 "" + PROMPT 6 8 "" MESSAGE _RIEPILOGOIVA,30,IMP,0 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END -STRINGA 122 4 +STRINGA 122 3 BEGIN KEY "codice iva 5" - PROMPT 2 6 "" + PROMPT 1 8 "" MESSAGE _RIEPILOGOIVA,30,COD,0 END STRINGA 123 45 BEGIN KEY "descrizione altri 5" - PROMPT 23 6 "" + PROMPT 33 8 "" MESSAGE _RIEPILOGOIVA,30,DES,1 END NUMBER 124 15 BEGIN KEY "totale imponibile" - PROMPT 71 6 "" - MESSAGE _TOTIMPONIBILI,1 - PICTURE "###.###.###.###" + PROMPT 4 11 "" + MESSAGE _TOTIMPONIBILI,29 + PICTURE "###.###.###" GROUP 31 END -NUMBER 125 15 +NUMBER 125 14 BEGIN KEY "totale imposta" - PROMPT 71 7 "" + PROMPT 18 11 "" FIELD IMPOSTE - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END NUMBER 126 15 BEGIN KEY "totale esenti" - PROMPT 71 8 "" - MESSAGE _TOTIMPONIBILI,4 - PICTURE "###.###.###.###" + PROMPT 35 11 "" + MESSAGE _TOTIMPONIBILI,28 + PICTURE "###.###.###" GROUP 31 END NUMBER 127 15 BEGIN KEY "totale importi netti (non scontati)" - PROMPT 71 1 "" - FIELD TOTMERC - PICTURE "###.###.###.###" + PROMPT 2 1 "" + FIELD TOTMER + PICTURE "###.###.###" GROUP 31 END -NUMBER 128 15 +NUMBER 128 12 BEGIN KEY "totale fattura" - PROMPT 71 9 "" + PROMPT 69 11 "" FIELD TOTDOC - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END DATA 129 10 1 BEGIN KEY "scadenza pagamento 1" - PROMPT 3 10 "" + PROMPT 1 13 "" MESSAGE _SCADENZE,DATA,0 END -NUMBER 130 15 +NUMBER 130 12 BEGIN KEY "importo scadenza 1" - PROMPT 16 10 "" + PROMPT 13 13 "" MESSAGE _SCADENZE,IMPORTO,1 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END DATA 131 10 1 BEGIN KEY "scadenza pagamento 2" - PROMPT 32 10 "" + PROMPT 27 13 "" MESSAGE _SCADENZE,DATA,0 END -NUMBER 132 15 +NUMBER 132 12 BEGIN KEY "importo scadenza 2" - PROMPT 45 10 "" + PROMPT 39 13 "" MESSAGE _SCADENZE,IMPORTO,1 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END DATA 133 10 1 BEGIN KEY "scadenza pagamento 3" - PROMPT 3 11 "" + PROMPT 1 14 "" MESSAGE _SCADENZE,DATA,0 END -NUMBER 134 15 +NUMBER 134 12 BEGIN KEY "importo scadenza 3" - PROMPT 16 11 "" + PROMPT 14 14 "" MESSAGE _SCADENZE,IMPORTO,1 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END DATA 135 10 1 BEGIN KEY "scadenza pagamento 4" - PROMPT 32 11 "" + PROMPT 27 14 "" MESSAGE _SCADENZE,DATA,0 END -NUMBER 136 15 +NUMBER 136 12 BEGIN KEY "importo scadenza 4" - PROMPT 45 11 "" + PROMPT 39 14 "" MESSAGE _SCADENZE,IMPORTO,1 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END DATA 137 10 1 BEGIN KEY "scadenza pagamento 5" - PROMPT 3 12 "" + PROMPT 3 15 "" MESSAGE _SCADENZE,DATA,0 END NUMBER 138 15 BEGIN KEY "importo scadenza 5" - PROMPT 16 12 "" + PROMPT 16 15 "" MESSAGE _SCADENZE,IMPORTO,1 - PICTURE "###.###.###.###" + PICTURE "###.###.###" GROUP 31 END