Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Personalizzazione DbService git-svn-id: svn://10.65.10.50/branches/R_10_00@22102 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
fac8c38e29
commit
a83a4d17ee
@ -11,6 +11,8 @@ int main(int argc, char** argv)
|
||||
ps0920200(argc, argv); break; //Aggiornamento IVA Documenti DBService
|
||||
case 2:
|
||||
ps0920300(argc, argv); break; //Pianificazione impianti DBService
|
||||
case 3:
|
||||
ps0920400(argc, argv); break; //Riepilogo produzione DBService
|
||||
case 0:
|
||||
default:
|
||||
ps0920100(argc, argv); break; //Stampa ordini di produzione DBService
|
||||
|
||||
@ -1,3 +1,4 @@
|
||||
int ps0920100(int argc, char* argv[]);
|
||||
int ps0920200(int argc, char* argv[]);
|
||||
int ps0920300(int argc, char* argv[]);
|
||||
int ps0920400(int argc, char* argv[]);
|
||||
|
||||
380
ps/ps0920400.cpp
Executable file
380
ps/ps0920400.cpp
Executable file
@ -0,0 +1,380 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <defmask.h>
|
||||
#include <relation.h>
|
||||
#include <cfven.h>
|
||||
#include <progind.h>
|
||||
#include <textset.h>
|
||||
#include <utility.h>
|
||||
#include "../db/dblib.h"
|
||||
#include "../ve/velib.h"
|
||||
#include <rdoc.h>
|
||||
|
||||
#include "ps0920.h"
|
||||
#include "ps0920400a.h"
|
||||
|
||||
class TShuttle : public TObject
|
||||
{
|
||||
TString _codnum;
|
||||
TString4 _provv;
|
||||
TString _impianto;
|
||||
int _anno;
|
||||
TString _codart;
|
||||
TString _codart_orig;
|
||||
long _ndoc;
|
||||
int _nriga;
|
||||
real _qta;
|
||||
|
||||
protected:
|
||||
virtual TObject* dup() const { return new TShuttle(*this); }
|
||||
void get_codart_orig(const TRectype & rec);
|
||||
const real qta_orig();
|
||||
|
||||
public:
|
||||
const TString & codnum() const { return _codnum; }
|
||||
const TString & provv() const { return _provv; }
|
||||
const int anno() const { return _anno; }
|
||||
const long ndoc() const { return _ndoc; }
|
||||
const int nriga() const { return _nriga; }
|
||||
const TString & codart() const { return _codart; }
|
||||
const TString & codart_orig() const { return _codart_orig; }
|
||||
const TString & impianto() const { return _impianto; }
|
||||
const real & qta() const { return _qta; }
|
||||
const real scarto();
|
||||
TShuttle(const TRectype & rec);
|
||||
TShuttle(const TShuttle & s);
|
||||
void add(const TRectype & rec);
|
||||
static const char * key(const TRectype & rec);
|
||||
const char * key(bool full = false) const;
|
||||
virtual ~TShuttle() {}
|
||||
};
|
||||
|
||||
const real TShuttle::scarto()
|
||||
{
|
||||
real scarto = qta_orig();
|
||||
TDistinta_tree d;
|
||||
TArray boom;
|
||||
|
||||
d.set_root(_codart_orig);
|
||||
if (_codart_orig == "255BTN075030FACN")
|
||||
int k = 1;
|
||||
if (d.explode(boom, false, RAGGR_EXP_NONE, 0, "A") > 0)
|
||||
{
|
||||
const int items = boom.items();
|
||||
bool found = false;
|
||||
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
const TRiga_esplosione & re = (const TRiga_esplosione &) boom[i];
|
||||
|
||||
if (re.articolo() == _codart)
|
||||
{
|
||||
if (re.curr_qta() != UNO && re.curr_qta() != ZERO)
|
||||
{
|
||||
scarto *= re.curr_qta();
|
||||
scarto.round(3);
|
||||
found = true;
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (!found)
|
||||
scarto = qta();
|
||||
}
|
||||
scarto -= qta();
|
||||
return scarto < ZERO ? ZERO : scarto ;
|
||||
}
|
||||
|
||||
const real TShuttle::qta_orig()
|
||||
{
|
||||
TToken_string key(_codnum);
|
||||
|
||||
key.add(_anno);
|
||||
key.add(_provv);
|
||||
key.add(_ndoc);
|
||||
key.add(_nriga);
|
||||
|
||||
const TRectype & r = cache().get(LF_RIGHEDOC, key);
|
||||
|
||||
real qta(r.get_real(RDOC_QTA));
|
||||
|
||||
return qta;
|
||||
}
|
||||
|
||||
void TShuttle::get_codart_orig(const TRectype & rec)
|
||||
{
|
||||
TToken_string key(rec.get("CODNUM"));
|
||||
|
||||
key.add(rec.get("ANNO"));
|
||||
key.add(rec.get("PROVV"));
|
||||
key.add(rec.get("NDOC"));
|
||||
key.add(rec.get("NRIGA"));
|
||||
|
||||
const TRectype & r = cache().get(LF_RIGHEDOC, key);
|
||||
|
||||
_codart_orig = r.get(RDOC_CODARTMAG);
|
||||
}
|
||||
|
||||
TShuttle::TShuttle(const TRectype & rec)
|
||||
{
|
||||
_codnum = rec.get("CODNUM");
|
||||
_provv = rec.get("PROVV");
|
||||
_anno = rec.get_int("ANNO");
|
||||
_ndoc = rec.get_long("NDOC");
|
||||
_nriga = rec.get_long("NRIGA");
|
||||
_codart = rec.get("CODART");
|
||||
_impianto = rec.get("IMPIANTO");
|
||||
_qta = rec.get_real("QTA");
|
||||
get_codart_orig(rec);
|
||||
}
|
||||
|
||||
TShuttle::TShuttle(const TShuttle & s)
|
||||
{
|
||||
_codnum = s._codnum;
|
||||
_provv = s._provv;
|
||||
_anno = s._anno;
|
||||
_ndoc = s._ndoc;
|
||||
_nriga = s._nriga;
|
||||
_codart = s._codart;
|
||||
_impianto = s._impianto;
|
||||
_qta = s._qta;
|
||||
_codart_orig = s._codart_orig;
|
||||
}
|
||||
|
||||
void TShuttle::add(const TRectype & rec)
|
||||
{
|
||||
_qta += rec.get_real("QTA");
|
||||
}
|
||||
|
||||
const char * TShuttle::key(const TRectype & rec)
|
||||
{
|
||||
TString & key = get_tmp_string(60);
|
||||
|
||||
key.format("%-4s", (const char *) rec.get("CODNUM"));
|
||||
|
||||
key << format("%04d", rec.get_int("ANNO"));
|
||||
key << format("%07ld", rec.get_long("NDOC"));
|
||||
key << format("%04d", rec.get_int("NRIGA"));
|
||||
key << rec.get("IMPIANTO");
|
||||
return (const char *) key;
|
||||
}
|
||||
|
||||
const char * TShuttle::key(bool full) const
|
||||
{
|
||||
TString & key = get_tmp_string(60);
|
||||
|
||||
key.format("%-4s%04d%07ld%04d", (const char *) _codnum, _anno, _ndoc, _nriga);
|
||||
if (full)
|
||||
key << _impianto;
|
||||
return (const char *) key;
|
||||
}
|
||||
|
||||
class TMaskPs09204 : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TMaskPs09204();
|
||||
virtual ~TMaskPs09204();
|
||||
};
|
||||
|
||||
TMaskPs09204::TMaskPs09204()
|
||||
: TAutomask("ps0920400a")
|
||||
{
|
||||
}
|
||||
|
||||
TMaskPs09204::~TMaskPs09204()
|
||||
{
|
||||
}
|
||||
|
||||
bool TMaskPs09204::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
const int id = o.dlg();
|
||||
switch (id)
|
||||
{
|
||||
case F_CODCLI:
|
||||
if (e == fe_modify)
|
||||
{
|
||||
}
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
class TRiepilogoProduzionePs0920 : public TSkeleton_application
|
||||
{
|
||||
TAssoc_array _riepilogo;
|
||||
TAssoc_array _impianti;
|
||||
TMaskPs09204 * _mask;
|
||||
virtual bool check_autorization() const {return false;}
|
||||
virtual const char * extra_modules() const {return "ve";}
|
||||
|
||||
|
||||
protected:
|
||||
virtual void main_loop();
|
||||
virtual bool create();
|
||||
|
||||
public:
|
||||
TAssoc_array & riepilogo() {return _riepilogo;}
|
||||
TAssoc_array & impianti() {return _impianti;}
|
||||
const TMaskPs09204 & mask() const {return *_mask;}
|
||||
virtual ~TRiepilogoProduzionePs0920();
|
||||
};
|
||||
|
||||
bool build_riep(const TRelation& rel, void* pJolly)
|
||||
{
|
||||
TRiepilogoProduzionePs0920 * app = (TRiepilogoProduzionePs0920 *) pJolly;
|
||||
TAssoc_array & r = app->riepilogo();
|
||||
const TString key = TShuttle::key(rel.curr());
|
||||
|
||||
TShuttle * s = (TShuttle *) r.objptr(key);
|
||||
|
||||
if (s == NULL)
|
||||
r.add(key, new TShuttle(rel.curr()));
|
||||
else
|
||||
s->add(rel.curr());
|
||||
|
||||
const TString8 impianto = rel.curr().get("IMPIANTO");
|
||||
|
||||
if (!app->impianti().is_key(impianto))
|
||||
app->impianti().add(impianto, impianto);
|
||||
return true;
|
||||
}
|
||||
|
||||
void TRiepilogoProduzionePs0920::main_loop()
|
||||
{
|
||||
while (_mask->run() == K_ENTER)
|
||||
{
|
||||
TCursor c(new TRelation(LF_RILPROD), "", 3);
|
||||
TRectype from(c.curr());
|
||||
|
||||
_riepilogo.destroy();
|
||||
_impianti.destroy();
|
||||
from.put("DATA",_mask->get(F_DADATA));
|
||||
|
||||
TRectype to(from);
|
||||
|
||||
to.put("DATA",_mask->get(F_ADATA));
|
||||
c.setregion(from, to);
|
||||
const long codcli = _mask->get_long(F_CODCLI);
|
||||
|
||||
if (codcli > 0L)
|
||||
{
|
||||
TString filter; filter.format("CODART[1,3]==\"%03ld\"", codcli);
|
||||
c.setfilter(filter);
|
||||
}
|
||||
c.scan(build_riep, this);
|
||||
|
||||
TString_array keysimp;
|
||||
TAS400_recordset out("AS400(2048)");
|
||||
|
||||
_impianti.get_keys(keysimp);
|
||||
keysimp.sort();
|
||||
|
||||
int items = keysimp.items();
|
||||
|
||||
out.create_field("OR", 0, 4);
|
||||
out.create_field("AN", 4, 4);
|
||||
out.create_field("NR", 8, 7);
|
||||
out.create_field("AR", 15, 20);
|
||||
int p = 35;
|
||||
for (int i = 0; i < items;i++)
|
||||
{
|
||||
out.create_field(format("Q%1d", i), p , 10);
|
||||
p += 10;
|
||||
out.create_field(format("S%1d", i), p , 10);
|
||||
p += 10;
|
||||
out.create_field(format("P%1d", i), p , 10);
|
||||
p += 10;
|
||||
}
|
||||
out.new_rec("");
|
||||
out.set("OR", "Ordine");
|
||||
out.set("AN", "Anno");
|
||||
out.set("NR", "Numero");
|
||||
out.set("AR", "Articolo");
|
||||
for (i = 0; i < items;i++)
|
||||
{
|
||||
out.set(format("Q%1d", i), cache().get("IMP", (TString &)keysimp[i], "S0"));
|
||||
out.set(format("S%1d", i), "");
|
||||
out.set(format("P%1d", i), "");
|
||||
}
|
||||
out.new_rec("");
|
||||
out.set("OR", "");
|
||||
out.set("AN", "");
|
||||
out.set("NR", "");
|
||||
out.set("AR", "");
|
||||
for (i = 0; i < items;i++)
|
||||
{
|
||||
out.set(format("Q%1d", i), "Quantità");
|
||||
out.set(format("S%1d", i), "Scarto");
|
||||
out.set(format("P%1d", i), "%");
|
||||
|
||||
}
|
||||
|
||||
TString_array keys;
|
||||
TString last_key;
|
||||
|
||||
_riepilogo.get_keys(keys);
|
||||
keys.sort();
|
||||
items = keys.items();
|
||||
|
||||
TProgind pi(items, "Esportazione");
|
||||
|
||||
for (i = 0; i < items; i++)
|
||||
{
|
||||
pi.addstatus(1L);
|
||||
TShuttle * s = (TShuttle *) _riepilogo.objptr((TString &)keys[i]);
|
||||
const TString key(s->key());
|
||||
|
||||
if (last_key != key)
|
||||
{
|
||||
last_key = key;
|
||||
out.new_rec("");
|
||||
out.set("OR", s->codnum());
|
||||
out.set("AN", long(s->anno()));
|
||||
out.set("NR", s->ndoc());
|
||||
out.set("AR", s->codart_orig());
|
||||
}
|
||||
|
||||
const int p = keysimp.find(s->impianto());
|
||||
|
||||
real scarto = s->scarto();
|
||||
|
||||
out.set(format("Q%1d", p), s->qta());
|
||||
out.set(format("S%1d", p), scarto);
|
||||
const real perc = scarto * CENTO / (s->qta() + scarto);
|
||||
out.set(format("P%1d", p), perc.stringa(6, 2));
|
||||
}
|
||||
|
||||
TFilename f(_mask->get(F_PATH));
|
||||
|
||||
if (!is_slash(f[f.len() - 1]))
|
||||
f << SLASH;
|
||||
f << _mask->get(F_NAME);
|
||||
f.ext("xls");
|
||||
out.save_as(f, fmt_html);
|
||||
}
|
||||
}
|
||||
|
||||
bool TRiepilogoProduzionePs0920::create()
|
||||
{
|
||||
_mask = new TMaskPs09204;
|
||||
return TSkeleton_application:: create();
|
||||
}
|
||||
|
||||
TRiepilogoProduzionePs0920::~TRiepilogoProduzionePs0920()
|
||||
{
|
||||
delete _mask;
|
||||
}
|
||||
|
||||
TRiepilogoProduzionePs0920 & app() { return (TRiepilogoProduzionePs0920&) main_app();}
|
||||
|
||||
int ps0920400(int argc, char* argv[])
|
||||
{
|
||||
TRiepilogoProduzionePs0920 a;
|
||||
|
||||
a.run(argc, argv, "Riepilogo Produzione DbService");
|
||||
return 0;
|
||||
}
|
||||
8
ps/ps0920400a.h
Executable file
8
ps/ps0920400a.h
Executable file
@ -0,0 +1,8 @@
|
||||
#define F_PROFILO 30
|
||||
#define F_DADATA 101
|
||||
#define F_ADATA 102
|
||||
#define F_CODCLI 103
|
||||
#define F_RAGSOC 104
|
||||
#define F_PATH 105
|
||||
#define F_NAME 106
|
||||
|
||||
83
ps/ps0920400a.uml
Executable file
83
ps/ps0920400a.uml
Executable file
@ -0,0 +1,83 @@
|
||||
#include "ps0920400a.h"
|
||||
|
||||
PAGE "Selezione Produzione" -1 -1 80 14
|
||||
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 2 "Dal "
|
||||
FIELD S_DADATA
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 2 4 "Al "
|
||||
FIELD S_ADATA
|
||||
END
|
||||
|
||||
STRING F_CODCLI 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Cliente "
|
||||
WARNING "Cliente assente"
|
||||
FLAGS "R"
|
||||
FIELD CODCLI
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCLI
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
WARNING "Cliente assente"
|
||||
PROMPT 26 6 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_PATH 255 50
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cartella "
|
||||
DSELECT
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
STRING F_NAME 50
|
||||
BEGIN
|
||||
PROMPT 2 10 "File "
|
||||
FSELECT ""
|
||||
FLAGS "B"
|
||||
END
|
||||
|
||||
STRING F_PROFILO 70 50
|
||||
BEGIN
|
||||
PROMPT 8 -3 "Profilo "
|
||||
PSELECT
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user