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

Correzioni ai form di stampa bolle e fatture. Aggiunto un form di

Browse Source 
esempio con la bitmap in sottofondo (vebolbmp.bmp)


git-svn-id: svn://10.65.10.50/trunk@3332 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-05 13:54:32 +00:00
parent 8c89891d20
commit a167b29ba7
3 changed files with 583 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
ve/vebol.frm
View File

@ -9,6 +9,7 @@ JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1 JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1 JOIN %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1
JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP
END END
DESCRIPTION DESCRIPTION
@ -22,7 +23,7 @@ BEGIN
203@->* "Tabella porto" 203@->* "Tabella porto"
204@->* "Tabella banche" 204@->* "Tabella banche"
205@->* "Tabella vettori" 205@->* "Tabella vettori"
206@->* "Tabella apsetto beni" 206@->* "Tabella aspetto beni"
END END
GENERAL GENERAL
@ -33,6 +34,7 @@ BEGIN
MODULE "BUFFETTI_BOLLA_01" MODULE "BUFFETTI_BOLLA_01"
END END
SECTION HEADER ODD 33 SECTION HEADER ODD 33
STRING 1 36 1 STRING 1 36 1
@ -98,9 +100,9 @@ END
STRING 15 35 2 STRING 15 35 2
BEGIN BEGIN
KEY "destinatario, indirizzo" KEY "destinatario, indirizzo con numero civico"
PROMPT 44 18 "" PROMPT 44 18 ""
MESSAGE _CLIENTE,!IND MESSAGE _CLIENTE,!INDNUM
END END
STRING 16 5 1 STRING 16 5 1
@ -250,43 +252,37 @@ BEGIN
FIELD 34->CODART FIELD 34->CODART
END END
STRING 33 10 4 STRING 33 25 4
BEGIN BEGIN
KEY "descrizione articolo" KEY "descrizione articolo"
PROMPT 25 1 "" PROMPT 25 1 ""
// Stampare il campo descrizione estesa e non l'anagrafica dell'articolo MESSAGE _DESCRIGA
FIELD 47->DESCR
END END
STRING 90 12 1 STRING 34 2
BEGIN
KEY "campo di prova per gli allineamenti"
PROMPT 42 1 "allineamento"
MESSAGE _ALIGN,#33,BOTTOM
END
STRING 34 2 1
BEGIN BEGIN
KEY "unità di misura" KEY "unità di misura"
PROMPT 56 1 "" PROMPT 56 1 ""
FIELD 34->UMQTA FIELD 34->UMQTA
MESSAGE _ALIGN,#33,BOTTOM
END END
NUMBER 35 6 3 STRING 35 10
BEGIN BEGIN
KEY "quantita" KEY "quantita"
PROMPT 60 1 "" PROMPT 60 1 ""
PICTURE "@@@@@@,###" PICTURE "@@@@@@,@@@"
FIELD 34->QTA FIELD 34->QTA
MESSAGE COPY,36 MESSAGE _ALIGN,#33,BOTTOM
END END
NUMBER 36 NUMBER 36 20
BEGIN BEGIN
KEY "quantita' lettere" KEY "quantita' lettere"
PROMPT 72 1 "" PROMPT 72 1 ""
FIELD 34->QTA
PICTURE "LETTERE" PICTURE "LETTERE"
//MESSAGE _CIFRELET,#35 MESSAGE _ALIGN,#33,BOTTOM
END END
END END
@ -308,8 +304,10 @@ BEGIN
KEY "trasporto a cura del mittente" KEY "trasporto a cura del mittente"
PROMPT 4 1 "" PROMPT 4 1 ""
FIELD 33->CODSPMEZZO FIELD 33->CODSPMEZZO
ITEM "|" // default ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "M|x" ITEM "D| "
ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "V| "
END END
LIST 38 1 1 LIST 38 1 1
@ -317,8 +315,10 @@ BEGIN
KEY "trasporto a cura del destinatario" KEY "trasporto a cura del destinatario"
PROMPT 13 1 "" PROMPT 13 1 ""
FIELD 33->CODSPMEZZO FIELD 33->CODSPMEZZO
ITEM "|" // default ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "D|x" ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "M| "
ITEM "V| "
END END
LIST 39 1 1 LIST 39 1 1
@ -326,8 +326,10 @@ BEGIN
KEY "trasporto a cura del vettore" KEY "trasporto a cura del vettore"
PROMPT 23 1 "" PROMPT 23 1 ""
FIELD 33->CODSPMEZZO FIELD 33->CODSPMEZZO
ITEM "|" // default ITEM "|"
ITEM "V|x" ITEM "D| "
ITEM "M| "
ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@
END END
STRING 40 45 1 STRING 40 45 1
@ -346,7 +348,7 @@ END
DATE 42 8 1 DATE 42 8 1
BEGIN BEGIN
KEY "data inizio trasporto" KEY "data inizio trasporto/consegna"
PROMPT 51 3 "" PROMPT 51 3 ""
FIELD 33->DATAPART FIELD 33->DATAPART
FORMAT "1442-" FORMAT "1442-"
@ -354,32 +356,57 @@ END
STRING 43 5 1 STRING 43 5 1
BEGIN BEGIN
KEY "ora inizio trasporto" KEY "ora inizio trasporto/consegna"
PROMPT 60 3 "" PROMPT 60 3 ""
PICTURE "## ##"
FIELD 33->ORAPART FIELD 33->ORAPART
END END
STRING 44 27 1 DATE 44 8 1
BEGIN
KEY "data ritiro da parte del vettore"
PROMPT 51 3 ""
FIELD 33->DATAPART
FORMAT "1442-"
END
STRING 45 5 1
BEGIN
KEY "ora ritiro da parte del vettore"
PROMPT 60 3 ""
PICTURE "## ##"
FIELD 33->ORAPART
END
STRING 46 27 1
BEGIN BEGIN
KEY "aspetto beni" KEY "aspetto beni"
PROMPT 37 1 "" PROMPT 37 1 ""
FIELD 206@->S0 FIELD 206@->S0
END END
STRING 45 7 1 STRING 48 7 1
BEGIN BEGIN
KEY "peso" KEY "peso"
PROMPT 73 1 "" PROMPT 73 1 ""
FIELD 33->PNETTO FIELD 33->PNETTO
END END
STRING 46 5 1 STRING 49 5 1
BEGIN BEGIN
KEY "colli" KEY "colli"
PROMPT 66 1 "" PROMPT 66 1 ""
FIELD 33->NCOLLI FIELD 33->NCOLLI
END END
STRING 50 15
BEGIN
KEY "causale di trasporto"
PROMPT 25 4 ""
FIELD 207@->S0
FLAGS "H"
END
END END
END END

