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

Modifiche a moduli per fatture e fatture accompagnatorie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1914 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
gianluca 1995-10-02 11:07:08 +00:00
parent 9932a66b8c
commit ef997a0fe7
2 changed files with 181 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

169
ve/veacc.frm
View File

@ -1,46 +1,47 @@
// Completare la sezione "iva" nel body
USE 33 USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 34 ALIAS 101 INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN 17 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 17 ALIAS 201 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN 20 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 20 ALIAS 202 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN 16 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN %CPG ALIAS 301 INTO CODTAB=CODPAG
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN %VAL ALIAS 302 INTO CODTAB=CODVAL
JOIN 47 TO 34 INTO CODART==CODART JOIN %LNG ALIAS 303 INTO CODTAB=CODLIN
JOIN 52 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN AGE ALIAS 304 INTO CODTAB=CODAG
JOIN %CPG INTO CODTAB==CODPAG JOIN MSP ALIAS 305 INTO CODTAB=CODSPMEZZO
JOIN %AGE INTO CODTAB==CODAG JOIN POR ALIAS 306 INTO CODTAB=CODPORTO
JOIN %POR INTO CODTAB==CODPORTO JOIN 47 TO 101@ ALIAS 401 INTO CODART=CODART
JOIN %BAN INTO CODTAB==CODABIA+CODCABA JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN %VET INTO CODTAB==CODVETT1 JOIN 16 ALIAS 701 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
JOIN %ASP INTO CODTAB==ASPBENI1 JOIN 16 TO 201@ ALIAS 801 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
JOIN %BAN ALIAS 901 INTO CODTAB=CODABIA+CODCABA
/* da togliere, perché vengono usati i messaggi _ISAMREAD JOIN %BAN ALIAS 902 INTO CODTAB=CODABIP+CODCABP
JOIN %BAN INTO CODTAB==CODABIA+CODCABA JOIN NDO ALIAS 1001 INTO CODTAB=CODNOTESP1
JOIN %BAN INTO CODTAB==CODABIP+CODCABP JOIN NDO ALIAS 1002 INTO CODTAB=CODNOTESP2
JOIN NDO INTO CODTAB==CODNOTESP1 JOIN 13 TO 304@ ALIAS 1101 INTO COM=COMCF
JOIN NDO INTO CODTAB==CODNOTESP2 JOIN 13 TO 304@ ALIAS 1102 INTO COM=COM
JOIN 13 TO 304@ ALIAS 1101 INTO COM==COMCF
JOIN 13 TO 304@ ALIAS 1102 INTO COM==COM
*/
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
33->* "Documenti di vendita" 33->* "Documenti di vendita"
34->* "Righe documenti di vendita" 101@->* "Righe documenti di vendita"
17->* "Clienti/Fornitori per vendite" 201@->* "Clienti/Fornitori per vendite"
20->* "Clienti/Fornitori" 202@->* "Clienti/Fornitori"
47 ->* "Righe listini" 301@->* "CPG"
52 ->* "Contratti clienti" 302@->* "VAL"
16 ->* "Indirizzi di spedizione" 303@->* "LNG"
116->* "Indirizzi di spedizione" 304@->* "AGE"
%CPG->* "Condizioni di pagamento" 305@->* "MSP"
%AGE ->* "Agenti" 306@->* "POR"
%MSP ->* "Modalità di spedizioni" 401@->* "Righe listini"
%POR ->* "Modalità di consegna" 601@->* "Contratti clienti"
%BAN ->* "Banche" 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 END
GENERAL GENERAL
@ -56,28 +57,28 @@ STRINGA 1 36 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 5 1 "" PROMPT 5 1 ""
MESSAGE _DITTA &RAGSOC MESSAGE _DITTA6->RAGSOC
END END
STRINGA 2 36 1 STRINGA 2 36 1
BEGIN BEGIN
KEY "indirizzo ditta" KEY "indirizzo ditta"
PROMPT 5 2 "" PROMPT 5 2 ""
MESSAGE _DITTA &IND MESSAGE _DITTA6->INDRES
END END
STRINGA 3 5 1 STRINGA 3 5 1
BEGIN BEGIN
KEY "cap ditta" KEY "cap ditta"
PROMPT 5 3 "" PROMPT 5 3 ""
MESSAGE _DITTA &CAP MESSAGE _DITTA6->CAPRES
END END
STRINGA 4 30 1 STRINGA 4 30 1
BEGIN BEGIN
KEY "comune ditta" KEY "comune ditta"
PROMPT 12 3 "" PROMPT 12 3 ""
MESSAGE _DITTA &COM MESSAGE _DITTA113@->DENCOM
END END
STRINGA 5 5 1 STRINGA 5 5 1
@ -90,7 +91,7 @@ STRINGA 6 16 1
BEGIN BEGIN
KEY "partita iva ditta" KEY "partita iva ditta"
PROMPT 11 4 "" PROMPT 11 4 ""
MESSAGE _DITTA &IVA MESSAGE _DITTA6->PAIV
END END
STRINGA 7 9 1 STRINGA 7 9 1
@ -103,7 +104,7 @@ STRINGA 8 16 1
BEGIN BEGIN
KEY "codice fiscale ditta" KEY "codice fiscale ditta"
PROMPT 15 5 "" PROMPT 15 5 ""
MESSAGE _DITTA &CF MESSAGE _DITTA6->CODFI
END END
NUMERO 9 NUMERO 9
@ -140,147 +141,132 @@ STRINGA 14 36 2
BEGIN BEGIN
KEY "destinatario, ditta" KEY "destinatario, ditta"
PROMPT 44 10 "" PROMPT 44 10 ""
FIELD 20->RAGSOC FIELD 202@->RAGSOC
END END
STRINGA 15 36 2 STRINGA 15 36 2
BEGIN BEGIN
KEY "destinatario, indirizzo" KEY "destinatario, indirizzo"
PROMPT 44 12 "" PROMPT 44 12 ""
FIELD 20->INDCF FIELD 202@->INDCF
END
STRINGA 83 5 1
BEGIN
FLAGS "H"
PROMPT 1 1 ""
FIELD 116@->COM
END END
STRINGA 16 5 1 STRINGA 16 5 1
BEGIN BEGIN
KEY "destinatario, cap" KEY "destinatario, cap"
PROMPT 44 14 "" PROMPT 44 14 ""
MESSAGE _ISAMREAD 13 COM=#83 CAPCOM FIELD 1101@->CAPCOM
END END
STRINGA 17 30 2 STRINGA 17 30 2
BEGIN BEGIN
KEY "destinatario, comune " KEY "destinatario, comune "
PROMPT 50 14 "" PROMPT 50 14 ""
MESSAGE _ISAMREAD 13 COM=#83 DENCOM FIELD 1101@->DENCOM
END END
STRINGA 18 2 1 STRINGA 18 2 1
BEGIN BEGIN
KEY "destinatario, provincia" KEY "destinatario, provincia"
PROMPT 77 15 "" PROMPT 77 15 ""
MESSAGE _ISAMREAD 13 COM=#83 PROVCOM FIELD 1101@->PROVCOM
END END
STRINGA 19 8 1 STRINGA 19 8 1
BEGIN BEGIN
KEY "data bolla" KEY "data bolla"
PROMPT 58 19 "" PROMPT 58 19 ""
FIELD DATADOC FIELD 33->DATADOC
END END
STRINGA 20 5 1 STRINGA 20 5 1
BEGIN BEGIN
KEY "numero bolla" KEY "numero bolla"
PROMPT 67 19 "" PROMPT 67 19 ""
FIELD NDOC FIELD 33->NDOC
END END
STRINGA 21 30 1 STRINGA 21 30 1
BEGIN BEGIN
KEY "destinazione, indirizzo" KEY "destinazione, indirizzo"
PROMPT 1 10 "" PROMPT 1 10 ""
FIELD 16->INDIR FIELD 701@->INDIR
END END
STRINGA 83 30 1 STRINGA 83 30 1
BEGIN BEGIN
KEY "destinazione, cap" KEY "destinazione, cap"
PROMPT 1 12 "" PROMPT 1 12 ""
FIELD 16->CAP FIELD 1102@->CAPCOM
END
STRINGA 84 50 1
BEGIN
FLAGS "H"
PROMPT 1 1 ""
FIELD 16->COM
END END
STRINGA 83 30 1 STRINGA 83 30 1
BEGIN BEGIN
KEY "destinazione, comune" KEY "destinazione, comune"
PROMPT 1 14 "" PROMPT 1 14 ""
MESSAGE _ISAMREAD 13 COM=#84 DENCOM FIELD 1102@->DENCOM
END END
STRINGA 22 26 1 STRINGA 22 26 1
BEGIN BEGIN
KEY "ordine" KEY "ordine"
PROMPT 1 19 "" PROMPT 1 19 ""
FIELD NUMDOCRIF FIELD 33->NUMDOCRIF
END END
STRINGA 23 8 1 STRINGA 23 8 1
BEGIN BEGIN
KEY "data conferma" KEY "data conferma"
PROMPT 28 19 "" PROMPT 28 19 ""
FIELD DATADOCRIF FIELD 33->DATADOCRIF
END END
STRINGA 24 48 1 STRINGA 24 48 1
BEGIN BEGIN
KEY "condizioni di pagamento" KEY "condizioni di pagamento"
PROMPT 1 21 "" PROMPT 1 21 ""
FIELD %CPG->S0 FIELD 301@->S0
END END
STRINGA 25 29 1 STRINGA 25 29 1
BEGIN BEGIN
KEY "banca d'appoggio" KEY "banca d'appoggio"
PROMPT 50 21 "" PROMPT 50 21 ""
FIELD %BAN->S0 FIELD 901@->S0
END END
STRINGA 26 8 1 STRINGA 26 8 1
BEGIN BEGIN
KEY "codice cliente" KEY "codice cliente"
PROMPT 5 23 "" PROMPT 5 23 ""
FIELD CODCF FIELD 33->CODCF
END END
STRINGA 27 16 1 STRINGA 27 16 1
BEGIN BEGIN
KEY "partita iva cliente" KEY "partita iva cliente"
PROMPT 16 23 "" PROMPT 16 23 ""
FIELD 20->PAIV FIELD 202@->PAIV
END END
STRINGA 28 25 1 STRINGA 28 25 1
BEGIN BEGIN
KEY "porto" KEY "porto"
PROMPT 35 23 "" PROMPT 35 23 ""
FIELD %POR->S0 FIELD 306@->S0
END END
STRINGA 29 3 1 STRINGA 29 3 1
BEGIN BEGIN
KEY "codice agente" KEY "codice agente"
PROMPT 1 23 "" PROMPT 1 23 ""
FIELD CODAG FIELD 33->CODAG
END END
STRINGA 30 21 1 STRINGA 30 21 1
BEGIN BEGIN
KEY "vettore" KEY "vettore"
PROMPT 59 23 "" PROMPT 59 23 ""
FIELD %VET->S0
END END
END END
@ -291,49 +277,45 @@ STRINGA 31 8 1
BEGIN BEGIN
KEY "codice articolo" KEY "codice articolo"
PROMPT 1 0 "" PROMPT 1 0 ""
FIELD 34->CODART FIELD 101@->CODART
END END
STRINGA 32 30 1 STRINGA 32 30 1
BEGIN BEGIN
KEY "descrizione articolo" KEY "descrizione articolo"
PROMPT 17 0 "" PROMPT 17 0 ""
FIELD 47->DESCR FIELD 401@->DESCR
END END
NUMERO 33 NUMERO 33
BEGIN BEGIN
KEY "unita' di misura" KEY "unita' di misura"
PROMPT 46 0 "" PROMPT 46 0 ""
FIELD 34->UMQTA
END END
STRINGA 34 6 1 STRINGA 34 6 1
BEGIN BEGIN
KEY "quantita'" KEY "quantita'"
PROMPT 10 0 "" PROMPT 10 0 ""
FIELD 34->QTA FIELD 101@->QTA
END END
STRINGA 35 8 1 STRINGA 35 8 1
BEGIN BEGIN
KEY "prezzo unitario" KEY "prezzo unitario"
PROMPT 48 0 "" PROMPT 48 0 ""
FIELD 34->PREZZO
END END
STRINGA 36 8 1 STRINGA 36 8 1
BEGIN BEGIN
KEY "sconto" KEY "sconto"
PROMPT 57 0 "" PROMPT 57 0 ""
FIELD 34->SCONTO
END END
STRINGA 37 9 1 STRINGA 37 9 1
BEGIN BEGIN
KEY "importo netto" KEY "importo netto"
PROMPT 66 0 "" PROMPT 66 0 ""
MESSAGE _COD_RIGA IMPNETTO
END END
STRINGA 38 3 1 STRINGA 38 3 1
@ -344,7 +326,7 @@ END
END END
SECTION FOOTER ODD 1 SECTION FOOTER LAST 1
STRINGA 71 5 1 STRINGA 71 5 1
BEGIN BEGIN
@ -354,27 +336,24 @@ END
END END
SECTION FOOTER LAST 20 SECTION FOOTER ODD 20
STRINGA 39 11 1 STRINGA 39 11 1
BEGIN BEGIN
KEY "spese di trasporto" KEY "spese di trasporto"
PROMPT 43 52 "" PROMPT 43 52 ""
_COD_TESTA SPTRAS
END END
STRINGA 40 11 1 STRINGA 40 11 1
BEGIN BEGIN
KEY "spese di incasso" KEY "spese di incasso"
PROMPT 55 50 "" PROMPT 55 50 ""
MESSAGE _COD_TESTA SPINC
END END
STRINGA 41 11 1 STRINGA 41 11 1
BEGIN BEGIN
KEY "spese bolli" KEY "spese bolli"
PROMPT 55 52 "" PROMPT 55 52 ""
MESSAGE _COD_TESTA SPBOL
END END
STRINGA 42 21 1 STRINGA 42 21 1
@ -500,61 +479,55 @@ END
STRINGA 62 6 1 STRINGA 62 6 1
BEGIN BEGIN
KEY "stampa totali" KEY "stampa totali"
PROMPT 1 54 "TOT." PROMPT 1 54 ""
END END
STRINGA 63 12 1 STRINGA 63 12 1
BEGIN BEGIN
KEY "totale imponibile" KEY "totale imponibile"
PROMPT 4 54 "" PROMPT 4 54 ""
MESSAGE _COD_TESTA TIMP
END END
STRINGA 64 11 1 STRINGA 64 11 1
BEGIN BEGIN
KEY "totale imposta" KEY "totale imposta"
PROMPT 22 54 "" PROMPT 22 54 ""
MESSAGE _COD_TESTA TIMPS
END END
STRINGA 65 11 1 STRINGA 65 11 1
BEGIN BEGIN
KEY "totale importi netti" KEY "totale importi netti"
PROMPT 68 48 "" PROMPT 68 48 ""
MESSAGE _COD_TESTA IMPNETTO
END END
STRINGA 66 11 1 STRINGA 66 11 1
BEGIN BEGIN
KEY "spese di imballo" KEY "spese di imballo"
PROMPT 43 50 "" PROMPT 43 50 ""
MESSAGE _COD_TESTA SPIMB
END END
STRINGA 67 2 1 STRINGA 67 2 1
BEGIN BEGIN
KEY "cancella 'iva' per sp. tras" KEY "cancella 'iva' per sp. tras"
PROMPT 43 51 "--" PROMPT 43 51 ""
END END
STRINGA 68 8 1 STRINGA 68 8 1
BEGIN BEGIN
KEY "scritta 'spese di trasporto'" KEY "scritta spese di trasporto"
PROMPT 45 51 "S.TRASP." PROMPT 45 51 ""
END END
STRINGA 69 11 1 STRINGA 69 11 1
BEGIN BEGIN
KEY "totale imposta" KEY "totale imposta"
PROMPT 68 52 "" PROMPT 68 52 ""
MESSAGE _COD_TESTA TIMPS
END END
STRINGA 70 11 1 STRINGA 70 11 1
BEGIN BEGIN
KEY "totale fattura" KEY "totale fattura"
PROMPT 68 54 "" PROMPT 68 54 ""
MESSAGE _COD_TESTA TFATT
END END
STRINGA 72 1 1 STRINGA 72 1 1

