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

Aggiunto programma di stampa dei documenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1683 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
gianluca 1995-08-07 08:41:34 +00:00
parent 8792453bd0
commit 30cf465247
7 changed files with 934 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ve/ve0100b.h Executable file
View File

@ -0,0 +1,7 @@
#ifndef __VE0100B_H
#define __VE0100B_H
int numerazione_definitiva(TLocalisamfile &); // prototipo della funzione di rinumerazione definitiva dei documenti
#endif // __VE0100B_H

21
ve/ve1.cpp Executable file
View File

@ -0,0 +1,21 @@
#include <xvt.h>
#include <checks.h>
#define __MAIN__
#include "ve1.h"
#define usage "Error - usage : %s -0 [params]"
int main(int argc,char** argv)
{
const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
switch(n)
{
case 0:
ve1100(argc,argv); break;
default:
error_box(usage, argv[0]); break;
}
return n < 0;
}

25
ve/ve1.h Executable file
View File

@ -0,0 +1,25 @@
#ifndef __VE1_H
#define __VE1_H
#ifndef __STRINGS_H
#include <strings.h>
#endif
int ve1100(int argc, char* argv[]);
#ifdef __MAIN__
#define extern
#endif
extern TString80 tmp;
#ifdef __MAIN__
#undef extern
#endif
#endif // __VE1_H

378
ve/ve1100.cpp Executable file
View File

