root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/or/orlib01.cpp

395 lines
14 KiB
C++
Raw Normal View History

Patch level : XX.648 Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 648 git-svn-id: svn://10.65.10.50/trunk@8633 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-10-22 10:00:18 +00:00
#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);
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")
Patch level : xx.811 Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 1.5 fino alla patch 811 git-svn-id: svn://10.65.10.50/trunk@8982 c028cbd2-c16b-5b4b-a496-9718f37d4682
2000-05-05 14:32:44 +00:00
{
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
}
Patch level : XX.648 Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 648 git-svn-id: svn://10.65.10.50/trunk@8633 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-10-22 10:00:18 +00:00
cf.set(g.string());
}
//Ignore any other command
}
return TForm::validate(cf, s);
}
Reference in New Issue Copy Permalink