225
ve/vefat.frm
View File

@ -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 USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 34 ALIAS 101 INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN 17 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 17 ALIAS 201 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN 20 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 20 ALIAS 202 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN 16 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN %CPG ALIAS 301 INTO CODTAB=CODPAG
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP JOIN %VAL ALIAS 302 INTO CODTAB=CODVAL
JOIN 47 TO 34 INTO CODART==CODART JOIN %LNG ALIAS 303 INTO CODTAB=CODLIN
JOIN 52 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN AGE ALIAS 304 INTO CODTAB=CODAG
JOIN %CPG INTO CODTAB==CODPAG JOIN MSP ALIAS 305 INTO CODTAB=CODSPMEZZO
JOIN %AGE INTO CODTAB==CODAG JOIN POR ALIAS 306 INTO CODTAB=CODPORTO
JOIN %POR INTO CODTAB==CODPORTO JOIN 47 TO 101@ ALIAS 401 INTO CODART=CODART
JOIN %BAN INTO CODTAB==CODABIA+CODCABA JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF
JOIN %VET INTO CODTAB==CODVETT1 JOIN 16 ALIAS 701 INTO TIPOCF=TIPOCF CODCF=CODCF CODIND=CODINDSP
JOIN %ASP INTO CODTAB==ASPBENI1 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 END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
33->* "Documenti di vendita" 33->* "Documenti di vendita"
34->* "Righe documenti di vendita" 101@->* "Righe documenti di vendita"
17->* "Clienti/Fornitori per vendite" 201@->* "Clienti/Fornitori per vendite"
20->* "Clienti/Fornitori" 202@->* "Clienti/Fornitori"
47 ->* "Righe listini" 301@->* "CPG"
52 ->* "Contratti clienti" 302@->* "VAL"
16 ->* "Indirizzi di spedizione" 303@->* "LNG"
116->* "Indirizzi di spedizione" 304@->* "AGE"
%CPG->* "Condizioni di pagamento" 305@->* "MSP"
%AGE ->* "Agenti" 306@->* "POR"
%MSP ->* "Modalità di spedizioni" 401@->* "Righe listini"
%POR ->* "Modalità di consegna" 601@->* "Contratti clienti"
%BAN ->* "Banche" 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 END
GENERAL GENERAL
@ -59,34 +52,35 @@ BEGIN
SIZE 12 SIZE 12
END END
///////////////////////////////////////////////
SECTION HEADER ODD 28 0 -5 SECTION HEADER ODD 28 0 -5
STRINGA 1 35 1 STRINGA 1 35 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 3 4 "" PROMPT 3 4 ""
MESSAGE _DITTA &RAGSOC MESSAGE _DITTA 6->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 6->INDRES
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 6->CAPRES
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 6->DENCOM
END END
STRINGA 5 5 1 STRINGA 5 5 1
@ -99,7 +93,7 @@ STRINGA 6 16 1
BEGIN BEGIN
KEY "partita iva ditta" KEY "partita iva ditta"
PROMPT 9 7 "" PROMPT 9 7 ""
MESSAGE _DITTA &IVA MESSAGE _DITTA 6->PAIV
END END
STRINGA 7 9 1 STRINGA 7 9 1
@ -112,7 +106,7 @@ 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-> 6->CODFI
END END
NUMERO 9 10 1 NUMERO 9 10 1
@ -149,156 +143,167 @@ STRINGA 14 8 1
BEGIN BEGIN
KEY "data fattura" KEY "data fattura"
PROMPT 61 21 "" PROMPT 61 21 ""
FILED DATADOC FILED 33->DATADOC
END END
STRINGA 15 5 1 STRINGA 15 5 1
BEGIN BEGIN
KEY "numero fattura" KEY "numero fattura"
PROMPT 71 21 "" PROMPT 71 21 ""
FIELD NDOC FIELD 33->NDOC
END END
STRINGA 16 4 1 STRINGA 16 4 1
BEGIN BEGIN
KEY "codice cliente" KEY "codice cliente"
PROMPT 3 23 "" PROMPT 3 23 ""
FIELD CODCF FIELD 33->CODCF
END END
STRINGA 17 2 1 STRINGA 17 2 1
BEGIN BEGIN
KEY "codice agente" KEY "codice agente"
PROMPT 9 23 "" PROMPT 9 23 ""
FIELD CODAG FIELD 33->CODAG
END END
STRINGA 18 14 1 STRINGA 18 14 1
BEGIN BEGIN
KEY "porto" KEY "porto"
PROMPT 52 23 "" PROMPT 52 23 ""
FIELD %POR->S0 FIELD 306@->S0
END END
NUMERO 19 7 1 NUMERO 19 7 1
BEGIN BEGIN
KEY "ordine" KEY "ordine"
PROMPT 12 23 "" PROMPT 12 23 ""
FIELD NUMDOCRIF FIELD 33->NUMDOCRIF
END END
NUMERO 20 8 1 NUMERO 20 8 1
BEGIN BEGIN
KEY "data conferma" KEY "data conferma"
PROMPT 20 23 "" PROMPT 20 23 ""
FIELD DATADOCRIF FIELD 33->DATADOCRIF
END END
STRINGA 21 49 1 STRINGA 21 49 1
BEGIN BEGIN
KEY "condizioni di pagamento" KEY "condizioni di pagamento"
PROMPT 3 25 "" PROMPT 3 25 ""
FIELD %CPGS0 FIELD 901@->S0
END END
STRINGA 22 29 1 STRINGA 22 29 1
BEGIN BEGIN
KEY "banca d'appoggio" KEY "banca d'appoggio"
PROMPT 54 25 "" PROMPT 54 25 ""
FIELD %BAN->S0 FIELD 901@->S0
END END
STRINGA 23 38 2 STRINGA 23 38 1
BEGIN BEGIN
KEY "ragione sociale cliente" KEY "cliente ragione sociale 1"
PROMPT 44 11 "" PROMPT 44 11 ""
FIELD 20->RAGSOC
END END
STRINGA 25 38 2 STRINGA 24 38 1
BEGIN 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 "" PROMPT 44 13 ""
FIELD 20->INDCF END
STRINGA 26 38 1
BEGIN
KEY "cliente indirizzo 2"
PROMPT 44 14 ""
END END
STRINGA 27 5 1 STRINGA 27 5 1
BEGIN BEGIN
KEY "cap cliente" KEY "cliente cap"
PROMPT 44 15 "" PROMPT 44 15 ""
FIELD 20->CAPCF
END END
STRINGA 28 30 2 STRINGA 28 30 1
BEGIN BEGIN
KEY "localita' cliente" KEY "cliente localita 1"
PROMPT 50 15 "" PROMPT 50 15 ""
FIELD 20->LOCALITACF
END END
// STRINGA 30 2 1 STRINGA 29 20 1
// BEGIN BEGIN
// KEY "cliente provincia" KEY "cliente localita 2"
// PROMPT 73 16 "" PROMPT 50 16 ""
// END END
// STRINGA 31 2 1 STRINGA 30 2 1
// BEGIN BEGIN
// KEY "azzera totalizzatore 1" KEY "cliente provincia"
// PROMPT 73 16 "" PROMPT 73 16 ""
// END END
STRINGA 31 2 1
BEGIN
KEY "azzera totalizzatore 1"
PROMPT 73 16 ""
END
END END
/////////////////////////////////////////////////
SECTION BODY ODD 22 SECTION BODY ODD 22
STRINGA 32 13 1 STRINGA 32 13 1
BEGIN BEGIN
KEY "codice articolo" KEY "codice articolo"
PROMPT 5 2 "" PROMPT 2 ""
FIELD 34->CODART FIELD 101@->CODART
END END
STRINGA 33 19 1 STRINGA 33 19 1
BEGIN BEGIN
KEY "descrizione articolo" KEY "descrizione articolo"
PROMPT 10 17 "" PROMPT 17 ""
FIELD 47->DESCR FIELD 401@->DESCR
END END
STRINGA 34 3 1 STRINGA 34 3 1
BEGIN BEGIN
KEY "unita' di misura" KEY "unita' di misura"
PROMPT 15 38 "" PROMPT 38 ""
FIELD 34->UMQTA
END END
STRINGA 35 8 1 STRINGA 35 8 1
BEGIN BEGIN
KEY "quantita'" KEY "quantita'"
PROMPT 20 42 "" PROMPT 42 ""
FIELD 34->QTA FIELD 101@->QTA
END END
STRINGA 36 10 1 STRINGA 36 10 1
BEGIN BEGIN
KEY "prezzo unitario" KEY "prezzo unitario"
PROMPT 25 52 "" PROMPT 52 ""
FIELD 34->PREZZO
END END
STRINGA 37 3 1 STRINGA 37 3 1
BEGIN BEGIN
KEY "sconto" KEY "sconto"
PROMPT 30 64 "" PROMPT 64 ""
FIELD 34->SCONTO
END END
STRINGA 38 11 1 STRINGA 38 11 1
BEGIN BEGIN
KEY "importo netto" KEY "importo netto"
PROMPT 68 "" PROMPT 68 ""
MESSAGE _COD_RIGA IMPNETTO
END END
STRINGA 39 3 1 STRINGA 39 3 1
@ -309,44 +314,31 @@ END
END END
SECTION FOOTER ODD 1 ///////////////////////////////////////////////////
SECTION FOOTER ODD
STRINGA 76 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 70 "segue"
END
END
SECTION FOOTER LAST 17
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 _COD_TESTA 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 _COD_TESTA 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 _COD_TESTA 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 _COD_TESTA SPBOL
END END
STRINGA 44 11 1 STRINGA 44 11 1
@ -443,35 +435,30 @@ STRINGA 59 12 1
BEGIN BEGIN
KEY "totale imponibile" KEY "totale imponibile"
PROMPT 6 63 "" PROMPT 6 63 ""
MESSAGE _COD_TESTA 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 _COD_TESTA 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 _COD_TESTA 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 _COD_TESTA 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 _COD_TESTA TFATT
END END
STRINGA 64 8 1 STRINGA 64 8 1
@ -544,9 +531,17 @@ STRINGA 75 12 1
BEGIN BEGIN
KEY "netto da pagare" KEY "netto da pagare"
PROMPT 71 66 "" 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
END END
////////////////////////////////////
SECTION FOOTER LAST 1
STRINGA 76 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 70 "segue"
END
END END