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

Grosso passo in avanti per la stampa documenti.

Browse Source 
Manca da terminare il footer delle accompagnatorie.


git-svn-id: svn://10.65.10.50/trunk@3387 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-13 15:41:44 +00:00
parent 761bccc810
commit 788d0e2811
4 changed files with 524 additions and 206 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

208
ve/veacc.frm
View File

@ -1,3 +1,48 @@
// - Codici per i totalizzatori:
// Questi vengono letti in G1 sulla testata:
// SPTRAS spese di trasporto
// SPINC spese incasso
// SPIMB spese imballaggio
// SPBOL spese bolli
// Questi vengono ricalcolati in stampa:
// TIMPONIBILI totale imponibile (calcolato in stampa dalla tabella riepilogativa)
// TIMPOSTE totale imposta (calcolato in stampa dalla tabella riepilogativa)
// TESENTI totale esenti (calcolato in stampa dalla tabella riepilogativa)
// TIMPNETTI totale importi netti (stesso codice per il totalizzatore della riga)
// TOTDOC totale documento (fattura in questo caso)
//
// Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
// riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
// 1 = regime normale
// 2 = ventilare (non usato)
// 4 = esenti
// 8 = non imponibili
// 16 = non soggetti
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
// Istruzione EXCLUDE nella sezione GENERAL (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
// Completare la sezione "iva" nel body
// Manca il campo "causale" nella section footer
@ -43,37 +88,40 @@ BEGIN
FONT "Courier New"
SIZE 12
MODULE BUFFETTI_FATTURA_ACCOMPAGNATORIA_01
PRI_DECIMALS 0 3
QTA_DECIMALS 3 3
IMP_DECIMALS 0 3
EXCLUDE ","
END
/////////////////////////////////////////////////
SECTION HEADER ODD 27
STRINGA 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 1 ""
MESSAGE _DITTA !RAGSOC
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 2 ""
MESSAGE _DITTA !IND
MESSAGE _DITTA, !IND
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 3 ""
MESSAGE _DITTA !CAP
MESSAGE _DITTA, !CAP
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 3 ""
MESSAGE _DITTA !COM
MESSAGE _DITTA, !COM
END
STRINGA 5 5 1
@ -86,7 +134,7 @@ STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 4 ""
MESSAGE _DITTA !PIVA
MESSAGE _DITTA, !PIVA
END
STRINGA 7 9 1
@ -99,73 +147,66 @@ STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 5 ""
MESSAGE _DITTA !CF
MESSAGE _DITTA, !CF
END
NUMERO 9
NUMERO 9 30 1
BEGIN
KEY "reg.soc.trib...."
PROMPT 5 6 ""
PROMPT 5 6 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC
END
NUMERO 10
BEGIN
KEY "reg.soc.trib...."
PROMPT 15 6 ""
END
STRINGA 9
BEGIN
KEY "reg.soc.trib...."
PROMPT 5 6 "REG.SOC.TRIB.R.E. 8897"
END
NUMERO 12
NUMERO 12 30 1
BEGIN
KEY "c.c.i.a.a. 143011"
PROMPT 5 7 "C.C.I.A.A. 143011"
PROMPT 5 7 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA
END
STRINGA 14 36 2
BEGIN
KEY "destinatario, ditta"
PROMPT 44 10 ""
FIELD 20->RAGSOC
MESSAGE _CLIENTE,!RAGSOC
END
STRINGA 15 36 2
BEGIN
KEY "destinatario, indirizzo"
PROMPT 44 12 ""
FIELD 20->INDCF
MESSAGE _CLIENTE,!INDNUM
END
STRINGA 16 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 14 ""
MESSAGE _CLIENTE,!CAP
END
STRINGA 17 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 14 ""
MESSAGE _CLIENTE,!COM
END
STRINGA 18 2 1
BEGIN
KEY "destinatario, provincia"
PROMPT 77 15 ""
MESSAGE _CLIENTE,!PROV
END
STRINGA 19 8 1
STRINGA 19 10 1
BEGIN
KEY "data bolla"
PROMPT 58 19 ""
FIELD 33->DATADOC
END
STRINGA 20 5 1
STRINGA 20 7
BEGIN
KEY "numero bolla"
PROMPT 67 19 ""
@ -183,6 +224,7 @@ STRINGA 84 30 1
BEGIN
KEY "destinazione, cap"
PROMPT 1 12 ""
FIELD 16->CAP
END
STRINGA 85 50 1
@ -196,6 +238,14 @@ STRINGA 86 30 1
BEGIN
KEY "destinazione, comune"
PROMPT 1 14 ""
MESSAGE _ISAMREAD,13,COM=#49,DENCOM
END
STRINGA 87 2 1
BEGIN
KEY "destinazione, provincia"
PROMPT 31 14 ""
MESSAGE _ISAMREAD,13,COM=#49,PROVCOM
END
STRINGA 22 26 1
@ -205,7 +255,7 @@ BEGIN
FIELD 33->NUMDOCRIF
END
DATA 23 8 1
DATA 23 10
BEGIN
KEY "data conferma"
PROMPT 28 19 ""
@ -238,7 +288,7 @@ STRINGA 27 16 1
BEGIN
KEY "partita iva cliente"
PROMPT 16 23 ""
FIELD 17->PAIV
MESSAGE _CLIENTE,!IVA
END
STRINGA 28 25 1
@ -255,6 +305,13 @@ BEGIN
FIELD 33->CODAG
END
STRING 88 28
BEGIN
KEY "nome agente"
PROMPT 5 23 ""
FIELD 202@->S0
END
STRINGA 30 21 1
BEGIN
KEY "vettore"
@ -263,63 +320,108 @@ END
END
/////////////////////////////////////////////////
SECTION BODY ODD 1
SECTION BODY ODD 5
STRINGA 31 8 1
STRINGA 31 13 1
BEGIN
KEY "codice articolo"
PROMPT 1 1 ""
FIELD 34->CODART
END
STRINGA 32 30 1
STRINGA 32 30 4
BEGIN
KEY "descrizione articolo"
PROMPT 17 1 ""
FIELD 47->DESCR
MESSAGE _DESCRIGA
END
NUMERO 33
STRINGA 33 2
BEGIN
KEY "unita' di misura"
PROMPT 46 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#32,BOTTOM
END
STRINGA 34 6 1
NUMBER 34 10
BEGIN
KEY "quantita'"
PROMPT 10 1 ""
PROMPT 49 1 ""
PICTURE "######"
GROUP 30
FIELD 34->QTA
MESSAGE _ALIGN,#32,BOTTOM
END
STRINGA 35 8 1
NUMBER 35 15
BEGIN
KEY "prezzo unitario"
PROMPT 48 1 ""
PROMPT 59 1 ""
PICTURE "###.###.###.###"
GROUP 29
FIELD 34->PREZZO
MESSAGE _ALIGN,#32,BOTTOM
END
STRINGA 36 8 1
STRINGA 36 20
BEGIN
KEY "sconto"
PROMPT 57 1 ""
PROMPT 75 1 ""
FIELD 34->SCONTO
MESSAGE _ALIGN,#32,BOTTOM
END
STRINGA 37 9 1
NUMBER 37 15
BEGIN
KEY "importo netto"
PROMPT 66 1 ""
PROMPT 68 1 ""
FLAGS "H"
GROUP 29
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#32,BOTTOM
END
STRINGA 38 3 1
BEGIN
KEY "iva"
PROMPT 76 1 ""
PROMPT 81 1 ""
FIELD 34->CODIVA
MESSAGE _ALIGN,#32,BOTTOM
END
NUMBER 40 15
BEGIN
KEY "prezzo unitario scontato"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
GROUP 29
MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM
FLAGS "H"
END
NUMBER 41 15
BEGIN
KEY "provvigione"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM
GROUP 31
FLAGS "H"
END
NUMBER 42 15
BEGIN
KEY "Imposta"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM
GROUP 31
FLAGS "H"
END
END
/////////////////////////////////////////////////
SECTION FOOTER LAST 19
STRINGA 71 5 1
@ -330,25 +432,33 @@ END
END
/////////////////////////////////////////////////
SECTION FOOTER ODD 19
STRINGA 39 11 1
NUMBER 39 15
BEGIN
KEY "spese di trasporto"
PROMPT 43 52 ""
MESSAGE _TOTAL_CODA,SPTRAS
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 40 11 1
NUMBER 40 115
BEGIN
KEY "spese di incasso"
PROMPT 55 50 ""
MESSAGE _TOTAL_CODA,SPINC
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 41 11 1
NUMBER 41 15
BEGIN
KEY "spese bolli"
PROMPT 55 52 ""
MESSAGE _TOTAL_CODA,SPIMB
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 42 21 1

