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

Modifiche al programma di stampa documenti di vendita

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1913 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
marcello 1995-10-02 10:49:35 +00:00
parent 1a8a90a0e8
commit 9932a66b8c
1 changed files with 80 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
ve/ve1100.cpp
View File

@ -69,7 +69,7 @@ public:
TDocVen_Form::TDocVen_Form(const char* name, TRelation &rel): TForm(name), _firmrel(rel) {} TDocVen_Form::TDocVen_Form(const char* name, TRelation &rel): TForm(name), _firmrel(rel) {}
bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) { bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
const TString16 code(s.get(0)); // prende il primo parametro, il codice del messaggio const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
if (code== "_ISAMREAD") { if (code== "_ISAMREAD") {
// lettura generica di un file del database // lettura generica di un file del database
@ -261,8 +261,8 @@ enum behaviour {
class TStampa_Doc_Vendita: public TApplication { class TStampa_Doc_Vendita: public TApplication {
TString16 _codnum; // codice di numerazione TString _codnum; // codice di numerazione
TString16 _provv; // stampa provvisioria TString _provv; // stampa provvisioria
int _anno; // anno della documentazione int _anno; // anno della documentazione
long _dalnum, _alnum; // estremi di numerazione dei documenti long _dalnum, _alnum; // estremi di numerazione dei documenti
bool _interattivo; // flag che indica se il prog. funziona in interattivo o in batch bool _interattivo; // flag che indica se il prog. funziona in interattivo o in batch
@ -318,7 +318,8 @@ int TStampa_Doc_Vendita::select() {
if (m.run() == K_ENTER) { if (m.run() == K_ENTER) {
_codnum= m.get(F_CODNUM); // lettura dei dati dalla maschera _codnum= m.get(F_CODNUM); // lettura dei dati dalla maschera
_anno= m.get_int(F_ANNO); _anno= m.get_int(F_ANNO);
_provv= (m.get_bool(F_PROVV))?("P"):("D"); //_provv= (m.get_bool(F_PROVV))?("P"):("D");
_provv = m.get(F_PROVV);
_dalnum= m.get_long(F_DA_NDOC); _dalnum= m.get_long(F_DA_NDOC);
_alnum= m.get_long(F_A_NDOC); _alnum= m.get_long(F_A_NDOC);
return 1; return 1;
@ -334,10 +335,10 @@ bool TStampa_Doc_Vendita::menu(MENU_TAG) { // procedura di dispatch dei menu
void TStampa_Doc_Vendita::print() { void TStampa_Doc_Vendita::print() {
_definitiva= query_final_print(); // legge il flag di stampa definitiva _definitiva= query_final_print(); // legge il flag di stampa definitiva
printer().open(); // apre la stampante printer().open(); // apre la stampante
TString nomeform, profilo; // istanzia le stringhe per il nome del form di stampa e del profilo di configurazione TFilename 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 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 //TToken_string stati("",','); // token string con gli stati validi dei documenti
TTable tip("TIP"); // istanzia la tabella dei tipi di documento per i profili TTable tip("%TIP"); // istanzia la tabella dei tipi di documento per i profili
TRelation rel(LF_DOC); // istanzia la relazione sul file principale TRelation rel(LF_DOC); // istanzia la relazione sul file principale
TLocalisamfile &doc= rel.lfile(); // prende il riferimento al file principale TLocalisamfile &doc= rel.lfile(); // prende il riferimento al file principale
TCursor cur(&rel); // crea il cursore principale dalla relazione TCursor cur(&rel); // crea il cursore principale dalla relazione
@ -351,15 +352,20 @@ void TStampa_Doc_Vendita::print() {
doc.read(); // posiziona il file sul record doc.read(); // posiziona il file sul record
TRectype arec= doc.curr(); // copia il record di fine cursore TRectype arec= doc.curr(); // copia il record di fine cursore
cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa 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 for (int i= 0; i<cur.items(); i++)// ciclo sugli elementi del cursore di stampa
{
cur= i; // posiziona il cursore cur= i; // posiziona il cursore
tip.put("CODTAB", doc.get("TIPODOC")); // posiziona la tabella dei tipi di documento tip.put("CODTAB", doc.get("TIPODOC")); // posiziona la tabella dei tipi di documento
if (tip.read()==NOERR) { // legge la tabella int err=tip.read();
if (err==NOERR) // legge la tabella
{
nomeform= tip.get("S5"); // legge il nome del form di stampa nomeform= tip.get("S5"); // legge il nome del form di stampa
profilo= tip.get("S4"); // legge il nome del profilo di configurazione profilo= tip.get("S4"); // legge il nome del profilo di configurazione
profilo.ext("ini");
TConfig config(profilo, "STAMPA"); // apre il file di configurazione del profilo TConfig config(profilo, "STAMPA"); // apre il file di configurazione del profilo
stati= config.get("STATIVALIDI"); // legge gli stati validi di questo tipo di documento TToken_string stati ((const char*)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 (_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)... 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 break; // ...e la stampa viene interrotta
} }
@ -368,19 +374,25 @@ void TStampa_Doc_Vendita::print() {
// !! modulo= f.get_module_code(); // legge dal form il codice del modulo di carta per la stampa // !! 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_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 (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 if (whattodo==cancel) // se non si può procedere la stampa viene interrotta
else if (whattodo==go) { // altrimenti prosegue break;
else if (whattodo==go) // altrimenti prosegue
{
TCursor &fcur= *(f.cursor()); // ricava il riferimento al cursore originale del form TCursor &fcur= *(f.cursor()); // ricava il riferimento al cursore originale del form
darec= arec= doc.curr(); // prepara i record per il filtro darec= arec= doc.curr(); // prepara i record per il filtro
fcur.setregion(darec, arec); // setta il filtro sul form (solo il record corrente) fcur.setregion(darec, arec); // setta il filtro sul form (solo il record corrente)
f.print(-1); // stampa il record corrente del form f.print(0,0); // stampa il record corrente del form
if (_definitiva && (numerazione_definitiva(doc) != NOERR)) { // se la stampa è definitiva viene lanciata la procedura di rinumerazione 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"); if (_interattivo) error_box("Non è possibile completare la procedura di numerazione definitiva dei documenti");
break; break;
} }
} }
} else { }
error_box("Il documento corrente non può essere trovato nella tabella dei tipi di documento"); else
{
// error_box("Il documento corrente non può essere trovato nella tabella dei tipi di documento");
error_box ("Errore %d leggendo da %TIP.", err);
break; break;
} }
} }