@ -0,0 +1,378 @@
#include <applicat.h>
#include <config.h>
#include <form.h>
#include <mask.h>
#include <printer.h>
#include <relation.h>
#include <strings.h>
#include <expr.h>
#include <tabutil.h>
#include <urldefid.h>
#include <utility.h>
// !! fatto (in ordine d'esecuzione):
// !! ------------------------------
// !! - lettura parametri linea di comando per eventuale esecuzione batch
// !! - impostazione di flag di interattività posto a true se non ci sono parametri sulla linea
// !! di comando; influisce su:
// !! - apertura maschera richiesta dati
// !! - richiesta di stampa definitiva
// !! - richiesta d'interruzione in caso di stato non valido durante stampa definitiva
// !! - interruzione forzata in caso di impossibilità di rinumerazione definitiva
// !! - impostazione di flag di stampa definitiva (da linea di comando o richiesta con box);
// !! influisce su:
// !! - controllo stati durante la stampa
// !! - lancio della procedura di rinumerazione definitiva
// !! - lettura tabelle codice numerazione e tipo documento
// !! - lancio batch della stampa se sono presenti i parametri sulla linea di comando
// !! - creazione e apertura della maschera e lettura dati
// !! - impostazione della regione del cursore del form
// !! - ciclo di lettura del form con stampa della posizione corrente e lancio (eventuale)
// !! della rinumerazione
// !! - intercettazione dei seguenti messaggi custom nel form:
// !! - _ISAMREAD per letture generiche dal database
// !! - _TABLEREAD per lettura generiche da tabelle del database
// !! - _DITTA per ottenere dati di configurazione sulla ditta in uso
// !! - _CIFRELETTERE per la conversione di un valore in lettere
// !! - chiusura applicazione
// !! da fare:
// !! -------
// !! - tutto il resto
#include "ve1100.h"
#include "ve0100b.h"
////////////////////////////////////////////////////////////////////////////
// classe TDocVen_Form customizzata dalla Form per i documenti di vendita
////////////////////////////////////////////////////////////////////////////
class TDocVen_Form: public TForm {
TRelation &_firmrel; // relazione di gestione dei dati della ditta corrente
protected:
virtual bool validate(TForm_item &, TToken_string &);
public:
TDocVen_Form(const char *, TRelation &);
};
TDocVen_Form::TDocVen_Form(const char* name, TRelation &rel): TForm(name), _firmrel(rel) {
//_firmrel= rel; // prende il riferimento alla relazione di gestione dei dati della ditta
}
bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
const TString16 code(s.get(0)); // prende il primo parametro, il codice del messaggio
if (code== "_ISAMREAD") {
// lettura generica di un file del database
// sintassi: _ISAMREAD <file> <espressione input>,<espressione input>,... <espressione output>,<espressione output>,...
// dove: <file> è il numero logico del file o il nome della tabella
// <espressione input> è un'espressione del tipo <campo file>=<espressione campi form>
// <espressione campi form> è un'espressione di costanti numeriche, stringhe e valori di campi della form (indicati con il loro numero preceduto da @)
// <espressione output> è un'espressione del tipo <campo form o gruppo>=<campo file> (se è un gruppo deve essere seguito da @) oppure solo <campo file> (il campo della form è quello corrente)
int i, j, poseq, posrv, itms;
pagetype pt;
char sec;
TLocalisamfile *file;
TString f_code(s.get()); // prende il codice del file da leggere
if (atoi(f_code) != 0) file= new TLocalisamfile(atoi(f_code)); // se il codice è numerico allora è un file
else file= new TTable(f_code); // altrimenti è una tabella
TToken_string in(s.get(), ',');
for (i=0; i<in.items(); i++) { // scansione sugli elementi dell'input
TString curr(in.get(i));
poseq= curr.find("=="); // divide la stringa corrente in lvalue e rvalue
if (poseq== -1) {
poseq= curr.find('=');
if (poseq != -1) posrv= poseq+1;
} else posrv= poseq+2;
const TString &fld= curr.left(poseq); // preleva il nome del campo del file alla sinistra dell'uguale
const TString &expr= curr.mid(posrv); // preleva l'espressione di assegnamento alla destra dell'uguale
TExpression rval(expr, _strexpr);
for (j=0; j<rval.numvar(); j++) { // scansione delle variabili dell'espressione di rvalue
TString var= rval.varname(j);
if (var[0]=='@') var.ltrim(1); // rimuove dalla stringa il primo carattere
TForm_item &fi= cf.find_field(var);
rval.setvar(j, fi.get()); // il valore corrente del campo viene settato nell'espressione
}
file->put(fld, (const char *)rval); // scrive il risultato dell'espressione nel campo del file
}
if (file->read()== NOERR) { // tenta una lettura del file
TToken_string out(s.get(), ',');
for (i=0; i<out.items(); i++) { // scansione sugli elementi dell'output
TString curr(out.get(i));
poseq= curr.find("=="); // divide la stringa corrente in lvalue e rvalue
if (poseq== -1) {
poseq= curr.find('=');
if (poseq != -1) posrv= poseq+1;
} else posrv= poseq+2;
if (poseq== -1) {
const TString &dat= file->get(curr.mid(posrv)); // preleva il nome del campo del file alla destra dell'uguale e lo legge dal record
cf.set(dat); // setta il campo letto dal file nel campo corrente della form
} else {
TString fld= curr.left(poseq); // preleva il nome del campo del form alla sinistra dell'uguale
const TString &dat= file->get(curr.mid(posrv)); // preleva il nome del campo del file alla destra dell'uguale e lo legge dal record
if (fld.left(1)== "@") fld.ltrim(1);
if (fld.right(1)== "@") { // se c'è la a-commerciale è un gruppo
if (fld.find("->") != -1) { // se nel gruppo c'è la freccia si riferisce ad un'altra sezione
sec= fld[0];
if (fld[1] != '-') pt= char2page(fld[1]);
else pt= even_page;
itms= section(sec, pt).fields();
} else { // altrimenti si riferisce alla sezione corrente
sec= cf.section().section_type();
pt= cf.section().page_type();
itms= cf.section().fields();
}
for (j=0; j<itms; j++) { // per ogni campo della sezione specificata (o sottointesa)...
TForm_item &fi= section(sec, pt).field(j);
fi.set(dat); // ...il contenuto viene settato al valore del file
}
} else {
TForm_item &fi= cf.find_field(fld);
fi.set(dat);
}
}
}
}
delete file;
return (TRUE);
} // fine _ISAMREAD
if (code== "_TABLEREAD") {
// lettura generica di un campo di una tabella
// sintassi: _TABLEREAD <tabella> <chiave> <campo file>
// dove: <tabella> nome tabella da leggere
// <chiave> costante stringa o riferimento a campo della form da usare come chiave di ricerca
// <campo file> identificativo del campo da leggere dalla tabella
TTable tab(s.get()); // prende il nome della tabella
TString in(s.get()); // prende il valore o il campo da usare come codice di ricerca
if (in.left(1)== '@') {
in= in.mid(1);
TForm_item &fi= cf.find_field(in);
in= fi.get();
}
tab.put("CODTAB", in); // setta la chiave nella tabella
if (tab.read()== NOERR) {
const TString &fld= s.get(); // prende il nome del campo da leggere...
cf.set(tab.get(fld)); // ...e lo scrive nel campo del form
}
return (TRUE);
} // fine _TABLEREAD
if (code== "_DITTA") {
// lettura dei dati della ditta
// sintassi: _DITTA <campo relazione>
// dove: <campo relazione> è un riferimento alla relazione di gestione dei dati della ditta (es. 113@->DENCOM è la denominazione del comune di residenza della ditta)
// nota: la relazione di della ditta è così strutturata:
// %NDITTE (9) Dati ditte
// + %ANAGR (6) Anagrafica generale (indirizzo, ecc.)
// + %COMUNI (113@) Comune di residenza
// + %COMUNI (213@) Comune di residenza fiscale
TFieldref fref(s.get(), 0);
cf.set(fref.read(&_firmrel));
return (TRUE);
} // fine _DITTA
if (code== "_CIFRELETTERE") {
// conversione di un reale da cifre a lettere
// sintassi: _CIFRELETTERE
real n(cf.get());
cf.set(n.string("LETTERE"));
return (TRUE);
} // fine _CIFRELETTERE
return TForm::validate(cf, s); // se il codice del messaggio non è identificato viene passato alla funzione standard
}
//////////////////////////////////////////////////////////////////////////////////////////////
// classe TStampa_Doc_Vendita customizzata dalla TApplication per l'applicazione principale
//////////////////////////////////////////////////////////////////////////////////////////////
class TStampa_Doc_Vendita: public TApplication {
TString16 _codnum; // codice di numerazione
TString16 _provv; // stampa provvisioria
int _anno; // anno della documentazione
long _dalnum, _alnum; // estremi di numerazione dei documenti
TString16 _tipodoc; // tipo documento ricavato dal codice di numerazione
TString _profilo; // nome del profilo di stampa del form
TString _config; // nome del file di configurazione
TToken_string _stati; // token string con gli stati validi dei documenti
bool _interattivo; // flag che indica se il prog. funziona in interattivo o in batch
bool _definitiva; // flag che indica se la stampa è definitiva o no
TRelation *_firmrel; // puntatore alla relazione che gestisce i dati della ditta corrente
protected:
virtual bool create(void);
virtual bool destroy(void);
virtual bool menu(MENU_TAG);
int select(void);
int initialize(void);
virtual void print(void);
virtual void on_firm_change(void);
};
bool TStampa_Doc_Vendita::create() {
TApplication::create();
_firmrel= new TRelation(LF_NDITTE); // istanziamento e impostazione della relazione di gestione della ditta corrente
_firmrel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR");
_firmrel->add(LF_COMUNI, "COM=COMRES", 1, LF_ANAG, 100+LF_COMUNI);
_firmrel->add(LF_COMUNI, "COM=COMRF", 1, LF_ANAG, 200+LF_COMUNI);
if (argc()>2) { // lettura dei parametri iniziali dalla linea di comando
_codnum= argv(2); // il primo parametro è il codice di numerazione
_anno= atoi(argv(3)); // il secondo è l'anno
_provv= argv(4); // il terzo è il flag di numerazione provvisoria
_dalnum= atol(argv(5)); // il quarto è il numero di documento di partenza
_alnum= atol(argv(6)); // il quinto è il numero di documento di fine
_definitiva= (strcmp(argv(7), "D")==0); // il sesto è il flag di stampa definitiva
_interattivo= FALSE;
if (initialize()==1) print();
} else { // oppure lancio della maschera
_interattivo= TRUE;
dispatch_e_menu(BAR_ITEM(1));
}
return (TRUE);
}
bool TStampa_Doc_Vendita::destroy() {
delete _firmrel; // distruzione della relazione di gestione della ditta corrente
return TApplication::destroy();
}
void TStampa_Doc_Vendita::on_firm_change() {
TLocalisamfile &firmfile= _firmrel->lfile();
firmfile.put("CODDITTA", get_firm());
_firmrel->read();
}
int TStampa_Doc_Vendita::initialize() {
TTable num("NUM");
num.put("CODTAB", _codnum);
if (num.read()== NOERR) {
_tipodoc= num.get("S2"); // legge il tipo di documento dalla tabella codici di numerazione
TTable tip("TIP");
tip.put("CODTAB", _tipodoc);
if (tip.read()== NOERR) {
_config= tip.get("S4"); // legge il nome del file di configurazione
_profilo= tip.get("S5"); // legge il nome del profilo di stampa
TConfig config(_config);
config.set_paragraph("STAMPA");
if (config.exist("STATIVALIDI")) {
_stati= config.get("STATIVALIDI");
return (1); // 1 indica che è tutto a posto
} else return (-11); // -11 indica che non è stata trovata una variabile nel file di configurazione
} else return (-2); // -2 indica che c'è stato un errore nella lettura della tabella TIP
} else return (-1); // -1 indica che c'è stato un errore nella lettura della tabella NUM
}
int TStampa_Doc_Vendita::select() {
TMask m("ve1100a");
if (m.run() == K_ENTER) {
_codnum= m.get(F_CODNUM); // lettura dei dati dalla maschera
_anno= m.get_int(F_ANNO);
_provv= (m.get_bool(F_PROVV))?("P"):("D");
_dalnum= m.get_long(F_DA_NDOC);
_alnum= m.get_long(F_A_NDOC);
return (initialize());
} else return (0); // 0 indica che non si è usciti con "Conferma" dalla maschera
}
bool TStampa_Doc_Vendita::menu(MENU_TAG) { // procedura di dispatch dei menu
int s;
while ((s= select()) != 0) if (s==1) print(); // se la selezione della maschera ritorna 1 viene lanciata la stamapppa
return (FALSE);
}
void TStampa_Doc_Vendita::print() {
bool ok;
if (_interattivo) {
switch (yesnocancel_box("Inserire il modulo prefincato nella stampante. E' una stampa definitiva?")) {
case K_YES: _definitiva= ok= TRUE; break;
case K_NO: _definitiva= FALSE; ok= TRUE; break;
case K_ESC:
default: ok= FALSE; break;
}
} else ok= TRUE; // se il programma è lanciato in batch si considera già confermata la richiesta di stampa
if (ok) {
printer().open();
TDocVen_Form f(_profilo, *_firmrel);
TCursor &cur= *(f.cursor()); // ricava il riferimento al cursore originale del form
TLocalisamfile &doc= cur.file(); // ricava il riferimento al file principale del cursore
doc.put("CODNUM", _codnum); // si posiziona sul record di inizio cursore
doc.put("ANNO", _anno);
doc.put("PROVV", _provv);
doc.put("NDOC", _dalnum);
doc.read();
TRectype darec= doc.curr();
doc.put("NDOC", _alnum); // si posiziona sul record di fine cursore
doc.read();
TRectype arec= doc.curr();
cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa
for (int i= 0; i<cur.items(); i++) {
cur= i; // posiziona il cursore
if ((_stati.get_pos(doc.get("STATO"))== -1) && _definitiva) { // se lo stato del doc. corrente non è valido...
if (_interattivo) { // ...viene mostrata una richiesta d'interruzione in modo interattivo...
if (yesno_box("Non è possibile stampare un documento con stato non valido: interrompo la stampa?")) break;
} else break; // ...o viene interrotta brutalmente la stampa in modo batch
}
f.print(-1); // stampa il record corrente del form
if (_definitiva && (numerazione_definitiva(doc) != NOERR)) { // se la stampa è definitiva viene lanciata la procedura di rinumerazione
if (_interattivo) error_box("Non è possibile completare la procedura di numerazione definitiva dei documenti");
break;
}
}
printer().close();
}
}
int ve1100(int argc, char* argv[]) {
TStampa_Doc_Vendita a;
a.run(argc, argv, "Stampa doc. vendita");
return (0);
}

