campo-sirio/db/db2400.cpp

#include <applicat.h>
#include <automask.h>
#include <browfile.h>
#include <currency.h>
#include <defmask.h>
#include <execp.h>
#include <mailbox.h>
#include <printer.h>
#include <progind.h>
#include <relation.h>
#include <tabutil.h>
#include <viswin.h>

#include "db2.h"
#include "dblib.h"
#include "../mg/mglib.h"

#include "db2400a.h"

///////////////////////////////////////////////////////////
// TValorizzazione_mask
///////////////////////////////////////////////////////////

class TValorizzazione_mask : public TAutomask
{
  TAssoc_array _valori;
  TAssoc_array _risultati;

  TDistinta_tree _tree;
  int _tipoval;
  TString4 _annoes,_catven, _codlist ;
  TString8 _codmag;

protected:
  virtual bool on_field_event(TOperable_field& f, TField_event e, long jolly);

public:
  real valore(const TCodice_articolo& dis, const char* liv = NULL);
  void elabora();
  void salva();

  TValorizzazione_mask();
  virtual ~TValorizzazione_mask() { }
};

real TValorizzazione_mask::valore(const TCodice_articolo& dis, const char* liv)
{
  real total;
  
  if (dis.not_empty())
  {
    TString80 cod = dis;
    if (liv && *liv)
      cod << ',' << liv;

    real* val = (real*)_valori.objptr(cod);
    if (val == NULL)
    { 
      _tree.set_global("_IMPIANTO", get(F_IMPIANTO));
      _tree.set_global("_LINEA", get(F_LINEA));
      TString8 codmagdep; 
      add_magcode(codmagdep, get(F_CODMAG));
      add_depcode(codmagdep, get(F_CODDEP));
      _tree.set_global("_MAGDEP", codmagdep); 

      if (_tree.set_root(dis))
      {
        TArray boom;
        // Esplosione ai materiali di base 
        // raggruppati alla unita' di misura di riferimento
        _tree.explode(boom, TRUE, RAGGR_EXP_BASE);  
        for (int r = boom.last(); r >= 0; r--)
        {
          const TRiga_esplosione& esp = (const TRiga_esplosione&)boom[r];
          const real value = esp.val() * valore(esp.articolo(), esp.giacenza());
          total += value;
        }
        if (!total.is_zero())
          _risultati.add(cod, total);
      }
      else
      {
        const char tipo = _tree.get_type(dis);
        switch (tipo)
        {
        case 'A':
          {
            TArticolo_giacenza art(dis);
            switch (_tipoval) 
            {
            case  0: total = art.ultimo_costo(_annoes); break;
            case  1: total = art.media_costi(_annoes); break;
            case  2: total = art.prezzo_listino(_annoes, _catven, _codlist); break;
            case  3: total = art.costo_standard(_annoes); break;
            case  4: total = art.costo_medio(_annoes, _codmag, liv); break;
            case  5: total = art.costo_mediopond(_annoes, _codmag, liv); break;
            case  6: total = art.LIFO_annuale(_annoes, _codmag, liv); break;
            case  7: total = art.FIFO_annuale(_annoes, _codmag, liv); break;
            case  8: total = art.LIFO(_annoes, _codmag, liv); break;
            case  9: total = art.FIFO(_annoes, _codmag, liv); break;
            default: NFCHECK("Tipo valorizzazione errato: %d", _tipoval);
            }
          }
          break;
        case 'L':
          {
            const real r0 = cache().get("LAV", dis, "R0");
            total = r0;
          }
          break;
        default :
          {
            const real prezzo = cache().get(LF_DIST, dis, "PREZZO");
            total = prezzo;
          }
          break;
        }
        _valori.add(cod, total);
      }
    }
    else
      total = *val;
  }  

  return total;
}

