campo-sirio/mg/mglib03.cpp

#include "form.h"
#include "mglib.h"
#include "mg3frm.h"
#include "mg3msk.h"


void TForm_stampemg::add_giaclev(TString &levname, int from, int to)
{
  to=(to==0 ? (_tolivgiac ? _tolivgiac:livelli_giacenza().last_level()) : to);
  int lv=(from==0 ? 1: from );
  for (; lv <to ; lv++) {
    const TString & piece = livelli_giacenza().unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv);
    if (piece.not_empty()) 
      levname << '/' << piece ;
  } 
}


void TForm_stampemg::gruppogiac(TForm_item &cf, TToken_string &s)
{
  TString valore,levname;
  int livello=atoi(s.get());

  if (_fromlivgiac && livello == _fromlivgiac) 
  {
    levname << livelli_giacenza().name(livello) << ' ' ;
  }
  valore=livelli_giacenza().group_descr_packed(relation()->lfile(LF_MAG).get("LIVELLO"),livello);
  if (valore.empty())
    valore = UNKNOWN_NAME;
  cf.set(levname << valore);
}


void TForm_stampemg::gruppoart(TForm_item &cf, TToken_string &s)
{
  int lv=atoi(s.get());
  TToken_string valore;

  valore=livelli_articolo().group_descr_packed(relation()->lfile(LF_ANAMAG).get("CODART"),lv);
  if (valore.empty())
  {
    valore.separator(',');
    valore << "_USER,CODGRUPPOART," << lv;
    validate(cf,valore);
    valore.cut(0);
    valore << '"' << cf.get() << '"';
  }
  cf.set(valore);
}

void TForm_stampemg::codgruppogiac(TForm_item &cf, TToken_string &s)
{
  TString valore,levname;
  int livello=atoi(s.get());
  if (_fromlivgiac && livello == _fromlivgiac) 
  {
    levname=relation()->lfile(LF_MAG).get("CODART");
    add_giaclev(levname,1,_fromlivgiac);
    levname << ' ';
  } else {
    levname << livelli_giacenza().name(livello) << ' ' ;
  }
  valore=livelli_giacenza().unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),livello);
  if (valore.empty())
    valore = UNKNOWN_NAME;
  cf.set(levname << valore);
}

bool TForm_stampemg::validate(TForm_item &cf, TToken_string &s)
{ 
  static TString *last_um=NULL;
  const TFixed_string code = s.get(0); // prende il primo parametro, il codice del messaggio

  if (code=="_USER") 
  {
    const TFixed_string subcode = s.get();
    TString valore,levname;

    if (subcode=="GRUPPOGIAC") {
      gruppogiac(cf,s);
    } else if (subcode=="GRUPPOART")  {
      gruppoart(cf,s);
    } else if (subcode=="CODGRUPPOGIAC") {
      codgruppogiac(cf,s);
    } else if (subcode=="CODGRUPPOART") {
      int lv=atoi(s.get());
      do {
        valore=relation()->lfile(LF_ANAMAG).get("CODART");
        valore.rpad(25).cut(livelli_articolo().packed_length(lv));
      } while (--lv>0 && valore==""); 
      cf.set(valore);
    } else if (subcode=="CATMER") {
      valore=relation()->lfile(_ordering == mg_ragg_fisc ? -600 : (_ordering == mg_scat_merc ? -401 : -400)).get("S0");
      cf.set(valore);
    } else if (subcode=="CODCATMER") {
      valore=relation()->lfile(LF_ANAMAG).get(_ordering == mg_ragg_fisc ? "RAGGFIS" : "GRMERC");
      if (_ordering != mg_ragg_fisc) 
      {
        valore.rpad(5);
        valore.cut(_ordering == mg_scat_merc ? 5 : 3);
      }
      cf.set(valore);
    } else if (subcode=="LIVELLIGIAC") {
      int lv=_tolivgiac;
      valore="";
      do {
        const TString & piece = livelli_giacenza().unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv+1);
        if (piece.not_empty()) {
          if (valore.not_empty())
            valore << '/';
          valore << piece ;
        }
      } while (lv++<livelli_giacenza().last_level());  
      if (valore!="")
        levname=livelli_giacenza().name(_tolivgiac+1);
      else
        levname="Giacenza";
      cf.set(levname << ' ' << valore);
    } else if (subcode=="VALIDATE_UM") {
      /*CHECK(last_um,"Unit<69> di misura non definita");
      if (last_um->blank())
        cf.set("");
      delete last_um;
      last_um = NULL;*/
      TForm_string &um_field=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
      if (*um_field.get()<=' ') // blank : not a valid UM!
        cf.set("0");
    } else if (subcode=="SAVE_UM") {
      CHECK(FALSE,"SAVE_UM no more available");
    } else if (subcode=="RESET_UM") {
      TForm_string &dest=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
      dest.set("");
    } else if (subcode=="COPY_UM") {
      /*if (last_um==NULL) 
        last_um = new TString16(cf.get());
      if (*last_um != cf.get())
      {
        // impossibile sommare le quantit<69> degli articoli per UM diverse
        last_um->cut(0);
        dest.set("");
        cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
      }*/
      TForm_string &dest=(TForm_string &)cf.form().find_field('B',odd_page,atoi(s.get()) );
      if (*dest.get() && strcmp(dest.get(),cf.get()) != 0)
      {
        // impossibile sommare le quantit<69> degli articoli per UM diverse
        dest.set("  ");
        //cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
      } else {
        // prima sommare le quantit<69> degli articoli per UM diverse
        dest.set( cf.get() );
        //cf.form().find_field('B',odd_page,FF_FLAGTOTQTA).set("0");
      }
    } 
    return TRUE;
  } else
    return TForm::validate(cf, s);
}

