campo-sirio/mg/mg0100.cpp

// gestione tabelle di magazzino
#include <tabapp.h>
#include <tabutil.h>
#include "batbcau.h"
#include "batbfca.h"

#include "mglib.h"


#define MAXMETACH 20
// maschere delle tabelle di magazzino
class TMask_tabmag : public TMask
{
  TTable *aux_tabf;
  TFile_cache *tab_cache;
  TMetachar * metac[MAXMETACH];

  static bool sumsign_handler(TMask_field &, KEY); // handler 
  static bool format_handler(TMask_field &, KEY); // handler dei metacaratteri
  static bool codliv_handler(TMask_field &, KEY); // handler del numero formato
  static bool numform_handler(TMask_field &, KEY); // handler del numero formato
  static bool codlivgca_handler(TMask_field &, KEY); // handler del numero formato


public:
  TMask_tabmag(const char * ,const TString16 &);
  virtual ~TMask_tabmag();
};

// costruttore della maschera 
TMask_tabmag::TMask_tabmag(const char * _maskname,const TString16 &tabname):
  TMask(_maskname)
{
    aux_tabf=NULL; 
    for (int i=0;i<MAXMETACH;i++) 
      metac[i]=NULL;
    if (tabname == "CAU") 
    {
      set_handler(F_SGNGIAC, sumsign_handler);
    }
    if (tabname == "FCA")  // FORMATO CODICE ARTICOLI
    {
      metac[0]=new TMetachar;
      aux_tabf = new TTable("FCA");
      set_handler(F_FORMLIV, format_handler);
      set_handler(F_CODLIV, codliv_handler);
    }
    if (tabname == "GCA") // GRUPPI CODICE ARTICOLI
    {
      tab_cache = new TDecoder("FCA","S1");
      tab_cache->fill();
      // crea i riconoscitori del formato
      for (int i=1; ((TDecoder *)tab_cache)->decode(i)!="";i++) 
      {
        metac[i-1]=new TMetachar(((TDecoder *)tab_cache)->decode(i));
      }
      set_handler(F_CODLIV, codlivgca_handler);
      set_handler(F_CODGROUP, numform_handler);
    }
    if (tabname == "FCG")  // FORMATO CODICE GIACENZE
    {
      metac[0]=new TMetachar;
      aux_tabf = new TTable("FCG");
      set_handler(F_FORMLIV, format_handler);
      set_handler(F_CODLIV, codliv_handler);
    }
    if (tabname == "GCG")      // GRUPPI CODICE GIACENZE
    {
      tab_cache = new TDecoder("FCG","S1");
      tab_cache->fill();
      for (int i=1; ((TDecoder *)tab_cache)->decode(i)!="";i++) 
      {
        metac[i-1]=new TMetachar(((TDecoder *)tab_cache)->decode(i));
      }
      set_handler(F_CODGROUP, numform_handler);
    }
}

TMask_tabmag::~TMask_tabmag()
{
  if (aux_tabf!=NULL)
    delete aux_tabf;
  for (int i=0;i<MAXMETACH;i++)  {
    if (metac[i]!=NULL)
      delete metac[i];
  }   
}

// tabella causali: handler della somma segni
bool TMask_tabmag::sumsign_handler(TMask_field& f, KEY k)
{        
  if (k == K_ENTER)
  {                  
    if (f.mask().get_int(F_SUMSIGN)!=0)
    {
      f.error_box("La somma dei segni \n((GIAC-RIM)-(ACQ+ENTR)+(VEN+USC)+(ACL-INCL)+(PRODF-PRODC) + SCARTI) \ndeve essere uguale a zero");
      return FALSE;  
    }
  }
  return TRUE;  
}

// HANDLER DEL FORMATO DEL LIVELLO
bool TMask_tabmag::format_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.focusdirty())
  {                  
    TString s(f.get());
    TMask_tabmag & mymask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mymask.aux_tabf;

    s.strip_spaces();
    f.set(s);

    aux_tabf->zero();
    aux_tabf->put("CODTAB",mymask.get_int(F_CODLIV)+1);
    if (aux_tabf->read()==NOERR)
    {
      // esiste il seguente:solo caratteri obbligatori
      if (mymask.metac[0]->has_opzchars(s))
      {
        f.error_box("I caratteri di formato opzionali ('%s') sono consentiti solo per l'ultimo livello",mymask.metac[0]->opz_chars());
        return FALSE;  
      }
    } /*else {
      // ultimo livello: almeno un carattere obbligatorio
      // ELIMINATO
      if (!mymask.metac[0]->has_mandchars(s))
      {
        f.error_box("Il codice dell'ultimo livello deve includere almeno un carattere obbligatorio (letterali o '%s') ",mymask.metac[0]->mand_chars());
        return FALSE;  
      }
    }*/
    // setta il campo con la lunghezza massima della stringa di formato
    mymask.field(F_LENFORM).set(mymask.metac[0]->maxstrlen(f.get()));
  }
  return TRUE;  
}

