Ripristino liquidazione
git-svn-id: svn://10.65.10.50/trunk@937 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa
parent
ea3486013f
commit
d213fb20d1
298
cg/cg5600.cpp
Executable file
298
cg/cg5600.cpp
Executable file
@ -0,0 +1,298 @@
|
||||
#include <applicat.h>
|
||||
#include <tabutil.h>
|
||||
#include <mask.h>
|
||||
#include <prefix.h>
|
||||
#include <sheet.h>
|
||||
#include <relation.h>
|
||||
#include <urldefid.h>
|
||||
|
||||
#define F_YEAR 101
|
||||
|
||||
|
||||
// ripristino liquidazione
|
||||
// dati anno e ditta scancella tutte
|
||||
// le tabelle dimmerda
|
||||
// piu' che altro serve alla Prassi
|
||||
// per non far cazzate quando provano
|
||||
|
||||
class TRipristino_liq : public TApplication
|
||||
{
|
||||
long _firm;
|
||||
TString _year;
|
||||
TRelation* _nditte;
|
||||
TArray_sheet* _ditte;
|
||||
TArray _nomiditte;
|
||||
|
||||
virtual bool create();
|
||||
bool menu(MENU_TAG) { return do_restore(); }
|
||||
|
||||
// handuler
|
||||
static bool ch_year_handler(TMask_field& f, KEY key);
|
||||
|
||||
public:
|
||||
|
||||
void build_ditte_sheet();
|
||||
void build_nomiditte();
|
||||
void set_year(const char* y) { _year = y; }
|
||||
|
||||
bool do_restore();
|
||||
bool restore_firm(long firm);
|
||||
|
||||
static TRipristino_liq& app() { return (TRipristino_liq&)main_app(); }
|
||||
|
||||
TRipristino_liq() {}
|
||||
virtual ~TRipristino_liq() {}
|
||||
};
|
||||
|
||||
bool TRipristino_liq::ch_year_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_TAB && f.focusdirty())
|
||||
{
|
||||
app().begin_wait();
|
||||
app().set_year(f.get());
|
||||
app().build_nomiditte();
|
||||
app().build_ditte_sheet();
|
||||
app().end_wait();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
void TRipristino_liq::build_ditte_sheet()
|
||||
{
|
||||
// build sheet
|
||||
_ditte->destroy();
|
||||
for (int i = 0; i < _nomiditte.items(); i++)
|
||||
{
|
||||
TToken_string* d = new TToken_string(64);
|
||||
*d = (TToken_string&)_nomiditte[i];
|
||||
const char vers = d->get_char(2);
|
||||
|
||||
bool selectable = vers == '?';
|
||||
d->insert(" |", 0);
|
||||
|
||||
const long pos = _ditte->add(d);
|
||||
if (selectable) _ditte->disable(pos);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void TRipristino_liq::build_nomiditte()
|
||||
{
|
||||
_nomiditte.destroy();
|
||||
// ricostruire _nomiditte e rifare build_ditte_sheet
|
||||
TLocalisamfile& dt = _nditte->lfile();
|
||||
TString fr("??");
|
||||
|
||||
for (dt.first(); !dt.eof(); dt.next())
|
||||
{
|
||||
// check no archivi
|
||||
fr = "??";
|
||||
bool good = prefhndl->exist(dt.get_long("CODDITTA"));
|
||||
|
||||
if (good)
|
||||
{
|
||||
// check no parametri liquidazione
|
||||
TApplication::set_firm(dt.get_long("CODDITTA"));
|
||||
TTable lia("LIA");
|
||||
lia.put("CODTAB", _year);
|
||||
if (lia.read() != NOERR) good = FALSE;
|
||||
else fr = lia.get("S7");
|
||||
}
|
||||
|
||||
TToken_string* d = new TToken_string(64);
|
||||
|
||||
// add record
|
||||
d->add(dt.get("CODDITTA"));
|
||||
d->add(dt.get("RAGSOC"));
|
||||
d->add(fr);
|
||||
|
||||
_nomiditte.add(d);
|
||||
}
|
||||
TApplication::set_firm(_firm);
|
||||
}
|
||||
|
||||
|
||||
bool TRipristino_liq::create()
|
||||
{
|
||||
TApplication::create();
|
||||
_firm = get_firm();
|
||||
TDate oggi(TODAY);
|
||||
_year.format("%d",oggi.year());
|
||||
_nditte = new TRelation(LF_NDITTE);
|
||||
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
|
||||
"@1|Cod.@5|Ragione Sociale@50|Vers.");
|
||||
build_nomiditte();
|
||||
build_ditte_sheet();
|
||||
|
||||
dispatch_e_menu(BAR_ITEM(1));
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TRipristino_liq::do_restore()
|
||||
{
|
||||
KEY k; int i;
|
||||
TMask m("cg5600a");
|
||||
|
||||
m.field(F_YEAR).set(_year);
|
||||
m.set_handler(F_YEAR, ch_year_handler);
|
||||
_ditte->enable_check();
|
||||
|
||||
while ((k = m.run()) != K_ESC)
|
||||
{
|
||||
if (k == K_QUIT) break;
|
||||
switch(k)
|
||||
{
|
||||
case K_ENTER:
|
||||
begin_wait();
|
||||
for(i = 0; i < _ditte->items(); i++)
|
||||
{
|
||||
if (_ditte->checked(i))
|
||||
{
|
||||
TToken_string& rw = _ditte->row(i);
|
||||
restore_firm(rw.get_long(1));
|
||||
}
|
||||
}
|
||||
end_wait();
|
||||
break;
|
||||
case DLG_SELECT:
|
||||
_ditte->run();
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
set_firm(_firm);
|
||||
return k != K_QUIT;
|
||||
}
|
||||
|
||||
bool TRipristino_liq::restore_firm(long firm)
|
||||
{
|
||||
// azzera: campi progressivi in LIA e PLA
|
||||
// cancella: tutti PPA, LIM, PIM, RMB, PLM, PTM
|
||||
set_firm(firm);
|
||||
|
||||
TTable lia("LIA");
|
||||
TTable pla("PLA");
|
||||
TTable pim("PIM");
|
||||
TTable plm("PLM");
|
||||
TTable ptm("PTM");
|
||||
TTable ppa("PPA");
|
||||
TTable rmb("RMB");
|
||||
TTable lim("LIM");
|
||||
|
||||
// LIA
|
||||
for (lia.first(); !lia.eof(); lia.next())
|
||||
{
|
||||
TString codtab(lia.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
{
|
||||
lia.put("R1","");
|
||||
lia.put("R2","");
|
||||
lia.put("R3","");
|
||||
lia.put("R4","");
|
||||
lia.put("R5","");
|
||||
lia.put("R6","");
|
||||
break;
|
||||
}
|
||||
}
|
||||
lia.rewrite();
|
||||
|
||||
// PLA
|
||||
for (pla.first(); !pla.eof(); pla.next())
|
||||
{
|
||||
TString codtab(pla.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
{
|
||||
pla.put("R0","");
|
||||
pla.put("R1","");
|
||||
pla.put("R2","");
|
||||
pla.put("R3","");
|
||||
pla.put("R4","");
|
||||
pla.put("R9","");
|
||||
pla.put("R10","");
|
||||
pla.put("S1","");
|
||||
pla.put("S2","");
|
||||
pla.put("S3","");
|
||||
pla.put("S4","");
|
||||
}
|
||||
}
|
||||
pla.rewrite();
|
||||
|
||||
// PIM
|
||||
for (pim.first(); !pim.eof(); pim.next())
|
||||
{
|
||||
TString codtab(pim.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
pim.remove();
|
||||
}
|
||||
// pim.packfile();
|
||||
// pim.packindex();
|
||||
|
||||
// PLM
|
||||
for (plm.first(); !plm.eof(); plm.next())
|
||||
{
|
||||
TString codtab(plm.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
plm.remove();
|
||||
}
|
||||
// plm.packfile();
|
||||
// plm.packindex();
|
||||
|
||||
// PTM
|
||||
for (ptm.first(); !ptm.eof(); ptm.next())
|
||||
{
|
||||
TString codtab(ptm.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
ptm.remove();
|
||||
}
|
||||
// ptm.packfile();
|
||||
// ptm.packindex();
|
||||
|
||||
// PPA
|
||||
for (ppa.first(); !ppa.eof(); ppa.next())
|
||||
{
|
||||
TString codtab(ppa.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
ppa.remove();
|
||||
}
|
||||
// ppa.packfile();
|
||||
// ppa.packindex();
|
||||
|
||||
// RMB
|
||||
for (rmb.first(); !rmb.eof(); rmb.next())
|
||||
{
|
||||
TString codtab(rmb.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
rmb.remove();
|
||||
}
|
||||
// rmb.packfile();
|
||||
// rmb.packindex();
|
||||
|
||||
// LIM
|
||||
for (lim.first(); !lim.eof(); lim.next())
|
||||
{
|
||||
TString codtab(lim.get("CODTAB"));
|
||||
|
||||
if (codtab.mid(0,4) == _year)
|
||||
lim.remove();
|
||||
}
|
||||
// lim.packfile();
|
||||
// lim.packindex();
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
int cg5600(int argc, char* argv[])
|
||||
{
|
||||
TRipristino_liq app;
|
||||
app.run(argc, argv, "Ripristino liquidazione");
|
||||
return 0;
|
||||
}
|
||||
32
cg/cg5600a.uml
Executable file
32
cg/cg5600a.uml
Executable file
@ -0,0 +1,32 @@
|
||||
/*
|
||||
* Ripristino liquidazione
|
||||
*/
|
||||
#define F_YEAR 101
|
||||
|
||||
PAGE "Ripristino Liquidazione" -1 -1 64 4
|
||||
NUMBER F_YEAR 4
|
||||
BEGIN
|
||||
PROMPT 16 1 "Anno liquidazione "
|
||||
FLAGS "AR"
|
||||
END
|
||||
|
||||
BUTTON DLG_SELECT 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
MESSAGE EXIT,DLG_SELECT
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user