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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :sistemati casini da riporto 3.2


git-svn-id: svn://10.65.10.50/trunk@17125 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-08-28 14:29:23 +00:00
parent af76bbf855
commit 548faaf785
3 changed files with 176 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

188
db/db0500.cpp
View File

@ -1,7 +1,6 @@
#include "dblib.h" #include "dblib.h"
#include <automask.h> #include <automask.h>
#include <date.h>
#include <defmask.h> #include <defmask.h>
#include <execp.h> #include <execp.h>
#include <modaut.h> #include <modaut.h>
@ -17,6 +16,160 @@
#include "db0500a.h" #include "db0500a.h"
///////////////////////////////////////////////////////////
// TMov_mask
///////////////////////////////////////////////////////////
class TMov_mask : public TAutomask
{
TArticolo _art;
TSheet_field * _sh;
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TMov_mask(const char * codice, TSheet_field * s) : TAutomask("db0500d"), _art(codice), _sh(s) {}
virtual ~TMov_mask() { }
};
bool TMov_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_TIPOVAL:
if (e == fe_init || e == fe_modify)
{
const int tipo = o.mask().get_int(F_TIPOVAL);
real val;
real cos;
real lav;
switch (tipo)
{
case 1 : // Costo
case 2 : // Complessivo
{
const int rows = _sh->items();
for (int i = 0; i < rows; i++)
{
TToken_string row = _sh->row(i);
const TString4 tipo = row.get(_sh->cid2index(F_TIPOCOMP));
if (tipo == "A")
{
TArticolo comp(row.get(_sh->cid2index(F_CODART)));
real qta(row.get(_sh->cid2index(F_EXPR)));
real calo = comp.get_real(ANAMAG_USER1);
if (calo == ZERO) calo = UNO;
const real prezzo = comp.get_real(ANAMAG_ULTCOS1) * calo;
cos += prezzo * qta;
}
else
if (tipo == "L")
{
TLavorazione lab(row.get(_sh->cid2index(F_CODLAV)));
real qta(row.get(_sh->cid2index(F_EXPR)));
lav += (lab.prezzo() * qta);
}
}
lav *= (CENTO - o.mask().get_real(F_SCONTO))/CENTO;
cos += lav;
val = cos;
if (tipo == 2)
val *= (UNO + _art.get_real(ANAMAG_PERCRIC)/CENTO);
}
break;
case 3 : // Peso + Mandopera a peso
{
real peso;
real val_mat;
real val_lav;
const int rows = _sh->items();
for (int i = 0; i < rows; i++)
{
TToken_string row = _sh->row(i);
const TString4 tipo = row.get(_sh->cid2index(F_TIPOCOMP));
if (tipo == "A")
{
TArticolo comp(row.get(_sh->cid2index(F_CODART)));
const TString8 um(row.get(_sh->cid2index(F_UMEXPR)));
real qta(row.get(_sh->cid2index(F_EXPR)));
real calo = comp.get_real(ANAMAG_USER1);
if (calo == ZERO) calo = UNO;
const real prezzo = comp.get_real(ANAMAG_ULTCOS1) * calo;
val_mat += prezzo * qta;
if (um.starts_with("GR"))
peso += qta;
}
else
if (tipo == "L")
{
TLavorazione lav(row.get(_sh->cid2index(F_CODLAV)));
val_lav += lav.prezzo();
}
}
val = val_mat + val_lav * peso * (CENTO - o.mask().get_real(F_SCONTO))/CENTO;
cos = val ;
val = cos * (CENTO + _art.get_real(ANAMAG_PERCRIC))/CENTO;
}
break;
case 4 : // Peso + Mandopera a prezzo
{
real val_mat;
real val_lav;
const int rows = _sh->items();
for (int i = 0; i < rows; i++)
{
TToken_string row = _sh->row(i);
const TString4 tipo = row.get(_sh->cid2index(F_TIPOCOMP));
if (tipo == "A")
{
TArticolo comp(row.get(_sh->cid2index(F_CODART)));
real qta(row.get(_sh->cid2index(F_EXPR)));
real calo = comp.get_real(ANAMAG_USER1);
if (calo == ZERO) calo = UNO;
const real prezzo = comp.get_real(ANAMAG_ULTCOS1) * calo;
val_mat += prezzo * qta;
}
else
if (tipo == "L")
{
TLavorazione lav(row.get(_sh->cid2index(F_CODLAV)));
real qta(row.get(_sh->cid2index(F_EXPR)));
val_lav += lav.prezzo() * qta;
}
}
val = val_mat + val_lav * (CENTO - o.mask().get_real(F_SCONTO))/CENTO;
cos = val ;
val = cos * (CENTO + _art.get_real(ANAMAG_PERCRIC))/CENTO;
}
break;
default:
break;
}
o.mask().set(F_PREZZOM, cos.string());
o.mask().set(F_PREZZOV, val.string());
}
break;
default:
break;
}
return true;
}
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TDistinta_app // TDistinta_app
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -386,7 +539,7 @@ bool TQuery_mask::copy_distinct(const TCodice_articolo& oldcode,
for (int r = rdist.last_row(); r > 0; r = rdist.pred_row(r)) for (int r = rdist.last_row(); r > 0; r = rdist.pred_row(r))
{ {
TRectype& row = rdist.row(r, false); // Rewriteable row TRectype& row = rdist.row(r, false); // Rewriteable row
const char row_type = row.get_char("TIPO"); char row_type = row.get_char("TIPO");
// Tento rigenerazione del codice solo su articoli e distinte // Tento rigenerazione del codice solo su articoli e distinte
if (row_type == 'A' || row_type == 'D') if (row_type == 'A' || row_type == 'D')
{ {
@ -395,10 +548,13 @@ bool TQuery_mask::copy_distinct(const TCodice_articolo& oldcode,
if (generate_subcode(oldcode, newcode, oldsub, newsub)) if (generate_subcode(oldcode, newcode, oldsub, newsub))
{ {
row.put("CODCOMP", newsub); row.put("CODCOMP", newsub);
if (row_type == 'A') // Controllo se la riga e' in realta' una distinta
copy_article(oldsub, newsub); if (row_type == 'A' && !cache().get(LF_DIST, oldsub).empty())
row_type = 'D';
if (row_type == 'D')
copy_distinct(oldsub, newsub, recursive);
else else
copy_distinct(oldsub, newsub, recursive); copy_article(oldsub, newsub);
} }
} }
} }
@ -1215,17 +1371,17 @@ bool TDistinta_mask::on_field_event(TOperable_field& o, TField_event e, long jol
} }
} }
break; break;
case F_SORTA: case F_SORTA:
if (e == fe_button) if (e == fe_button)
{ {
TSheet_field& sheet = o.mask().sfield(F_SHEET); TSheet_field& sheet = o.mask().sfield(F_SHEET);
sheet.sort(); sheet.sort();
sheet.force_update(); sheet.force_update();
} }
break; break;
case DLG_MOV: case DLG_MOV:
if (e == fe_button) if (e == fe_button)
{ {
if (app().has_module(MGAUT)) if (app().has_module(MGAUT))
{ {

4
mg/mglib.h
View File

@ -331,8 +331,8 @@ public:
// Setta le colonne dei campi livello codice di uno sheet in base alle abilitazioni // Setta le colonne dei campi livello codice di uno sheet in base alle abilitazioni
void set_sheet_columns(TSheet_field &sht, short dlg) const; void set_sheet_columns(TSheet_field &sht, short dlg) const;
// costruisce il codice compatto e viceversa // costruisce il codice compatto e viceversa
void pack_maskgrpcodes(TString & pc, const TMask & m, int field, int level); void pack_maskgrpcodes(TString & pc, const TMask & m, int field, int level) const;
void pack_grpcode(TString & pc, const TString &codlev, const int levnum); // Inserisce il codice del gruppo del livello levnum in pc void pack_grpcode(TString & pc, const TString &codlev, const int levnum) const; // Inserisce il codice del gruppo del livello levnum in pc
TString unpack_grpcode(const TString & pc, const int levnum) const ; // Estrae il codice del gruppo del livello levnum da pc TString unpack_grpcode(const TString & pc, const int levnum) const ; // Estrae il codice del gruppo del livello levnum da pc
// costruisce il codice della tabella di decodifica dei livelli // costruisce il codice della tabella di decodifica dei livelli
TString build_tabcode(const TString & code, const int levnum) const ; TString build_tabcode(const TString & code, const int levnum) const ;

4
mg/mglib01.cpp
View File

@ -783,13 +783,13 @@ const TString & TCodice_livelli::picture(int levnum) const
return(_picture[levnum-1]); return(_picture[levnum-1]);
} }
void TCodice_livelli::pack_maskgrpcodes(TString & pc, const TMask & mask, int field1, int levnum) void TCodice_livelli::pack_maskgrpcodes(TString & pc, const TMask & mask, int field1, int levnum) const
{ {
for (int l=0 ; l<levnum; l++) for (int l=0 ; l<levnum; l++)
pack_grpcode(pc,mask.get(field1+l),1+l); pack_grpcode(pc,mask.get(field1+l),1+l);
} }
void TCodice_livelli::pack_grpcode(TString & pc, const TString &codlev, const int levnum) void TCodice_livelli::pack_grpcode(TString & pc, const TString &codlev, const int levnum) const
{ {
CHECK(levnum<=max_levels() && levnum>0,"I codici livello partono da 1") ; CHECK(levnum<=max_levels() && levnum>0,"I codici livello partono da 1") ;
pc.overwrite(codlev.left(_code_length[levnum-1]),packed_length(levnum-1)); pc.overwrite(codlev.left(_code_length[levnum-1]),packed_length(levnum-1));