// HANDLER DEL CODICE LIVELLO
bool TMask_tabmag::codliv_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.focusdirty())
  {                  
    TMask_tabmag & mymask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mymask.aux_tabf;
    int codliv=atoi((const char *)f.get());
    
    if (codliv>1)
    // Non <20> il primo codice
    {
      aux_tabf->zero();
      aux_tabf->put("CODTAB",codliv-1);
      if (aux_tabf->read()==NOERR)
      // esiste un precedente
      {
        TString prevformat(aux_tabf->get("S1"));
        aux_tabf->zero();
        aux_tabf->put("CODTAB",codliv+1);
        if (aux_tabf->read()!=NOERR && mymask.metac[0]->has_opzchars(prevformat))
        {
          f.error_box("Il livello precedente include caratteri opzionali nel formato\ne non puo' divenire un livello intermedio");
          return FALSE;  
        }
      } else {
        f.error_box("Non si possono inserire salti nel livello del codice");
        return FALSE;  
      }
    }
  }
  return TRUE;  
}


// gestisce l'introduzione del codice del livello articoli
bool TMask_tabmag::codlivgca_handler(TMask_field& f, KEY k)
{        
  if ((k == K_TAB && f.focusdirty())||k == K_ENTER )
  {                  
    TMask_tabmag & mymask=((TMask_tabmag &)f.mask());

    if (((TDecoder *)mymask.tab_cache)->decode(atoi((const char *)f.get())+1)=="")
    // non esiste un seguente
    {
      f.error_box("Non <20> possibile definire gruppi per l'ultimo livello di codice");
      return FALSE;  
    }
  }
  return TRUE;  
}


// HANDLER DEL CODICE LIVELLO giacenza
// HANDLER DEL CODICE LIVELLO anagrafica
bool TMask_tabmag::numform_handler(TMask_field& f, KEY k)
{        
  if ((k == K_TAB && f.focusdirty())||k == K_ENTER )
  {                  
    TMask_tabmag & mymask=((TMask_tabmag &)f.mask());

    if (!(mymask.metac[mymask.get_int(F_CODLIV)-1])->recognized(f.get()))
    {
      f.error_box("Codice non corrispondente al formato previsto");
      return FALSE;  
    }
  }
  return TRUE;  
}




// applicazione per la gestione delle tabelle di magazzino
class Tab_app_mag : public Tab_application
{
  
protected:  // TRelation_application
  virtual bool user_destroy() ;          
  virtual bool user_create() ;
  virtual bool protected_record(TRectype& rec) ;
  virtual int rewrite(const TMask& m);
  
  virtual TMask * set_mask(TMask * _m=NULL);
  
public:
  Tab_app_mag();
  virtual ~Tab_app_mag() {}
};


HIDDEN inline Tab_app_mag& app() { return (Tab_app_mag&)main_app(); }
// costruttore
Tab_app_mag::Tab_app_mag() {}


bool Tab_app_mag::protected_record(TRectype& rec) 
{ 
  bool prot = rec.get_bool(FPC);

  if (!prot)
  {
    if (get_tabname()=="FCA" ||get_tabname()=="FCG" )
    {
      // non si possono cancellare i livelli intermedi:se non <20> l'ultimo livello, proteggilo
      TTable aux_tabf(get_tabname());
      aux_tabf.put("CODTAB",rec.get_int("CODTAB")+1);
      if (aux_tabf.read()==NOERR)
        prot=TRUE;  
    }
  }
  return prot;
}

// alloca/cambia la maschera dell'applicazione
TMask * Tab_app_mag::set_mask(TMask * _m)
{
  if (_m != NULL)
    return Tab_application::set_mask(_m);
  else
    return Tab_application::set_mask(new TMask_tabmag((const char *)mask_name(),get_tabname()));
}

bool Tab_app_mag::user_create()
{
  /*
    la Tab_application::user_create() apre la maschera TMask in modo automatico
    basandosi sul parametro passato sulla linea di comando e sulla convenzione
    nome = "BATB"+parametro;
    ORA:
      - questa convenzione cambier<65> per separare i programmi (e le maschere)
          dei vari pacchetti
          In tal caso ridefinire il metodo virtual mask_name()
      - secondo il nuovo stile, gli handler vanno posti in maschere derivate
        dalla TMask (TMask_tabmag, TMask_tabcau, ecc), pertanto occorre che 
        la maschera aperta sia del tipo corretto 
        per questo motivo la maschera viene creata dalla user_create()
  */

  bool ok = Tab_application::user_create();
  
  if (ok) 
  {
    //TMask& mask = *set_mask();
  }
  
  return ok;
}

bool Tab_app_mag::user_destroy()
{
  return Tab_application::user_destroy();
}

int Tab_app_mag::rewrite(const TMask& m)
{
  return Tab_application::rewrite(m);
}


int mg0100(int argc, char* argv[])
{
 Tab_app_mag a;
  a.run(argc, argv, "Tabella");
  return 0;
}