campo-sirio/ve/ve2400.cpp

#include "ve2400.h"

#ifndef __CHECKS_H
#include <checks.h>
#endif

#ifndef __RELAPP_H
#include <relapp.h>
#endif

#ifndef __TABUTIL_H
#include <tabutil.h>
#endif

#ifndef __MSKSHEET_H
#include <msksheet.h>
#endif

#ifndef __ASSOC_H
#include <assoc.h>
#endif



class TAnamag_application: public TRelation_application {
  TMask *_msk; // maschera principale
  TRelation *_rel; // relazione principale di un solo file (anagrafiche di magazzino)
  TLocalisamfile *_umart; // file di accesso alle unità di misura
  TLocalisamfile *_deslin; // file di accesso alle descrizioni in lingua
  TLocalisamfile *_codcorr; // file di accesso ai codici corrispondenti
  TRecord_array *_linee_rec0; // record array di accoppiamento delle unità di misura
  TRecord_array *_linee_rec1; // record array di accoppiamento delle descrizioni in lingua con il primo sheet
  TRecord_array *_linee_rec2; // record array di accoppiamento delle codici corrispondenti con il secondo sheet
  
  virtual bool user_create();
  virtual bool user_destroy();                        
  virtual TMask *get_mask(int) {return _msk;}
  virtual bool changing_mask(int) {return FALSE;}
  virtual TRelation *get_relation() const {return _rel;}
  virtual void init_insert_mode(TMask &);
  
  virtual int read(TMask& m);
  virtual int write(const TMask& m);             
  virtual int rewrite(const TMask& m);           

  static bool handle_sheet0(TMask_field &, KEY); // handler dello sheet delle unità di misura
  static bool handle_sheet1(TMask_field &, KEY); // handler dello sheet delle descrizioni in lingua
  static bool handle_sheet2(TMask_field &, KEY); // handler dello sheer dei codici alternativi
  static bool handle_sheet0_um(TMask_field &, KEY); // handler del campo UM dello sheet delle unità di misura
  
public:
  TAnamag_application() {}
  virtual ~TAnamag_application() {}
};



bool TAnamag_application::user_create() {
  _msk= new TMask("VE2400");
  _msk->set_handler(F_SHEET0, handle_sheet0);
  _msk->set_handler(F_SHEET1, handle_sheet1);
  _msk->set_handler(F_SHEET2, handle_sheet2);
  
  TSheet_field &f= (TSheet_field &)_msk->field(F_SHEET0);
  TMask &fm= f.sheet_mask();
  fm.set_handler(FS_CODUM, handle_sheet0_um);
  
  _rel= new TRelation(LF_ANAGR);
  _umart= new TLocalisamfile(LF_UMART);
  _deslin= new TLocalisamfile(LF_DESLIN);
  _codcorr= new TLocalisamfile(LF_CODCORR);
  _linee_rec0= new TRecord_array(LF_UMART, "NRIGA");
  _linee_rec1= new TRecord_array(LF_DESLIN, "NRIGA");
  _linee_rec2= new TRecord_array(LF_CODCORR, "NRIGA");
  
  return TRUE;
}

bool TAnamag_application::user_destroy() {
  delete _linee_rec2;
  delete _linee_rec1;
  delete _linee_rec0;
  delete _codcorr;
  delete _deslin;
  delete _umart;
  delete _rel;
  delete _msk;
  return TRUE;
}