void TForm_stampemg::set_ordering(const TTipo_ordinamento_mg t)
{
  _ordering = t;
  TForm_subsection &s=((TForm_subsection &)find_field('B',odd_page,"GRUPPI_CATMER"));
  TString cond;
  switch (_ordering)
  {
   default:
   case mg_normale:
    cond = "CODART";
    break;
   case mg_ragg_fisc:
    cond = "RAGGFIS";
    break;
   case mg_cat_merc:
    cond = "GRMERC[1,3]";
    break;
  }
  s.setcondition(cond,_strexpr);
}

bool TForm_stampemg::setdett_perart(bool totaliart,int fromlivart,int livart,bool totaligiac,int fromlivgiac,int livgiac,bool showmag, bool showdep)
{
  const int last_artlev=livelli_articolo().last_level() ? livelli_articolo().last_level() : 1;
  const int last_giaclev=livelli_giacenza().last_level();

  if (totaliart)  // voglio i totali di articolo
  {
    if (livart==0 && fromlivgiac==0)
      livart=last_artlev; // 
  }
  else
  {
    if (fromlivgiac==0)
      fromlivart=last_artlev;
  }
  if (totaligiac) // voglio i totali di giacenza
  {
    if (livgiac==0 && livart==0)
      livgiac=last_giaclev; // 
  } 
  else
  {
    if (fromlivart>livart)
      livart=fromlivart;
  }
  find_field('B',odd_page,"H_MAGAZZINO").enable(showmag && showdep);
  find_field('B',odd_page,"TOT_MAGAZZINO").show(showmag);
  find_field('B',odd_page,"H_DEPOSITO").show(FALSE);
  find_field('B',odd_page,"TOT_DEPOSITO").show(showdep);
  return setdettaglio(TRUE,fromlivart,livart,fromlivgiac,livgiac,showmag||showdep);
}

bool TForm_stampemg::setdett_permag(bool totaliart,int fromlivart,int livart,bool totaligiac,int fromlivgiac,int livgiac,bool showmag, bool showdep,bool showdett)
{
  const int last_artlev=livelli_articolo().last_level() ? livelli_articolo().last_level() : 1;
  const int last_giaclev=livelli_giacenza().last_level();

  if (totaliart)  // voglio i totali di articolo
  {
    if (livart==0 && fromlivgiac==0)
      livart=last_artlev; // 
  }
  else
  {
    if (fromlivgiac==0)
      fromlivart=last_artlev;
  }
  if (totaligiac) // voglio i totali di giacenza
  {
    if (livgiac==0 && livart==0)
      livgiac=last_giaclev; // 
  } 
  else
  {
    if (fromlivart>livart)
      livart=fromlivart;
  }

  find_field('B',odd_page,"H_MAGAZZINO").show(showmag && (showdep || showdett) );
  find_field('B',odd_page,"TOT_MAGAZZINO").show(showmag);

  find_field('B',odd_page,FF_DIVDEPOSITI).enable(showdep);
  find_field('B',odd_page,"H_DEPOSITO").show(showdep && showdett);
  find_field('B',odd_page,"TOT_DEPOSITO").show(showdep);
  return  setdettaglio(showdett,fromlivart,livart,fromlivgiac,livgiac,FALSE);
}


