campo-sirio/mg/mg0100.cpp

// gestione tabelle di magazzino

#include <modaut.h>
#include <tabapp.h>
#include <tabutil.h>

#include "batbcau.h"
#include "batbfca.h"

#include "mglib.h"
#include "../ve/batbmag.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 stdmag_handler(TMask_field &, KEY); // handler 
  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 formatgiac_handler(TMask_field &, KEY); // handler dei metacaratteri
  static bool codlivart_handler(TMask_field &, KEY); // handler del numero formato articoli
  static bool codlivgiac_handler(TMask_field &, KEY); // handler del numero formato giacenze
  static bool codgrp_handler(TMask_field &, KEY); // handler del numero formato
  static bool numlivart_handler(TMask_field &, KEY); // handler del numero formato


public:
  // @cmember Disabilita la verifica del modulo in chiave
  virtual bool check_autorization() const 
  {return FALSE;}
  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);
        set_handler(F_MAGSTD, stdmag_handler);
        //disable(F_MAGSTD);
      }
      if (!magazzini.gestdep())
      {
        field(F_GESTGIA).reset();
        field(F_GESTGIA).disable();
      }
    }
    else if (tabname == "%CAU") 
    {
      if (!main_app().has_module(DBAUT))
        hide(F_DIBAEXPLOSION);
      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, codlivart_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, formatgiac_handler);
      set_handler(F_CODLIV, codlivgiac_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 magazzini: controllo mag std 
bool TMask_tabmag::stdmag_handler(TMask_field& f, KEY k)
{        
  if (k == K_ENTER)
    f.set("X");
  return TRUE;  
}

// tabella causali: handler della somma segni
bool TMask_tabmag::sumsign_handler(TMask_field& f, KEY k)
{        
  int ok=TRUE;
  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;  
    }
#define ABSSALDO(fld) abs(f.mask().get_int(fld))
    if (f.mask().edit_mode() || f.mask().insert_mode())
    {
      int ps=ABSSALDO(F_SGNGIAC)+ABSSALDO(F_SGNRIM);
      ps+=ABSSALDO(F_SGNACQ)+ABSSALDO(F_SGNENTR);
      ps+=ABSSALDO(F_SGNVEN)+ABSSALDO(F_SGNUSC);
      ps+=ABSSALDO(F_SGNACL)+ABSSALDO(F_SGNINCL);
      ps+=ABSSALDO(F_SGNPRODF)+ABSSALDO(F_SGNPRODC);
      ps+=ABSSALDO(F_SGNORDC)+ABSSALDO(F_SGNORDF);
      ps+=ABSSALDO(F_SGNLABEL)+ABSSALDO(F_SGNSCAR);
      if (ps==0)
        ok = f.yesno_box("Attenzione: la causale non movimenta nessun saldo. Confermi ?");
      const char tipomov=*f.mask().get(F_TIPOMOV);
      if ((f.mask().get_int(F_SGNGIAC) >=0 && tipomov=='S') )
        ok = f.yesno_box("Attenzione: la causale e' impostata come scarico ma la giacenza non e' movimentata in negativo. Confermi ?");
      if ((f.mask().get_int(F_SGNGIAC) <=0 && tipomov=='C'))
        ok = f.yesno_box("Attenzione: la causale e' impostata come carico ma la giacenza non e' movimentata in positivo. Confermi ?");
    }
  }
  return ok;  
}

// 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 & mask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mask.aux_tabf;

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

    aux_tabf->zero();
    aux_tabf->put("CODTAB",mask.get_int(F_CODLIV)+1);
    if (aux_tabf->read()==NOERR)
    {
      // non <20> l'ultimo livello: solo caratteri obbligatori
      if (mask.metach->has_opzchars(s))
      {
        f.error_box("I caratteri di formato opzionali ('%s') sono consentiti solo per l'ultimo livello",
          mask.metach->opz_chars());
        return FALSE;  
      }
    } 
  }
  return TRUE;  
}

// HANDLER DEL FORMATO DEL LIVELLO
bool TMask_tabmag::formatgiac_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.focusdirty())
  {                  
    const int maxlen=15;
    int total_len=0;
    TString s(f.get());
    TMask_tabmag & mask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mask.aux_tabf;

    s.strip_spaces();
    f.set(s);
    mask.set(F_LENFORM,mask.metach->maxstrlen(s));

    aux_tabf->zero();
    aux_tabf->put("CODTAB",1);
    if (aux_tabf->read()==NOERR)
    {
      do {
        if (aux_tabf->get_int("CODTAB") != mask.get_int(F_CODLIV))
          total_len+=aux_tabf->get_int("I0");
      } while (aux_tabf->next()==NOERR);
    }
    total_len+=mask.get_int(F_LENFORM);
    if (total_len > maxlen)
    {
      f.error_box("La somma delle lunghezze dei codici \n dei livelli di giacenza eccede \nil massimo consentito di %d caratteri",maxlen);
      return FALSE;  
    }
  }
  return TRUE;  
}


// HANDLER DEL CODICE LIVELLO
bool TMask_tabmag::codlivart_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.focusdirty())
  {                  
    TMask_tabmag & mask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mask.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 && mask.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;  
}


// HANDLER DEL CODICE LIVELLO
bool TMask_tabmag::codlivgiac_handler(TMask_field& f, KEY k)
{        
  if (k == K_TAB && f.focusdirty())
  {                  
    TMask_tabmag & mask=((TMask_tabmag &)f.mask());
    TTable * aux_tabf=mask.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)
      // non esiste un precedente
      {
        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 & mask=((TMask_tabmag &)f.mask());

    if (mask.get_int(F_CODLIV)==mask.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 & mask=((TMask_tabmag &)f.mask());

    if (!mask.cod_liv->enabled())
    {
      f.error_box("Livelli del codice non abilitati");
      return FALSE;  
    }

    if (!f.empty() && !(mask.cod_liv->fit_to_format(f.get(),mask.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 {
    TFixed_string tabname(get_tabname());
    TString maskname;
    return Tab_application::set_mask(new TMask_tabmag((const char *)get_mask_name(maskname),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;
}