dcf8d84484
Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 848 (ve mancano i file con nomi doficati git-svn-id: svn://10.65.10.50/trunk@15004 c028cbd2-c16b-5b4b-a496-9718f37d4682
711 lines
10 KiB
Plaintext
Executable File
711 lines
10 KiB
Plaintext
Executable File
USE 33
|
|
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
|
|
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
|
|
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
|
|
JOIN 47 TO 34 INTO CODART==CODART
|
|
JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
|
|
JOIN 122 TO 33 INTO CODAGE==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
|
|
JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA
|
|
JOIN %VAL TO 33 ALIAS 209 INTO CODTAB==CODVAL
|
|
JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
34->* "Righe documenti di vendita"
|
|
33->* "Documenti di vendita"
|
|
17->* "Clienti/Fornitori per vendite"
|
|
20->* "Clienti/Fornitori"
|
|
16->* "Indirizzi di spedizione (destinazione)"
|
|
116@->* "Indirizzi di spedizione (destinatario)"
|
|
47->* "Anagrafica magazzino"
|
|
201@->* "Tabella condizioni di pagamento"
|
|
122->* "Archivio agenti"
|
|
203@->* "Tabella porto"
|
|
204@->* "Tabella banche istituto"
|
|
205@->* "Tabella vettori"
|
|
206@->* "Tabella aspetto beni"
|
|
207@->* "Tabella causale del trasporto"
|
|
208@->* "Tabella banche agenzia"
|
|
END
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 10
|
|
MODULE "FATTURA STANDARD AGA"
|
|
PRI_DECIMALS 0 2
|
|
QTA_DECIMALS 3 3
|
|
IMP_DECIMALS 0 2
|
|
EXCLUDE "08,"
|
|
EXCLUDE "02,"
|
|
EXCLUDE "03,"
|
|
END
|
|
SECTION GRAPHICS ODD
|
|
FIGURA 99 93 68
|
|
BEGIN
|
|
PROMPT 1 1 "fattura.bmp"
|
|
END
|
|
END
|
|
SECTION HEADER ODD 27
|
|
STRINGA 200 1
|
|
BEGIN
|
|
KEY "abilita/disabilita stampa intestazione ditta "
|
|
PROMPT 1 1 ""
|
|
MESSAGE ENABLE,15@
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 1 35 1
|
|
BEGIN
|
|
KEY "nome ditta"
|
|
PROMPT 3 4 ""
|
|
MESSAGE _DITTA,!RAGSOC
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 2 35 1
|
|
BEGIN
|
|
KEY "indirizzo ditta"
|
|
PROMPT 3 5 ""
|
|
MESSAGE _DITTA,!IND
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 3 5 1
|
|
BEGIN
|
|
KEY "cap ditta"
|
|
PROMPT 3 6 ""
|
|
MESSAGE _DITTA,!CAP
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 4 30 1
|
|
BEGIN
|
|
KEY "comune ditta"
|
|
PROMPT 10 6 ""
|
|
MESSAGE _DITTA,!COM
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 5 8 1
|
|
BEGIN
|
|
KEY "scritta P.IVA"
|
|
PROMPT 3 7 "P.IVA IT"
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 6 16 1
|
|
BEGIN
|
|
KEY "partita iva ditta"
|
|
PROMPT 12 7 ""
|
|
MESSAGE _DITTA,!IVA
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 7 12 1
|
|
BEGIN
|
|
KEY "scritta COD.FISC."
|
|
PROMPT 3 8 "COD.FISC. IT"
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 8 16 1
|
|
BEGIN
|
|
KEY "codice fiscale ditta"
|
|
PROMPT 16 8 ""
|
|
MESSAGE _DITTA,!CF
|
|
GROUP 15
|
|
FLAGS "D"
|
|
END
|
|
STRINGA 9 2
|
|
BEGIN
|
|
KEY "Numero di pagina"
|
|
PROMPT 88 20 ""
|
|
MESSAGE _PAGENO
|
|
END
|
|
DATA 10 8
|
|
BEGIN
|
|
KEY "data fattura"
|
|
PROMPT 64 20 ""
|
|
FIELD 33->DATADOC
|
|
FORMAT "1442-"
|
|
END
|
|
STRINGA 11 7
|
|
BEGIN
|
|
KEY "numero fattura"
|
|
PROMPT 77 20 ""
|
|
FIELD 33->NDOC
|
|
END
|
|
STRINGA 12 5
|
|
BEGIN
|
|
KEY "codice cliente"
|
|
PROMPT 2 22 ""
|
|
FIELD 33->CODCF
|
|
END
|
|
STRINGA 13 3
|
|
BEGIN
|
|
KEY "codice agente"
|
|
PROMPT 10 22 ""
|
|
FIELD 33->CODAG
|
|
END
|
|
STRINGA 14 14
|
|
BEGIN
|
|
KEY "porto"
|
|
PROMPT 57 22 ""
|
|
FIELD 203@->S0
|
|
END
|
|
STRING 15 6
|
|
BEGIN
|
|
KEY "ordine"
|
|
PROMPT 26 22 ""
|
|
FIELD 33->NUMDOCRIF
|
|
END
|
|
DATA 16 8
|
|
BEGIN
|
|
KEY "data conferma"
|
|
PROMPT 15 22 ""
|
|
FIELD 33->DATADOCRIF
|
|
FORMAT "1442-"
|
|
END
|
|
STRINGA 17 32
|
|
BEGIN
|
|
KEY "condizioni di pagamento"
|
|
PROMPT 2 24 ""
|
|
FIELD 201@->S0
|
|
END
|
|
STRINGA 18 27
|
|
BEGIN
|
|
KEY "banca d'appoggio istituto"
|
|
PROMPT 37 24 ""
|
|
FIELD 208@->S0
|
|
END
|
|
STRINGA 19 27
|
|
BEGIN
|
|
KEY "banca d'appoggio agenzia"
|
|
PROMPT 65 24 ""
|
|
FIELD 204@->S0
|
|
END
|
|
STRINGA 20 40 2
|
|
BEGIN
|
|
KEY "cliente ragione sociale "
|
|
PROMPT 48 11 ""
|
|
MESSAGE _CLIENTE,!RAGSOC
|
|
END
|
|
STRINGA 21 40 2
|
|
BEGIN
|
|
KEY "cliente indirizzo con numero civico"
|
|
PROMPT 48 13 ""
|
|
MESSAGE _CLIENTE,!INDNUM
|
|
END
|
|
STRING 22 40 1
|
|
BEGIN
|
|
KEY "destinatario, localita"
|
|
PROMPT 48 15 ""
|
|
MESSAGE _CLIENTE,LOCALITACF
|
|
END
|
|
STRINGA 23 5 1
|
|
BEGIN
|
|
KEY "cliente cap"
|
|
PROMPT 48 16 ""
|
|
MESSAGE _CLIENTE,!CAP
|
|
END
|
|
STRINGA 24 35 2
|
|
BEGIN
|
|
KEY "cliente comune"
|
|
PROMPT 54 16 ""
|
|
MESSAGE _CLIENTE,!COM->DENCOM
|
|
MESSAGE COPY,26
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 25 2 1
|
|
BEGIN
|
|
KEY "cliente provincia"
|
|
PROMPT 77 17 ""
|
|
MESSAGE _CLIENTE,!COM->PROVCOM
|
|
MESSAGE APPEND,26
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 26 30 2
|
|
BEGIN
|
|
KEY "cliente comune+prov."
|
|
PROMPT 54 16 ""
|
|
END
|
|
STRINGA 27 3
|
|
BEGIN
|
|
KEY "cliente codice stato"
|
|
PROMPT 44 17 ""
|
|
MESSAGE _CLIENTE,STATOCF
|
|
FLAGS "H"
|
|
END
|
|
STRINGA 28 25
|
|
BEGIN
|
|
KEY "cliente nome stato"
|
|
PROMPT 44 17 ""
|
|
MESSAGE _TABLEREAD,%STA,#27,S0
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
STRING 31 11
|
|
BEGIN
|
|
KEY "partita iva cliente"
|
|
PROMPT 37 22 ""
|
|
MESSAGE _CLIENTE,PAIV
|
|
FLAGS ""
|
|
END
|
|
STRING 32 16
|
|
BEGIN
|
|
KEY "codice fiscale cliente"
|
|
PROMPT 36 20 ""
|
|
MESSAGE _CLIENTE,COFI
|
|
FLAGS ""
|
|
END
|
|
STRING 33 2
|
|
BEGIN
|
|
KEY "codice iso iva cliente"
|
|
PROMPT 35 22 ""
|
|
MESSAGE _CLIENTE,STATOPAIV
|
|
FLAGS ""
|
|
END
|
|
|
|
|
|
STRING 34 15
|
|
BEGIN
|
|
KEY "causale di trasporto"
|
|
PROMPT 75 22 ""
|
|
FIELD 207@->S0
|
|
END
|
|
STRING 35 27
|
|
BEGIN
|
|
KEY "valuta"
|
|
PROMPT 57 20 ""
|
|
FIELD CODVAL
|
|
END
|
|
STRING 36 27
|
|
BEGIN
|
|
KEY "tipo documento"
|
|
PROMPT 2 20 ""
|
|
FIELD 210@->S0
|
|
END
|
|
END
|
|
SECTION BODY ODD 5
|
|
STRINGA 51 12 1
|
|
BEGIN
|
|
KEY "codice articolo"
|
|
FIELD 34->CODART
|
|
PROMPT 2 1 ""
|
|
END
|
|
STRINGA 52 20 22
|
|
BEGIN
|
|
KEY "descrizione articolo"
|
|
MESSAGE _DESCRIGA
|
|
PROMPT 16 1 ""
|
|
END
|
|
STRINGA 53 2
|
|
BEGIN
|
|
KEY "unita' di misura"
|
|
PROMPT 40 1 ""
|
|
FIELD 34->UMQTA
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
NUMBER 54 10
|
|
BEGIN
|
|
KEY "quantita'"
|
|
PROMPT 45 1 ""
|
|
FIELD 34->QTA
|
|
PICTURE "##.###.###"
|
|
GROUP 30
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
NUMBER 55 12
|
|
BEGIN
|
|
KEY "prezzo unitario"
|
|
PROMPT 57 1 ""
|
|
FIELD 34->PREZZO
|
|
PICTURE "###.###.###"
|
|
GROUP 29
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
STRINGA 56 3
|
|
BEGIN
|
|
KEY "sconto"
|
|
PROMPT 70 1 ""
|
|
FIELD 34->SCONTO
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
NUMBER 57 12
|
|
BEGIN
|
|
KEY "importo netto"
|
|
PROMPT 75 1 ""
|
|
FIELD 34->IMPNS
|
|
PICTURE "###.###.###"
|
|
GROUP 29
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
STRINGA 58 3
|
|
BEGIN
|
|
KEY "iva"
|
|
PROMPT 90 1 ""
|
|
FIELD 34->CODIVA
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
END
|
|
NUMBER 59 15
|
|
BEGIN
|
|
KEY "prezzo unitario scontato"
|
|
PROMPT 68 1 ""
|
|
PICTURE "###.###.###.###"
|
|
FIELD 34->PREZZONS
|
|
GROUP 29
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
FLAGS "H"
|
|
END
|
|
NUMBER 60 15
|
|
BEGIN
|
|
KEY "provvigione"
|
|
PROMPT 68 1 ""
|
|
PICTURE "###.###.###.###"
|
|
FIELD 34->PROVVR
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
GROUP 31
|
|
FLAGS "H"
|
|
END
|
|
NUMBER 61 15
|
|
BEGIN
|
|
KEY "Imposta"
|
|
PROMPT 68 1 ""
|
|
PICTURE "###.###.###.###"
|
|
FIELD 34->IMPOSTA
|
|
MESSAGE _ALIGN,#52,BOTTOM
|
|
GROUP 31
|
|
FLAGS "H"
|
|
END
|
|
END
|
|
SECTION FOOTER ODD -49
|
|
STRINGA 100 5 1
|
|
BEGIN
|
|
KEY "stampa 'segue' in coda"
|
|
PROMPT 73 13 "SEGUE"
|
|
END
|
|
END
|
|
SECTION FOOTER LAST -49
|
|
NUMBER 101 12
|
|
BEGIN
|
|
KEY "totale importi netti (non scontati)"
|
|
PROMPT 2 3 ""
|
|
FIELD TOTMER
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
STRINGA 102 7
|
|
BEGIN
|
|
KEY "% sconto"
|
|
PROMPT 23 3 ""
|
|
FIELD 33->SCONTOPERC
|
|
END
|
|
NUMBER 103 11
|
|
BEGIN
|
|
KEY "totale sconti"
|
|
PROMPT 32 3 ""
|
|
FIELD SCONTOT
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 104 11
|
|
BEGIN
|
|
KEY "spese di trasporto"
|
|
PROMPT 46 3 ""
|
|
PICTURE "###.###.###"
|
|
FIELD SPESTRA
|
|
GROUP 31
|
|
END
|
|
NUMBER 105 11
|
|
BEGIN
|
|
KEY "spese di imballo"
|
|
PROMPT 59 3 ""
|
|
PICTURE "###.###.###"
|
|
FIELD SPESIMB
|
|
GROUP 31
|
|
END
|
|
NUMBER 106 11
|
|
BEGIN
|
|
KEY "acconto"
|
|
PROMPT 79 5 ""
|
|
FIELD 33->IMPPAGATO
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
STRING 107 3
|
|
BEGIN
|
|
KEY "codice iva 1"
|
|
PROMPT 2 5 ""
|
|
MESSAGE _RIEPILOGOIVA,1,COD,0
|
|
END
|
|
NUMBER 108 12
|
|
BEGIN
|
|
KEY "imponibile 1"
|
|
PROMPT 8 5 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IMP,0
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 109 2
|
|
BEGIN
|
|
KEY "iva 1"
|
|
PROMPT 23 5 ""
|
|
MESSAGE _RIEPILOGOIVA,1,ALI,0
|
|
PICTURE "##"
|
|
END
|
|
NUMBER 110 10
|
|
BEGIN
|
|
KEY "imposta 1"
|
|
PROMPT 28 5 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IVA,1
|
|
PICTURE "##.###.###"
|
|
GROUP 31
|
|
END
|
|
STRING 111 3
|
|
BEGIN
|
|
KEY "codice iva 2"
|
|
PROMPT 2 6 ""
|
|
MESSAGE _RIEPILOGOIVA,1,COD,0
|
|
END
|
|
NUMBER 112 12
|
|
BEGIN
|
|
KEY "imponibile 2"
|
|
PROMPT 8 6 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IMP,0
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 113 2
|
|
BEGIN
|
|
KEY "iva 2"
|
|
PROMPT 23 6 ""
|
|
MESSAGE _RIEPILOGOIVA,1,ALI,0
|
|
PICTURE "##"
|
|
END
|
|
NUMBER 114 10
|
|
BEGIN
|
|
KEY "imposta 2"
|
|
PROMPT 28 6 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IVA,1
|
|
PICTURE "##.###.###"
|
|
GROUP 31
|
|
END
|
|
STRING 115 3
|
|
BEGIN
|
|
KEY "codice iva 3"
|
|
PROMPT 2 7 ""
|
|
MESSAGE _RIEPILOGOIVA,1,COD,0
|
|
END
|
|
NUMBER 116 12
|
|
BEGIN
|
|
KEY "imponibile 3"
|
|
PROMPT 8 7 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IMP,0
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 117 2
|
|
BEGIN
|
|
KEY "iva 3"
|
|
PROMPT 23 7 ""
|
|
MESSAGE _RIEPILOGOIVA,1,ALI,0
|
|
PICTURE "##"
|
|
END
|
|
NUMBER 118 10
|
|
BEGIN
|
|
KEY "imposta 3"
|
|
PROMPT 28 7 ""
|
|
MESSAGE _RIEPILOGOIVA,1,IVA,1
|
|
PICTURE "##.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 119 12
|
|
BEGIN
|
|
KEY "imponibile 4"
|
|
PROMPT 8 9 ""
|
|
MESSAGE _RIEPILOGOIVA,30,IMP,0
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
STRINGA 120 3
|
|
BEGIN
|
|
KEY "codice iva 4"
|
|
PROMPT 2 9 ""
|
|
MESSAGE _RIEPILOGOIVA,30,COD,0
|
|
END
|
|
STRINGA 121 45
|
|
BEGIN
|
|
KEY "descrizione altri 4"
|
|
PROMPT 44 9 ""
|
|
MESSAGE _RIEPILOGOIVA,30,DES,1
|
|
END
|
|
NUMBER 122 12
|
|
BEGIN
|
|
KEY "imponibile 5"
|
|
PROMPT 8 10 ""
|
|
MESSAGE _RIEPILOGOIVA,30,IMP,0
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
STRINGA 123 3
|
|
BEGIN
|
|
KEY "codice iva 5"
|
|
PROMPT 2 10 ""
|
|
MESSAGE _RIEPILOGOIVA,30,COD,0
|
|
END
|
|
STRINGA 124 45
|
|
BEGIN
|
|
KEY "descrizione altri 5"
|
|
PROMPT 44 10 ""
|
|
MESSAGE _RIEPILOGOIVA,30,DES,1
|
|
END
|
|
NUMBER 125 12
|
|
BEGIN
|
|
KEY "totale imponibile"
|
|
PROMPT 8 13 ""
|
|
MESSAGE _TOTIMPONIBILI,29
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 126 11
|
|
BEGIN
|
|
KEY "totale imposta"
|
|
PROMPT 28 13 ""
|
|
FIELD IMPOSTE
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 127 11
|
|
BEGIN
|
|
KEY "totale esenti"
|
|
PROMPT 44 13 ""
|
|
MESSAGE _TOTIMPONIBILI,28
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 128 7
|
|
BEGIN
|
|
KEY "spese di incasso"
|
|
PROMPT 72 3 ""
|
|
PICTURE "###.###"
|
|
FIELD SPESINC
|
|
GROUP 31
|
|
END
|
|
NUMBER 129 7
|
|
BEGIN
|
|
KEY "spese bolli"
|
|
PROMPT 83 3 ""
|
|
FIELD BOLLI
|
|
PICTURE "###.###"
|
|
GROUP 31
|
|
END
|
|
NUMBER 130 11
|
|
BEGIN
|
|
KEY "totale fattura"
|
|
PROMPT 79 13 ""
|
|
FIELD TOTDOC
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
MESSAGE COPY,138
|
|
END
|
|
NUMBER 137 11
|
|
BEGIN
|
|
KEY "acconto"
|
|
PROMPT 79 5 ""
|
|
FIELD 33->IMPPAGATO
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
MESSAGE SUB,138
|
|
END
|
|
NUMBER 138 11
|
|
BEGIN
|
|
KEY "netto a pagare"
|
|
PROMPT 79 15 ""
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
DATA 143 8
|
|
BEGIN
|
|
KEY "scadenza pagamento 1"
|
|
PROMPT 2 15 ""
|
|
MESSAGE _SCADENZE,DATA,0
|
|
FORMAT "1442-"
|
|
END
|
|
NUMBER 144 12
|
|
BEGIN
|
|
KEY "importo scadenza 1"
|
|
PROMPT 12 15 ""
|
|
MESSAGE _SCADENZE,IMPORTO,1
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
DATA 145 8
|
|
BEGIN
|
|
KEY "scadenza pagamento 2"
|
|
PROMPT 26 15 ""
|
|
MESSAGE _SCADENZE,DATA,0
|
|
FORMAT "1442-"
|
|
END
|
|
NUMBER 146 12
|
|
BEGIN
|
|
KEY "importo scadenza 2"
|
|
PROMPT 36 15 ""
|
|
MESSAGE _SCADENZE,IMPORTO,1
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
DATA 147 8 1
|
|
BEGIN
|
|
KEY "scadenza pagamento 3"
|
|
PROMPT 2 16 ""
|
|
MESSAGE _SCADENZE,DATA,0
|
|
FORMAT "1442-"
|
|
END
|
|
NUMBER 148 12
|
|
BEGIN
|
|
KEY "importo scadenza 3"
|
|
PROMPT 12 16 ""
|
|
MESSAGE _SCADENZE,IMPORTO,1
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
DATA 149 8 1
|
|
BEGIN
|
|
KEY "scadenza pagamento 4"
|
|
PROMPT 26 16 ""
|
|
MESSAGE _SCADENZE,DATA,0
|
|
FORMAT "1442-"
|
|
END
|
|
NUMBER 150 12
|
|
BEGIN
|
|
KEY "importo scadenza 4"
|
|
PROMPT 36 16 ""
|
|
MESSAGE _SCADENZE,IMPORTO,1
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
DATA 151 8 1
|
|
BEGIN
|
|
KEY "scadenza pagamento 5"
|
|
PROMPT 2 17 ""
|
|
MESSAGE _SCADENZE,DATA,0
|
|
FORMAT "1442-"
|
|
END
|
|
NUMBER 152 12
|
|
BEGIN
|
|
KEY "importo scadenza 5"
|
|
PROMPT 12 17 ""
|
|
MESSAGE _SCADENZE,IMPORTO,1
|
|
PICTURE "###.###.###"
|
|
GROUP 31
|
|
END
|
|
END
|