bool TForm_stampemg::setdettaglio(bool show, int fromlivart,int livart,int fromlivgiac,int livgiac,bool dettgiac)
{
  const int last_artlev=livelli_articolo().last_level() ? livelli_articolo().last_level() : 1;
  const int last_giaclev=livelli_giacenza().last_level();

  const int tolivart =min(( livart ? livart  :last_artlev) ,last_artlev-1);
  const int tolivgiac=min((livgiac ? livgiac :last_giaclev),last_giaclev );

  _fromlivart=fromlivart;
  _fromlivgiac=fromlivgiac;
  _tolivart=livart;
  _tolivgiac=livgiac;
  // ***********
  // abilita le sezioni dei livelli di codice 
  TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,"H_ARTICOLO");
  TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,"TOT_ARTICOLO");
  if (fromlivgiac==0 // non raggruppo a partire dai livelli di giacenza
    && (livart==0 || livart==last_artlev)) {
    s1.show(show && (dettgiac || livgiac!=0) );
    s2.show(show);
  } else {
    s1.hide();
    s2.hide();
  }
  int i;
  for (i=1; i<=FORM_MAXARTLEV; i++)
  {
    TString sname("TOT_GART");
    sname << i;
    TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,sname);
    s1.show(show && i>=fromlivart && i<=tolivart && fromlivgiac==0);
    sname="H_GCODART";
    sname << i;
    TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,sname);
    s2.show(show && i>=fromlivart && 
      (i<tolivart || (i==tolivart && (livart==0 || livart>tolivart || livgiac || dettgiac))) && fromlivgiac==0);
  }
  // abilita le sezioni del codice livelli giacenza
  for (i=1; i<=FORM_MAXGIACLEV; i++)
  {
    TString sname("TOT_GLIVGIAC");
    sname << i;
    TForm_subsection &s1=(TForm_subsection &)find_field('B',odd_page,sname);
    s1.show(show && i>=fromlivgiac && (i<=tolivgiac) && (livart==0));
    sname="H_GLIVGIAC";
    sname << i;
    TForm_subsection &s2=(TForm_subsection &)find_field('B',odd_page,sname);
    s2.show(show && i>=fromlivgiac && (i<tolivgiac ||(i==tolivgiac && dettgiac)) && livart==0);
  }

  // ***********
  fromlivart = fromlivart ? fromlivart  :1;
  fromlivgiac=fromlivgiac ? fromlivgiac :1;
  // codice livello giacenza
  for (i=fromlivgiac;i<=tolivgiac ; i++) {
    if (livart==0)
    {
      TString sname=("GRUPPI_LIVGIAC");
      sname << i;
      TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,sname);
      TString cond(s.condition());
      cond << "+LIVELLO[" << livelli_giacenza().packed_length(i-1)+1 << "," << livelli_giacenza().packed_length(i) <<']';
      s.setcondition(cond,_strexpr);
    }
  }
  // sezioni livello codice 
  // for (i=fromlivart;i<=tolivart ; i++) {
  for (i=1;i<=tolivart ; i++) {
    TString sname("GRUPPI_CODART");
    sname << i;
    TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,sname);
    TString cond(s.condition());
    cond << '[' << (i==1 ? 1:livelli_articolo().packed_length(i-1))<<',' << livelli_articolo().packed_length(i) <<']';
    s.setcondition(cond,_strexpr);
  }

  return TRUE;
}


TForm_stampemg::TForm_stampemg(const char *name,const char *code) 
  : TForm(name,code)
{
//  _giaclev= new TCodgiac_livelli();
//  _artlev= new TCodart_livelli(); 
  _fromlivgiac=_tolivgiac=0;
  _fromlivart=_tolivart=0;
  _ordering = mg_normale;
  
}
TForm_stampemg::~TForm_stampemg()
{
//  delete _giaclev;
//  delete _artlev;
}

// maschera delle stampe magazzino

void TStampemg_mask::enable_livellicodice() 
{
  int pos = id2pos(F_RAGGCODICE);
  if (pos >= 0) 
  {
    TMask_field &f_ragg=field(F_RAGGCODICE);
    if (!livelli_articolo().enabled()) 
    {
      // nasconde i campi di livello articolo
      f_ragg.reset(); f_ragg.check(); f_ragg.hide();       
      field(F_FROMLIVELLOART).hide();
      field(F_TOLIVELLOART).hide();
    } else {
      f_ragg.set("");
      f_ragg.show();
      f_ragg.check();
      field(F_FROMLIVELLOART).show();
      field(F_TOLIVELLOART).show();
    }
    
  } 
  int pos_g = id2pos(F_RAGGLIVGIAC);
  if (pos_g >= 0) 
  {
    TMask_field &f_ragg=field(F_RAGGLIVGIAC);
    if (!livelli_giacenza().enabled()) 
    {
      // nasconde i campi di livello giacenza
      f_ragg.reset(); f_ragg.check();f_ragg.hide();
      field(F_FROMLIVELLOGIAC).hide();
      field(F_TOLIVELLOGIAC).hide();
    } else {
      f_ragg.set("");
      f_ragg.show();
      f_ragg.check();
      field(F_FROMLIVELLOGIAC).show();
      field(F_TOLIVELLOGIAC).show();
    }
    
  }
}

void TStampemg_mask::set_livellicodice()
{
  if (!get_bool(F_RAGGCODICE) && get_int(F_FROMLIVELLOGIAC)==0)
  {
    set(F_FROMLIVELLOART,livelli_articolo().last_level());
    //set(F_TOLIVELLOART,);
  }
  if (!get_bool(F_RAGGLIVGIAC))
  {
    if (get_int(F_TOLIVELLOART)==0)
      set(F_TOLIVELLOART,livelli_articolo().last_level()); // 
  } else {
    if (get_int(F_TOLIVELLOGIAC)==0)
      set(F_TOLIVELLOGIAC,livelli_giacenza().last_level()); // 
  }
}