int TAnamag_application::read(TMask& m) {
  int err= TRelation_application::read(m);
  if (err == NOERR) {
    TRectype rum(_umart->curr()); // prende il record corrente dal file delle unità di misura
    rum.zero();
    rum.put("CODART", m.get(F_CODART)); // imposta il record corrente sul codice articolo (dalla maschera)
    _linee_rec0->read(rum); // legge il record array
    TSheet_field &f0= (TSheet_field &)m.field(F_SHEET0); // prende il sheet delle unità di misura
    f0.destroy(); // cancella lo sheet
    int last= _linee_rec0->last_row();
    if (last>0) {
      for (int i= 1; i <= last; i++) {
        TRectype &rec= _linee_rec0->row(i, TRUE); // prende il record della riga corrente dal record array
        TToken_string &row= f0.row(i-1);
        row= rec.get("UM"); // imposta la riga dello sheet con i campi del record della riga corrente
        if (i != 1) row.add(rec.get("FC"));
        else row.add("1"); // forza a 1 il secondo campo della prima riga (il fattore di conversione della prima U.M. deve essere 1)
      }
    } else {
      TToken_string &row= f0.row(-1); // aggiunge una riga allo sheet
      row.add("");
      row.add("1"); // setta il secondo campo della riga aggiunta a 1
    }
    f0.disable_cell(0, 1); // mette in sola lettura il secondo campo della prima riga (il fattore di conversione della prima U.M. è fisso a 1)
    f0.force_update(0); // aggiorna lo stato della riga 0

    TRectype r(_deslin->curr()); // prende il record corrente dal file delle descrizioni in lingua
    r.zero();
    r.put("CODART", m.get(F_CODART)); // imposta il record corrente sul codice articolo (dalla maschera)
    _linee_rec1->read(r); // legge il record array
    TSheet_field &f1= (TSheet_field &)m.field(F_SHEET1); // prende il sheet delle descrizioni in lingua
    f1.destroy(); // cancella lo sheet
    last= _linee_rec1->last_row();
    for (int i= 1; i <= last; i++) {
      TRectype &rec= _linee_rec1->row(i, TRUE); // prende il record della riga corrente dal record array
      TToken_string &row= f1.row(i-1);
      row= rec.get("CODLIN"); // imposta la riga dello sheet con i campi del record della riga corrente
      row.add(rec.get("DESCR"));
    }
    
    TRectype rcor(_codcorr->curr()); // prende il record corrente dal file dei codici corrispondenti
    rcor.zero();
    rcor.put("CODART", m.get(F_CODART)); // imposta il record corrente sul codice articolo (dalla maschera)
    _linee_rec2->read(rcor); // legge il record array
    TSheet_field &f2= (TSheet_field &)m.field(F_SHEET2); // prende lo sheet dei codici corrispondenti
    f2.destroy(); // cancella lo sheet
    last= _linee_rec2->last_row();
    for (i= 1; i <= last; i++) {
      TRectype &rec= _linee_rec2->row(i, TRUE); // prende il record della riga corrente dal record array
      TToken_string &row= f2.row(i-1);
      row= rec.get("CODARTALT"); // imposta la riga dello sheet con i campi del record della riga corrente
      row.add(rec.get("TIPO"));
    }
  }
  return err;
}

int TAnamag_application::write(const TMask& m) {
  int err= TRelation_application::write(m);
  if (err == NOERR) {   
    TSheet_field &f0= (TSheet_field &)m.field(F_SHEET0);
    _linee_rec0->destroy_rows();
    
    if (m.insert_mode()) _linee_rec0->renum_key("CODART", m.get(F_CODART));

    for (int i= 0; i < f0.items(); i++) {
      TToken_string &row= f0.row(i);
      const TString16 um(row.get(0));
      const real fc(row.get());
      
      if (um.not_empty() && (!fc.is_zero())) {
        TRectype &rec= _linee_rec0->row(i+1, TRUE);
        rec.put("UM", um);
        rec.put("FC", fc);
      }                                          
    }    
    err= _linee_rec0->write();
  }

  if (err == NOERR) {   
    TSheet_field &f1= (TSheet_field &)m.field(F_SHEET1);
    _linee_rec1->destroy_rows();
    
    if (m.insert_mode()) _linee_rec1->renum_key("CODART", m.get(F_CODART));

    for (int i= 0; i < f1.items(); i++) {
      TToken_string &row= f1.row(i);
      const TString16 codlin(row.get(0));
      const TString80 descr(row.get());
      
      if (codlin.not_empty() && descr.not_empty()) {
        TRectype &rec= _linee_rec1->row(i+1, TRUE);
        rec.put("CODLIN", codlin);
        rec.put("DESCR", descr);
      }                                          
    }    
    err= _linee_rec1->write();
  }
  
  if (err == NOERR) {   
    TSheet_field &f2= (TSheet_field &)m.field(F_SHEET2);
    _linee_rec2->destroy_rows();
    
    if (m.insert_mode()) _linee_rec2->renum_key("CODART", m.get(F_CODART));
    
    for (int i= 0; i < f2.items(); i++) {
      TToken_string &row= f2.row(i);
      const TString80 codartalt(row.get(0));
      const TString16 tipo(row.get());
      
      if (codartalt.not_empty()) {
        TRectype &reccor= _linee_rec2->row(i+1, TRUE); 
        reccor.put("CODARTALT", codartalt);
        reccor.put("TIPO", tipo);
      }                                          
    }    
    err= _linee_rec2->write();
  }
  return err;
}

