campo-sirio/or/orlib01.cpp

#include "orlib.h"
#include "or1100a.h"

// Prima colonna quantita' nel form per stampa disponibilita'
#define COL1      4

TOrdine_form::TOrdine_form(const char* name) : TForm(name)
{
  _art_giac = new TArticolo_giacenza;
  _esercizi = new TEsercizi_contabili;
  _fcg = new TTable("FCG");
  _codgiac = new TCodgiac_livelli;
}

TOrdine_form::~TOrdine_form()
{
  delete _codgiac;
  delete _fcg;
  delete _esercizi;
  delete _art_giac;
}

const int TOrdine_form::find_period(const TDate& dc)
{
  CHECK(_date_array, "Invalid date array in TOrdine_form");
  const int items = _date_array->items();
  for (int i = items-1; i >= 0; i--) // ciuccialo alla rovescia... ehehe ;)
  {
    TDate& dt = (TDate&)*_date_array->objptr(i);
    if (dc > dt)
      break;
  }
  return i+1;
}

bool TOrdine_form::genera_intestazione_supplementare(pagetype p, short y)
{
  CHECK(_date_array, "L'array delle date non e' impostato.");
  TPrint_section* body = exist('B', p);
  if (body == NULL || !body->columnwise()) 
    return FALSE;

  TPrint_section* header = exist('H', p);
  if (header == NULL) 
    return FALSE;

  const int items = _date_array->items();//body->fields();
  TForm_string* s;
  TString des;
  for (int j=0;j<items;j++)
  {
    TForm_item& fi = body->find_field(COL1+j*2);
    des = "Situaz. al ";
    des << ((TDate*)_date_array->objptr(j))->string();
    des.center_just(fi.width()*2);
    s = new TForm_string(header);
    s->id() = -1;
    s->set_x(fi.x());
    s->y() = y;
    s->set_prompt(des);
    s->temp() = TRUE;
    header->add_field(s);
  }
  
  return TRUE;
}

