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

Patch level : 12.0

Browse Source 
Files correlati     : 

Verificata l'importazione da terminale della produzione per DbService

git-svn-id: svn://10.65.10.50/branches/R_10_00@23550 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-01-25 13:52:06 +00:00
parent 435f97510e
commit 27e8c69538
3 changed files with 935 additions and 902 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mr/mr0400.cpp
View File

@ -191,7 +191,7 @@ bool TConf_MRP_application::user_create()
bool TConf_MRP_application::user_destroy()
{
return TConfig_application:user_destroy();
return TConfig_application::user_destroy();
}
int mr0400(int argc, char* argv[])

30
src/mr/mr0500.cpp
View File

@ -68,6 +68,7 @@ bool TLoadfile_mask::on_field_event(TOperable_field& o, TField_event e, long jol
{
xvt_fsys_convert_dir_to_str(&fs.dir, fname.get_buffer(), fname.size()); //converte il nome della directory in una
fname.add(fs.name); //stringa aggiungendo il path del file
fname.ext("dat");
o.set(fname); //mostra il campo sul video (la funzione set)
}
@ -216,6 +217,7 @@ bool TRilprod_mask::on_field_event(TOperable_field& o, TField_event e, long joll
{
TLoadfile_mask m;
TArray warn_perc;
TString_array warning;
if (m.run() == K_ENTER)
@ -273,9 +275,11 @@ void TRilprod_mask::print_record(TViswin & v, TTipo_rec t , TProduzione & r)
v.add_line("");
if (t == _start)
v.add_line(TR("Record elaborato - inizio produzione")); else
v.add_line(TR("Record elaborato - inizio produzione"));
else
if (t == _end)
v.add_line(TR("Record elaborato - fine produzione")); else
v.add_line(TR("Record elaborato - fine produzione"));
else
if (t == _rett)
v.add_line(TR("Record elaborato - rettifica"));
TString l;
@ -362,8 +366,8 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
const int anno = ord.get_int();
const int ndoc = ord.get_long();
const int nriga = ord.get_int();
TDate d;
TString h;
TDate recdate;
TString rechour;
real qta;
real scarto;
TString operatore;
@ -486,13 +490,13 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
{
if (val.len() == 8)
val.insert("20", 6);
d = val;
recdate = val;
}
else
if (name == "ORA")
{
h = val.left(2);
h << val.mid(3, 2) << val.right(2);
rechour = val.left(2);
rechour << val.mid(3, 2) << val.right(2);
}
else
if (name == "QTA")
@ -533,7 +537,7 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
for (int i = 1; !found && i <= rows; i++)
{
const TRectype & row = prd.body()[i];
found = d == row.get_date("DATAINI") && h == row.get("ORAINI");
found = recdate == row.get_date("DATAINI") && rechour == row.get("ORAINI");
if (row.get("DATAFINE").empty())
seq_err = true;
}
@ -542,8 +546,8 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
if (!found)
{
TRectype & row = prd.body().row(rows + 1, true);
row.put("DATAINI", d);
row.put("ORAINI", h);
row.put("DATAINI", recdate);
row.put("ORAINI", rechour);
row.put("OPERATORE", operatore);
}
if (nuovo)
@ -561,7 +565,7 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
for (i = rows; i > 0; i--)
{
const TRectype & row = prd.body()[i];
found = (d == row.get_date("DATAFINE") && h == row.get("ORAFINE")) ||
found = (recdate == row.get_date("DATAFINE") && rechour == row.get("ORAFINE")) ||
row.get("DATAFINE").empty();
if (found)
break;
@ -574,8 +578,8 @@ void TRilprod_mask::load_prod_file(const char* nomefile, bool savefile, bool onl
}
TRectype & row = prd.body()[i];
row.put("DATAFINE", d);
row.put("ORAFINE", h);
row.put("DATAFINE", recdate);
row.put("ORAFINE", rechour);
real diff = qta - row.get_real("QTA");
real tot = prd.get_real("QTA") + diff;

29
src/mr/mr0500a-Denso.ini Normal file
View File

@ -0,0 +1,29 @@
[MAIN]
DECSEP =
FIELDSEP = |
RECORDSEP =
RECORDSIZE =
SKIPLINES = 0
TYPEFIELD = -1
TYPELEN = 0
TYPEPOS = -1
[RECORD]
LENGTH(0) = 1
LENGTH(1) = 20
LENGTH(2) = 20
LENGTH(3) = 5
LENGTH(4) = 15
LENGTH(5) = 1
LENGTH(6) = 5
LENGTH(7) = 8
LENGTH(8) = 8
NAME(0) = TIPO
NAME(1) = ORDINE
NAME(2) = CODART
NAME(3) = LINEA
NAME(4) = QTA
NAME(5) = CHIUSO
NAME(6) = OPERATORE
NAME(7) = DATA
NAME(8) = ORA