Modifiche a moduli per fatture e fatture accompagnatorie
git-svn-id: svn://10.65.10.50/trunk@1914 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
gianluca
parent
9932a66b8c
commit
ef997a0fe7
169
ve/veacc.frm
169
ve/veacc.frm
@ -1,46 +1,47 @@
|
||||
|
||||
// Completare la sezione "iva" nel body
|
||||
|
||||
USE 33
|
||||
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
|
||||
JOIN 17 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN 20 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN 16 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 52 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN %CPG INTO CODTAB==CODPAG
|
||||
JOIN %AGE INTO CODTAB==CODAG
|
||||
JOIN %POR INTO CODTAB==CODPORTO
|
||||
JOIN %BAN INTO CODTAB==CODABIA+CODCABA
|
||||
JOIN %VET INTO CODTAB==CODVETT1
|
||||
JOIN %ASP INTO CODTAB==ASPBENI1
|
||||
|
||||
/* da togliere, perché vengono usati i messaggi _ISAMREAD
|
||||
JOIN %BAN INTO CODTAB==CODABIA+CODCABA
|
||||
JOIN %BAN INTO CODTAB==CODABIP+CODCABP
|
||||
JOIN NDO INTO CODTAB==CODNOTESP1
|
||||
JOIN NDO INTO CODTAB==CODNOTESP2
|
||||
JOIN 13 TO 304@ ALIAS 1101 INTO COM==COMCF
|
||||
JOIN 13 TO 304@ ALIAS 1102 INTO COM==COM
|
||||
*/
|
||||
JOIN 34 ALIAS 101 INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
|
||||
JOIN 17 ALIAS 201 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN 20 ALIAS 202 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN %CPG ALIAS 301 INTO CODTAB=CODPAG
|
||||
JOIN %VAL ALIAS 302 INTO CODTAB=CODVAL
|
||||
JOIN %LNG ALIAS 303 INTO CODTAB=CODLIN
|
||||
JOIN AGE ALIAS 304 INTO CODTAB=CODAG
|
||||
JOIN MSP ALIAS 305 INTO CODTAB=CODSPMEZZO
|
||||
JOIN POR ALIAS 306 INTO CODTAB=CODPORTO
|
||||
JOIN 47 TO 101@ ALIAS 401 INTO CODART=CODART
|
||||
JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN 16 ALIAS 701 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
|
||||
JOIN 16 TO 201@ ALIAS 801 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
|
||||
JOIN %BAN ALIAS 901 INTO CODTAB=CODABIA+CODCABA
|
||||
JOIN %BAN ALIAS 902 INTO CODTAB=CODABIP+CODCABP
|
||||
JOIN NDO ALIAS 1001 INTO CODTAB=CODNOTESP1
|
||||
JOIN NDO ALIAS 1002 INTO CODTAB=CODNOTESP2
|
||||
JOIN 13 TO 304@ ALIAS 1101 INTO COM=COMCF
|
||||
JOIN 13 TO 304@ ALIAS 1102 INTO COM=COM
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
33->* "Documenti di vendita"
|
||||
34->* "Righe documenti di vendita"
|
||||
17->* "Clienti/Fornitori per vendite"
|
||||
20->* "Clienti/Fornitori"
|
||||
47 ->* "Righe listini"
|
||||
52 ->* "Contratti clienti"
|
||||
16 ->* "Indirizzi di spedizione"
|
||||
116->* "Indirizzi di spedizione"
|
||||
%CPG->* "Condizioni di pagamento"
|
||||
%AGE ->* "Agenti"
|
||||
%MSP ->* "Modalità di spedizioni"
|
||||
%POR ->* "Modalità di consegna"
|
||||
%BAN ->* "Banche"
|
||||
101@->* "Righe documenti di vendita"
|
||||
201@->* "Clienti/Fornitori per vendite"
|
||||
202@->* "Clienti/Fornitori"
|
||||
301@->* "CPG"
|
||||
302@->* "VAL"
|
||||
303@->* "LNG"
|
||||
304@->* "AGE"
|
||||
305@->* "MSP"
|
||||
306@->* "POR"
|
||||
401@->* "Righe listini"
|
||||
601@->* "Contratti clienti"
|
||||
701@->* "Indirizzi di spedizione"
|
||||
801@->* "Indirizzi di spedizione"
|
||||
901@->* "Tabella banche"
|
||||
902@->* "Tabella banche"
|
||||
1001@->* "Tabella Note Documento"
|
||||
1002@->* "Tabella Note Documento"
|
||||
1101@->* "Comuni"
|
||||
1102@->* "Comuni"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
@ -56,28 +57,28 @@ STRINGA 1 36 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 5 1 ""
|
||||
MESSAGE _DITTA &RAGSOC
|
||||
MESSAGE _DITTA6->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 36 1
|
||||
BEGIN
|
||||
KEY "indirizzo ditta"
|
||||
PROMPT 5 2 ""
|
||||
MESSAGE _DITTA &IND
|
||||
MESSAGE _DITTA6->INDRES
|
||||
END
|
||||
|
||||
STRINGA 3 5 1
|
||||
BEGIN
|
||||
KEY "cap ditta"
|
||||
PROMPT 5 3 ""
|
||||
MESSAGE _DITTA &CAP
|
||||
MESSAGE _DITTA6->CAPRES
|
||||
END
|
||||
|
||||
STRINGA 4 30 1
|
||||
BEGIN
|
||||
KEY "comune ditta"
|
||||
PROMPT 12 3 ""
|
||||
MESSAGE _DITTA &COM
|
||||
MESSAGE _DITTA113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 5 5 1
|
||||
@ -90,7 +91,7 @@ STRINGA 6 16 1
|
||||
BEGIN
|
||||
KEY "partita iva ditta"
|
||||
PROMPT 11 4 ""
|
||||
MESSAGE _DITTA &IVA
|
||||
MESSAGE _DITTA6->PAIV
|
||||
END
|
||||
|
||||
STRINGA 7 9 1
|
||||
@ -103,7 +104,7 @@ STRINGA 8 16 1
|
||||
BEGIN
|
||||
KEY "codice fiscale ditta"
|
||||
PROMPT 15 5 ""
|
||||
MESSAGE _DITTA &CF
|
||||
MESSAGE _DITTA6->CODFI
|
||||
END
|
||||
|
||||
NUMERO 9
|
||||
@ -140,147 +141,132 @@ STRINGA 14 36 2
|
||||
BEGIN
|
||||
KEY "destinatario, ditta"
|
||||
PROMPT 44 10 ""
|
||||
FIELD 20->RAGSOC
|
||||
FIELD 202@->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 15 36 2
|
||||
BEGIN
|
||||
KEY "destinatario, indirizzo"
|
||||
PROMPT 44 12 ""
|
||||
FIELD 20->INDCF
|
||||
END
|
||||
|
||||
STRINGA 83 5 1
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
PROMPT 1 1 ""
|
||||
FIELD 116@->COM
|
||||
FIELD 202@->INDCF
|
||||
END
|
||||
|
||||
STRINGA 16 5 1
|
||||
BEGIN
|
||||
KEY "destinatario, cap"
|
||||
PROMPT 44 14 ""
|
||||
MESSAGE _ISAMREAD 13 COM=#83 CAPCOM
|
||||
FIELD 1101@->CAPCOM
|
||||
END
|
||||
|
||||
STRINGA 17 30 2
|
||||
BEGIN
|
||||
KEY "destinatario, comune "
|
||||
PROMPT 50 14 ""
|
||||
MESSAGE _ISAMREAD 13 COM=#83 DENCOM
|
||||
FIELD 1101@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 18 2 1
|
||||
BEGIN
|
||||
KEY "destinatario, provincia"
|
||||
PROMPT 77 15 ""
|
||||
MESSAGE _ISAMREAD 13 COM=#83 PROVCOM
|
||||
FIELD 1101@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 19 8 1
|
||||
BEGIN
|
||||
KEY "data bolla"
|
||||
PROMPT 58 19 ""
|
||||
FIELD DATADOC
|
||||
FIELD 33->DATADOC
|
||||
END
|
||||
|
||||
STRINGA 20 5 1
|
||||
BEGIN
|
||||
KEY "numero bolla"
|
||||
PROMPT 67 19 ""
|
||||
FIELD NDOC
|
||||
FIELD 33->NDOC
|
||||
END
|
||||
|
||||
STRINGA 21 30 1
|
||||
BEGIN
|
||||
KEY "destinazione, indirizzo"
|
||||
PROMPT 1 10 ""
|
||||
FIELD 16->INDIR
|
||||
FIELD 701@->INDIR
|
||||
END
|
||||
|
||||
STRINGA 83 30 1
|
||||
BEGIN
|
||||
KEY "destinazione, cap"
|
||||
PROMPT 1 12 ""
|
||||
FIELD 16->CAP
|
||||
END
|
||||
|
||||
STRINGA 84 50 1
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
PROMPT 1 1 ""
|
||||
FIELD 16->COM
|
||||
FIELD 1102@->CAPCOM
|
||||
END
|
||||
|
||||
STRINGA 83 30 1
|
||||
BEGIN
|
||||
KEY "destinazione, comune"
|
||||
PROMPT 1 14 ""
|
||||
MESSAGE _ISAMREAD 13 COM=#84 DENCOM
|
||||
FIELD 1102@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 22 26 1
|
||||
BEGIN
|
||||
KEY "ordine"
|
||||
PROMPT 1 19 ""
|
||||
FIELD NUMDOCRIF
|
||||
FIELD 33->NUMDOCRIF
|
||||
END
|
||||
|
||||
STRINGA 23 8 1
|
||||
BEGIN
|
||||
KEY "data conferma"
|
||||
PROMPT 28 19 ""
|
||||
FIELD DATADOCRIF
|
||||
FIELD 33->DATADOCRIF
|
||||
END
|
||||
|
||||
STRINGA 24 48 1
|
||||
BEGIN
|
||||
KEY "condizioni di pagamento"
|
||||
PROMPT 1 21 ""
|
||||
FIELD %CPG->S0
|
||||
FIELD 301@->S0
|
||||
END
|
||||
|
||||
STRINGA 25 29 1
|
||||
BEGIN
|
||||
KEY "banca d'appoggio"
|
||||
PROMPT 50 21 ""
|
||||
FIELD %BAN->S0
|
||||
FIELD 901@->S0
|
||||
END
|
||||
|
||||
STRINGA 26 8 1
|
||||
BEGIN
|
||||
KEY "codice cliente"
|
||||
PROMPT 5 23 ""
|
||||
FIELD CODCF
|
||||
FIELD 33->CODCF
|
||||
END
|
||||
|
||||
STRINGA 27 16 1
|
||||
BEGIN
|
||||
KEY "partita iva cliente"
|
||||
PROMPT 16 23 ""
|
||||
FIELD 20->PAIV
|
||||
FIELD 202@->PAIV
|
||||
END
|
||||
|
||||
STRINGA 28 25 1
|
||||
BEGIN
|
||||
KEY "porto"
|
||||
PROMPT 35 23 ""
|
||||
FIELD %POR->S0
|
||||
FIELD 306@->S0
|
||||
END
|
||||
|
||||
STRINGA 29 3 1
|
||||
BEGIN
|
||||
KEY "codice agente"
|
||||
PROMPT 1 23 ""
|
||||
FIELD CODAG
|
||||
FIELD 33->CODAG
|
||||
END
|
||||
|
||||
STRINGA 30 21 1
|
||||
BEGIN
|
||||
KEY "vettore"
|
||||
PROMPT 59 23 ""
|
||||
FIELD %VET->S0
|
||||
END
|
||||
|
||||
END
|
||||
@ -291,49 +277,45 @@ STRINGA 31 8 1
|
||||
BEGIN
|
||||
KEY "codice articolo"
|
||||
PROMPT 1 0 ""
|
||||
FIELD 34->CODART
|
||||
FIELD 101@->CODART
|
||||
END
|
||||
|
||||
STRINGA 32 30 1
|
||||
BEGIN
|
||||
KEY "descrizione articolo"
|
||||
PROMPT 17 0 ""
|
||||
FIELD 47->DESCR
|
||||
FIELD 401@->DESCR
|
||||
END
|
||||
|
||||
NUMERO 33
|
||||
BEGIN
|
||||
KEY "unita' di misura"
|
||||
PROMPT 46 0 ""
|
||||
FIELD 34->UMQTA
|
||||
END
|
||||
|
||||
STRINGA 34 6 1
|
||||
BEGIN
|
||||
KEY "quantita'"
|
||||
PROMPT 10 0 ""
|
||||
FIELD 34->QTA
|
||||
FIELD 101@->QTA
|
||||
END
|
||||
|
||||
STRINGA 35 8 1
|
||||
BEGIN
|
||||
KEY "prezzo unitario"
|
||||
PROMPT 48 0 ""
|
||||
FIELD 34->PREZZO
|
||||
END
|
||||
|
||||
STRINGA 36 8 1
|
||||
BEGIN
|
||||
KEY "sconto"
|
||||
PROMPT 57 0 ""
|
||||
FIELD 34->SCONTO
|
||||
END
|
||||
|
||||
STRINGA 37 9 1
|
||||
BEGIN
|
||||
KEY "importo netto"
|
||||
PROMPT 66 0 ""
|
||||
MESSAGE _COD_RIGA IMPNETTO
|
||||
END
|
||||
|
||||
STRINGA 38 3 1
|
||||
@ -344,7 +326,7 @@ END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER ODD 1
|
||||
SECTION FOOTER LAST 1
|
||||
|
||||
STRINGA 71 5 1
|
||||
BEGIN
|
||||
@ -354,27 +336,24 @@ END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 20
|
||||
SECTION FOOTER ODD 20
|
||||
|
||||
STRINGA 39 11 1
|
||||
BEGIN
|
||||
KEY "spese di trasporto"
|
||||
PROMPT 43 52 ""
|
||||
_COD_TESTA SPTRAS
|
||||
END
|
||||
|
||||
STRINGA 40 11 1
|
||||
BEGIN
|
||||
KEY "spese di incasso"
|
||||
PROMPT 55 50 ""
|
||||
MESSAGE _COD_TESTA SPINC
|
||||
END
|
||||
|
||||
STRINGA 41 11 1
|
||||
BEGIN
|
||||
KEY "spese bolli"
|
||||
PROMPT 55 52 ""
|
||||
MESSAGE _COD_TESTA SPBOL
|
||||
END
|
||||
|
||||
STRINGA 42 21 1
|
||||
@ -500,61 +479,55 @@ END
|
||||
STRINGA 62 6 1
|
||||
BEGIN
|
||||
KEY "stampa totali"
|
||||
PROMPT 1 54 "TOT."
|
||||
PROMPT 1 54 ""
|
||||
END
|
||||
|
||||
STRINGA 63 12 1
|
||||
BEGIN
|
||||
KEY "totale imponibile"
|
||||
PROMPT 4 54 ""
|
||||
MESSAGE _COD_TESTA TIMP
|
||||
END
|
||||
|
||||
STRINGA 64 11 1
|
||||
BEGIN
|
||||
KEY "totale imposta"
|
||||
PROMPT 22 54 ""
|
||||
MESSAGE _COD_TESTA TIMPS
|
||||
END
|
||||
|
||||
STRINGA 65 11 1
|
||||
BEGIN
|
||||
KEY "totale importi netti"
|
||||
PROMPT 68 48 ""
|
||||
MESSAGE _COD_TESTA IMPNETTO
|
||||
END
|
||||
|
||||
STRINGA 66 11 1
|
||||
BEGIN
|
||||
KEY "spese di imballo"
|
||||
PROMPT 43 50 ""
|
||||
MESSAGE _COD_TESTA SPIMB
|
||||
END
|
||||
|
||||
STRINGA 67 2 1
|
||||
BEGIN
|
||||
KEY "cancella 'iva' per sp. tras"
|
||||
PROMPT 43 51 "--"
|
||||
PROMPT 43 51 ""
|
||||
END
|
||||
|
||||
STRINGA 68 8 1
|
||||
BEGIN
|
||||
KEY "scritta 'spese di trasporto'"
|
||||
PROMPT 45 51 "S.TRASP."
|
||||
KEY "scritta spese di trasporto"
|
||||
PROMPT 45 51 ""
|
||||
END
|
||||
|
||||
STRINGA 69 11 1
|
||||
BEGIN
|
||||
KEY "totale imposta"
|
||||
PROMPT 68 52 ""
|
||||
MESSAGE _COD_TESTA TIMPS
|
||||
END
|
||||
|
||||
STRINGA 70 11 1
|
||||
BEGIN
|
||||
KEY "totale fattura"
|
||||
PROMPT 68 54 ""
|
||||
MESSAGE _COD_TESTA TFATT
|
||||
END
|
||||
|
||||
STRINGA 72 1 1
|
||||
|
||||
225
ve/vefat.frm
225
ve/vefat.frm
@ -1,55 +1,48 @@
|
||||
|
||||
// - I FIELD sul file 20 (clifo) vanno sostituiti con messaggi _CLIENTE.
|
||||
// - Manca "cliente provincia"
|
||||
// - Manca "azzera totalizzatore 1"
|
||||
// - Completare "importo netto" e "iva" nelle righe della fattura
|
||||
// - Nella coda della fattura, completare i campi che non sono totalizzatori
|
||||
// - Codici per i totalizzatori:
|
||||
// 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
|
||||
// TNETTO netto da pagare
|
||||
//
|
||||
// Togliere dalla relazione i files che non servono, quando tutti i campi sono OK.
|
||||
|
||||
USE 33
|
||||
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
|
||||
JOIN 17 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN 20 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN 16 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 52 INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN %CPG INTO CODTAB==CODPAG
|
||||
JOIN %AGE INTO CODTAB==CODAG
|
||||
JOIN %POR INTO CODTAB==CODPORTO
|
||||
JOIN %BAN INTO CODTAB==CODABIA+CODCABA
|
||||
JOIN %VET INTO CODTAB==CODVETT1
|
||||
JOIN %ASP INTO CODTAB==ASPBENI1
|
||||
JOIN 34 ALIAS 101 INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
|
||||
JOIN 17 ALIAS 201 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN 20 ALIAS 202 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN %CPG ALIAS 301 INTO CODTAB=CODPAG
|
||||
JOIN %VAL ALIAS 302 INTO CODTAB=CODVAL
|
||||
JOIN %LNG ALIAS 303 INTO CODTAB=CODLIN
|
||||
JOIN AGE ALIAS 304 INTO CODTAB=CODAG
|
||||
JOIN MSP ALIAS 305 INTO CODTAB=CODSPMEZZO
|
||||
JOIN POR ALIAS 306 INTO CODTAB=CODPORTO
|
||||
JOIN 47 TO 101@ ALIAS 401 INTO CODART=CODART
|
||||
JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF
|
||||
JOIN 16 ALIAS 701 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
|
||||
JOIN 16 TO 201@ ALIAS 801 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
|
||||
JOIN %BAN ALIAS 901 INTO CODTAB=CODABIA+CODCABA
|
||||
JOIN %BAN ALIAS 902 INTO CODTAB=CODABIP+CODCABP
|
||||
JOIN NDO ALIAS 1001 INTO CODTAB=CODNOTESP1
|
||||
JOIN NDO ALIAS 1002 INTO CODTAB=CODNOTESP2
|
||||
JOIN 13 TO 304@ ALIAS 1101 INTO COM=COMCF
|
||||
JOIN 13 TO 304@ ALIAS 1102 INTO COM=COM
|
||||
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
33->* "Documenti di vendita"
|
||||
34->* "Righe documenti di vendita"
|
||||
17->* "Clienti/Fornitori per vendite"
|
||||
20->* "Clienti/Fornitori"
|
||||
47 ->* "Righe listini"
|
||||
52 ->* "Contratti clienti"
|
||||
16 ->* "Indirizzi di spedizione"
|
||||
116->* "Indirizzi di spedizione"
|
||||
%CPG->* "Condizioni di pagamento"
|
||||
%AGE ->* "Agenti"
|
||||
%MSP ->* "Modalità di spedizioni"
|
||||
%POR ->* "Modalità di consegna"
|
||||
%BAN ->* "Banche"
|
||||
101@->* "Righe documenti di vendita"
|
||||
201@->* "Clienti/Fornitori per vendite"
|
||||
202@->* "Clienti/Fornitori"
|
||||
301@->* "CPG"
|
||||
302@->* "VAL"
|
||||
303@->* "LNG"
|
||||
304@->* "AGE"
|
||||
305@->* "MSP"
|
||||
306@->* "POR"
|
||||
401@->* "Righe listini"
|
||||
601@->* "Contratti clienti"
|
||||
701@->* "Indirizzi di spedizione"
|
||||
801@->* "Indirizzi di spedizione"
|
||||
901@->* "Tabella banche"
|
||||
902@->* "Tabella banche"
|
||||
1001@->* "Tabella Note Documento"
|
||||
1002@->* "Tabella Note Documento"
|
||||
1101@->* "Comuni"
|
||||
1102@->* "Comuni"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
@ -59,34 +52,35 @@ BEGIN
|
||||
SIZE 12
|
||||
END
|
||||
|
||||
///////////////////////////////////////////////
|
||||
SECTION HEADER ODD 28 0 -5
|
||||
|
||||
STRINGA 1 35 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 3 4 ""
|
||||
MESSAGE _DITTA &RAGSOC
|
||||
MESSAGE _DITTA 6->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 35 1
|
||||
BEGIN
|
||||
KEY "indirizzo ditta"
|
||||
PROMPT 3 5 ""
|
||||
MESSAGE _DITTA &IND
|
||||
MESSAGE _DITTA 6->INDRES
|
||||
END
|
||||
|
||||
STRINGA 3 5 1
|
||||
BEGIN
|
||||
KEY "cap ditta"
|
||||
PROMPT 3 6 ""
|
||||
MESSAGE _DITTA &CAP
|
||||
MESSAGE _DITTA 6->CAPRES
|
||||
END
|
||||
|
||||
STRINGA 4 30 1
|
||||
BEGIN
|
||||
KEY "comune ditta"
|
||||
PROMPT 10 6 ""
|
||||
MESSAGE _DITTA &COM
|
||||
MESSAGE _DITTA 6->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 5 5 1
|
||||
@ -99,7 +93,7 @@ STRINGA 6 16 1
|
||||
BEGIN
|
||||
KEY "partita iva ditta"
|
||||
PROMPT 9 7 ""
|
||||
MESSAGE _DITTA &IVA
|
||||
MESSAGE _DITTA 6->PAIV
|
||||
END
|
||||
|
||||
STRINGA 7 9 1
|
||||
@ -112,7 +106,7 @@ STRINGA 8 16 1
|
||||
BEGIN
|
||||
KEY "codice fiscale ditta"
|
||||
PROMPT 13 8 ""
|
||||
MESSAGE _DITTA-> &CF
|
||||
MESSAGE _DITTA-> 6->CODFI
|
||||
END
|
||||
|
||||
NUMERO 9 10 1
|
||||
@ -149,156 +143,167 @@ STRINGA 14 8 1
|
||||
BEGIN
|
||||
KEY "data fattura"
|
||||
PROMPT 61 21 ""
|
||||
FILED DATADOC
|
||||
FILED 33->DATADOC
|
||||
END
|
||||
|
||||
STRINGA 15 5 1
|
||||
BEGIN
|
||||
KEY "numero fattura"
|
||||
PROMPT 71 21 ""
|
||||
FIELD NDOC
|
||||
FIELD 33->NDOC
|
||||
END
|
||||
|
||||
STRINGA 16 4 1
|
||||
BEGIN
|
||||
KEY "codice cliente"
|
||||
PROMPT 3 23 ""
|
||||
FIELD CODCF
|
||||
FIELD 33->CODCF
|
||||
END
|
||||
|
||||
STRINGA 17 2 1
|
||||
BEGIN
|
||||
KEY "codice agente"
|
||||
PROMPT 9 23 ""
|
||||
FIELD CODAG
|
||||
FIELD 33->CODAG
|
||||
END
|
||||
|
||||
STRINGA 18 14 1
|
||||
BEGIN
|
||||
KEY "porto"
|
||||
PROMPT 52 23 ""
|
||||
FIELD %POR->S0
|
||||
FIELD 306@->S0
|
||||
END
|
||||
|
||||
NUMERO 19 7 1
|
||||
BEGIN
|
||||
KEY "ordine"
|
||||
PROMPT 12 23 ""
|
||||
FIELD NUMDOCRIF
|
||||
FIELD 33->NUMDOCRIF
|
||||
END
|
||||
|
||||
NUMERO 20 8 1
|
||||
BEGIN
|
||||
KEY "data conferma"
|
||||
PROMPT 20 23 ""
|
||||
FIELD DATADOCRIF
|
||||
FIELD 33->DATADOCRIF
|
||||
END
|
||||
|
||||
STRINGA 21 49 1
|
||||
BEGIN
|
||||
KEY "condizioni di pagamento"
|
||||
PROMPT 3 25 ""
|
||||
FIELD %CPGS0
|
||||
FIELD 901@->S0
|
||||
END
|
||||
|
||||
STRINGA 22 29 1
|
||||
BEGIN
|
||||
KEY "banca d'appoggio"
|
||||
PROMPT 54 25 ""
|
||||
FIELD %BAN->S0
|
||||
FIELD 901@->S0
|
||||
END
|
||||
|
||||
STRINGA 23 38 2
|
||||
STRINGA 23 38 1
|
||||
BEGIN
|
||||
KEY "ragione sociale cliente"
|
||||
KEY "cliente ragione sociale 1"
|
||||
PROMPT 44 11 ""
|
||||
FIELD 20->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 25 38 2
|
||||
STRINGA 24 38 1
|
||||
BEGIN
|
||||
KEY "indirizzo cliente"
|
||||
KEY "cliente ragione sociale 2"
|
||||
PROMPT 44 12 ""
|
||||
END
|
||||
|
||||
STRINGA 25 38 1
|
||||
BEGIN
|
||||
KEY "cliente indirizzo 1"
|
||||
PROMPT 44 13 ""
|
||||
FIELD 20->INDCF
|
||||
END
|
||||
|
||||
STRINGA 26 38 1
|
||||
BEGIN
|
||||
KEY "cliente indirizzo 2"
|
||||
PROMPT 44 14 ""
|
||||
END
|
||||
|
||||
STRINGA 27 5 1
|
||||
BEGIN
|
||||
KEY "cap cliente"
|
||||
KEY "cliente cap"
|
||||
PROMPT 44 15 ""
|
||||
FIELD 20->CAPCF
|
||||
END
|
||||
|
||||
STRINGA 28 30 2
|
||||
STRINGA 28 30 1
|
||||
BEGIN
|
||||
KEY "localita' cliente"
|
||||
KEY "cliente localita 1"
|
||||
PROMPT 50 15 ""
|
||||
FIELD 20->LOCALITACF
|
||||
END
|
||||
|
||||
// STRINGA 30 2 1
|
||||
// BEGIN
|
||||
// KEY "cliente provincia"
|
||||
// PROMPT 73 16 ""
|
||||
// END
|
||||
STRINGA 29 20 1
|
||||
BEGIN
|
||||
KEY "cliente localita 2"
|
||||
PROMPT 50 16 ""
|
||||
END
|
||||
|
||||
// STRINGA 31 2 1
|
||||
// BEGIN
|
||||
// KEY "azzera totalizzatore 1"
|
||||
// PROMPT 73 16 ""
|
||||
// END
|
||||
STRINGA 30 2 1
|
||||
BEGIN
|
||||
KEY "cliente provincia"
|
||||
PROMPT 73 16 ""
|
||||
END
|
||||
|
||||
STRINGA 31 2 1
|
||||
BEGIN
|
||||
KEY "azzera totalizzatore 1"
|
||||
PROMPT 73 16 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
/////////////////////////////////////////////////
|
||||
SECTION BODY ODD 22
|
||||
|
||||
STRINGA 32 13 1
|
||||
BEGIN
|
||||
KEY "codice articolo"
|
||||
PROMPT 5 2 ""
|
||||
FIELD 34->CODART
|
||||
PROMPT 2 ""
|
||||
FIELD 101@->CODART
|
||||
END
|
||||
|
||||
STRINGA 33 19 1
|
||||
BEGIN
|
||||
KEY "descrizione articolo"
|
||||
PROMPT 10 17 ""
|
||||
FIELD 47->DESCR
|
||||
PROMPT 17 ""
|
||||
FIELD 401@->DESCR
|
||||
END
|
||||
|
||||
STRINGA 34 3 1
|
||||
BEGIN
|
||||
KEY "unita' di misura"
|
||||
PROMPT 15 38 ""
|
||||
FIELD 34->UMQTA
|
||||
PROMPT 38 ""
|
||||
END
|
||||
|
||||
STRINGA 35 8 1
|
||||
BEGIN
|
||||
KEY "quantita'"
|
||||
PROMPT 20 42 ""
|
||||
FIELD 34->QTA
|
||||
PROMPT 42 ""
|
||||
FIELD 101@->QTA
|
||||
END
|
||||
|
||||
STRINGA 36 10 1
|
||||
BEGIN
|
||||
KEY "prezzo unitario"
|
||||
PROMPT 25 52 ""
|
||||
FIELD 34->PREZZO
|
||||
PROMPT 52 ""
|
||||
END
|
||||
|
||||
STRINGA 37 3 1
|
||||
BEGIN
|
||||
KEY "sconto"
|
||||
PROMPT 30 64 ""
|
||||
FIELD 34->SCONTO
|
||||
PROMPT 64 ""
|
||||
END
|
||||
|
||||
STRINGA 38 11 1
|
||||
BEGIN
|
||||
KEY "importo netto"
|
||||
PROMPT 68 ""
|
||||
MESSAGE _COD_RIGA IMPNETTO
|
||||
END
|
||||
|
||||
STRINGA 39 3 1
|
||||
@ -309,44 +314,31 @@ END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER ODD 1
|
||||
|
||||
STRINGA 76 5 1
|
||||
BEGIN
|
||||
KEY "stampa 'segue' in coda"
|
||||
PROMPT 73 70 "segue"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 17
|
||||
///////////////////////////////////////////////////
|
||||
SECTION FOOTER ODD
|
||||
|
||||
STRINGA 40 11 1
|
||||
BEGIN
|
||||
KEY "spese di trasporto"
|
||||
PROMPT 42 53 ""
|
||||
MESSAGE _COD_TESTA SPTRAS
|
||||
END
|
||||
|
||||
STRINGA 41 6 1
|
||||
BEGIN
|
||||
KEY "spese di incasso"
|
||||
PROMPT 56 63 ""
|
||||
MESSAGE _COD_TESTA SPINC
|
||||
END
|
||||
|
||||
STRINGA 42 11 1
|
||||
BEGIN
|
||||
KEY "spese di imballo"
|
||||
PROMPT 56 53 ""
|
||||
MESSAGE _COD_TESTA SPIMB
|
||||
END
|
||||
|
||||
STRINGA 43 5 1
|
||||
BEGIN
|
||||
KEY "spese bolli"
|
||||
PROMPT 64 63 ""
|
||||
MESSAGE _COD_TESTA SPBOL
|
||||
END
|
||||
|
||||
STRINGA 44 11 1
|
||||
@ -443,35 +435,30 @@ STRINGA 59 12 1
|
||||
BEGIN
|
||||
KEY "totale imponibile"
|
||||
PROMPT 6 63 ""
|
||||
MESSAGE _COD_TESTA TIMP
|
||||
END
|
||||
|
||||
STRINGA 60 11 1
|
||||
BEGIN
|
||||
KEY "totale imposta"
|
||||
PROMPT 23 63 ""
|
||||
MESSAGE _COD_TESTA TIMPS
|
||||
END
|
||||
|
||||
STRINGA 61 9 1
|
||||
BEGIN
|
||||
KEY "totale esenti"
|
||||
PROMPT 36 63 ""
|
||||
MESSAGE _COD_TESTA TESEN
|
||||
END
|
||||
|
||||
STRINGA 62 11 1
|
||||
BEGIN
|
||||
KEY "totale importi netti"
|
||||
PROMPT 3 53 ""
|
||||
MESSAGE _COD_TESTA IMPNETTO
|
||||
END
|
||||
|
||||
STRINGA 63 12 1
|
||||
BEGIN
|
||||
KEY "totale fattura"
|
||||
PROMPT 71 63 ""
|
||||
MESSAGE _COD_TESTA TFATT
|
||||
END
|
||||
|
||||
STRINGA 64 8 1
|
||||
@ -544,9 +531,17 @@ STRINGA 75 12 1
|
||||
BEGIN
|
||||
KEY "netto da pagare"
|
||||
PROMPT 71 66 ""
|
||||
MESSAGE _COD_TESTA IMPNETTO // cosi' il netto da pagare e' uguale al totale importi netti. Controllare se deve essere cosi'
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
////////////////////////////////////
|
||||
SECTION FOOTER LAST 1
|
||||
|
||||
STRINGA 76 5 1
|
||||
BEGIN
|
||||
KEY "stampa 'segue' in coda"
|
||||
PROMPT 73 70 "segue"
|
||||
END
|
||||
|
||||
END
|
||||
Loading…
x
Reference in New Issue
Block a user