campo-sirio/mg/mg0100.cpp

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


#define MAXMETACH 20
// maschere delle tabelle di magazzino
class TMask_tabmag : public TMask
{
  TCodice_livelli * cod_liv;
  TTable *aux_tabf;
  TFile_cache *tab_cache;
  TMetachar * metach;

  static bool singlemag_handler(TMask_field &, KEY); // handler 
  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 codgrp_handler(TMask_field &, KEY); // handler del numero formato
  static bool numlivart_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; 
    if (tabname == "MAG")  // Magazzini
    {
      TMagazzini magazzini;
      if (!magazzini.gestmultimag())
        set_handler(F_CODICE, singlemag_handler);
      if (!magazzini.gestdep())
      {
        field(F_GESTGIA).reset();
        field(F_GESTGIA).disable();
      }
    }
    else if (tabname == "%CAU") 
    {
      set_handler(F_SGNGIAC, sumsign_handler);
    }
    else if (tabname == "FCA")  // FORMATO CODICE ARTICOLI
    {
      cod_liv=new TCodart_livelli;
      aux_tabf = new TTable("FCA");
      metach= new TMetachar("");
      set_handler(F_FORMLIV, format_handler);
      set_handler(F_CODLIV, codliv_handler);
    }
    else if (tabname == "GCA") // GRUPPI CODICE ARTICOLI
    {
      cod_liv=new TCodart_livelli;
      set_handler(F_CODLIV, numlivart_handler);
      set_handler(F_CODGROUP, codgrp_handler);
    }
    else if (tabname == "FCG")  // FORMATO CODICE GIACENZE
    {
      cod_liv = new TCodgiac_livelli;
      metach = new TMetachar("") ;
      aux_tabf = new TTable("FCG");
      set_handler(F_FORMLIV, format_handler);
      set_handler(F_CODLIV, codliv_handler);
    }
    else if (tabname == "GCG")      // GRUPPI CODICE GIACENZE
    {
      cod_liv = new TCodgiac_livelli;
      set_handler(F_CODGROUP, codgrp_handler);
    }
}

TMask_tabmag::~TMask_tabmag()
{
  if (aux_tabf!=NULL)
    delete aux_tabf;
}

// tabella magazzini: controllo codice 
bool TMask_tabmag::singlemag_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.get().not_empty())
  {
    TTable mag("MAG");
    mag.first();
    if (!mag.eof() && mag.get("CODTAB")!=f.get())
    {
      f.error_box("E' abilitata la gestione di un solo magazzino");
      f.set(mag.get("CODTAB"));
    }
  }
  return TRUE;  
}

// tabella causali: handler della somma segni
bool TMask_tabmag::sumsign_handler(TMask_field& f, KEY k)
{        
  if (k == K_ENTER)
  {                  
    int ss=f.mask().get_int(F_SGNGIAC)-f.mask().get_int(F_SGNRIM);
    ss-=f.mask().get_int(F_SGNACQ)+f.mask().get_int(F_SGNENTR);
    ss+=f.mask().get_int(F_SGNVEN)+f.mask().get_int(F_SGNUSC);
    ss+=f.mask().get_int(F_SGNACL)-f.mask().get_int(F_SGNINCL);
    ss+=f.mask().get_int(F_SGNPRODF)-f.mask().get_int(F_SGNPRODC);
    ss+=f.mask().get_int(F_SGNSCAR);
    f.mask().set(F_SUMSIGN,long(ss));
    if (ss!=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 & myself=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=myself.aux_tabf;

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

    aux_tabf->zero();
    aux_tabf->put("CODTAB",myself.get_int(F_CODLIV)+1);
    if (aux_tabf->read()==NOERR)
    {
      // non <20> l'ultimo livello: solo caratteri obbligatori
      if (myself.metach->has_opzchars(s))
      {
        f.error_box("I caratteri di formato opzionali ('%s') sono consentiti solo per l'ultimo livello",
          myself.metach->opz_chars());
        return FALSE;  
      }
    } 
    // setta il campo con la lunghezza massima della stringa di formato
    //myself.field(F_LENFORM).set(myself.metach->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 & myself=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=myself.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 && myself.metach->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::numlivart_handler(TMask_field& f, KEY k)
{        
  if ((k == K_TAB && f.focusdirty())||k == K_ENTER )
  {                  
    TMask_tabmag & myself=((TMask_tabmag &)f.mask());

    if (myself.get_int(F_CODLIV)==myself.cod_liv->last_level())
    // non esiste un seguente
    {
      f.error_box("Non <20> possibile definire gruppi per l'ultimo livello di codice articolo");
      return FALSE;  
    }
  }
  return TRUE;  
}


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

    if (!(myself.cod_liv->fit_to_format(f.get(),myself.get_int(F_CODLIV))))
    {
      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<EFBFBD> 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;
}