bool TOrdine_form::validate(TForm_item &cf, TToken_string &s)
{
  const TString code(s.get(0)); 
  
  if (code == "_ORDINE")
  {
    TLocalisamfile& doc = cf.form().cursor()->file(LF_DOC);
    //TLocalisamfile& rdoc = cf.form().cursor()->file(LF_RIGHEDOC);
    TRiga_documento& rdoc = (TRiga_documento&) cf.form().cursor()->file(LF_RIGHEDOC).curr();
    // Add custom messages here
    // All the following messages takes 1 parameter: the field number to set
    TString action(s.get(1));
    
    if (action == "DESCRIZIONE")
    {
      // Scrive: Cod articolo/cod livello1/cod livello2/.../denominazione ultimo livello   codifica /cod mag /cod dep
      // Nel caso di stampa disponibilita' articoli stampa un pezzo della descrizione
      // vera e proprio dell'articolo.
      TString codart,livello, coddep, codmag;
      codart = rdoc.get(RDOC_CODART);
      if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
      { 
        if (_normale)
          codart << " " << _art_giac->get(ANAMAG_DESCR);
        else
          codart = _art_giac->get(ANAMAG_DESCR);
        
        if (codart.len() > 40)
          codart.cut(40);
      }
      if (_level > 0)
        livello = rdoc.get(RDOC_LIVELLO);
      if (livello.not_empty())
      {
        for (int lev=1; lev <= _level; lev++)
        {
          if (!_codgiac->enabled(lev))
            continue;
          const int starts = _codgiac->code_start(lev) -1;
          const int length   = _codgiac->code_length(lev);
          codart << "/";
          codart << livello.mid(starts,length);
        }
        codart << "   " << _codgiac->name(_level);
        codart << " " << _codgiac->group_descr(livello,_level);
      }
      
      codmag = rdoc.get(RDOC_CODMAG).left(3);
      coddep = rdoc.get(RDOC_CODMAG).right(2);
      if (_detail_mag && codmag.not_empty())
        codart << " Mag. " << codmag;
      if (_detail_dep && coddep.not_empty())
        codart << " Dep. " << coddep;
      
      cf.set(codart);
    }
    else
    if (action == "SELECTUM")
    {
      TString um(rdoc.get(RDOC_UMQTA));
      TString cur_um(cf.find_field("407").get());
      
      if (cur_um.empty()) // Se l'unita' di misura non e' ancora stata settata prende quella principale
        cf.set(um);
      else
        if (cur_um != um) // Se c'e' ma e' diversa dalla prec. allora setta l'unita' di misura su quella principale
          if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
          {
            // Converte i totali q.ta evasa e ordinata nella unita' di misura principale
            const int index_um = _art_giac->find_um(cur_um); 
            const real fc = _art_giac->um().row(index_um > 0 ? index_um : 1).get("FC");
            TForm_item& qo = cf.find_field("408");
            TForm_item& qe = cf.find_field("409");
            TForm_item& qr = cf.find_field("411");
            real qtaor(qo.get());
            real qtaev(qe.get());
            real qtare(qr.get());
            
            qtaor *= fc;
            qtaev *= fc;
            qtare *= fc;
            qo.set(qtaor.string());
            qe.set(qtaev.string());
            qr.set(qtare.string());
                        
            cf.set(_art_giac->um().row(1).get("UM")); // UM principale
          }
        // TBI: 
        // Riga merce non a magazzino o non e' possibile reperire l'UM principale per art.
        // non posso interrompere la sezione di stampa da qui, e neppure cambiare il raggruppamento...
        // This seems to be a great dilemma... For now leave it as is: Somme dure e crude di quantita'
    }
    else
    if (action == "CONVUM") // Converte cazzilli quantitativi nella unita' di misura corrente
    {
      TString um(rdoc.get(RDOC_UMQTA));
      TString cur_um(cf.find_field("407").get());
      
      if (cur_um != um)
        if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
        {
          const real fc = _art_giac->um().row(_art_giac->find_um(cur_um)).get("FC");
          real qt(cf.get());
          qt *= fc;
          cf.set(qt.string());
        }
    }
    else
      if (action == "VALTABLE") // Comandi per stampa riepilogo per valuta
      {
        TString subcommand(s.get(2));
        if (subcommand == "RESET")
        {
          _totvaluta.destroy();
          cf.find_field("TOTVAL1").disable();
          cf.find_field("TOTVAL2").disable();
          cf.find_field("TOTVAL3").disable();
          cf.find_field("TOTVAL4").disable();
        }
        else
        {
          const int valute = _totvaluta.items();
          TString codval(doc.get(DOC_CODVAL));
          const bool is_key = _totvaluta.is_key(codval);
          const bool is_new = !is_key && valute < 4;

          if (is_new) // Aggiunge l'elemento se non c'e'
            _totvaluta.add(codval,(_TTotale_valuta*)new _TTotale_valuta,is_key);
          // Controlla/stampa al massimo 4 valute
          if (is_key || is_new)
          {
            _TTotale_valuta& tv = (_TTotale_valuta&)_totvaluta[codval];
            const bool is_valord = subcommand == "VALORD";
            real& r =  is_valord ? tv.totord() : tv.totres();
            TString s_id;
            int i_id;
  
            // Abilita la sezione corrispondente e setta i valori all'interno
            if (!is_key)
            {
              TString16 sec_name = "TOTVAL";
              sec_name << valute+1;
              tv.secnum() = valute+1;
              cf.find_field(sec_name).enable();
              // Setta anche il codice valuta
              i_id = BODY_CODVAL + valute*10;
              s_id.format("%d",i_id);
              cf.find_field(s_id).set(codval);
              if (valute == 0)
              {
                i_id--;
                s_id.format("%d",i_id);
                cf.find_field(s_id).set("Totali");
              }
            }
            const int sn = tv.secnum();
            i_id = is_valord ? BODY_TOTVALORD : BODY_TOTVALRES;
              
            i_id += (sn-1)*10;
            s_id.format("%d",i_id);
            r +=  ((real) cf.get()); // Somma il valore corrente
            cf.find_field(s_id).set(r.string());
          }
        }
      }
      else
        if (action == "CALCDISP") // messaggi per calcolo disponibilita'
        {
          TString command(s.get(2));
          if (command == "RESET") // resetta la tabella
          {
            _totdisp.destroy();
            const real rz = ZERO;
            const int items = _date_array->items();
            for (int i = 0; i<items; i++)
              _totdisp.add(rz);
            // Legge anche una volta per tutte il TArticolo_giacenza (uargh uargh)
            if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
            {
              _codmag  = rdoc.get(RDOC_CODMAG);
              _livello = rdoc.get(RDOC_LIVELLO);
            }
            else
              cf.set("Errore in lettura articolo");
          }
          else
          if (command == "CALC") // Effettua il calcolo per questa riga articolo, 
           //cumulando nell'array le quantita', espresse sempre in UM principale
          {
            const bool is_ordine_cliente = doc.get(DOC_TIPOCF)[0] == 'C';
            const TString16 causmag(doc.get(DOC_CAUSMAG));
            const TString16 um(rdoc.get(RDOC_UMQTA));
            const TDate datacons(doc.get_date(RDOC_DATACONS));
            int segno = is_ordine_cliente ? -1 : +1; // default 
            if (causmag.not_empty()) // se la causale esiste consulta il segno 
            {                         
              TCausale_magazzino cm(causmag);
              segno *= cm.sgn(is_ordine_cliente ? s_ordc : s_ordf);
            }
            // Reperisce fattore di conversione per UM principale,
            // la quantita residua
            real fc = 1.00; // Se non esiste in anagrafica non effettua nessuna conversione
            real qtares = rdoc.qtaresidua(); // ZIO PERA! ag v<>l la riga dal document
            //if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
            fc = _art_giac->um().row(_art_giac->find_um(um)).get_real("FC");
            qtares *= fc; // Convertito in UM principale...
            qtares *= segno; // mette a posto il segno...
            // Trova il periodo giusto
            const int index = find_period(datacons);
            real& rv = (real&) _totdisp[index];
            rv += qtares;
          }
          else
            if (command == "PRNUM") // Stampa l'unita' di misura principale
            {
              //if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
              cf.set(_art_giac->um().row(1).get("UM")); // UM principale
              //else
              //  cf.set("#ERR");  //uhmmm
            }
            else
            {
              const int period = s.get_int(3);
              //const int items  = _date_array->items();
              TString16 annoes;
              real giacenza, scorta_min;
              annoes << _esercizi->date2esc(doc.get_date(DOC_DATADOC));
              //TString16 codmag(rdoc.get(RDOC_CODMAG));
              //TString16 livello(rdoc.get(RDOC_LIVELLO));
              const int codmag_len  = (_detail_dep || _detail_mag) ? _codmag.len() : 0;
              const int livello_len = _level > 0 ? _livello.len() : 0;
              //if (_art_giac->read(rdoc.get(RDOC_CODART)) == NOERR)
              {
                // Serve l'anno esercizio del magazzino... 
                
                // Ciclo sulle giacenze di magazzino
                TRecord_array& mmgg = _art_giac->mag(annoes);
                const int rows = mmgg.rows();
                // Cumula raggruppando le giacenze per lo stesso mag/dep/liv.giac
                // Scurre alla ruvescia
                for (int i=mmgg.last_row();i>0;i--)
                {
                  const TRectype& rec = mmgg.row(i); // gosh!?
                  
                  //checkka se trattasi di medesimo liv giac/mag/dep in caso sia stato spec. il dettaglio
                  // altrimenti cumula el todo
                  if (codmag_len == 0 || (rec.get(MAG_CODMAG).compare(_codmag, codmag_len) == 0))
                    if (livello_len == 0 || (rec.get(MAG_LIVELLO).compare(_livello, livello_len) == 0))
                    {
                      giacenza       += _art_giac->giacenza_corretta(rec, _giac_eff, _val_comp);
                      scorta_min     = rec.get_real(MAG_SCORTAMIN);
                    }
                }
              }
              for (int i = 0; i< period/*items*/; i++)
                giacenza += (real&)_totdisp[i];
              if (command == "PRNGIAC") // Stampa la giacenza prevista
              {
                cf.set(giacenza.string());
              }
              else
                if (command == "PRNSOTT") // Stampa il sottoscorta
                {
                  if (giacenza < scorta_min)
                  {
                    giacenza = scorta_min - giacenza;
                    cf.set(giacenza.string());
                  }
                  else
                    cf.set("");
                }
                // Ignore any other command
             }
        }
        else
          if (action == "PREZZONS")
          {
            real pns = rdoc.prezzo(TRUE,FALSE); // Prezzo netto scontato
            cf.set(pns.string());
          }
          else
            if (action == "RAGSOC")
            { 
              // Compone la ragione sociale (considera gli occasionali)
              // Il formato <20> il seguente: CODICE (OCFPI) RAGIONE_SOCIALE
              TString ws;
              const bool print_cod = s.get_int(2)!=0;
              TDocumento&   documento = (TDocumento&)cf.form().cursor()->file(LF_DOC).curr();
              TCli_for&     cli_for   = documento.clifor();
              TOccasionale& cli_occ   = documento.occas();
              const bool occasionale  = cli_for.occasionale();
              if (print_cod)
                ws << cli_for.get("CODCF") << " ";
              if (occasionale)
              {
                ws << "(" << cli_occ.get("CFPI") << ") " ;
                ws << cli_occ.get("RAGSOC");
              }
              else
                ws << cli_for.get("RAGSOC");
              cf.set(ws);
            }
            else
              if (action == "RESIDUO")
              {
                real qres = rdoc.qtaresidua(); // Quantita' residua
                cf.set(qres.string());
              }
              else
                if (action == "GIACENZA")
                {          
                  real g = ZERO;
                  const TString& codart = rdoc.get(RDOC_CODARTMAG);
                  if (codart.not_empty() && _art_giac->read(codart) == NOERR)
                  {  
                    const TDate oggi(TODAY);
                    TString16 annoes; annoes.format("%04d", _esercizi->date2esc(oggi));
                    const TString16 codmag(rdoc.get("CODMAG")); // Riferito al magazzino indicato sulla riga...
                    const TString16 livello(_level > 0 ? rdoc.get(RDOC_LIVELLO) : "");
                    g = _art_giac->disponibilita(annoes, codmag, livello, TRUE);  // Giacenza attuale
                  }
                  cf.set(g.string());
                }
      //Ignore any other command
  }
  return TForm::validate(cf, s);
}