429
ve/vebolbmp.frm Executable file
View File

@ -0,0 +1,429 @@
USE 34
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 47 INTO CODART==CODART
JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
JOIN %AGE TO 33 ALIAS 202 INTO CODTAB==CODAG
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
DESCRIPTION
BEGIN
34->* "Righe documenti di vendita"
33->* "Documenti di vendita"
16->* "Indirizzi di spedizione (destinazione)"
47->* "Anagrafica magazzino"
201@->* "Tabella condizioni di pagamento"
202@->* "Tabella agenti"
203@->* "Tabella porto"
204@->* "Tabella banche"
205@->* "Tabella vettori"
206@->* "Tabella aspetto beni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
MODULE "BUFFETTI_BOLLA_01"
END
//SECTION GRAPHICS ODD
//FIGURA 99 80 65
//BEGIN
// PROMPT 1 1 "bolla.bmp"
//END
//END
SECTION HEADER ODD 29
STRING 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 5 ""
MESSAGE _DITTA,!RAGSOC
END
STRING 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 6 ""
MESSAGE _DITTA,!IND
END
STRING 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 7 ""
MESSAGE _DITTA,!CAP
END
STRING 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 7 ""
MESSAGE _DITTA,!COM
END
STRING 5 5 1
BEGIN
KEY "scritta P.IVA"
PROMPT 5 8 "P.IVA"
END
STRING 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 8 ""
MESSAGE _DITTA,!IVA
END
STRING 7 9 1
BEGIN
KEY "scritta COD.FISC."
PROMPT 5 9 "COD.FISC."
END
STRING 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 9 ""
MESSAGE _DITTA,!CF
END
STRING 14 35 2
BEGIN
KEY "destinatario, ditta"
PROMPT 44 14 ""
MESSAGE _CLIENTE,!RAGSOC
END
STRING 15 35 2
BEGIN
KEY "destinatario, indirizzo con numero civico"
PROMPT 44 16 ""
MESSAGE _CLIENTE,!INDNUM
END
STRING 16 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 18 ""
MESSAGE _CLIENTE,!CAP
END
STRING 17 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 18 ""
MESSAGE _CLIENTE,!COM
END
STRING 18 2
BEGIN
KEY "destinatario, provincia"
PROMPT 72 19 ""
MESSAGE _CLIENTE,!PROV
END
DATE 19 8 1
BEGIN
KEY "data bolla"
PROMPT 60 21 ""
FIELD 33->DATADOC
FORMAT "1442-"
END
NUMBER 20
BEGIN
KEY "numero bolla"
PROMPT 71 21 ""
FIELD 33->NDOC
END
STRING 21 30 2
BEGIN
KEY "destinazione, indirizzo"
PROMPT 5 14 ""
FIELD 16->INDIR
END
STRING 32 5 1
BEGIN
KEY "destinazione, cap"
PROMPT 5 16 ""
FIELD 16->CAP
END
STRING 49 5 1
BEGIN
KEY ""
PROMPT 1 1 ""
FLAGS "H"
FIELD 16->COM
END
STRING 33 21
BEGIN
KEY "destinazione, comune"
PROMPT 5 18 ""
MESSAGE _ISAMREAD,13,COM=#49,DENCOM
END
STRING 34 2 1
BEGIN
KEY "destinazione, provincia"
PROMPT 28 18 ""
MESSAGE _ISAMREAD,13,COM=#49,PROVCOM
END
NUMBER 22
BEGIN
KEY "ordine"
PROMPT 3 21 ""
FIELD 33->NUMDOCRIF
END
DATE 23 8 1
BEGIN
KEY "data conferma"
PROMPT 43 21 ""
FIELD 33->DATADOCRIF
FORMAT "1442-"
END
STRING 24 48 1
BEGIN
KEY "condizioni pagamento"
PROMPT 3 23 ""
FIELD 201@->S0
END
STRING 25 29 1
BEGIN
KEY "banca appoggio"
PROMPT 53 23 ""
FIELD 204@->S0
END
STRING 26 7 1
BEGIN
KEY "codice cliente"
PROMPT 8 25 ""
FIELD 33->CODCF
END
STRING 27 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 18 25 ""
MESSAGE _CLIENTE,!IVA
END
STRING 28 18 1
BEGIN
KEY "porto"
PROMPT 41 25 ""
FIELD 203@->S0
FLAGS "D"
END
NUMBER 29
BEGIN
KEY "codice agente"
PROMPT 2 25 ""
FIELD 33->CODAG
END
STRING 30 28 1
BEGIN
KEY "nome agente"
PROMPT 33 29 ""
FIELD 202@->S0
FLAGS "D"
END
END
SECTION BODY ODD 5
STRING 32 13 1
BEGIN
KEY "codice articolo"
PROMPT 5 1 ""
FIELD 34->CODART
END
STRING 33 29 4
BEGIN
KEY "descrizione articolo"
PROMPT 48 1 ""
MESSAGE _DESCRIGA
END
STRING 34 2
BEGIN
KEY "unità di misura"
PROMPT 30 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#33,TOP
END
STRING 35 10
BEGIN
KEY "quantita"
PROMPT 17 1 ""
PICTURE "@@@@@@,@@@"
FIELD 34->QTA
MESSAGE _ALIGN,#33,TOP
END
NUMBER 36 20
BEGIN
KEY "quantita' lettere"
PROMPT 72 1 ""
FIELD 34->QTA
PICTURE "LETTERE"
MESSAGE _ALIGN,#33,BOTTOM
FLAGS "D"
END
END
SECTION FOOTER ODD 15
STRING 47 5
BEGIN
KEY "scritta SEGUE"
PROMPT 72 13 "SEGUE"
END
END
SECTION FOOTER LAST 15
LIST 37 1 1
BEGIN
KEY "trasporto a cura del mittente"
PROMPT 2 4 ""
FIELD 33->CODSPMEZZO
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "D| "
ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "V| "
END
LIST 38 1 1
BEGIN
KEY "trasporto a cura del destinatario"
PROMPT 9 4 ""
FIELD 33->CODSPMEZZO
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@
ITEM "M| "
ITEM "V| "
END
LIST 39 1 1
BEGIN
KEY "trasporto a cura del vettore"
PROMPT 17 4 ""
FIELD 33->CODSPMEZZO
ITEM "|" // default
ITEM "D| "
ITEM "M| "
ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@
END
STRING 40 45 1
BEGIN
KEY "nome vettore"
PROMPT 3 6 ""
FIELD 205@->S0
END
STRING 41 45 1
BEGIN
KEY "indirizzo vettore"
PROMPT 3 8 ""
FIELD 205@->S1
END
DATE 42 8 1
BEGIN
KEY "data inizio trasporto/consegna"
PROMPT 48 4 ""
FIELD 33->DATAPART
FORMAT "1442-"
GROUP 5
END
STRING 43 5 1
BEGIN
KEY "ora inizio trasporto/consegna"
PROMPT 60 4 ""
PICTURE "## ##"
FIELD 33->ORAPART
GROUP 5
END
DATE 44 8 1
BEGIN
KEY "data ritiro"
PROMPT 51 7 ""
FIELD 33->DATAPART
FORMAT "1442-"
FLAGS "D"
GROUP 6
END
STRING 45 5 1
BEGIN
KEY "ora ritiro"
PROMPT 60 7 ""
PICTURE "## ##"
FIELD 33->ORAPART
FLAGS "D"
GROUP 6
END
STRING 46 27 1
BEGIN
KEY "aspetto beni"
PROMPT 1 8 ""
FIELD 206@->S0
END
STRING 48 7 1
BEGIN
KEY "peso"
PROMPT 45 10 ""
FIELD 33->PNETTO
END
STRING 49 5 1
BEGIN
KEY "colli"
PROMPT 60 10 ""
FIELD 33->NCOLLI
END
STRING 50 15
BEGIN
KEY "causale"
PROMPT 25 4 ""
FIELD 207@->S0
END
END
END

