Lavoro sulla stampa vendite

git-svn-id: svn://10.65.10.50/trunk@1905 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/ve0100b.cpp

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

ve/ve1.cpp

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

ve/ve1100.cpp

@@ -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) {
+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 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];
@@ -149,17 +147,15 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
   } // 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
+    //       <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)== '@') {
+    if (in.left(1)== '#') {
-      in= in.mid(1);
+      in.ltrim(1);
       TForm_item &fi= cf.find_field(in);
       in= fi.get();
     }
@@ -172,27 +168,77 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
   } // 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
-
+    TString in(s.get());
-    TFieldref fref(s.get(), 0);
+    if (in[0]=='&') {
-    cf.set(fref.read(&_firmrel));
+      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
+    // 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
-    real n(cf.get());
+    // 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
@@ -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 1;
-    return (initialize());
+  } else return 0; // 0 indica che non si è usciti con "Conferma" dalla maschera
-  } 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 stampa
-  while ((s= select()) != 0) if (s==1) print(); // se la selezione della maschera ritorna 1 viene lanciata la stamapppa
+  return FALSE;
-  return (FALSE);
 }
 
-
-
 void TStampa_Doc_Vendita::print() {
-  bool ok;
+  _definitiva= query_final_print(); // legge il flag di stampa definitiva
-
+  printer().open(); // apre la stampante
-  if (_interattivo) {
+  TString nomeform, profilo; // istanzia le stringhe per il nome del form di stampa e del profilo di configurazione
-    switch (yesnocancel_box("Inserire il modulo prefincato nella stampante. E' una stampa definitiva?")) {
+  TString modulo, modulo_prec; // istanzia le stringhe per l'inseguimento del modulo di carta
-    case K_YES: _definitiva= ok= TRUE; break;
+  TToken_string stati; // token string con gli stati validi dei documenti
-              case K_NO: _definitiva= FALSE; ok= TRUE; break;
+  TTable tip("TIP"); // istanzia la tabella dei tipi di documento per i profili
-              case K_ESC:
+  TRelation rel(LF_DOC); // istanzia la relazione sul file principale
-              default: ok= FALSE; break;
+  TLocalisamfile &doc= rel.lfile(); // prende il riferimento al file principale
-              }
+  TCursor cur(&rel); // crea il cursore principale dalla relazione
-  } else ok= TRUE; // se il programma è lanciato in batch si considera già confermata la richiesta di stampa
+  doc.put("CODNUM", _codnum); // compone la chiave per il record di inizio cursore
-  if (ok) {
+  doc.put("ANNO", _anno);
-    printer().open();
+  doc.put("PROVV", _provv);
-    
+  doc.put("NDOC", _dalnum);
-    TDocVen_Form f(_profilo, *_firmrel);
+  doc.read(); // posiziona il file sul record
-    TCursor &cur= *(f.cursor()); // ricava il riferimento al cursore originale del form
+  TRectype darec= doc.curr(); // copia il record di inizio cursore
-    TLocalisamfile &doc= cur.file(); // ricava il riferimento al file principale del cursore
+  doc.put("NDOC", _alnum); // compone la chiave per il record di fine cursore
-
+  doc.read(); // posiziona il file sul record
-    doc.put("CODNUM", _codnum); // si posiziona sul record di inizio cursore
+  TRectype arec= doc.curr(); // copia il record di fine cursore
-    doc.put("ANNO", _anno);
+  cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa
-    doc.put("PROVV", _provv);
+  for (int i= 0; i<cur.items(); i++) { // ciclo sugli elementi del cursore di stampa
-    doc.put("NDOC", _dalnum);
+    cur= i; // posiziona il cursore
-    doc.read();
+    tip.put("CODTAB", doc.get("TIPODOC")); // posiziona la tabella dei tipi di documento
-    TRectype darec= doc.curr();
+    if (tip.read()==NOERR) { // legge la tabella
-    
+      nomeform= tip.get("S5"); // legge il nome del form di stampa
-    doc.put("NDOC", _alnum); // si posiziona sul record di fine cursore
+      profilo= tip.get("S4"); // legge il nome del profilo di configurazione
-    doc.read();
+      TConfig config(profilo, "STAMPA"); // apre il file di configurazione del profilo
-    TRectype arec= doc.curr();
+      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...
-    cur.setregion(darec, arec); // imposta il filtro sul cursore di stampa
+        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
-    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
+      behaviour whattodo= go; // istanzia la variabile di comportamento
-      if (_definitiva && (numerazione_definitiva(doc) != NOERR)) { // se la stampa è definitiva viene lanciata la procedura di rinumerazione
+      TDocVen_Form f(nomeform, *_firmrel); // istanzia il form
-        if (_interattivo) error_box("Non è possibile completare la procedura di numerazione definitiva dei documenti");
+      // !! modulo= f.get_module_code(); // legge dal form il codice del modulo di carta per la stampa
-        break;
+      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);
 }

ve/vebol.frm

@@ -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 34                 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
-JOIN 17 ALIAS 201 INTO TIPOCF=TIPOCF CODCF=CODCF
+JOIN 17                 INTO TIPOCF==TIPOCF CODCF==CODCF
-JOIN 20 ALIAS 202 INTO TIPOCF=TIPOCF CODCF=CODCF
+JOIN 20                 INTO TIPOCF==TIPOCF CODCF==CODCF
-JOIN %CPG ALIAS 301 INTO CODTAB=CODPAG
+JOIN 16                 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
-JOIN %VAL ALIAS 302 INTO CODTAB=CODVAL
+JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
-JOIN %LNG ALIAS 303 INTO CODTAB=CODLIN
+JOIN 47 TO 34           INTO CODART==CODART
-JOIN AGE ALIAS 304 INTO CODTAB=CODAG
+JOIN 52                 INTO TIPOCF==TIPOCF CODCF==CODCF
-JOIN MSP ALIAS 305 INTO CODTAB=CODSPMEZZO
+JOIN %CPG               INTO CODTAB==CODPAG
-JOIN POR ALIAS 306 INTO CODTAB=CODPORTO
+JOIN %AGE               INTO CODTAB==CODAG
-JOIN 47 TO 101@ ALIAS 401 INTO CODART=CODART
+JOIN %POR               INTO CODTAB==CODPORTO
-JOIN 49 ALIAS 501 INTO CODLIS=CODLIST
+JOIN %BAN               INTO CODTAB==CODABIA+CODCABA
-JOIN 52 ALIAS 601 INTO TIPOCF=TIPOCF CODCF=CODCF NCONTR=CODCONT
+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
 DESCRIPTION
 BEGIN
   33->* "Documenti di vendita"
-  101@->* "Righe documenti di vendita"
+  34->* "Righe documenti di vendita"
-  201@->* "Clienti/Fornitori per vendite"
+  17->* "Clienti/Fornitori per vendite"
-  202@->* "Clienti/Fornitori"
+  20->* "Clienti/Fornitori"
-  301@->* "CPG"
+  47  ->* "Righe listini"
-  302@->* "VAL"
+  52  ->* "Contratti clienti"
-  303@->* "LNG"
+  16  ->* "Indirizzi di spedizione"
-  304@->* "AGE"
+  116->* "Indirizzi di spedizione"
-  305@->* "MSP"
+  %CPG->* "Condizioni di pagamento"
-  306@->* "POR"
+  %AGE ->* "Agenti"
-  401@->* "Anagrafica di magazzino"
+  %MSP ->* "Modalità di spedizioni"
-  501@->* "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
 
-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 ""
+ PROMPT 72 21 ""
- FIELD 1101@->PROVCOM
+ 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 ""
+ PROMPT 5 18 ""
- FIELD 1102@->CAPCOM
+ MESSAGE _ISAMREAD 13 COM=#49 CAPCOM
 END
 
 STRINGA 33 21 1
 BEGIN
  KEY "destinazione, comune"
- PROMPT 11 19 ""
+ PROMPT 5 20 ""
- FIELD 1102@->DENCOM
+ MESSAGE _ISAMREAD 13 COM=#49 DENCOM
 END
 
 STRINGA 34 2
 BEGIN
  KEY "destinazione, provincia"
- PROMPT 33 19 ""
+ PROMPT 28 20 ""
- FIELD 1102@->PROVCOM
+ 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
+ FIELD %AGE->S0
-END
-
-STRINGA 31 19 1
-BEGIN
- KEY "causale"
- PROMPT 63 29 ""
 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
+SECTION FOOTER ODD 9
-
-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
@@ -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
+