61
ve/vebol.frm
View File

@ -1,3 +1,49 @@
// - Codici per i totalizzatori:
// Questi vengono letti in G1 sulla testata:
// SPTRAS spese di trasporto
// SPINC spese incasso
// SPIMB spese imballaggio
// SPBOL spese bolli
// Questi vengono ricalcolati in stampa:
// TIMPONIBILI totale imponibile (calcolato in stampa dalla tabella riepilogativa)
// TIMPOSTE totale imposta (calcolato in stampa dalla tabella riepilogativa)
// TESENTI totale esenti (calcolato in stampa dalla tabella riepilogativa)
// TIMPNETTI totale importi netti (stesso codice per il totalizzatore della riga)
// TOTDOC totale documento (fattura in questo caso)
//
// Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
// riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
// 1 = regime normale
// 2 = ventilare (non usato)
// 4 = esenti
// 8 = non imponibili
// 16 = non soggetti
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
// Istruzione EXCLUDE nella sezione GENERAL (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
USE 34
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@ -32,6 +78,10 @@ BEGIN
FONT "Courier New"
SIZE 12
MODULE "BUFFETTI_BOLLA_01"
PRI_DECIMALS 0 3
QTA_DECIMALS 3 3
IMP_DECIMALS 0 3
EXCLUDE ","
END
@ -134,7 +184,7 @@ BEGIN
FORMAT "1442-"
END
NUMBER 20
NUMBER 20 7
BEGIN
KEY "numero bolla"
PROMPT 71 25 ""
@ -184,12 +234,12 @@ BEGIN
FIELD 33->NUMDOCRIF
END
DATE 23 8 1
DATE 23 10
BEGIN
KEY "data conferma"
PROMPT 16 25 ""
FIELD 33->DATADOCRIF
FORMAT "1442-"
FORMAT "1444-"
END
STRING 24 48 1
@ -267,11 +317,12 @@ BEGIN
MESSAGE _ALIGN,#33,BOTTOM
END
STRING 35 10
NUMBER 35 10
BEGIN
KEY "quantita"
PROMPT 60 1 ""
PICTURE "@@@@@@,@@@"
PICTURE "######"
GROUP 30
FIELD 34->QTA
MESSAGE _ALIGN,#33,BOTTOM
END