12
ve/ve1100.h Executable file
View File

@ -0,0 +1,12 @@
#define F_CODNUM 101
#define F_ANNO 102
#define F_PROVV 103
#define F_DATA_O_NUM 201
#define F_DA_NDOC 301
#define F_A_NDOC 302
#define F_DA_DATADOC 401
#define F_A_DATADOC 402

124
ve/ve1100a.uml Executable file
View File

@ -0,0 +1,124 @@
#include "ve1100.h"
PAGE "STAMPA DOCUMENTI VENDITA" -1 -1 40 19
STRING F_CODNUM 4 4
BEGIN
PROMPT 1 1 "Codice Num. "
USE NUM
INPUT CODTAB F_CODNUM
DISPLAY "Cod. Num." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
CHECKTYPE REQUIRED
END
NUMBER F_ANNO 4 0
BEGIN
PROMPT 26 1 "Anno "
CHECKTYPE REQUIRED
END
BOOLEAN F_PROVV
BEGIN
PROMPT 26 4 "Provvis."
END
RADIOBUTTON F_DATA_O_NUM 20
BEGIN
PROMPT 1 3 "Selezione su "
ITEM "N|Numero" MESSAGE ENABLE,1@|DISABLE,2@
ITEM "D|Data" MESSAGE ENABLE,2@|DISABLE,1@
END
GROUPBOX DLG_NULL 38 5
BEGIN
PROMPT 1 7 "Selezione per numero"
END
GROUPBOX DLG_NULL 38 5
BEGIN
PROMPT 1 12 "Selezione per data"
END
NUMBER F_DA_NDOC 7 0
BEGIN
PROMPT 2 8 "Dal num. "
USE 33 KEY 1
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM SELECT
INPUT ANNO F_ANNO SELECT
INPUT NDOC F_DA_NDOC
INPUT PROVV F_PROVV
DISPLAY "Data@10" DATADOC
DISPLAY "Numero@7" NDOC
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
DISPLAY "Comune@20" 13->DENCOM
OUTPUT F_DA_NDOC NDOC
OUTPUT F_DA_DATADOC DATADOC
GROUP 1
CHECKTYPE NORMAL
END
NUMBER F_A_NDOC 7 0
BEGIN
PROMPT 2 10 "Al num. "
COPY USE F_DA_NDOC
INPUT CODNUM F_CODNUM SELECT
INPUT ANNO F_ANNO SELECT
INPUT NDOC F_A_NDOC
INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC
OUTPUT F_A_NDOC NDOC
OUTPUT F_A_DATADOC DATADOC
GROUP 1
CHECKTYPE NORMAL
END
DATE F_DA_DATADOC
BEGIN
PROMPT 2 13 "Dalla data "
USE 33 KEY 3 SELECT CODNUM==#F_CODNUM|ANNO==#F_ANNO
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM
INPUT ANNO F_ANNO
INPUT DATADOC F_DA_DATADOC
INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC
OUTPUT F_DA_NDOC NDOC
OUTPUT F_DA_DATADOC DATADOC
GROUP 2
CHECKTYPE NORMAL
END
DATE F_A_DATADOC
BEGIN
PROMPT 2 15 "Alla data "
COPY USE F_DA_DATADOC
INPUT CODNUM F_CODNUM
INPUT ANNO F_ANNO
INPUT DATADOC F_A_DATADOC
INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC
OUTPUT F_A_NDOC NDOC
OUTPUT F_A_DATADOC DATADOC
GROUP 2
CHECKTYPE NORMAL
END
BUTTON DLG_SELECT 9 2
BEGIN
PROMPT -12 -1 "Selezione"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

