150 lines
3.4 KiB
C++
Executable File
150 lines
3.4 KiB
C++
Executable File
#include <applicat.h>
|
|
#include <mask.h>
|
|
#include <progind.h>
|
|
#include <urldefid.h>
|
|
|
|
#include "cg2200.h"
|
|
#include "cg2101.h"
|
|
|
|
#include <mov.h>
|
|
#include <rmov.h>
|
|
#include <rmoviva.h>
|
|
|
|
TString& add_plural(TString& s, long num, const char* name)
|
|
{
|
|
const TFixed_string n(name);
|
|
const char last = n[n.len()-1];
|
|
|
|
if (num < 1)
|
|
{
|
|
s << "nessun";
|
|
if (toupper(last) == 'A' || toupper(n[0]) == 'Z' ||
|
|
toupper(n[0]) == 'S' && strchr("aeiouAEIOU", n[1]) == NULL)
|
|
s << tolower(last);
|
|
s << ' ' << name;
|
|
}
|
|
else
|
|
{
|
|
s << num << ' ' << name;
|
|
if (num > 1)
|
|
s[s.len()-1] = (last == 'a') ? 'e' : 'i';
|
|
}
|
|
|
|
return s;
|
|
}
|
|
|
|
class TDeleteprovv_app : public TApplication
|
|
{
|
|
protected:
|
|
virtual bool create();
|
|
virtual bool destroy();
|
|
virtual bool menu(MENU_TAG m);
|
|
|
|
public:
|
|
TDeleteprovv_app() {};
|
|
};
|
|
|
|
bool TDeleteprovv_app::create()
|
|
{
|
|
TApplication::create();
|
|
dispatch_e_menu(BAR_ITEM(1));
|
|
return TRUE;
|
|
}
|
|
|
|
bool TDeleteprovv_app::destroy()
|
|
{
|
|
return TApplication::destroy();
|
|
}
|
|
|
|
bool TDeleteprovv_app::menu(MENU_TAG)
|
|
{
|
|
TMask m("cg2200a");
|
|
TCursor& cur = *m.efield(F_FROMDATE).browse()->cursor();
|
|
TLocalisamfile& mov = cur.file(LF_MOV);
|
|
TLocalisamfile rmov(LF_RMOV);
|
|
TLocalisamfile rmoviva(LF_RMOVIVA);
|
|
|
|
while (m.run() != K_QUIT)
|
|
{
|
|
TRecnotype last = cur.items()-1;
|
|
mov.zero();
|
|
const char* s = m.get(F_TODATE);
|
|
if (*s)
|
|
{
|
|
mov.put(MOV_DATAREG, s);
|
|
mov.put(MOV_NUMREG, m.get(F_TOREG));
|
|
last = cur.read();
|
|
}
|
|
|
|
mov.zero();
|
|
mov.put(MOV_DATAREG, m.get(F_FROMDATE));
|
|
mov.put(MOV_NUMREG, m.get(F_FROMREG));
|
|
const TRecnotype first = cur.read();
|
|
|
|
const TRecnotype total = first >= 0L ? last-first+1 : 0L;
|
|
TString80 caption("Cancellazione di ");
|
|
add_plural(caption, total, "movimento");
|
|
|
|
if (!yesno_box(caption) || total < 1)
|
|
continue;
|
|
|
|
TProgind pi(total, caption, FALSE, TRUE, 24);
|
|
|
|
cur.freeze();
|
|
for (cur = first; cur.pos() <= last; ++cur)
|
|
{
|
|
const long numreg = mov.get_long(MOV_NUMREG);
|
|
|
|
int err = cur.lock();
|
|
for (int rig = 1; err == NOERR; rig++)
|
|
{
|
|
rmov.put(RMV_NUMREG, numreg);
|
|
rmov.put(RMV_NUMRIG, rig);
|
|
if (rmov.read(_isequal, _lock) != NOERR) break;
|
|
err = rmov.remove();
|
|
if (err != NOERR)
|
|
caption.format("riga contabile %d", rig);
|
|
}
|
|
for (rig = 1; err == NOERR; rig++)
|
|
{
|
|
rmoviva.put(RMI_NUMREG, numreg);
|
|
rmoviva.put(RMI_NUMRIG, rig);
|
|
if (rmoviva.read(_isequal, _lock) != NOERR) break;
|
|
err = rmov.remove();
|
|
if (err != NOERR)
|
|
caption.format("riga IVA %d", rig);
|
|
}
|
|
|
|
if (err == NOERR)
|
|
{
|
|
const TRecnotype n = mov.recno();
|
|
mov.setkey(1); // Isam bug on remove with key != 1
|
|
mov.readat(n);
|
|
err = mov.remove();
|
|
if (err != NOERR)
|
|
caption = "testata";
|
|
}
|
|
|
|
if (err == NOERR)
|
|
pi.addstatus(1);
|
|
else
|
|
{
|
|
error_box("Errore %d nella cancellazione della %s del movimento %ld",
|
|
err, (const char*)caption, numreg);
|
|
break;
|
|
}
|
|
}
|
|
cur.freeze(FALSE);
|
|
}
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
int cg2200(int argc, char** argv)
|
|
{
|
|
TDeleteprovv_app a;
|
|
a.run(argc, argv, "Eliminazione provvisori");
|
|
return 0;
|
|
}
|