70
ve/vebolbmp.frm
View File

@ -1,3 +1,50 @@
// - Codici per i totalizzatori:
// Questi vengono letti in G1 sulla testata:
// SPTRAS spese di trasporto
// SPINC spese incasso
// SPIMB spese imballaggio
// SPBOL spese bolli
// Questi vengono ricalcolati in stampa:
// TIMPONIBILI totale imponibile (calcolato in stampa dalla tabella riepilogativa)
// TIMPOSTE totale imposta (calcolato in stampa dalla tabella riepilogativa)
// TESENTI totale esenti (calcolato in stampa dalla tabella riepilogativa)
// TIMPNETTI totale importi netti (stesso codice per il totalizzatore della riga)
// TOTDOC totale documento (fattura in questo caso)
//
// Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
// riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
// 1 = regime normale
// 2 = ventilare (non usato)
// 4 = esenti
// 8 = non imponibili
// 16 = non soggetti
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
// Istruzione EXCLUDE nella sezione GENERAL (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
USE 34
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@ -32,17 +79,21 @@ BEGIN
FONT "Courier New"
SIZE 12
MODULE "BUFFETTI_BOLLA_01"
PRI_DECIMALS 0 3
QTA_DECIMALS 3 3
IMP_DECIMALS 0 3
EXCLUDE ","
END
//SECTION GRAPHICS ODD
SECTION GRAPHICS ODD
//FIGURA 99 80 65
//BEGIN
// PROMPT 1 1 "bolla.bmp"
//END
FIGURA 99 80 65
BEGIN
PROMPT 1 1 "bolla.bmp"
END
//END
END
SECTION HEADER ODD 29
@ -143,7 +194,7 @@ BEGIN
FORMAT "1442-"
END
NUMBER 20
NUMBER 20 7
BEGIN
KEY "numero bolla"
PROMPT 71 21 ""
@ -278,11 +329,12 @@ BEGIN
MESSAGE _ALIGN,#33,TOP
END
STRING 35 10
NUMBER 35 10
BEGIN
KEY "quantita"
PROMPT 17 1 ""
PICTURE "@@@@@@,@@@"
PICTURE "######"
GROUP 30
FIELD 34->QTA
MESSAGE _ALIGN,#33,TOP
END