void TValorizzazione_mask::elabora()
{
  TRectype rec_from(LF_DIST), rec_to(LF_DIST);
  rec_from.put("CODDIST", get(F_DIST_FROM));
  rec_to.put  ("CODDIST", get(F_DIST_TO));
  
  _annoes = get(F_ANNOES);
  _tipoval = get_int(F_TIPO);
  _catven = get(F_CATVEN_LIST);
  _codlist = get(F_CODLIST);
  
  TRelation rel(LF_DIST);
  TCursor cur(&rel);
  cur.setregion(rec_from, rec_to, 0x2);

  const long items = cur.items();
  TProgind pi(items, "Valorizzazione in corso...", TRUE, TRUE);

  TBrowsefile_field& bf = (TBrowsefile_field&)field(F_PREVIEW);
  TViswin& vw = bf.vis_win();
  
  vw.destroy_lines();
  _valori.destroy();
  _risultati.destroy();

  TString line, num;
//          123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
  line = "@bCodice distinta      Descrizione                                                Attuale      Precedente";
  bf.add_line(line);
  
  TString80 descr;

  cur.freeze(TRUE);
  const int sorc = get_int(F_TIPO);
  const int dest = get_int(F_VALORIZZA);
 
  for (cur = 0; cur.pos() < items; ++cur)
  {
    pi.addstatus(1);
    if (pi.iscancelled())
      break;

    const TCodice_articolo art = cur.curr().get("CODDIST");
    const char tipo = _tree.get_type(art);
    if (tipo != 'A')
      continue;
    
    const TPrice value(valore(art));
    line.cut(0) << "$[r,w]" << art << "$[n,w]";
    
    line.left_just(33);
    
    TArticolo_giacenza articolo(art);              
    
    descr = articolo.get(ANAMAG_DESCR);
    descr.left_just(50);
    line << descr;
    
    if (dest == 2 && sorc != 2)
    {
      const real perc = articolo.get(ANAMAG_PERCRIC);
      const TPrice pric(value.get_num() * (100.0 + perc) / 100.0); 
      num = pric.string(TRUE);
    } 
    else
      num = value.string(TRUE);
    num.right_just(16);
    line << num;
    
    TPrice total;                
    
    switch (dest) 
    {
      case  1: total = articolo.ultimo_costo(_annoes); break;
      case  2: total = articolo.prezzo_listino(_annoes, _catven, _codlist); break;
      default: total = articolo.costo_standard(_annoes); break;
    }
    num = total.string(TRUE);
    num.right_just(16);
    line << num;

    bf.add_line(line);
  }
  if (pi.isfinished())
    enable(DLG_SAVEREC);

  vw.goto_top();
} 

void TValorizzazione_mask::salva()
{
  const TDate oggi = get(F_DATA);
  const int sorc = get_int(F_TIPO);
  const int dest = get_int(F_VALORIZZA);

  TProgind pi(_risultati.items(), "Registrazione in corso...", TRUE, TRUE);

  TLocalisamfile dis(LF_DIST);
  TTable lav("LAV");

  FOR_EACH_ASSOC_OBJECT(_risultati, obj, key, item)
  {
    pi.addstatus(1);
    if (pi.iscancelled())
      break;

    const real& val = (const real&)*item;
    if (!val.is_zero())
    {
      const TPrice prezzo(val);
      const real& price = prezzo.get_num(); // val arrotondato ai decimali dei prezzi
      switch(_tree.get_type(key))
      {
      case 'A':
        {
          TArticolo_giacenza art(key);
          switch (dest)
          {
          case 1: 
            art.put_ultimo_costo(price, oggi); 
            break;
          case 2: 
            if (sorc != 2)  // Tengo conto del ricarico
            {
              const real perc = art.get(ANAMAG_PERCRIC);
              const TPrice pric(price * (100.0 + perc) / 100.0);
              art.set_prezzo_vendita(pric.get_num()); 
            }
            else
              art.set_prezzo_vendita(price); 
            break;
          default: 
            art.put_costo_standard(price); 
            break;
          }
          art.rewrite();
        }
        break;
      case 'L':
        lav.put("CODTAB", key);
        if (lav.read(_isequal, _lock) == NOERR)
        {
          lav.put("R0", price);
          lav.rewrite();
        }
        break;
      case 'G':
      case 'V':
        dis.put("CODDIST", key);
        if (dis.read(_isequal, _lock) == NOERR)
        {
          dis.put("PREZZO", price);
          dis.rewrite();
        }
        break;
      default :break;
      }
    }
  }

  if (pi.isfinished())
  {
    _valori.destroy();
    _risultati.destroy();
    disable(DLG_SAVEREC);
  }
}