367
ve/vebol.frm Executable file
View File

@ -0,0 +1,367 @@
USE 33
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 49 ALIAS 501 INTO CODLIS=CODLIST
JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF NCONTR=CODCONT
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"
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@->* "Anagrafica di magazzino"
501@->* "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
SECTION HEADER ODD 33 0 0
STRINGA 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 6 ""
END
STRINGA 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 7 ""
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 8 ""
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 8 ""
END
STRINGA 5 5 1
BEGIN
KEY "scritta P.IVA"
PROMPT 5 9 "P.IVA"
END
STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 9 ""
END
STRINGA 7 9 1
BEGIN
KEY "scritta COD.FISC."
PROMPT 5 10 "COD.FISC."
END
STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 10 ""
END
STRINGA 14 35 2
BEGIN
KEY "destinatario, ditta"
PROMPT 44 16 ""
FIELD 202@->RAGSOC
END
STRINGA 15 35 2
BEGIN
KEY "destinatario, indirizzo"
PROMPT 44 18 ""
FIELD 202@->INDCF
END
STRINGA 16 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 20 ""
FIELD 1101@->CAPCOM
END
STRINGA 17 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 20 ""
FIELD 1101@->DENCOM
END
STRINGA 18 2 1
BEGIN
KEY "destinatario, procincia"
PROMPT 82 21 ""
FIELD 1101@->PROVCOM
END
DATA 19 8 1
BEGIN
KEY "data bolla"
PROMPT 60 25 ""
FIELD 33->DATADOC
FORMAT "1444-"
END
NUMERO 20
BEGIN
KEY "numero bolla"
PROMPT 71 25 ""
FIELD 33->NDOC
END
STRINGA 21 30 2
BEGIN
KEY "destinazione, indirizzo"
PROMPT 5 16 ""
FIELD 701@->INDIR
END
STRINGA 32 5 1
BEGIN
KEY "destinazione, cap"
PROMPT 5 19 ""
FIELD 1102@->CAPCOM
END
STRINGA 33 21 1
BEGIN
KEY "destinazione, comune"
PROMPT 11 19 ""
FIELD 1102@->DENCOM
END
STRINGA 34 2
BEGIN
KEY "destinazione, provincia"
PROMPT 33 19 ""
FIELD 1102@->PROVCOM
END
NUMERO 22
BEGIN
KEY "ordine"
PROMPT 3 25 ""
FIELD 33->NUMDOCRIF
END
DATA 23 8 1
BEGIN
KEY "data conferma"
PROMPT 16 25 ""
FIELD 33->DATADOCRIF
FORMAT "1444-"
END
STRINGA 24 48 1
BEGIN
KEY "condizioni pagamento"
PROMPT 3 27 ""
FIELD 301@->S0
END
STRINGA 25 29 1
BEGIN
KEY "banca appoggio"
PROMPT 53 27 ""
FIELD 901@->S0
END
STRINGA 26 7 1
BEGIN
KEY "codice cliente"
PROMPT 3 29 ""
FIELD 33->CODCF
END
STRINGA 27 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 12 29 ""
FIELD 202@->PAIV
END
STRINGA 28 18 1
BEGIN
KEY "porto"
PROMPT 41 25 ""
FIELD 306@->S0
END
NUMERO 29
BEGIN
KEY "codice agente"
PROMPT 29 29 ""
FIELD 33->CODAG
END
STRINGA 30 28 1
BEGIN
KEY "nome agente"
PROMPT 33 29 ""
FIELD 304@->S0
END
STRINGA 31 19 1
BEGIN
KEY "causale"
PROMPT 63 29 ""
END
END
SECTION BODY ODD 24 0 0
STRINGA 32 13 1
BEGIN
KEY "codice articolo"
PROMPT 5 34 ""
FIELD 101@->CODART
END
STRINGA 33 30 1
BEGIN
KEY "descrizione articolo"
PROMPT 25 34 ""
FIELD 401@->DESCR
END
STRINGA 34 2 1
BEGIN
KEY "unità di misura"
PROMPT 56 34 ""
END
STRINGA 35 10 1
BEGIN
KEY "quantità"
PROMPT 60 34 ""
FIELD 101@->QTA
END
STRINGA 36 10 1
BEGIN
KEY "quantità lettere"
PROMPT 72 34 ""
END
END
SECTION FOOTER ODD 9 0 0
LISTA 37 1 1
BEGIN
KEY "trasporto a cura del mittente"
PROMPT 4 59 ""
ITEM "M|x"
END
LISTA 38 1 1
BEGIN
KEY "trasporto a cura del destinatario"
PROMPT 13 59 ""
ITEM "D|x"
END
LISTA 39 1 1
BEGIN
KEY "trasporto a cura del vettore"
PROMPT 23 59 ""
ITEM "V|x"
END
STRINGA 40 45 1
BEGIN
KEY "nome vettore"
PROMPT 3 62 ""
END
STRINGA 41 45 1
BEGIN
KEY "indirizzo vettore"
PROMPT 3 64 ""
END
DATA 42 8 1
BEGIN
KEY "data inizio trasporto"
PROMPT 51 61 ""
FIELD 33->DATAPART
FORMAT "1444-"
END
DATA 43 5 1
BEGIN
KEY "ora inizio trasporto"
PROMPT 60 61 ""
FIELD 33->ORAPART
FORMAT "1444-"
END
STRINGA 44 27 1
BEGIN
KEY "aspetto beni"
PROMPT 37 59 ""
END
STRINGA 45 7 1
BEGIN
KEY "peso"
PROMPT 73 59 ""
END
STRINGA 46 5 1
BEGIN
KEY "colli"
PROMPT 66 59 ""
END
END
SECTION FOOTER LAST 9 0 0
STRINGA 47 5 1
BEGIN
KEY "scritta SEGUE"
PROMPT 72 70 "SEGUE"
END
END
END