Correzioni ai form di stampa bolle e fatture. Aggiunto un form di
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
parent
8c89891d20
commit
a167b29ba7
87
ve/vebol.frm
87
ve/vebol.frm
@ -9,6 +9,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
|
||||
DESCRIPTION
|
||||
@ -22,7 +23,7 @@ BEGIN
|
||||
203@->* "Tabella porto"
|
||||
204@->* "Tabella banche"
|
||||
205@->* "Tabella vettori"
|
||||
206@->* "Tabella apsetto beni"
|
||||
206@->* "Tabella aspetto beni"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
@ -33,6 +34,7 @@ BEGIN
|
||||
MODULE "BUFFETTI_BOLLA_01"
|
||||
END
|
||||
|
||||
|
||||
SECTION HEADER ODD 33
|
||||
|
||||
STRING 1 36 1
|
||||
@ -98,9 +100,9 @@ END
|
||||
|
||||
STRING 15 35 2
|
||||
BEGIN
|
||||
KEY "destinatario, indirizzo"
|
||||
KEY "destinatario, indirizzo con numero civico"
|
||||
PROMPT 44 18 ""
|
||||
MESSAGE _CLIENTE,!IND
|
||||
MESSAGE _CLIENTE,!INDNUM
|
||||
END
|
||||
|
||||
STRING 16 5 1
|
||||
@ -250,43 +252,37 @@ BEGIN
|
||||
FIELD 34->CODART
|
||||
END
|
||||
|
||||
STRING 33 10 4
|
||||
STRING 33 25 4
|
||||
BEGIN
|
||||
KEY "descrizione articolo"
|
||||
PROMPT 25 1 ""
|
||||
// Stampare il campo descrizione estesa e non l'anagrafica dell'articolo
|
||||
FIELD 47->DESCR
|
||||
MESSAGE _DESCRIGA
|
||||
END
|
||||
|
||||
STRING 90 12 1
|
||||
BEGIN
|
||||
KEY "campo di prova per gli allineamenti"
|
||||
PROMPT 42 1 "allineamento"
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
STRING 34 2 1
|
||||
STRING 34 2
|
||||
BEGIN
|
||||
KEY "unità di misura"
|
||||
PROMPT 56 1 ""
|
||||
FIELD 34->UMQTA
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
NUMBER 35 6 3
|
||||
STRING 35 10
|
||||
BEGIN
|
||||
KEY "quantita"
|
||||
PROMPT 60 1 ""
|
||||
PICTURE "@@@@@@,###"
|
||||
PICTURE "@@@@@@,@@@"
|
||||
FIELD 34->QTA
|
||||
MESSAGE COPY,36
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
NUMBER 36
|
||||
NUMBER 36 20
|
||||
BEGIN
|
||||
KEY "quantita' lettere"
|
||||
PROMPT 72 1 ""
|
||||
FIELD 34->QTA
|
||||
PICTURE "LETTERE"
|
||||
//MESSAGE _CIFRELET,#35
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
END
|
||||
@ -308,8 +304,10 @@ BEGIN
|
||||
KEY "trasporto a cura del mittente"
|
||||
PROMPT 4 1 ""
|
||||
FIELD 33->CODSPMEZZO
|
||||
ITEM "|" // default
|
||||
ITEM "M|x"
|
||||
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
|
||||
ITEM "D| "
|
||||
ITEM "M|X" MESSAGE DISABLE,6@|ENABLE,5@
|
||||
ITEM "V| "
|
||||
END
|
||||
|
||||
LIST 38 1 1
|
||||
@ -317,8 +315,10 @@ BEGIN
|
||||
KEY "trasporto a cura del destinatario"
|
||||
PROMPT 13 1 ""
|
||||
FIELD 33->CODSPMEZZO
|
||||
ITEM "|" // default
|
||||
ITEM "D|x"
|
||||
ITEM "|" MESSAGE DISABLE,6@|ENABLE,5@
|
||||
ITEM "D|X" MESSAGE DISABLE,6@|ENABLE,5@
|
||||
ITEM "M| "
|
||||
ITEM "V| "
|
||||
END
|
||||
|
||||
LIST 39 1 1
|
||||
@ -326,8 +326,10 @@ BEGIN
|
||||
KEY "trasporto a cura del vettore"
|
||||
PROMPT 23 1 ""
|
||||
FIELD 33->CODSPMEZZO
|
||||
ITEM "|" // default
|
||||
ITEM "V|x"
|
||||
ITEM "|"
|
||||
ITEM "D| "
|
||||
ITEM "M| "
|
||||
ITEM "V|X" MESSAGE DISABLE,5@|ENABLE,6@
|
||||
END
|
||||
|
||||
STRING 40 45 1
|
||||
@ -346,7 +348,7 @@ END
|
||||
|
||||
DATE 42 8 1
|
||||
BEGIN
|
||||
KEY "data inizio trasporto"
|
||||
KEY "data inizio trasporto/consegna"
|
||||
PROMPT 51 3 ""
|
||||
FIELD 33->DATAPART
|
||||
FORMAT "1442-"
|
||||
@ -354,32 +356,57 @@ END
|
||||
|
||||
STRING 43 5 1
|
||||
BEGIN
|
||||
KEY "ora inizio trasporto"
|
||||
KEY "ora inizio trasporto/consegna"
|
||||
PROMPT 60 3 ""
|
||||
PICTURE "## ##"
|
||||
FIELD 33->ORAPART
|
||||
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
|
||||
KEY "aspetto beni"
|
||||
PROMPT 37 1 ""
|
||||
FIELD 206@->S0
|
||||
END
|
||||
|
||||
STRING 45 7 1
|
||||
STRING 48 7 1
|
||||
BEGIN
|
||||
KEY "peso"
|
||||
PROMPT 73 1 ""
|
||||
FIELD 33->PNETTO
|
||||
END
|
||||
|
||||
STRING 46 5 1
|
||||
STRING 49 5 1
|
||||
BEGIN
|
||||
KEY "colli"
|
||||
PROMPT 66 1 ""
|
||||
FIELD 33->NCOLLI
|
||||
END
|
||||
|
||||
STRING 50 15
|
||||
BEGIN
|
||||
KEY "causale di trasporto"
|
||||
PROMPT 25 4 ""
|
||||
FIELD 207@->S0
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
429
ve/vebolbmp.frm
Executable file
429
ve/vebolbmp.frm
Executable 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
140
ve/vefat.frm
@ -47,7 +47,7 @@ BEGIN
|
||||
203@->* "Tabella porto"
|
||||
204@->* "Tabella banche"
|
||||
205@->* "Tabella vettori"
|
||||
206@->* "Tabella apsetto beni"
|
||||
206@->* "Tabella aspetto beni"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
@ -56,6 +56,9 @@ BEGIN
|
||||
FONT "Courier New"
|
||||
SIZE 12
|
||||
MODULE BUFFETTI_FATTURA_01
|
||||
PRI_DECIMALS 0 2
|
||||
QTA_DECIMALS 3
|
||||
IMP_DECIMALS 0 2
|
||||
END
|
||||
|
||||
/////////////////////////////////////////////////
|
||||
@ -65,28 +68,28 @@ STRINGA 1 35 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 3 4 ""
|
||||
MESSAGE _DITTA !RAGSOC
|
||||
MESSAGE _DITTA, !RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 35 1
|
||||
BEGIN
|
||||
KEY "indirizzo ditta"
|
||||
PROMPT 3 5 ""
|
||||
MESSAGE _DITTA !IND
|
||||
MESSAGE _DITTA, !IND
|
||||
END
|
||||
|
||||
STRINGA 3 5 1
|
||||
BEGIN
|
||||
KEY "cap ditta"
|
||||
PROMPT 3 6 ""
|
||||
MESSAGE _DITTA !CAP
|
||||
MESSAGE _DITTA, !CAP
|
||||
END
|
||||
|
||||
STRINGA 4 30 1
|
||||
BEGIN
|
||||
KEY "comune ditta"
|
||||
PROMPT 10 6 ""
|
||||
MESSAGE _DITTA !COM
|
||||
MESSAGE _DITTA, !COM
|
||||
END
|
||||
|
||||
STRINGA 5 5 1
|
||||
@ -99,7 +102,7 @@ STRINGA 6 16 1
|
||||
BEGIN
|
||||
KEY "partita iva ditta"
|
||||
PROMPT 9 7 ""
|
||||
MESSAGE _DITTA !PIVA
|
||||
MESSAGE _DITTA, !PIVA
|
||||
END
|
||||
|
||||
STRINGA 7 9 1
|
||||
@ -112,19 +115,21 @@ STRINGA 8 16 1
|
||||
BEGIN
|
||||
KEY "codice fiscale ditta"
|
||||
PROMPT 13 8 ""
|
||||
MESSAGE _DITTA !CF
|
||||
MESSAGE _DITTA, !CF
|
||||
END
|
||||
|
||||
NUMERO 9 10 1
|
||||
BEGIN
|
||||
KEY "reg.soc.trib...."
|
||||
PROMPT 3 9 "RED.SOC.TRIB.R.E. "
|
||||
PROMPT 3 9 "REG.SOC.TRIB.R.E. "
|
||||
MESSAGE _DITTA, !REGSOC
|
||||
END
|
||||
|
||||
NUMERO 12 10 1
|
||||
BEGIN
|
||||
KEY "c.c.i.a.a. ....."
|
||||
PROMPT 3 10 "C.C.I.A.A. "
|
||||
MESSAGE _DITTA, !CCIAA
|
||||
END
|
||||
|
||||
STRINGA 14 8 1
|
||||
@ -191,47 +196,46 @@ BEGIN
|
||||
FIELD 204@->S0
|
||||
END
|
||||
|
||||
STRINGA 23 38 1
|
||||
STRINGA 23 38 2
|
||||
BEGIN
|
||||
KEY "cliente ragione sociale 1"
|
||||
KEY "cliente ragione sociale "
|
||||
PROMPT 44 11 ""
|
||||
MESSAGE _CLIENTE,!RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 24 38 1
|
||||
STRINGA 24 35 2
|
||||
BEGIN
|
||||
KEY "cliente ragione sociale 2"
|
||||
PROMPT 44 12 ""
|
||||
END
|
||||
|
||||
STRINGA 25 38 1
|
||||
BEGIN
|
||||
KEY "cliente indirizzo 1"
|
||||
KEY "cliente indirizzo con numero civico"
|
||||
PROMPT 44 13 ""
|
||||
MESSAGE _CLIENTE,!INDNUM
|
||||
END
|
||||
|
||||
STRINGA 26 38 1
|
||||
STRINGA 25 3
|
||||
BEGIN
|
||||
KEY "cliente indirizzo 2"
|
||||
PROMPT 44 14 ""
|
||||
KEY "Numero di pagina"
|
||||
PROMPT 74 10 ""
|
||||
MESSAGE _PAGENO
|
||||
END
|
||||
|
||||
STRINGA 27 5 1
|
||||
BEGIN
|
||||
KEY "cliente cap"
|
||||
PROMPT 44 15 ""
|
||||
MESSAGE _CLIENTE,!CAP
|
||||
END
|
||||
|
||||
STRINGA 28 30 1
|
||||
BEGIN
|
||||
KEY "cliente localita 1"
|
||||
KEY "cliente comune"
|
||||
PROMPT 50 15 ""
|
||||
MESSAGE _CLIENTE,!COM
|
||||
END
|
||||
|
||||
STRINGA 30 2 1
|
||||
BEGIN
|
||||
KEY "cliente provincia"
|
||||
PROMPT 73 16 ""
|
||||
FIELD 13->PROVCOM
|
||||
MESSAGE _CLIENTE,!PROV
|
||||
END
|
||||
|
||||
STRINGA 31 2 1
|
||||
@ -243,7 +247,7 @@ END
|
||||
END
|
||||
|
||||
/////////////////////////////////////////////////
|
||||
SECTION BODY ODD 1
|
||||
SECTION BODY ODD 5
|
||||
|
||||
STRINGA 32 13 1
|
||||
BEGIN
|
||||
@ -252,48 +256,88 @@ BEGIN
|
||||
FIELD 34->CODART
|
||||
END
|
||||
|
||||
STRINGA 33 19 1
|
||||
STRINGA 33 25 4
|
||||
BEGIN
|
||||
KEY "descrizione articolo"
|
||||
PROMPT 17 1 ""
|
||||
FIELD 47->DESCR
|
||||
MESSAGE _DESCRIGA
|
||||
END
|
||||
|
||||
STRINGA 34 3 1
|
||||
STRINGA 34 2
|
||||
BEGIN
|
||||
KEY "unita' di misura"
|
||||
PROMPT 38 1 ""
|
||||
FIELD 34->UMQTA
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
NUMBER 35 8 1
|
||||
STRING 35 10
|
||||
BEGIN
|
||||
KEY "quantita'"
|
||||
PROMPT 42 1 ""
|
||||
PICTURE "@@@@@@@,@@@"
|
||||
FIELD 34->QTA
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
STRINGA 36 10 1
|
||||
STRINGA 36 15
|
||||
BEGIN
|
||||
KEY "prezzo unitario"
|
||||
PROMPT 52 1 ""
|
||||
PICTURE "###.###.###,@@@"
|
||||
FIELD 34->PREZZO
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
STRINGA 37 3 1
|
||||
STRINGA 37 25
|
||||
BEGIN
|
||||
KEY "sconto"
|
||||
PROMPT 64 1 ""
|
||||
FIELD 34->SCONTO
|
||||
MESSAGE _ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
STRINGA 38 11 1
|
||||
STRINGA 38 15
|
||||
BEGIN
|
||||
KEY "importo netto"
|
||||
PROMPT 68 1 ""
|
||||
PICTURE "###.###.###,@@@"
|
||||
MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#33,BOTTOM
|
||||
END
|
||||
|
||||
STRINGA 39 3 1
|
||||
STRINGA 39 4
|
||||
BEGIN
|
||||
KEY "iva"
|
||||
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
|
||||
@ -301,28 +345,43 @@ END
|
||||
/////////////////////////////////////////////////
|
||||
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
|
||||
BEGIN
|
||||
KEY "spese di trasporto"
|
||||
PROMPT 42 53 ""
|
||||
MESSAGE _TOTAL_CODA,SPTRAS
|
||||
END
|
||||
|
||||
STRINGA 41 6 1
|
||||
BEGIN
|
||||
KEY "spese di incasso"
|
||||
PROMPT 56 63 ""
|
||||
MESSAGE _TOTAL_CODA,SPINC
|
||||
END
|
||||
|
||||
STRINGA 42 11 1
|
||||
BEGIN
|
||||
KEY "spese di imballo"
|
||||
PROMPT 56 53 ""
|
||||
MESSAGE _TOTAL_CODA,SPIMB
|
||||
END
|
||||
|
||||
STRINGA 43 5 1
|
||||
BEGIN
|
||||
KEY "spese bolli"
|
||||
PROMPT 64 63 ""
|
||||
MESSAGE _TOTAL_CODA,SPBOL
|
||||
END
|
||||
|
||||
STRINGA 44 11 1
|
||||
@ -419,30 +478,35 @@ STRINGA 59 12 1
|
||||
BEGIN
|
||||
KEY "totale imponibile"
|
||||
PROMPT 6 63 ""
|
||||
MESSAGE _TOTAL_CODA,TIMP
|
||||
END
|
||||
|
||||
STRINGA 60 11 1
|
||||
BEGIN
|
||||
KEY "totale imposta"
|
||||
PROMPT 23 63 ""
|
||||
MESSAGE _TOTAL_CODA,TIMPS
|
||||
END
|
||||
|
||||
STRINGA 61 9 1
|
||||
BEGIN
|
||||
KEY "totale esenti"
|
||||
PROMPT 36 63 ""
|
||||
MESSAGE _TOTAL_CODA,TESEN
|
||||
END
|
||||
|
||||
STRINGA 62 11 1
|
||||
BEGIN
|
||||
KEY "totale importi netti"
|
||||
PROMPT 3 53 ""
|
||||
MESSAGE _TOTAL_CODA,IMPNETTO
|
||||
END
|
||||
|
||||
STRINGA 63 12 1
|
||||
BEGIN
|
||||
KEY "totale fattura"
|
||||
PROMPT 71 63 ""
|
||||
MESSAGE _TOTAL_CODA,TFATT
|
||||
END
|
||||
|
||||
STRINGA 64 8 1
|
||||
@ -515,19 +579,9 @@ STRINGA 75 12 1
|
||||
BEGIN
|
||||
KEY "netto da pagare"
|
||||
PROMPT 71 66 ""
|
||||
MESSAGE _COD_TESTA NETPAG
|
||||
MESSAGE _TOTAL_CODA,NETPAG
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
/////////////////////////////////////////////////
|
||||
SECTION FOOTER LAST 13
|
||||
|
||||
STRINGA 76 5 1
|
||||
BEGIN
|
||||
KEY "stampa 'segue' in coda"
|
||||
PROMPT 73 13 "SEGUE"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user