int TAnamag_application::rewrite(const TMask& m) { 
  int err= TRelation_application::rewrite(m);
  if (err == NOERR) {   
    TSheet_field &f0= (TSheet_field &)m.field(F_SHEET0);
    _linee_rec0->destroy_rows();
    
    if (m.insert_mode()) _linee_rec0->renum_key("CODART", m.get(F_CODART));

    for (int i= 0; i < f0.items(); i++) {
      TToken_string & row = f0.row(i);
      const TString16 um(row.get(0));
      const real fc(row.get());
      
      if (um.not_empty() && (!fc.is_zero())) {
        TRectype &rec= _linee_rec0->row(i+1, TRUE); 
        rec.put("UM", um);
        rec.put("FC", fc);
      }                                          
    }    
    err= _linee_rec0->rewrite();
  }  
  
  if (err == NOERR) {   
    TSheet_field &f1= (TSheet_field &)m.field(F_SHEET1);
    _linee_rec1->destroy_rows();
    
    if (m.insert_mode()) _linee_rec1->renum_key("CODART", m.get(F_CODART));

    for (int i= 0; i < f1.items(); i++) {
      TToken_string & row = f1.row(i);
      const TString16 codlin(row.get(0));
      const TString80 descr(row.get());
      
      if (codlin.not_empty() && descr.not_empty()) {
        TRectype &rec= _linee_rec1->row(i+1, TRUE); 
        rec.put("CODLIN", codlin);
        rec.put("DESCR", descr);
      }                                          
    }    
    err= _linee_rec1->rewrite();
  }  
  
  if (err == NOERR) {   
    TSheet_field &f2= (TSheet_field &)m.field(F_SHEET2);
    _linee_rec2->destroy_rows();
    
    if (m.insert_mode()) _linee_rec2->renum_key("CODART", m.get(F_CODART));
    
    for (int i= 0; i < f2.items(); i++) {
      TToken_string &row= f2.row(i);
      const TString80 codartalt(row.get(0));
      const TString80 tipo(row.get());
      
      if (codartalt.not_empty()) {
        TRectype &reccor= _linee_rec2->row(i+1, TRUE);
        reccor.put("CODARTALT", codartalt);
        reccor.put("TIPO", tipo);
      }                                          
    }    
    err= _linee_rec2->write();
  }
  return err;
}

void TAnamag_application::init_insert_mode(TMask &m) {
  TSheet_field &f= (TSheet_field &)m.field(F_SHEET0);
  if (f.items()==0) {
    TToken_string &row= f.row(-1); // aggiunge una riga allo sheet
    row.add("");
    row.add("1"); // setta il secondo campo della riga aggiunta a 1
    f.disable_cell(0, 1); // mette in sola lettura il secondo campo della prima riga (il fattore di conversione della prima U.M. è fisso a 1)
    f.force_update(0); // aggiorna lo stato della riga 0
  }
}

bool TAnamag_application::handle_sheet0(TMask_field &fld, KEY k) {
  if (k==K_ENTER) {
    TSheet_field &f= (TSheet_field &)fld; // typecast del campo al suo sheet corrispondente
    TAssoc_array v; // istanzia l'hash table per il controllo di univocità
    for (int i= 0; i<f.items(); i++) {
      if (!v.add(f.cell(i,0))) { // aggiunge all'hash table l'elemento 0 (primo) della riga corrente e controlla che non esista già
        error_box("Le unità di misura devono essere diverse tra loro");
        break;
      }
    }
    return (i==f.items());
  } else return TRUE;
}

