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

Patch level : 10.0 736

Browse Source 
Files correlati     : mg3.exe mg3300.msk
Ricompilazione Demo : [ ]
Commento            :
Corretto calcolo saldo precedente in stampa schede di magazzino.


git-svn-id: svn://10.65.10.50/trunk@20444 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-05-12 10:24:45 +00:00
parent c1a25cd3f5
commit 23076b22d4
3 changed files with 184 additions and 197 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

355
mg/mg3300.cpp
View File

@ -2,9 +2,7 @@
#include <execp.h>
#include <mailbox.h>
#include <printer.h>
#include "movmag.h"
#include "rmovmag.h"
#include <recset.h>
#include "mglib.h"
#include "mg3300.h"
@ -14,19 +12,7 @@
#define VALUE_NOT_SET "~~"
TCausale_magazzino& get_cau(const char* codcaus)
{
/*
static TAssoc_array _c;
TCausale_magazzino * caus = (TCausale_magazzino*) _c.objptr(codcaus);
if (caus == NULL)
{
caus = new TCausale_magazzino(codcaus);
_c.add(codcaus, caus);
}
return *caus;
*/
return cached_causale_magazzino(codcaus);
}
{ return cached_causale_magazzino(codcaus); }
class TForm_schedemag : public TForm_stampemg
{
@ -43,6 +29,8 @@ class TForm_schedemag : public TForm_stampemg
TToken_string _rmov_sortexp;
TString _rmov_raggcond,_rmov_joinexp;
TToken_string _saldo_key; // codart|livello|codmag
TTipo_saldomag _tiposcheda; // tipo scheda
int _annoes;
TString16 _user1;
@ -65,7 +53,7 @@ public:
void set_options(bool no_valori, bool no_ff, bool sintetica);
const char* descr_tiposcheda() const;
const char* nomecampo_scheda() const;
TTipo_saldomag tiposcheda() const {return _tiposcheda;} ;
TTipo_saldomag tiposcheda() const { return _tiposcheda; }
TForm_schedemag(const char *name,const char *code)
: TForm_stampemg(name,code), _tolivgiac(0), _tolivart(0) {}
@ -77,15 +65,15 @@ const char* TForm_schedemag::descr_tiposcheda() const
{
switch (_tiposcheda)
{
case s_giac: return (TR("Giacenza"));
case s_acl: return (TR("A conto lavoro"));
case s_incl: return (TR("In conto lavoro"));
case s_prodc: return (TR("In produzione componenti"));
case s_prodf: return (TR("In produzione finiti"));
case s_ordc: return (TR("Ordinato clienti"));
case s_ordf: return (TR("Ordinato fornitori"));
case s_acq:
default: break;
case s_giac: return TR("Giacenza");
case s_acl: return TR("A conto lavoro");
case s_incl: return TR("In conto lavoro");
case s_prodc: return TR("In produzione componenti");
case s_prodf: return TR("In produzione finiti");
case s_ordc: return TR("Ordinato clienti");
case s_ordf: return TR("Ordinato fornitori");
case s_acq:
default: break;
}
return "";
}
@ -94,90 +82,83 @@ const char* TForm_schedemag::nomecampo_scheda() const
{
switch (_tiposcheda)
{
case s_giac: return (MAG_GIAC);
case s_acl: return (MAG_ACL);
case s_incl: return (MAG_INCL);
case s_prodc:return (MAG_PRODCOMP);
case s_prodf:return (MAG_PRODFIN);
case s_ordc: return (MAG_ORDC);
case s_ordf: return (MAG_ORDF);
case s_acq:
case s_ent:
case s_ven:
case s_usc:
default: break;
case s_giac: return (MAG_GIAC);
case s_acl: return (MAG_ACL);
case s_incl: return (MAG_INCL);
case s_prodc:return (MAG_PRODCOMP);
case s_prodf:return (MAG_PRODFIN);
case s_ordc: return (MAG_ORDC);
case s_ordf: return (MAG_ORDF);
case s_acq:
case s_ent:
case s_ven:
case s_usc:
default: break;
}
return "";
}
bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
{
const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
const TFixed_string msg(s.get(0)); // prende il primo parametro, il codice del messaggio
if (code=="_USER")
if (msg=="_USER")
{
const TString subcode(s.get());
TString valore(VALUE_NOT_SET);
const TString80 subcode(s.get());
TString80 valore(VALUE_NOT_SET);
if (subcode=="TIPOSCHEDA")
valore = descr_tiposcheda();
if (subcode=="GRUPPOART")
{
if (_tolivart < livelli_articolo().last_level())
valore = livelli_articolo().group_descr_packed(relation()->lfile(LF_ANAMAG).get("CODART"),_tolivart);
const TRectype& anamag = relation()->curr(LF_ANAMAG);
if (_tolivart > 0 && _tolivart < livelli_articolo().last_level())
valore = livelli_articolo().group_descr_packed(anamag.get(ANAMAG_CODART),_tolivart);
else
{
if (_user1.blank())
valore = relation()->lfile(LF_ANAMAG).get("DESCR");
else
valore = relation()->curr(LF_ANAMAG).get(_user1);
}
valore = anamag.get(_user1.not_empty() ? _user1 : ANAMAG_DESCR);
}
if (subcode=="CODGRUPPOGIAC")
{
int livello=_tolivgiac;
const int livello=_tolivgiac; // Cosa si risparmia ???
valore = livelli_giacenza().name(livello);
add_giaclev(valore, 1, livello);
valore << ' ';
TString s = livelli_giacenza().unpack_grpcode(relation()->lfile(LF_RMOVMAG).get("LIVGIAC"),livello);
if (s.empty())
TString s = livelli_giacenza().unpack_grpcode(relation()->curr(LF_RMOVMAG).get(RMOVMAG_LIVGIAC),livello);
if (s.blank())
s = UNKNOWN_NAME;
valore << s;
}
if (subcode=="CODGRUPPOART")
{
valore = relation()->lfile(LF_ANAMAG).get("CODART");
if (livelli_articolo().enabled())
valore = relation()->curr(LF_ANAMAG).get(ANAMAG_CODART);
if (_tolivart > 0 && livelli_articolo().enabled())
valore.cut(min(valore.len(),livelli_articolo().packed_length(_tolivart)));
}
if (subcode=="GRUPPOGIAC")
valore = livelli_giacenza().group_descr_packed(relation()->lfile(LF_RMOVMAG).get("LIVGIAC"),_tolivgiac);
valore = livelli_giacenza().group_descr_packed(relation()->curr(LF_RMOVMAG).get(RMOVMAG_LIVGIAC),_tolivgiac);
if (subcode=="CODCATMER")
{
valore = relation()->lfile(LF_ANAMAG).get("GRMERC");
valore = relation()->curr(LF_ANAMAG).get("GRMERC");
if (!_sottocatmer && valore.full())
valore.cut(3);
}
if (subcode=="CATMER")
{
if (_sottocatmer)
valore = relation()->lfile(-ALIAS_SOTTOCATMER).get("S0");
else
valore = relation()->lfile(-ALIAS_CATMER).get("S0");
valore = relation()->curr(_sottocatmer ? -ALIAS_SOTTOCATMER : -ALIAS_CATMER).get("S0");
}
if (subcode=="DADATA")
valore = _data_inizio.string();
if (subcode=="ADATA")
valore = _data_fine.string();
const TRectype& rmovmag = relation()->curr(LF_RMOVMAG);
const TRectype& movmag = relation()->curr(LF_MOVMAG);
const TString16 cau_r= rmovmag.get(RMOVMAG_CODCAUS);
const TString16 cau_m= movmag.get(MOVMAG_CODCAUS);
const TCausale_magazzino & cau = get_cau(cau_r.empty() ? cau_m : cau_r);
if (subcode=="*SEGNOCAUS")
{
const TRectype& rmovmag = relation()->curr(LF_RMOVMAG);
const TRectype& movmag = relation()->curr(LF_MOVMAG);
const TString8 cau_r= rmovmag.get(RMOVMAG_CODCAUS);
const TString8 cau_m= movmag.get(MOVMAG_CODCAUS);
const TCausale_magazzino & cau = get_cau(cau_r.empty() ? cau_m : cau_r);
const char qv = s.get_char(); // Segno per Quantita'o Valore
int sgn = cau.sgn(_tiposcheda);
@ -197,24 +178,41 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
valore = "";
}
if (subcode=="CAUSALERIGA")
{
const TRectype& rmovmag = relation()->curr(LF_RMOVMAG);
const TRectype& movmag = relation()->curr(LF_MOVMAG);
const TString8 cau_r= rmovmag.get(RMOVMAG_CODCAUS);
const TString8 cau_m= movmag.get(MOVMAG_CODCAUS);
const TCausale_magazzino & cau = get_cau(cau_r.empty() ? cau_m : cau_r);
valore = cau.codice();
}
if (subcode=="DESCRCAUSALE")
{
const TRectype& rmovmag = relation()->curr(LF_RMOVMAG);
const TRectype& movmag = relation()->curr(LF_MOVMAG);
const TString8 cau_r= rmovmag.get(RMOVMAG_CODCAUS);
const TString8 cau_m= movmag.get(MOVMAG_CODCAUS);
const TCausale_magazzino & cau = get_cau(cau_r.empty() ? cau_m : cau_r);
valore = cau.descr();
}
if (subcode=="CANPRINTSALDOPREC") // Determina se e' possibile stampare il saldo precedente
{
bool printsaldoprec = true;
const TRectype& movmag = relation()->curr(LF_MOVMAG);
const TDate datareg = movmag.get_date(MOVMAG_DATAREG);
const bool stampa_perart = relation()->lfile().num() == LF_ANAMAG;
// Se il movimento corrente e' >= la data inizio stampa allora posso sempre stampare il saldo ...
if (datareg < _data_inizio) // ... altrimenti devo fare altri controlli
{
const bool stampa_perart = relation()->lfile().num() == LF_ANAMAG;
if (stampa_perart) // Stampa per articoli
{
TSortedfile& rmm = (TSortedfile&)relation()->lfile(LF_RMOVMAG);
const TRecnotype oldpos = rmm.recno();
TString80 old_art;
old_art << rmm.get(RMOVMAG_CODART); old_art << '|' << rmm.get(RMOVMAG_LIVGIAC);
TToken_string old_art;
old_art = rmm.get(RMOVMAG_CODART);
old_art.add(rmm.get(RMOVMAG_LIVGIAC));
const int err = rmm.next();
if (err == NOERR) // Se non sono sull'ultimo record ...
{
@ -226,8 +224,9 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
if (!printsaldoprec)
{
// Se la prossima data e' >= della corrente verifico se cambio articolo
TString80 new_art;
new_art << rmm.get(RMOVMAG_CODART); new_art << '|' << rmm.get(RMOVMAG_LIVGIAC);
TToken_string new_art;
new_art = rmm.get(RMOVMAG_CODART);
new_art.add(rmm.get(RMOVMAG_LIVGIAC));
printsaldoprec = old_art != new_art;
}
}
@ -237,10 +236,10 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
{
TSortedfile& rmm = (TSortedfile&)relation()->lfile(LF_RMOVMAG);
const TRecnotype oldpos = rmm.recno();
TString80 old_art;
old_art << rmm.get(RMOVMAG_CODART);
old_art << '|' << rmm.get(RMOVMAG_LIVGIAC);
old_art << '|' << rmm.get(RMOVMAG_CODMAG);
TToken_string old_art;
old_art = rmm.get(RMOVMAG_CODART);
old_art.add(rmm.get(RMOVMAG_LIVGIAC));
old_art.add(rmm.get(RMOVMAG_CODMAG));
const int err = rmm.next();
if (err == NOERR) // Se non sono sull'ultimo record ...
@ -254,16 +253,23 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
if (!printsaldoprec)
{
// Se la prossima data e' >= della corrente verifico se cambio articolo
TString80 new_art;
new_art << rmm.get(RMOVMAG_CODART);
new_art << '|' << rmm.get(RMOVMAG_LIVGIAC);
new_art << '|' << rmm.get(RMOVMAG_CODMAG);
TToken_string new_art;
new_art = rmm.get(RMOVMAG_CODART);
new_art.add(rmm.get(RMOVMAG_LIVGIAC));
new_art.add(rmm.get(RMOVMAG_CODMAG));
printsaldoprec = old_art != new_art;
}
}
rmm.readat(oldpos); // ripristino la posizione del file
}
}
if (printsaldoprec) // Memorizzo chiave articolo per utilizzarla al momento di calcolare il SALDOPREC
{
const TRectype& rmm = relation()->curr(LF_RMOVMAG);
_saldo_key = rmm.get(RMOVMAG_CODART);
_saldo_key.add(rmm.get(RMOVMAG_LIVGIAC));
_saldo_key.add(rmm.get(RMOVMAG_CODMAG));
}
valore = printsaldoprec ? "1" : "0";
}
if (subcode=="SALDOPREC")
@ -271,75 +277,52 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
valore = "";
if (!_magazzino_chiuso) // mag precedente non chiuso, mancano i saldi di apertura
{
TLocalisamfile mag_annoprec(LF_MAG);
TString codmag, codart, livello;
TString80 codart; _saldo_key.get(0, codart);
TString16 livello; _saldo_key.get(1, livello);
TString8 codmag; _saldo_key.get(2, codmag);
const bool stampa_perart = relation()->lfile().num() == LF_ANAMAG;
if (stampa_perart) // Stampa per articoli
if (_tolivart > 0 && _tolivart < livelli_articolo().last_level())
{
cursor()->relation()->save_status();
TLocalisamfile & rmovmag = cursor()->relation()->lfile(LF_RMOVMAG);
rmovmag.prev();
codmag = rmovmag.get(RMOVMAG_CODMAG);
codart = rmovmag.get(RMOVMAG_CODART);
livello = rmovmag.get(RMOVMAG_LIVGIAC);
cursor()->relation()->restore_status();
codart.cut(livelli_articolo().code_length(_tolivart));
livello.cut(0);
}
else
{
// Nella stampa per magazzini al momento del saldo sono avanti di un passo rispetto a dove mi serve
if (cursor()->pos() > 0L)
{
--(*cursor());
const TRectype& rmovmag = cursor()->curr(LF_RMOVMAG); // Record principale
codmag = rmovmag.get(RMOVMAG_CODMAG);
codart = rmovmag.get(RMOVMAG_CODART);
livello = rmovmag.get(RMOVMAG_LIVGIAC);
++(*cursor());
}
}
mag_annoprec.put(MAG_ANNOES, _anno_prec);
mag_annoprec.put(MAG_CODMAG, codmag);
mag_annoprec.put(MAG_CODART, codart);
mag_annoprec.put(MAG_LIVELLO, livello);
if (_sudd_mag) // Se e' una stampa dettagliata per magazzino
{
mag_annoprec.setkey(2);
if (mag_annoprec.read() == NOERR) // Ho trovato un saldo precedente del magazzino in questione
if (_tolivgiac > 0)
{
const real saldoprec = mag_annoprec.get_real(nomecampo_scheda());
if (!saldoprec.is_zero())
{
real currsaldo = cf.get();
currsaldo += saldoprec; // Sommo il saldo precedente al campo corrente
valore = currsaldo.string();
}
}
}
else
{
// Calcolo la somma dei saldi di tutti i magazzini
mag_annoprec.setkey(1);
real currsaldo = cf.get();
for (int r = 1; ; r++)
{
mag_annoprec.put(MAG_NRIGA, r);
if (mag_annoprec.read() != NOERR)
break;
const real saldoprec = mag_annoprec.get_real(nomecampo_scheda());
currsaldo += saldoprec; // Sommo il saldo precedente al campo corrente
if (_tolivgiac < livelli_giacenza().last_level())
livello.cut(livelli_giacenza().code_length(_tolivgiac));
}
valore = currsaldo.string();
}
else
livello.cut(0);
}
TString query, region;
query << "USE " << LF_MAG;
region << MAG_ANNOES << '=' << _anno_prec;
region << ' ' << MAG_CODART << '=' << codart;
query << "\nFROM " << region;
query << "\nTO " << region;
if (_tolivart <= 0 || _tolivart >= livelli_articolo().last_level())
query << '~';
TISAM_recordset magprec(query);
real currsaldo = cf.get();
for (bool ok = magprec.move_first(); ok; ok = magprec.move_next())
{
if (_sudd_mag && magprec.get(MAG_CODMAG).as_string() != codmag)
continue; // Escludo magazzini indesiderati
if (livello.not_empty() && !magprec.get(MAG_LIVELLO).as_string().starts_with(livello))
continue; // Escludo livelli di giacenza non corrispondenti
const real saldoprec = magprec.get(nomecampo_scheda()).as_real();
currsaldo += saldoprec; // Sommo il saldo precedente al campo corrente
}
valore = currsaldo.string();
}
}
if (subcode.left(3) == "ADD")
{
const TString16 cau = cf.section().find_field(FF_CAUSALE_RIGA).get();
const TString8 cau = cf.section().find_field(FF_CAUSALE_RIGA).get();
TCausale_magazzino & ccrr = get_cau(cau);
const bool is_qta = subcode.right(3) == "QTA";
const bool ok = is_qta && ccrr.update_qta() || !is_qta && ccrr.update_val();
@ -369,29 +352,23 @@ bool TForm_schedemag::validate(TForm_item &cf, TToken_string &s)
bool TForm_schedemag::ragg_exprs(int livart, int livgiac)
{
TString piece,rest;
// ***********
int tolivart,tolivgiac;
tolivart =livart ? livart : livelli_articolo().last_level() ;
tolivgiac=livgiac ? livgiac : livelli_giacenza().last_level();
// sezioni livello codice
piece="CODART";
if (livelli_articolo().enabled())
piece << "[1," << livelli_articolo().packed_length(tolivart) <<']';
TString16 ca = RMOVMAG_CODART;
if (livart > 0 && livart < livelli_articolo().last_level())
ca << "[1," << livelli_articolo().packed_length(livart) <<']';
if (_rmov_raggcond.full())
_rmov_raggcond << "+";
_rmov_raggcond << piece;
_rmov_sortexp.add(piece);
_rmov_joinexp.cut(0);
_rmov_joinexp << piece << "==" << piece;
if (livart==0)
_rmov_raggcond << '+';
_rmov_raggcond << ca;
_rmov_sortexp.add(ca);
_rmov_joinexp.cut(0) << ca << "==" << ca;
// Posso raggruppare per livello di giacenza solo se non raggruppo per livello articolo
if (livgiac > 0 && !ca.ends_with("]"))
{
piece="LIVGIAC";
if (livelli_giacenza().enabled())
piece << "[1," << livelli_giacenza().packed_length(tolivgiac) <<']';
_rmov_raggcond << '+' << piece;
_rmov_sortexp.add(piece);
TString16 lg=RMOVMAG_LIVGIAC;
if (livgiac < livelli_giacenza().last_level())
lg << "[1," << livelli_giacenza().packed_length(livgiac) <<']';
_rmov_raggcond << '+' << lg;
_rmov_sortexp.add(lg);
}
return true;
@ -405,7 +382,8 @@ void TForm_schedemag::setdett_permag(bool sudd_dep,bool show_dett,int livart,int
TForm_subsection &h_a=(TForm_subsection &)find_field('B',odd_page,"HEADER_ARTICOLO");
h_a.enable(show_dett);
TForm_subsection &h_g=(TForm_subsection &)find_field('B',odd_page,"HEADER_LIVGIAC");
h_g.enable(livelli_giacenza().enabled() && (livart ==0 || livgiac !=0 ));
// h_g.enable(livelli_giacenza().enabled() && (livart ==0 || livgiac !=0 )); Guy was here
h_g.enable(livelli_giacenza().enabled() && (livart ==0 && livgiac>0 ));
_rmov_raggcond = "CODMAG[1,3]";
_rmov_sortexp = "CODMAG[1,3]";
@ -414,19 +392,18 @@ void TForm_schedemag::setdett_permag(bool sudd_dep,bool show_dett,int livart,int
_rmov_raggcond << "+CODMAG[4,5]";
_rmov_sortexp.add("CODMAG[4,5]");
}
_tolivart = livart > 0 ? livart : livelli_articolo().last_level();
_tolivgiac = _tolivart < livelli_articolo().last_level() ? 0 : livgiac;
if (show_dett)
ragg_exprs(livart, livgiac);
TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,"GRUPPI_RMOVMAG");
TForm_subsection& s = find_field('B',odd_page,"GRUPPI_RMOVMAG");
s.setcondition(_rmov_raggcond,_strexpr);
TString cond;
cond << LF_MOVMAG << "->DATAREG";
TString16 cond; cond << LF_MOVMAG << "->" << MOVMAG_DATAREG;
_rmov_sortexp.add(cond);
_rmov_sortexp.add("NUMREG");
_tolivart=livart ? livart :livelli_articolo().last_level() ;
_tolivgiac=livgiac ? livgiac :livelli_giacenza().last_level();
_rmov_sortexp.add(MOVMAG_NUMREG);
_sudd_mag = true; // E' una stampa suddvisa per magazzini
}
@ -451,21 +428,24 @@ void TForm_schedemag::setdett_perart(bool percatmer,bool sottocatmer,int livart,
h_g.enable(livart ==0 || livgiac !=0 || sudd_mag);
h_g.set_newpage(!_no_ff && (livart ==0 || livgiac !=0 || sudd_mag));
TForm_subsection &h_l=(TForm_subsection &)find_field('B',odd_page,"HEADER_LIVGIAC");
h_l.enable(livelli_giacenza().enabled() && (livart ==0 || livgiac !=0 ));
//h_l.enable(livelli_giacenza().enabled() && (livart ==0 || livgiac !=0 )); Guy was here
h_l.enable(livelli_giacenza().enabled() && (livart ==0 && livgiac>0 ));
TForm_subsection &h_m=(TForm_subsection &)find_field('B',odd_page,"HEADER_MAG");
h_m.enable(sudd_mag );
TForm_subsection &h_d=(TForm_subsection &)find_field('B',odd_page,"HEADER_DEP");
h_d.enable(sudd_dep);
TForm_subsection &t_s=(TForm_subsection &)find_field('B',odd_page,"TOTALI_GRMOV");
t_s.show(livart==0 || livgiac !=0 || sudd_mag);
_tolivart=livart ? livart :livelli_articolo().last_level() ;
_tolivgiac=livgiac ? livgiac :livelli_giacenza().last_level();
_tolivart = livart>0 ? livart : livelli_articolo().last_level() ;
_tolivgiac = _tolivart < livelli_articolo().last_level() ? 0 : livgiac;
_sottocatmer=sottocatmer;
// settaggio catmer/ragg codice
if (livart || percatmer) {
if (livart || percatmer)
{
TForm_subsection &s=(TForm_subsection &)find_field('B',odd_page,"GRUPPI_ARTICOLO");
TString cond;
if (percatmer)
@ -666,8 +646,8 @@ void TStampa_schede_mag::setprint_permagazzini()
m.get_int(F_TOLIVELLOART), m.get_int(F_TOLIVELLOGIAC));
// filtering from/to ART
darec.put("CODART", m.get(F_DAART));
arec.put("CODART", m.get(F_AART));
darec.put(RMOVMAG_CODART, m.get(F_DAART));
arec.put(RMOVMAG_CODART, m.get(F_AART));
// filtering ONLY NEGATIVES
if (m.get(F_FILTRO)[0]=='N')
@ -734,8 +714,8 @@ void TStampa_schede_mag::setprint_perarticoli()
_cur->set_filterfunction(negatives_only);
// Imposta i livelli di dettaglio della scheda
int tolivelloart = m.get_int(F_TOLIVELLOART);
int tolivellogiac = m.get_int(F_TOLIVELLOGIAC);
const int tolivelloart = m.get_int(F_TOLIVELLOART);
const int tolivellogiac = tolivelloart <= 0 ? m.get_int(F_TOLIVELLOGIAC) : 0;
TString sortexp;
int tilde = 0x2;
switch (subordine)
@ -825,15 +805,22 @@ void TStampa_schede_mag::main_loop()
while (reload() || m.run() == K_ENTER)
{
reload() = false;
if (m.magazz_ini().gestmag(TRUE))
if (m.magazz_ini().gestmag(true))
{
char dettaglio=m.get(F_ENABLER)[0];
if (dettaglio=='A' && m.get_int(F_TOLIVELLOART)==0)
m.set(F_TOLIVELLOART,livelli_articolo().last_level());
if (dettaglio=='G' && m.get_int(F_TOLIVELLOGIAC)==0)
m.set(F_TOLIVELLOGIAC,livelli_giacenza().last_level());
TString16 frmname;
const bool per_articoli = (*m.get(F_ORDINE) == 'A');
const char dettaglio=m.get(F_ENABLER)[0];
if (dettaglio=='A') // Filtra su livello articolo
{
if (m.get_int(F_TOLIVELLOART)==0)
m.set(F_TOLIVELLOART,livelli_articolo().last_level());
m.reset(F_TOLIVELLOGIAC);
}
else // Filtra su livello giacenza
{
if (m.get_int(F_TOLIVELLOGIAC)==0)
m.set(F_TOLIVELLOGIAC,livelli_giacenza().last_level());
}
TString8 frmname;
const bool per_articoli = *m.get(F_ORDINE) == 'A';
const bool sintetica = m.get_bool(F_SINTETICA);
if (per_articoli)
frmname = "mg3300a";

15
mg/mg3300.uml
View File

@ -242,18 +242,17 @@ BEGIN
PROMPT 42 12 "Dettaglio i depositi"
END
LIST F_ENABLER 30
LIST F_ENABLER 2 30
BEGIN
PROMPT 2 14 "Livello di dettaglio "
ITEM "AC|fino ai singoli articoli"
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART
ITEM "AL|fino al livello"
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART
ITEM "AL|fino al livello articolo"
MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
ITEM "GC|fino al livello di giacenza"
MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
ITEM "|massimo"
MESSAGE ENABLE,F_SUDDIV_MAGAZZINI
MESSAGE RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC
MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
ITEM "GM|massimo livello di giacenza"
MESSAGE ENABLE,F_SUDDIV_MAGAZZINI|RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC
GROUP G_LIVELLI
END

11
mg/mglib.h
View File

@ -4,14 +4,14 @@
#ifndef __MGLIB_H
#define __MGLIB_H
#ifndef __MULTIREC_H
#include <multirec.h>
#endif
#ifndef __MASK_H
#include <mask.h>
#endif
#ifndef __MULTIREC_H
#include <multirec.h>
#endif
#ifndef __FORM_H
#include <form.h>
#endif
@ -56,7 +56,8 @@ typedef enum
riga_nongenerata = ' ' // immissione diretta del mov.
} TTipo_rigamovmag;
typedef enum {
typedef enum
{
valorizz_ultcos,
valorizz_mediacos,
valorizz_przlist,