campo-sirio/mg/mglib03.cpp

#include "form.h"
#include "mglib.h"


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


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

  if (_fromlivgiac) {
    levname=relation()->lfile(LF_MAG).get("CODART");
    if (_fromlivgiac>1) {
      add_giaclev(levname);
    } 
  } 
  levname << ' ' << _giaclev->name(livello) ;
  valore=_giaclev->group_descr(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());
  TString valore;

  valore=_artlev->group_descr(relation()->lfile(LF_ANAMAG).get("CODART"),lv);
  if (valore.not_empty())
    cf.set(valore);
  else  
    cf.set(UNKNOWN_NAME);
}

bool TForm_stampemg::validate(TForm_item &cf, TToken_string &s)
{ 
  const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
  TString subcode;
  TString valore,levname;

  if (code=="_USER") {
    subcode=s.get();

    if (subcode=="GRUPPOGIAC") {
    /*
      int lv=atoi(s.get());
      do {
        valore=_giaclev->build_tabcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv);
      } while (--lv>0 && valore==""); 
      if (valore!="")
        levname=_giaclev->name(lv+1) ;
      else
        levname="giacenza";
      cf.set(levname << ' ' << _giacgrp->decode(valore));
    */
      gruppogiac(cf,s);
    } 
    if (subcode=="GRUPPOART")  {
      /*
      int lv=atoi(s.get());
      do {
        valore=_artlev->build_tabcode(relation()->lfile(LF_ANAMAG).get("CODART"),lv);
      } while (--lv>0 && valore==""); 
      cf.set(_artgrp->decode(valore));
      */
      gruppoart(cf,s);
    } 
    if (subcode=="CODGRUPPOART") {
      int lv=atoi(s.get());
      do {
        valore=relation()->lfile(LF_ANAMAG).get("CODART");
        valore.rpad(25).cut(_artlev->packed_length(lv));
      } while (--lv>0 && valore==""); 
      cf.set(valore);

    } 
    if (subcode=="CATMER") {
      valore=relation()->lfile(_sottocatmer ? -401 : -400).get("S0");
      cf.set(valore);
    } 
    if (subcode=="CODCATMER") {
      valore=relation()->lfile(LF_ANAMAG).get("GRMERC");
      valore.rpad(5).cut(_sottocatmer ? 5:3);
      cf.set(valore);
    } 
    if (subcode=="LIVELLIGIAC") {
      int lv=_tolivgiac;
      valore="";
      do {
        const TString & piece = _giaclev->unpack_grpcode(relation()->lfile(LF_MAG).get("LIVELLO"),lv+1);
        if (piece.not_empty()) {
          if (valore.not_empty())
            valore << '/';
          valore << piece ;
        }
      } while (lv++<_giaclev->last_level());  
      if (valore!="")
        levname=_giaclev->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::setcatmer(bool catmer,bool sottoc)
{
  TForm_subsection &s=((TForm_subsection &)find_field('B',odd_page,"GRUPPI_CATMER"));
  TString cond("GRMERC");
  if (catmer)
    cond << "[1," << (sottoc ? 5 : 3) <<']';
  else
    cond ="CODART[1,1]";
  s.setcondition(cond,_strexpr);
  _sottocatmer=sottoc;
} 

bool TForm_stampemg::setdett_perart(int fromlivart,int livart,int fromlivgiac,int livgiac,bool showmag, bool showdep)
{
  find_field('B',odd_page,"H_MAGAZZINO").show(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(int fromlivart,int livart,int fromlivgiac,int livgiac,bool showmag, bool showdep,bool showdett)
{
  find_field('B',odd_page,"H_MAGAZZINO").show(showmag && (showdep) );
  find_field('B',odd_page,"TOT_MAGAZZINO").show(showmag);
  find_field('B',odd_page,"H_DEPOSITO").show(showdep && showdett);
  find_field('B',odd_page,"TOT_DEPOSITO").show(showdep);

  if (livgiac==0)
    livgiac = _giaclev->last_level();

  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=_artlev->last_level();
  const int last_giaclev=_giaclev->last_level();

  const int tolivart =min(( livart ? livart  :_artlev->last_level()) ,_artlev->last_level()-1) ;
  const int tolivgiac=min((livgiac ? livgiac :_giaclev->last_level()),_giaclev->last_level()-1);

  _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==_artlev->last_level())) {
    s1.show(show && dettgiac);
    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>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++) {
    TString sname=("GRUPPI_LIVGIAC");
    sname << i;
    TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,sname);
    TString cond(s.condition());
    cond << "[1," << _giaclev->packed_length(i) <<']';
    s.setcondition(cond,_strexpr);
  }
  // sezioni livello codice 
  for (i=fromlivart;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:_artlev->packed_length(i-1))<<',' << _artlev->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;
}
TForm_stampemg::~TForm_stampemg()
{
  delete _giaclev;
  delete _artlev;
}