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

Lavoro sulla stampa vendite

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1905 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
gianluca 1995-09-28 15:26:35 +00:00
parent 9044963171
commit b8d971ef06
4 changed files with 377 additions and 332 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
ve/ve0100b.cpp
View File

@ -1,51 +1,35 @@
// DOVE COMPARE !! SONO STATE FATTE MODIFICHE DA GIANLUCA O GUIDO
// !!
#include <rectypes.h>
#include <relation.h>
#include <tabutil.h>
int numerazione_definitiva( TLocalisamfile& doc )
{ TTable tabnum( "NUM" );
TRectype &rec= doc.curr();
doc.read( rec, _lock );
TRectype oldrec( doc.curr() );
tabnum.zero( );
tabnum.put( "CODTAB", rec.get( "CODNUM" ) );
int err = tabnum.read( _lock );
// Modifico la chiave del record passato!
rec.put( "NDOC", tabnum.get_long( "I1" ) );
rec.put( "PROVV", "D" );
// !! Matteo, qui non manca qualcosina!? (tipo, che so', la scrittura del record...)
if ( err == NOERR )
{ // Aggiorno la tabella!
tabnum.put( "I1", tabnum.get_long( "I1" ) + 1 );
err = tabnum.rewrite();
}
doc.read( rec, _unlock );
// !! che casino! non si può prendere un record, bloccarlo, cambiargli la chiave,
// !! riscriverlo e poi sbloccarlo: deve essere letto e duplicato, modificato nella copia
// !! con la nuova chiave, scritto e cancellato il vecchio (!)... almeno così dice Guido.
// !! occhio! :-)
err = tabnum.read( _unlock );
if ( err = NOERR )
{
// carico le righe usando la vecchia chiave
TRecord_array righe_rec( LF_RIGHEDOC, "NRIGA" );
righe_rec.read( rec );
int last = righe_rec.last_row();
for ( int i = 1; i <= last; i ++ )
{ // Le aggiorno con la nuova chiave
TRectype &rigarec = righe_rec.row( i, TRUE );
rigarec.put( "PROVV", "D" );
rigarec.put( "NDOC", rec.get( "NDOC" ) );
int numerazione_definitiva(TLocalisamfile& doc) {
int err= NOERR; // istanzia la variabile per il codice d'errore
TRectype &rec_doc= doc.curr(); // prende il record corrente dal file delle testate
TTable tabnum("NUM"); // istanzia la tabella delle numerazioni
tabnum.put("CODTAB", rec_doc.get("CODNUM")); // posiziona la tabella
if ((err= tabnum.read(_isequal, _lock))==NOERR) { // legge la tabella bloccandone il record
long newndoc= tabnum.get_long("I1"); // legge il nuovo numero di documento dalla tabella
tabnum.put("I1", newndoc+1); // aggiorna il nuovo numero di documento nella tabella
doc.read(rec_doc, _isequal, _lock); // blocca il record corrente del file documenti
TRectype newrec_doc(rec_doc); // istanzia un nuovo record su quello corrente
newrec_doc.put("NDOC", newndoc); // scrive il nuovo numero di documento nel nuovo record
newrec_doc.put("PROVV", "D"); // aggiorna il flag di tipo di numerazione
TRecord_array arr_rdoc(LF_RIGHEDOC, "NRIGA"); // istanzia il record array per le righe
if ((err= arr_rdoc.read(rec_doc))==NOERR) { // legge le righe del documento basandosi sul record con la vecchia chiave
TRecord_array newarr_rdoc(arr_rdoc); // crea una copia del record array per tenere le nuove righe
for (int i=1; i<=newarr_rdoc.last_row(); i++) { // ciclo sui record delle righe
TRectype &newrec_rdoc= newarr_rdoc.row(i, FALSE); // prende il record della riga corrente
newrec_rdoc.put("NDOC", newndoc); // scrive il nuovo numero di documento
newrec_rdoc.put("PROVV", "D"); // aggiorna il flag di tipo di numerazione
}
newarr_rdoc.write(); // scrive le righe con la nuova numerazione
doc.write(newrec_doc); // scrive il nuovo record della testata
arr_rdoc.remove(); // rimuove le vecchie righe
doc.remove(rec_doc); // cancella (e sblocca) il vecchio record della testata
tabnum.rewrite(); // riscrive il record corrente della tabella...
tabnum.read(_isequal, _unlock); // ...e la sblocca
}
righe_rec.write( );
};
}
return err;
};
}

27
ve/ve1.cpp
View File

@ -1,21 +1,16 @@
#include <xvt.h>
#include <checks.h>
#include <xvt.h>
#define __MAIN__
#include "ve1.h"
extern int ve1100(int argc, char* argv[]); // stampa documenti di vendita tramite form derivati
#define usage "Error - usage : %s -0 [params]"
int main(int argc, char **argv) {
int rt= -1;
const int r= (argc>1)?(atoi(&argv[1][1])):(-1);
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;
switch (r) {
case 0: rt= ve1100(argc, argv); break;
default: error_box("Sintassi: %s [-0 [params]]", argv[0]); break;
}
return (rt);
}

283
ve/ve1100.cpp
View File

@ -38,7 +38,12 @@
// !! da fare:
// !! -------
// !! - tutto il resto
// !! - verificare le messaggistiche verso l'utente e il controllo dell'interattività
// !! - aggiungere lettura del tipo di modulo dal form (quando sarà fatto)
// !! - completare routine di scelta di cosa fare al cambio del modulo
// !! - aggiungere tutti gli altri messaggi di gestione dei documenti di vendita (clienti,
// !! totalizzatori, calcoli, ecc.)
// !! - tutto il resto!
@ -61,29 +66,22 @@ public:
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
}
TDocVen_Form::TDocVen_Form(const char* name, TRelation &rel): TForm(name), _firmrel(rel) {}
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 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
@ -100,7 +98,7 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
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
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
}
@ -116,12 +114,12 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
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
const TString &dat= file->get(curr); // preleva il nome del campo del file 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[0]=='#') 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];
@ -147,19 +145,17 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
delete file;
return (TRUE);
} // fine _ISAMREAD
if (code== "_TABLEREAD") {
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
// <chiave> costante stringa o riferimento a campo della form (preceduto da '#') 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);
if (in.left(1)== '#') {
in.ltrim(1);
TForm_item &fi= cf.find_field(in);
in= fi.get();
}
@ -170,33 +166,83 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
}
return (TRUE);
} // fine _TABLEREAD
if (code== "_DITTA") {
// lettura dei dati della ditta
// sintassi: _DITTA <campo relazione>
// sintassi: _DITTA {<campo relazione>|<macro>}
// dove: <campo relazione> è un riferimento alla relazione di gestione dei dati della ditta (es. 113@->DENCOM è la denominazione del comune di residenza della ditta)
// <macro> è uno delle macro seguenti:
// &RAGSOC ragione sociale
// &IND indirizzo (fiscale se c'è, oppure di residenza)
// &NUM numero civico (fiscale se c'è, oppure di residenza)
// &CAP CAP (fiscale se c'è, oppure di residenza)
// &COM comune (fiscale se c'è, oppure di residenza)
// &IVA partita iva
// &CF codice fiscale
// &TEL numero di telefono (con prefisso)
// &FAX numero di fax (con prefisso)
// 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));
TString in(s.get());
if (in[0]=='&') {
in.ltrim(1);
bool _fisc= _firmrel.lfile(6).get("INDRF").not_empty();
if (in=="RAGSOC") cf.set(_firmrel.lfile().get("RAGSOC"));
if (in=="IND") {
if (_fisc) cf.set(_firmrel.lfile(6).get("INDRF"));
else cf.set(_firmrel.lfile(6).get("INDRES"));
}
if (in=="NUM") {
if (_fisc) cf.set(_firmrel.lfile(6).get("CIVRF"));
else cf.set(_firmrel.lfile(6).get("CIVRES"));
}
if (in=="CAP") {
if (_fisc) cf.set(_firmrel.lfile(6).get("CAPRF"));
else cf.set(_firmrel.lfile(6).get("CAPRES"));
}
if (in=="COM") {
if (_fisc) cf.set(_firmrel.lfile(-213).get("DENCOM"));
else cf.set(_firmrel.lfile(-113).get("DENCOM"));
}
if (in=="IVA") cf.set(_firmrel.lfile(6).get("PAIV"));
if (in=="CF") cf.set(_firmrel.lfile(6).get("COFI"));
if (in=="TEL") {
TString tel(_firmrel.lfile().get("PTEL"));
tel << "/" << _firmrel.lfile().get("TEL");
cf.set(tel);
}
if (in=="FAX") {
TString tel(_firmrel.lfile().get("PFAX"));
tel << "/" << _firmrel.lfile().get("FAX");
cf.set(tel);
}
} else {
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());
// sintassi: _CIFRELETTERE [<campo form>]
// dove: <campo form> è il campo della form (preceduto da '#') da cui prendere il valore, se non è specificato è sottointeso il campo corrente
// nota: prende il valore del campo specificato e scrive la sua conversione in lettere nel campo corrente
TString in;
if (s.items()==2) {
in= s.get();
if (in.left(1)== '#') in.ltrim(1);
TForm_item &fi= cf.find_field(in);
in= fi.get();
} else in= cf.get();
real n(in);
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
}
@ -206,15 +252,19 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
// classe TStampa_Doc_Vendita customizzata dalla TApplication per l'applicazione principale
//////////////////////////////////////////////////////////////////////////////////////////////
enum behaviour {
skip,
go,
cancel
};
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
@ -223,79 +273,46 @@ protected:
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);
virtual behaviour on_module_change(const TString &); // funzione chiamata ad ogni cambio modulo durante la stampa
virtual bool query_final_print(void); // funzione chiamata all'inizializzazione per sapere se la stampa è definitiva
};
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();
print();
} else { // oppure lancio della maschera
_interattivo= TRUE;
dispatch_e_menu(BAR_ITEM(1));
}
return (TRUE);
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) {
@ -304,75 +321,91 @@ int TStampa_Doc_Vendita::select() {
_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
return 1;
} 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);
while ((s= select()) != 0) if (s==1) print(); // se la selezione della maschera ritorna 1 viene lanciata la stampa
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
_definitiva= query_final_print(); // legge il flag di stampa definitiva
printer().open(); // apre la stampante
TString nomeform, profilo; // istanzia le stringhe per il nome del form di stampa e del profilo di configurazione
TString modulo, modulo_prec; // istanzia le stringhe per l'inseguimento del modulo di carta
TToken_string stati; // token string con gli stati validi dei documenti
TTable tip("TIP"); // istanzia la tabella dei tipi di documento per i profili
TRelation rel(LF_DOC); // istanzia la relazione sul file principale
TLocalisamfile &doc= rel.lfile(); // prende il riferimento al file principale
TCursor cur(&rel); // crea il cursore principale dalla relazione
doc.put("CODNUM", _codnum); // compone la chiave per il record di inizio cursore
doc.put("ANNO", _anno);
doc.put("PROVV", _provv);
doc.put("NDOC", _dalnum);
doc.read(); // posiziona il file sul record
TRectype darec= doc.curr(); // copia il record di inizio cursore
doc.put("NDOC", _alnum); // compone la chiave per il record di fine cursore
doc.read(); // posiziona il file sul record
TRectype arec= doc.curr(); // copia il record di fine cursore
cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa
for (int i= 0; i<cur.items(); i++) { // ciclo sugli elementi del cursore di stampa
cur= i; // posiziona il cursore
tip.put("CODTAB", doc.get("TIPODOC")); // posiziona la tabella dei tipi di documento
if (tip.read()==NOERR) { // legge la tabella
nomeform= tip.get("S5"); // legge il nome del form di stampa
profilo= tip.get("S4"); // legge il nome del profilo di configurazione
TConfig config(profilo, "STAMPA"); // apre il file di configurazione del profilo
stati= config.get("STATIVALIDI"); // legge gli stati validi di questo tipo di documento
if (_definitiva && (stati.get_pos(doc.get("STATO"))== -1)) { // se lo stato del doc. corrente non è valido...
if (_interattivo) error_box("Non è possibile stampare un documento con stato non valido"); // ...viene mostrato un messaggio (solo in modo interattivo)...
break; // ...e la stampa viene interrotta
}
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;
behaviour whattodo= go; // istanzia la variabile di comportamento
TDocVen_Form f(nomeform, *_firmrel); // istanzia il form
// !! modulo= f.get_module_code(); // legge dal form il codice del modulo di carta per la stampa
if (modulo_prec.empty()) modulo_prec= modulo; // se siamo al primo passaggio la variabile di modulo precedente viene riempita
if (modulo != modulo_prec) whattodo= on_module_change(modulo); // se il modulo è cambiato dalla stampa precedente interroga la funzione per sapere che comportamento tenere
if (whattodo==cancel) break; // se non si può procedere la stampa viene interrotta
else if (whattodo==go) { // altrimenti prosegue
TCursor &fcur= *(f.cursor()); // ricava il riferimento al cursore originale del form
darec= arec= doc.curr(); // prepara i record per il filtro
fcur.setregion(darec, arec); // setta il filtro sul form (solo il record corrente)
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;
}
}
} else {
error_box("Il documento corrente non può essere trovato nella tabella dei tipi di documento");
break;
}
printer().close();
}
printer().close(); // chiude la stampante
}
behaviour TStampa_Doc_Vendita::on_module_change(const TString &modulo) {
// !! qui va messa la reazione al cambio di modulo
// !! - se non si è in interattivo bisogna, immagino, ritornare sempre "skip"
// !! - se si è in interattivo bisogna chiedere all'utente il da farsi, eventualmente
// !! fornendo il nome esteso del modulo da inserire facendo una seek sulla tabella
return skip;
}
bool TStampa_Doc_Vendita::query_final_print() {
if (_interattivo) { // se siamo in interattivo viene richiesto all'utente se la stampa è definitiva o meno
if (yesno_box("E' una stampa definitiva?")) return TRUE;
else return FALSE;
} else return (strcmp(argv(7), "D")==0); // altrimenti lo legge dalla linea di comando
}
int ve1100(int argc, char* argv[]) {
TStampa_Doc_Vendita a;
a.run(argc, argv, "Stampa doc. vendita");
a.run(argc, argv, "Stampa documenti di vendita");
return (0);
}