140
ve/vefat.frm
View File

@ -47,7 +47,7 @@ BEGIN
203@->* "Tabella porto" 203@->* "Tabella porto"
204@->* "Tabella banche" 204@->* "Tabella banche"
205@->* "Tabella vettori" 205@->* "Tabella vettori"
206@->* "Tabella apsetto beni" 206@->* "Tabella aspetto beni"
END END
GENERAL GENERAL
@ -56,6 +56,9 @@ BEGIN
FONT "Courier New" FONT "Courier New"
SIZE 12 SIZE 12
MODULE BUFFETTI_FATTURA_01 MODULE BUFFETTI_FATTURA_01
PRI_DECIMALS 0 2
QTA_DECIMALS 3
IMP_DECIMALS 0 2
END END
///////////////////////////////////////////////// /////////////////////////////////////////////////
@ -65,28 +68,28 @@ STRINGA 1 35 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 3 4 "" PROMPT 3 4 ""
MESSAGE _DITTA !RAGSOC MESSAGE _DITTA, !RAGSOC
END END
STRINGA 2 35 1 STRINGA 2 35 1
BEGIN BEGIN
KEY "indirizzo ditta" KEY "indirizzo ditta"
PROMPT 3 5 "" PROMPT 3 5 ""
MESSAGE _DITTA !IND MESSAGE _DITTA, !IND
END END
STRINGA 3 5 1 STRINGA 3 5 1
BEGIN BEGIN
KEY "cap ditta" KEY "cap ditta"
PROMPT 3 6 "" PROMPT 3 6 ""
MESSAGE _DITTA !CAP MESSAGE _DITTA, !CAP
END END
STRINGA 4 30 1 STRINGA 4 30 1
BEGIN BEGIN
KEY "comune ditta" KEY "comune ditta"
PROMPT 10 6 "" PROMPT 10 6 ""
MESSAGE _DITTA !COM MESSAGE _DITTA, !COM
END END
STRINGA 5 5 1 STRINGA 5 5 1
@ -99,7 +102,7 @@ STRINGA 6 16 1
BEGIN BEGIN
KEY "partita iva ditta" KEY "partita iva ditta"
PROMPT 9 7 "" PROMPT 9 7 ""
MESSAGE _DITTA !PIVA MESSAGE _DITTA, !PIVA
END END
STRINGA 7 9 1 STRINGA 7 9 1
@ -112,19 +115,21 @@ STRINGA 8 16 1
BEGIN BEGIN
KEY "codice fiscale ditta" KEY "codice fiscale ditta"
PROMPT 13 8 "" PROMPT 13 8 ""
MESSAGE _DITTA !CF MESSAGE _DITTA, !CF
END END
NUMERO 9 10 1 NUMERO 9 10 1
BEGIN BEGIN
KEY "reg.soc.trib...." KEY "reg.soc.trib...."
PROMPT 3 9 "RED.SOC.TRIB.R.E. " PROMPT 3 9 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC
END END
NUMERO 12 10 1 NUMERO 12 10 1
BEGIN BEGIN
KEY "c.c.i.a.a. ....." KEY "c.c.i.a.a. ....."
PROMPT 3 10 "C.C.I.A.A. " PROMPT 3 10 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA
END END
STRINGA 14 8 1 STRINGA 14 8 1
@ -191,47 +196,46 @@ BEGIN
FIELD 204@->S0 FIELD 204@->S0
END END
STRINGA 23 38 1 STRINGA 23 38 2
BEGIN BEGIN
KEY "cliente ragione sociale 1" KEY "cliente ragione sociale "
PROMPT 44 11 "" PROMPT 44 11 ""
MESSAGE _CLIENTE,!RAGSOC
END END
STRINGA 24 38 1 STRINGA 24 35 2
BEGIN BEGIN
KEY "cliente ragione sociale 2" KEY "cliente indirizzo con numero civico"
PROMPT 44 12 ""
END
STRINGA 25 38 1
BEGIN
KEY "cliente indirizzo 1"
PROMPT 44 13 "" PROMPT 44 13 ""
MESSAGE _CLIENTE,!INDNUM
END END
STRINGA 26 38 1 STRINGA 25 3
BEGIN BEGIN
KEY "cliente indirizzo 2" KEY "Numero di pagina"
PROMPT 44 14 "" PROMPT 74 10 ""
MESSAGE _PAGENO
END END
STRINGA 27 5 1 STRINGA 27 5 1
BEGIN BEGIN
KEY "cliente cap" KEY "cliente cap"
PROMPT 44 15 "" PROMPT 44 15 ""
MESSAGE _CLIENTE,!CAP
END END
STRINGA 28 30 1 STRINGA 28 30 1
BEGIN BEGIN
KEY "cliente localita 1" KEY "cliente comune"
PROMPT 50 15 "" PROMPT 50 15 ""
MESSAGE _CLIENTE,!COM
END END
STRINGA 30 2 1 STRINGA 30 2 1
BEGIN BEGIN
KEY "cliente provincia" KEY "cliente provincia"
PROMPT 73 16 "" PROMPT 73 16 ""
FIELD 13->PROVCOM MESSAGE _CLIENTE,!PROV
END END
STRINGA 31 2 1 STRINGA 31 2 1
@ -243,7 +247,7 @@ END
END END
///////////////////////////////////////////////// /////////////////////////////////////////////////
SECTION BODY ODD 1 SECTION BODY ODD 5
STRINGA 32 13 1 STRINGA 32 13 1
BEGIN BEGIN
@ -252,48 +256,88 @@ BEGIN
FIELD 34->CODART FIELD 34->CODART
END END
STRINGA 33 19 1 STRINGA 33 25 4
BEGIN BEGIN
KEY "descrizione articolo" KEY "descrizione articolo"
PROMPT 17 1 "" PROMPT 17 1 ""
FIELD 47->DESCR MESSAGE _DESCRIGA
END END
STRINGA 34 3 1 STRINGA 34 2
BEGIN BEGIN
KEY "unita' di misura" KEY "unita' di misura"
PROMPT 38 1 "" PROMPT 38 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#33,BOTTOM
END END
NUMBER 35 8 1 STRING 35 10
BEGIN BEGIN
KEY "quantita'" KEY "quantita'"
PROMPT 42 1 "" PROMPT 42 1 ""
PICTURE "@@@@@@@,@@@"
FIELD 34->QTA FIELD 34->QTA
MESSAGE _ALIGN,#33,BOTTOM
END END
STRINGA 36 10 1 STRINGA 36 15
BEGIN BEGIN
KEY "prezzo unitario" KEY "prezzo unitario"
PROMPT 52 1 "" PROMPT 52 1 ""
PICTURE "###.###.###,@@@"
FIELD 34->PREZZO
MESSAGE _ALIGN,#33,BOTTOM
END END
STRINGA 37 3 1 STRINGA 37 25
BEGIN BEGIN
KEY "sconto" KEY "sconto"
PROMPT 64 1 "" PROMPT 64 1 ""
FIELD 34->SCONTO
MESSAGE _ALIGN,#33,BOTTOM
END END
STRINGA 38 11 1 STRINGA 38 15
BEGIN BEGIN
KEY "importo netto" KEY "importo netto"
PROMPT 68 1 "" PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#33,BOTTOM
END END
STRINGA 39 3 1 STRINGA 39 4
BEGIN BEGIN
KEY "iva" KEY "iva"
PROMPT 81 1 "" PROMPT 81 1 ""
FIELD 34->CODIVA
MESSAGE _ALIGN,#33,BOTTOM
END
STRINGA 40 15
BEGIN
KEY "prezzo unitario scontato"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM
FLAGS "D"
END
STRINGA 41 15
BEGIN
KEY "provvigione"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM
FLAGS "D"
END
STRINGA 42 15
BEGIN
KEY "Imposta"
PROMPT 68 1 ""
PICTURE "###.###.###,@@@"
MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM
FLAGS "D"
END END
END END
@ -301,28 +345,43 @@ END
///////////////////////////////////////////////// /////////////////////////////////////////////////
SECTION FOOTER ODD 13 SECTION FOOTER ODD 13
STRINGA 76 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 13 "SEGUE"
END
END
/////////////////////////////////////////////////
SECTION FOOTER LAST 13
STRINGA 40 11 1 STRINGA 40 11 1
BEGIN BEGIN
KEY "spese di trasporto" KEY "spese di trasporto"
PROMPT 42 53 "" PROMPT 42 53 ""
MESSAGE _TOTAL_CODA,SPTRAS
END END
STRINGA 41 6 1 STRINGA 41 6 1
BEGIN BEGIN
KEY "spese di incasso" KEY "spese di incasso"
PROMPT 56 63 "" PROMPT 56 63 ""
MESSAGE _TOTAL_CODA,SPINC
END END
STRINGA 42 11 1 STRINGA 42 11 1
BEGIN BEGIN
KEY "spese di imballo" KEY "spese di imballo"
PROMPT 56 53 "" PROMPT 56 53 ""
MESSAGE _TOTAL_CODA,SPIMB
END END
STRINGA 43 5 1 STRINGA 43 5 1
BEGIN BEGIN
KEY "spese bolli" KEY "spese bolli"
PROMPT 64 63 "" PROMPT 64 63 ""
MESSAGE _TOTAL_CODA,SPBOL
END END
STRINGA 44 11 1 STRINGA 44 11 1
@ -419,30 +478,35 @@ STRINGA 59 12 1
BEGIN BEGIN
KEY "totale imponibile" KEY "totale imponibile"
PROMPT 6 63 "" PROMPT 6 63 ""
MESSAGE _TOTAL_CODA,TIMP
END END
STRINGA 60 11 1 STRINGA 60 11 1
BEGIN BEGIN
KEY "totale imposta" KEY "totale imposta"
PROMPT 23 63 "" PROMPT 23 63 ""
MESSAGE _TOTAL_CODA,TIMPS
END END
STRINGA 61 9 1 STRINGA 61 9 1
BEGIN BEGIN
KEY "totale esenti" KEY "totale esenti"
PROMPT 36 63 "" PROMPT 36 63 ""
MESSAGE _TOTAL_CODA,TESEN
END END
STRINGA 62 11 1 STRINGA 62 11 1
BEGIN BEGIN
KEY "totale importi netti" KEY "totale importi netti"
PROMPT 3 53 "" PROMPT 3 53 ""
MESSAGE _TOTAL_CODA,IMPNETTO
END END
STRINGA 63 12 1 STRINGA 63 12 1
BEGIN BEGIN
KEY "totale fattura" KEY "totale fattura"
PROMPT 71 63 "" PROMPT 71 63 ""
MESSAGE _TOTAL_CODA,TFATT
END END
STRINGA 64 8 1 STRINGA 64 8 1
@ -515,19 +579,9 @@ STRINGA 75 12 1
BEGIN BEGIN
KEY "netto da pagare" KEY "netto da pagare"
PROMPT 71 66 "" PROMPT 71 66 ""
MESSAGE _COD_TESTA NETPAG MESSAGE _TOTAL_CODA,NETPAG
END END
END END
/////////////////////////////////////////////////
SECTION FOOTER LAST 13
STRINGA 76 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 13 "SEGUE"
END
END