bool TValorizzazione_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
  switch (f.dlg())
  {
  case DLG_ELABORA:
    if (e == fe_button)
    {
      elabora();
      enable(-4);
    }
    break;
  case DLG_SAVEREC:
    if (e == fe_button)
      salva();
    break;
  case DLG_PRINT:
    if (e == fe_button)
    {
      TBrowsefile_field& b = (TBrowsefile_field&)field(F_PREVIEW);
      TViswin& w = b.vis_win();
      TTextfile& f = w.text();
      const long rows = f.lines();
      if (rows > 1)
      {                   
        TPrinter& p = printer();
        TPrintrow row; 
        
        TString line = f.line_formatted(0);      // Legge la prima riga dal line
        row.put(line);   
        
        p.setheaderline(0, row);  // La imposta come testata
        p.headerlen(2);           // Imposta altezza testata
      
        const TPrtype old_prtype = p.printtype();
        p.set_printtype(winprinter);  // Forza la stampa su carta
        p.open();
        for (long l = 1; l < rows; l++) 
        {
          line = f.line_formatted(l);
          row.reset();
          row.put(line, 0);
          p.print(row);
        }
        p.close();
        p.set_printtype(old_prtype);
      }
    }
    break;    
  case DLG_QUIT:
    if (e == fe_button)
    {
      if (_risultati.items() > 0)
        return yesno_box("I risultati dell'ultima elaborazione\n"
                         "non sono stati registrati:\n"
                         "Si desidera uscire ugualmente?");
    }
    break;
  default:
    break;
  }
  return TRUE;
}

static const char* link_handler(TMask&, int id, const char* str, bool)
{
  const char* app = NULL; 
  switch(id)
  {
  case  0: app = "ve2 -3"; break;
  case  1: app = "ba3 -0 LAV"; break;
  case  2: app = "db0 -4"; break;
  default: break;
  }

  if (app)
  {
    TString ss = "1|"; ss << str;
    TMessage fs(app, MSG_LN, ss);
    fs.send();

    TExternal_app prg(app);
    prg.run();
  }
  return "";
}

TValorizzazione_mask::TValorizzazione_mask() 
                    : TAutomask("db2400a") 
{ 
  TBrowsefile_field& bf = (TBrowsefile_field&)field(F_PREVIEW);
  bf.enable_link("Articolo ", 'r');
  bf.enable_link("Lavorazione ", 'v');
  bf.enable_link("Distinta ", 'b');
  bf.set_link_handler(link_handler);

  disable(DLG_SAVEREC);
}


///////////////////////////////////////////////////////////
// TValorizzazione
///////////////////////////////////////////////////////////

class TValorizzazione : public TSkeleton_application
{
protected:  
  virtual bool create();
public:
  virtual void main_loop();
};

bool TValorizzazione::create()
{
  open_files(LF_MAG,LF_STOMAG,0);
  return TSkeleton_application::create();
}

void TValorizzazione::main_loop()
{
  TValorizzazione_mask m;
  TConfig conf(CONFIG_DITTA, "mg");
  const bool listini = conf.get_bool("GES", "ve", 1);
  m.enable(-G_LISTINO, listini);
  m.enable(F_CATVEN_LIST, listini && conf.get_bool("GESLISCV", "ve"));
  
  m.run();
}

int db2400(int argc, char* argv[])
{
  TValorizzazione app;
  app.run(argc, argv, "Valorizzazione");
  return 0;
}