bool TAnamag_application::handle_sheet1(TMask_field &fld, KEY k) {
  if (k==K_ENTER) {
    TSheet_field &f= (TSheet_field &)fld; // typecast del campo al suo sheet corrispondente
    TAssoc_array v; // istanzia l'hash table per il controllo di univocità
    for (int i= 0; i<f.items(); i++) {
      if (!v.add(f.cell(i,0))) { // aggiunge all'hash table l'elemento 0 (primo) della riga corrente e controlla che non esista già
        error_box("I codici di lingua devono essere diversi tra loro");
        break;
      }
    }
    return (i==f.items());
  } else return TRUE;
}

bool TAnamag_application::handle_sheet2(TMask_field &fld, KEY k) {
  if (k==K_ENTER) {
    TSheet_field &f= (TSheet_field &)fld; // typecast del campo al suo sheet corrispondente
    TMask &m= fld.mask(); // prende la maschere d'origine del campo
    TAssoc_array v; // istanzia l'hash table per il controllo di univocità
    v.add(m.get(F_CODART)); // aggiunge all'hash table il codice articolo originale
    for (int i= 0; i<f.items(); i++) {
      if (!v.add(f.cell(i,0))) { // aggiunge all'hash table l'elemento 0 (primo) della riga corrente e controlla che non esista già
        error_box("I codici alternativi devono essere diversi tra loro e dal codice dell'articolo");
        break;
      }
    }
    return (i==f.items());
  } else return TRUE;
}

bool TAnamag_application::handle_sheet0_um(TMask_field &fld, KEY k) {
  if (k==K_TAB) {
    TMask &m= fld.mask(); // prende la maschera d'origine del campo (maschera dello sheet)
    TSheet_field *f= m.get_sheet(); // prende lo sheet d'origine della maschera del campo
    CHECK(f != NULL, "Il puntatore allo sheet è nullo");
    TString16 me(fld.get()); // prende il contenuto del campo corrente (unità di misura corrente)
    if ((f->selected() != 0) && me.not_empty()) {
      
      // ALGORITMO DI PRECALCOLO DEL RAPPORTO DELLE UNITA' DI MISURA NELLO SHEET
      //
      // SHEET:
      // -----
      // riga     u.m.     f.c.
      // 1)       KM       1        -> kilometri (you), riferiti al metro (your) con f.c. 1000 (your_fc)
      // ...      ...      ...
      // ...)     MM       X        -> millimetri (me), riferiti al metro (my) con f.c. 0,001 (my_fc)
      //
      // se (your==my) allora X=(your_fc/my_fc) ...chiaro, no!? :-)
      
      TTable t("%UM");
      real x(0.0); // fattore di conversione dell'unità di misura corrente
      const TString16 you(f->row(0).get(0)); // prende l'unità di misura di rapporto (dalla prima linea dello sheet)
      t.zero();
      t.put("CODTAB", me);
      if (t.read() == NOERR) {
        TString16 my(t.get("S7")); // prende l'unità di misura di riferimento dell'unità di misura corrente
        real my_fc(t.get_real("R0")); // prende il suo fattore di conversione
        t.zero();
        t.put("CODTAB", you);
        if (t.read() == NOERR) {
          TString16 your(t.get("S7")); // prende l'unità di misura di riferimento dell'unità di misura di rapporto
          real your_fc(t.get_real("R0")); // prende il suo fattore di conversione
          if (your==my) {
            x= your_fc/my_fc;
            message_box("me:%s, my:%s, my_fc:%s, you:%s your:%s, your_fc:%s, x:%s", (const char *)me, (const char *)my, my_fc.stringa(), (const char *)you, (const char *)your, your_fc.stringa(), x.stringa());
          } // NON FUNZIONA UN CAZZO!
        }
      }
      TToken_string &row= f->row(f->selected()); // prende la riga corrente dello sheet
      row.add(x.stringa(), 1); // inserisce il valore precalcolato (0 se non è possibile calcolarlo);
      f->force_update(f->selected()); // forza l'aggiornamento della riga corrente dello sheet
    }
  }
  return TRUE;
}

int ve2400(int argc, char* argv[]) {
  TAnamag_application a;
  
  a.run(argc, argv, "Anagrafica di magazzino ");
  return 0;
}