327
ve/vebol.frm
View File

@ -1,75 +1,86 @@
// - Manca la gestione del campo "causale"
// - Il cliente deve essere gestito con il nuovo messaggio _CLIENTE, per ora è gestito con
// l'aggancio alla relazione
// - Controllare la posizione dei campi precendentemente compositi (indirizzi, comuni, ecc.)
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
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
*/
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"
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"
END
SECTION HEADER ODD 33 0 0
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 12
END
SECTION HEADER ODD 33
STRINGA 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 6 ""
MESSAGE _DITTA &RAGSOC
END
STRINGA 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 7 ""
MESSAGE _DITTA &IND
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 8 ""
MESSAGE _DITTA &CAP
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 8 ""
MESSAGE _DITTA &COM
END
STRINGA 5 5 1
@ -82,6 +93,7 @@ STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 9 ""
MESSAGE _DITTA &IVA
END
STRINGA 7 9 1
@ -94,48 +106,56 @@ STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 10 ""
MESSAGE _DITTA &CF
END
STRINGA 14 35 2
BEGIN
KEY "destinatario, ditta"
PROMPT 44 16 ""
FIELD 202@->RAGSOC
FIELD 20->RAGSOC
END
STRINGA 15 35 2
BEGIN
KEY "destinatario, indirizzo"
PROMPT 44 18 ""
FIELD 202@->INDCF
FIELD 20->INDCF
END
STRINGA 48 5 1
BEGIN
FLAGS "H"
PROMPT 1 1 ""
FIELD 116@->COM
END
STRINGA 16 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 20 ""
FIELD 1101@->CAPCOM
MESSAGE _ISAMREAD 13 COM==#48 CAPCOM
END
STRINGA 17 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 20 ""
FIELD 1101@->DENCOM
MESSAGE _ISAMREAD 13 COM==#48 DENCOM
END
STRINGA 18 2 1
BEGIN
KEY "destinatario, procincia"
PROMPT 82 21 ""
FIELD 1101@->PROVCOM
PROMPT 72 21 ""
MESSAGE _ISAMREAD 13 COM=#48 PROVCOM
END
DATA 19 8 1
BEGIN
KEY "data bolla"
PROMPT 60 25 ""
FIELD 33->DATADOC
FIELD DATADOC
FORMAT "1444-"
END
@ -143,49 +163,56 @@ NUMERO 20
BEGIN
KEY "numero bolla"
PROMPT 71 25 ""
FIELD 33->NDOC
FIELD NDOC
END
STRINGA 21 30 2
BEGIN
KEY "destinazione, indirizzo"
PROMPT 5 16 ""
FIELD 701@->INDIR
FIELD 16->INDIR
END
STRINGA 49 5 1
BEGIN
FLAGS "H"
PROMPT 1 1 ""
FIELD 16->COM
END
STRINGA 32 5 1
BEGIN
KEY "destinazione, cap"
PROMPT 5 19 ""
FIELD 1102@->CAPCOM
PROMPT 5 18 ""
MESSAGE _ISAMREAD 13 COM=#49 CAPCOM
END
STRINGA 33 21 1
BEGIN
KEY "destinazione, comune"
PROMPT 11 19 ""
FIELD 1102@->DENCOM
PROMPT 5 20 ""
MESSAGE _ISAMREAD 13 COM=#49 DENCOM
END
STRINGA 34 2
BEGIN
KEY "destinazione, provincia"
PROMPT 33 19 ""
FIELD 1102@->PROVCOM
PROMPT 28 20 ""
MESSAGE _ISAMREAD 13 COM=#49 PROVCOM
END
NUMERO 22
BEGIN
KEY "ordine"
PROMPT 3 25 ""
FIELD 33->NUMDOCRIF
FIELD NUMDOCRIF
END
DATA 23 8 1
BEGIN
KEY "data conferma"
PROMPT 16 25 ""
FIELD 33->DATADOCRIF
FIELD DATADOCRIF
FORMAT "1444-"
END
@ -193,168 +220,94 @@ STRINGA 24 48 1
BEGIN
KEY "condizioni pagamento"
PROMPT 3 27 ""
FIELD 301@->S0
FIELD %CPG->S0
END
STRINGA 25 29 1
BEGIN
KEY "banca appoggio"
PROMPT 53 27 ""
FIELD 901@->S0
FIELD %BAN->S0
END
STRINGA 26 7 1
BEGIN
KEY "codice cliente"
PROMPT 3 29 ""
FIELD 33->CODCF
FIELD CODCF
END
STRINGA 27 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 12 29 ""
FIELD 202@->PAIV
FIELD 20->PAIV
END
STRINGA 28 18 1
BEGIN
KEY "porto"
PROMPT 41 25 ""
FIELD 306@->S0
FIELD %POR->S0
END
NUMERO 29
BEGIN
KEY "codice agente"
PROMPT 29 29 ""
FIELD 33->CODAG
FIELD 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 ""
FIELD %AGE->S0
END
END
SECTION BODY ODD 24 0 0
SECTION BODY ODD 24
STRINGA 32 13 1
BEGIN
KEY "codice articolo"
PROMPT 5 34 ""
FIELD 101@->CODART
FIELD 34->CODART
END
STRINGA 33 30 1
BEGIN
KEY "descrizione articolo"
PROMPT 25 34 ""
FIELD 401@->DESCR
FIELD 47->DESCR
END
STRINGA 34 2 1
BEGIN
KEY "unità di misura"
PROMPT 56 34 ""
FIELD 34->UMQTA
END
STRINGA 35 10 1
BEGIN
KEY "quantità"
PROMPT 60 34 ""
FIELD 101@->QTA
FIELD 34->QTA
END
STRINGA 36 10 1
BEGIN
KEY "quantità lettere"
PROMPT 72 34 ""
FIELD 34->QTA
MESSAGE _CIFRELETTERE
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
SECTION FOOTER ODD 9
STRINGA 47 5 1
BEGIN
@ -364,4 +317,84 @@ END
END
SECTION FOOTER LAST 9
LISTA 37 1 1
BEGIN
KEY "trasporto a cura del mittente"
PROMPT 4 59 ""
ITEM "M|x"
FIELD CODSPMEZZO
END
LISTA 38 1 1
BEGIN
KEY "trasporto a cura del destinatario"
PROMPT 13 59 ""
ITEM "D|x"
FIELD CODSPMEZZO
END
LISTA 39 1 1
BEGIN
KEY "trasporto a cura del vettore"
PROMPT 23 59 ""
ITEM "V|x"
FIELD CODSPMEZZO
END
STRINGA 40 45 1
BEGIN
KEY "nome vettore"
PROMPT 3 62 ""
FIELD %VET->S0
END
STRINGA 41 45 1
BEGIN
KEY "indirizzo vettore"
PROMPT 3 64 ""
FIELD %VET->S1
END
DATA 42 8 1
BEGIN
KEY "data inizio trasporto"
PROMPT 51 61 ""
FIELD DATAPART
FORMAT "1444-"
END
DATA 43 5 1
BEGIN
KEY "ora inizio trasporto"
PROMPT 60 61 ""
FIELD ORAPART
FORMAT "1444-"
END
STRINGA 44 27 1
BEGIN
KEY "aspetto beni"
PROMPT 37 59 ""
FIELD %ASP->S0
END
STRINGA 45 7 1
BEGIN
KEY "peso"
PROMPT 73 59 ""
FIELD PNETTO
END
STRINGA 46 5 1
BEGIN
KEY "colli"
PROMPT 66 59 ""
FIELD NCOLLI
END
END
END