385
ve/vefat.frm
View File

@ -1,22 +1,48 @@
// - I FIELD sul file 20 (clifo) vanno sostituiti con messaggi _CLIENTE.
// - "Cliente provincia" e' gestito dalla relazione. Dovra' essere gestito da un messaggio _CLIENTE
// - Manca "azzera totalizzatore 1"
// - Completare "iva" nelle righe della fattura
// - Nella coda della fattura, completare i campi che non sono totalizzatori
// - Codici per i totalizzatori:
// Questi vengono letti in G1 sulla testata:
// SPTRAS spese di trasporto
// SPINC spese incasso
// SPIMB spese imballaggio
// SPBOL spese bolli
// TIMP totale imponibile
// TIMPS totale imposta
// TESEN totale esenti
// IMPNETTO totale importi netti (stesso codice per il totalizzatore della riga)
// TFATT totale fattura
// NETPAG netto da pagare
// Questi vengono ricalcolati in stampa:
// TIMPONIBILI totale imponibile (calcolato in stampa dalla tabella riepilogativa)
// TIMPOSTE totale imposta (calcolato in stampa dalla tabella riepilogativa)
// TESENTI totale esenti (calcolato in stampa dalla tabella riepilogativa)
// TIMPNETTI totale importi netti (stesso codice per il totalizzatore della riga)
// TOTDOC totale documento (fattura in questo caso)
//
// Togliere dalla relazione i files che non servono, quando tutti i campi sono OK.
// Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
// riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
// 1 = regime normale
// 2 = ventilare (non usato)
// 4 = esenti
// 8 = non imponibili
// 16 = non soggetti
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
// Istruzione EXCLUDE nella sezione GENERAL (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
USE 34
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@ -55,13 +81,14 @@ BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
MODULE BUFFETTI_FATTURA_01
PRI_DECIMALS 0 2
QTA_DECIMALS 3
IMP_DECIMALS 0 2
MODULE "BUFFETTI_FATTURA_01"
PRI_DECIMALS 0 3
QTA_DECIMALS 3 3
IMP_DECIMALS 0 3
EXCLUDE ","
END
/////////////////////////////////////////////////
SECTION HEADER ODD 28
STRINGA 1 35 1
@ -118,31 +145,31 @@ BEGIN
MESSAGE _DITTA, !CF
END
NUMERO 9 10 1
NUMERO 9 30 1
BEGIN
KEY "reg.soc.trib...."
PROMPT 3 9 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC
END
NUMERO 12 10 1
NUMERO 12 30 1
BEGIN
KEY "c.c.i.a.a. ....."
PROMPT 3 10 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA
END
STRINGA 14 8 1
STRINGA 14 10 1
BEGIN
KEY "data fattura"
PROMPT 61 21 ""
FILED 33->DATADOC
END
STRINGA 15 5 1
STRINGA 15 7
BEGIN
KEY "numero fattura"
PROMPT 71 21 ""
PROMPT 74 21 ""
FIELD 33->NDOC
END
@ -174,7 +201,7 @@ BEGIN
FIELD 33->NUMDOCRIF
END
DATA 20 8 1
DATA 20 10 1
BEGIN
KEY "data conferma"
PROMPT 20 23 ""
@ -238,15 +265,8 @@ BEGIN
MESSAGE _CLIENTE,!PROV
END
STRINGA 31 2 1
BEGIN
KEY "azzera totalizzatore 1"
PROMPT 73 16 ""
END
END
/////////////////////////////////////////////////
SECTION BODY ODD 5
STRINGA 32 13 1
@ -266,25 +286,27 @@ END
STRINGA 34 2
BEGIN
KEY "unita' di misura"
PROMPT 38 1 ""
PROMPT 42 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#33,BOTTOM
END
STRING 35 10
NUMBER 35 10
BEGIN
KEY "quantita'"
PROMPT 42 1 ""
PICTURE "@@@@@@@,@@@"
PROMPT 45 1 ""
PICTURE "######"
GROUP 30
FIELD 34->QTA
MESSAGE _ALIGN,#33,BOTTOM
END
STRINGA 36 15
NUMBER 36 15
BEGIN
KEY "prezzo unitario"
PROMPT 52 1 ""
PICTURE "###.###.###,@@@"
PROMPT 56 1 ""
PICTURE "###.###.###.###"
GROUP 29
FIELD 34->PREZZO
MESSAGE _ALIGN,#33,BOTTOM
END
@ -292,16 +314,18 @@ END
STRINGA 37 25
BEGIN
KEY "sconto"
PROMPT 64 1 ""
PROMPT 72 1 ""
FIELD 34->SCONTO
MESSAGE _ALIGN,#33,BOTTOM
END
STRINGA 38 15
NUMBER 38 15
BEGIN
KEY "importo netto"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
FLAGS "H"
GROUP 29
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#33,BOTTOM
END
@ -313,36 +337,38 @@ BEGIN
MESSAGE _ALIGN,#33,BOTTOM
END
STRINGA 40 15
NUMBER 40 15
BEGIN
KEY "prezzo unitario scontato"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
PICTURE "###.###.###.###"
GROUP 29
MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM
FLAGS "D"
FLAGS "H"
END
STRINGA 41 15
NUMBER 41 15
BEGIN
KEY "provvigione"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM
FLAGS "D"
GROUP 31
FLAGS "H"
END
STRINGA 42 15
NUMBER 42 15
BEGIN
KEY "Imposta"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
PICTURE "###.###.###.###"
MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM
FLAGS "D"
GROUP 31
FLAGS "H"
END
END
/////////////////////////////////////////////////
SECTION FOOTER ODD 13
STRINGA 76 5 1
@ -353,233 +379,312 @@ END
END
/////////////////////////////////////////////////
SECTION FOOTER LAST 13
STRINGA 40 11 1
NUMBER 40 15
BEGIN
KEY "spese di trasporto"
PROMPT 42 53 ""
PROMPT 56 3 ""
MESSAGE _TOTAL_CODA,SPTRAS
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 41 6 1
NUMBER 41 15
BEGIN
KEY "spese di incasso"
PROMPT 56 63 ""
PROMPT 56 5 ""
MESSAGE _TOTAL_CODA,SPINC
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 42 11 1
NUMBER 42 15
BEGIN
KEY "spese di imballo"
PROMPT 56 53 ""
PROMPT 56 4 ""
MESSAGE _TOTAL_CODA,SPIMB
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 43 5 1
NUMBER 43 11
BEGIN
KEY "spese bolli"
PROMPT 64 63 ""
PROMPT 60 6 ""
MESSAGE _TOTAL_CODA,SPBOL
PICTURE "###.###.###"
GROUP 31
END
STRINGA 44 11 1
STRING 76 4
BEGIN
KEY "codice iva 1"
PROMPT 2 2 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 44 15
BEGIN
KEY "imponibile 1"
PROMPT 7 56 ""
PROMPT 7 2 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 45 2 1
NUMBER 45 5
BEGIN
KEY "iva 1"
PROMPT 20 56 ""
PROMPT 23 2 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##,@@"
END
STRINGA 46 11 1
NUMBER 46 15
BEGIN
KEY "imposta 1"
PROMPT 23 56 ""
PROMPT 28 2 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 47 11 1
STRING 77 4
BEGIN
KEY "codice iva 2"
PROMPT 2 3 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 47 15
BEGIN
KEY "imponibile 2"
PROMPT 7 57 ""
PROMPT 7 3 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 48 2 1
NUMBER 48 5
BEGIN
KEY "iva 2"
PROMPT 20 57 ""
PROMPT 23 3 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##,@@"
END
STRINGA 49 11 1
NUMBER 49 15
BEGIN
KEY "imposta 2"
PROMPT 23 57 ""
PROMPT 28 3 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 50 11 1
STRING 78 4
BEGIN
KEY "codice iva 3"
PROMPT 2 4 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 50 15
BEGIN
KEY "imponibile 3"
PROMPT 7 58 ""
PROMPT 7 4 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 51 2 1
NUMBER 51 5
BEGIN
KEY "iva 3"
PROMPT 20 58 ""
PROMPT 23 4 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##,@@"
END
STRINGA 52 11 1
NUMBER 52 15
BEGIN
KEY "imposta 3"
PROMPT 23 58 ""
PROMPT 28 4 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 53 11 1
NUMBER 53 15
BEGIN
KEY "imponibile 4"
PROMPT 7 59 ""
PROMPT 7 5 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 54 3 1
STRINGA 54 4
BEGIN
KEY "iva 4"
PROMPT 2 59 ""
KEY "codice iva 4"
PROMPT 2 5 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 55 45 1
STRINGA 55 45
BEGIN
KEY "descrizione altri 4"
PROMPT 36 59 ""
PROMPT 23 5 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
STRINGA 56 11 1
NUMBER 56 15
BEGIN
KEY "imponibile 5"
PROMPT 7 60 ""
PROMPT 7 6 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 57 3 1
STRINGA 57 4
BEGIN
KEY "iva 5"
PROMPT 2 60 ""
KEY "codice iva 5"
PROMPT 2 6 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 58 45 1
STRINGA 58 45
BEGIN
KEY "descrizione altri 5"
PROMPT 36 60 ""
PROMPT 23 6 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
STRINGA 59 12 1
NUMBER 59 15
BEGIN
KEY "totale imponibile"
PROMPT 6 63 ""
MESSAGE _TOTAL_CODA,TIMP
PROMPT 71 6 ""
MESSAGE _TOTAL_CODA,TIMPONIBILI,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 60 11 1
NUMBER 60 15
BEGIN
KEY "totale imposta"
PROMPT 23 63 ""
MESSAGE _TOTAL_CODA,TIMPS
PROMPT 71 7 ""
MESSAGE _TOTAL_CODA,TIMPOSTE
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 61 9 1
NUMBER 61 15
BEGIN
KEY "totale esenti"
PROMPT 36 63 ""
MESSAGE _TOTAL_CODA,TESEN
PROMPT 71 8 ""
MESSAGE _TOTAL_CODA,TIMPONIBILI,4
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 62 11 1
NUMBER 62 15
BEGIN
KEY "totale importi netti"
PROMPT 3 53 ""
MESSAGE _TOTAL_CODA,IMPNETTO
PROMPT 71 1 ""
MESSAGE _TOTAL_CODA,TIMPNETTI
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 63 12 1
NUMBER 63 15
BEGIN
KEY "totale fattura"
PROMPT 71 63 ""
MESSAGE _TOTAL_CODA,TFATT
PROMPT 71 9 ""
MESSAGE _TOTAL_CODA,TOTDOC
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 64 8 1
DATA 64 10 1
BEGIN
KEY "scadenza pagamento 1"
PROMPT 3 66 ""
PROMPT 3 10 ""
MESSAGE _SCADENZE,DATA,0
END
STRINGA 65 11 1
NUMBER 65 15
BEGIN
KEY "importo scadenza 1"
PROMPT 15 66 ""
PROMPT 16 10 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 66 8 1
DATA 66 10 1
BEGIN
KEY "scadenza pagamento 2"
PROMPT 3 68 ""
PROMPT 32 10 ""
MESSAGE _SCADENZE,DATA,0
END
STRINGA 67 11 1
NUMBER 67 15
BEGIN
KEY "importo scadenza 2"
PROMPT 15 68 ""
PROMPT 45 10 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 68 8 1
DATA 68 10 1
BEGIN
KEY "scadenza pagamento 3"
PROMPT 30 68 ""
PROMPT 3 11 ""
MESSAGE _SCADENZE,DATA,0
END
STRINGA 69 11 1
NUMBER 69 15
BEGIN
KEY "importo scadenza 3"
PROMPT 42 68 ""
PROMPT 16 11 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 70 8 1
DATA 70 10 1
BEGIN
KEY "scadenza pagamento 4"
PROMPT 3 69 ""
PROMPT 32 11 ""
MESSAGE _SCADENZE,DATA,0
END
STRINGA 71 11 1
NUMBER 71 15
BEGIN
KEY "importo scadenza 4"
PROMPT 15 69 ""
PROMPT 45 11 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###.###"
GROUP 31
END
STRINGA 72 8 1
DATA 72 10 1
BEGIN
KEY "scadenza pagamento 5"
PROMPT 30 69 ""
PROMPT 3 12 ""
MESSAGE _SCADENZE,DATA,0
END
STRINGA 73 11 1
NUMBER 73 15
BEGIN
KEY "importo scadenza 5"
PROMPT 42 69 ""
END
STRINGA 74 10 1
BEGIN
KEY "anticipo"
PROMPT 47 66 ""
END
STRINGA 75 12 1
BEGIN
KEY "netto da pagare"
PROMPT 71 66 ""
MESSAGE _TOTAL_CODA,NETPAG
PROMPT 16 12 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###.###"
GROUP 31
END
END