Aggiunti file gestione acconti
git-svn-id: svn://10.65.10.50/trunk@1783 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
73af6258b3
commit
50ef61047d
122
cg/cg4700.cpp
Executable file
122
cg/cg4700.cpp
Executable file
@ -0,0 +1,122 @@
|
|||||||
|
#include <relapp.h>
|
||||||
|
#include <config.h>
|
||||||
|
#include <msksheet.h>
|
||||||
|
#include <tabutil.h>
|
||||||
|
#include "cg4700.h"
|
||||||
|
|
||||||
|
#define ACCONTO_MENO_CREDITO real(200000.0)
|
||||||
|
|
||||||
|
class GesAcc_app : public TRelation_application
|
||||||
|
{
|
||||||
|
TRelation* _rel;
|
||||||
|
TMask* _mask;
|
||||||
|
TTable* _lim;
|
||||||
|
|
||||||
|
private:
|
||||||
|
static bool msk_credito(TMask_field&, KEY);
|
||||||
|
static bool msk_acconto(TMask_field&, KEY);
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool user_create();
|
||||||
|
virtual bool user_destroy();
|
||||||
|
virtual TRelation* get_relation() const { return _rel; }
|
||||||
|
virtual TMask* get_mask(int mode);
|
||||||
|
virtual bool changing_mask(int mode) {return FALSE; }
|
||||||
|
virtual int rewrite(const TMask&);
|
||||||
|
//virtual void init_query_mode (TMask&);
|
||||||
|
//virtual void init_query_insert_mode (TMask&);
|
||||||
|
};
|
||||||
|
|
||||||
|
inline GesAcc_app& app()
|
||||||
|
{
|
||||||
|
return (GesAcc_app&) main_app();
|
||||||
|
}
|
||||||
|
|
||||||
|
bool GesAcc_app::user_create()
|
||||||
|
{
|
||||||
|
_lim = new TTable("LIM");
|
||||||
|
_rel = new TRelation("%LIA");
|
||||||
|
|
||||||
|
_mask = new TMask("cg4700a");
|
||||||
|
_mask->set_handler(F_CREDITO, msk_acconto);
|
||||||
|
_mask->set_handler(F_CREDITO, msk_credito);
|
||||||
|
|
||||||
|
set_search_field(F_CODDITTA);
|
||||||
|
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool GesAcc_app::user_destroy()
|
||||||
|
{
|
||||||
|
delete _mask;
|
||||||
|
delete _lim;
|
||||||
|
delete _rel;
|
||||||
|
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool GesAcc_app::msk_credito(TMask_field& f, KEY k)
|
||||||
|
{
|
||||||
|
if (k == K_ENTER)
|
||||||
|
{
|
||||||
|
real credito (f.get());
|
||||||
|
real acconto (f.mask().get(F_ACCONTO));
|
||||||
|
if (credito > acconto)
|
||||||
|
return f.error_box("Il credito non puo' essere superiore all'acconto");
|
||||||
|
if (acconto.is_zero())
|
||||||
|
if (!credito.is_zero())
|
||||||
|
return f.error_box("Non e' possibile indicare il credito se l'acconto e' nullo");
|
||||||
|
}
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool GesAcc_app::msk_acconto(TMask_field& f, KEY k)
|
||||||
|
{
|
||||||
|
if (k == K_ENTER)
|
||||||
|
{
|
||||||
|
real credito (f.mask().get(F_CREDITO));
|
||||||
|
real acconto (f.get());
|
||||||
|
if (!acconto.is_zero())
|
||||||
|
{
|
||||||
|
if (acconto - credito < ACCONTO_MENO_CREDITO)
|
||||||
|
return f.error_box("La differenza tra acconto e credito deve essere superiore a lire %s", ACCONTO_MENO_CREDITO.string("."));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
int GesAcc_app::rewrite(const TMask& m)
|
||||||
|
{
|
||||||
|
TString16 chiave;
|
||||||
|
int anno = m.get_int(F_ANNO);
|
||||||
|
|
||||||
|
chiave << anno << 12;
|
||||||
|
|
||||||
|
TTable lim ("LIM");
|
||||||
|
lim.put("CODTAB", chiave);
|
||||||
|
if (lim.read() == NOERR)
|
||||||
|
{
|
||||||
|
real new_acc (m.get(F_ACCONTO));
|
||||||
|
real new_cred = lim.get_real("R12") - lim.get_real("R11") + new_acc;
|
||||||
|
lim.put("R11", new_acc);
|
||||||
|
lim.put("R12", new_cred);
|
||||||
|
lim.put("R0", lim.get_real("R13")- new_cred);
|
||||||
|
lim.rewrite();
|
||||||
|
}
|
||||||
|
|
||||||
|
m.autosave(_rel);
|
||||||
|
return _rel->rewrite();
|
||||||
|
}
|
||||||
|
|
||||||
|
TMask* GesAcc_app::get_mask(int mode)
|
||||||
|
{
|
||||||
|
return _mask;
|
||||||
|
}
|
||||||
|
|
||||||
|
int cg4700(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
GesAcc_app app;
|
||||||
|
app.run(argc, argv, "Gestione acconti");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
5
cg/cg4700.h
Executable file
5
cg/cg4700.h
Executable file
@ -0,0 +1,5 @@
|
|||||||
|
#define F_CODDITTA 101
|
||||||
|
#define F_RAGSOC 102
|
||||||
|
#define F_ANNO 103
|
||||||
|
#define F_ACCONTO 104
|
||||||
|
#define F_CREDITO 105
|
||||||
84
cg/cg4700a.uml
Executable file
84
cg/cg4700a.uml
Executable file
@ -0,0 +1,84 @@
|
|||||||
|
#include "cg4700.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
|
#include <toolbar.h>
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Gestione acconti di Dicembre" -1 -1 78 15
|
||||||
|
|
||||||
|
NUMBER F_CODDITTA 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Ditta "
|
||||||
|
FIELD CODTAB[1,5]
|
||||||
|
FLAGS "ZFR"
|
||||||
|
KEY 1
|
||||||
|
USE LF_NDITTE KEY 1
|
||||||
|
INPUT CODDITTA F_CODDITTA
|
||||||
|
DISPLAY "Ditta" CODDITTA
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
|
CHECKTYPE FORCED
|
||||||
|
WARNING "Ditta assente"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 16 1 "Rag.Soc "
|
||||||
|
KEY 1
|
||||||
|
USE LF_NDITTE KEY 2
|
||||||
|
INPUT CODDITTA F_CODDITTA
|
||||||
|
DISPLAY "Ditta" CODDITTA
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_ANNO 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 3 "Anno liquidazione "
|
||||||
|
HELP "Introdurre l'anno liquidazione"
|
||||||
|
FIELD CODTAB[6,9]
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
KEY 1
|
||||||
|
USE %LIA
|
||||||
|
JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
|
||||||
|
INPUT CODTAB[1,5] F_CODDITTA
|
||||||
|
INPUT CODTAB[6,9] F_ANNO
|
||||||
|
DISPLAY "Ditta" CODTAB[1,5]
|
||||||
|
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
|
||||||
|
DISPLAY "Anno" CODTAB[6,9]
|
||||||
|
OUTPUT F_CODDITTA CODTAB[1,5]
|
||||||
|
OUTPUT F_ANNO CODTAB[6,9]
|
||||||
|
VALIDATE FIXLEN_FUNC 4
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_ACCONTO 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 7 "Acconto dovuto "
|
||||||
|
HELP "Introdurre l'acconto dovuto"
|
||||||
|
PICTURE "."
|
||||||
|
FLAGS "R"
|
||||||
|
FIELD R4
|
||||||
|
NUM_CALC ROUND(#THIS_FIELD,-3)
|
||||||
|
//NUM_EXPR (#THIS_FIELD>=0.0)
|
||||||
|
//WARNING "Valore non valido (>=0.0)"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CREDITO 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 9 "Credito utilizzato "
|
||||||
|
HELP "Introdurre il credito utilizzato"
|
||||||
|
PICTURE "."
|
||||||
|
FLAGS "R"
|
||||||
|
FIELD R6
|
||||||
|
NUM_CALC ROUND(#THIS_FIELD,-3)
|
||||||
|
//NUM_EXPR (#THIS_FIELD>=0.0)
|
||||||
|
//WARNING "Valore non valido (>=0.0)"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
576
cg/cg4800.cpp
Executable file
576
cg/cg4800.cpp
Executable file
@ -0,0 +1,576 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <mask.h>
|
||||||
|
#include <tabutil.h>
|
||||||
|
#include <relation.h>
|
||||||
|
#include <sheet.h>
|
||||||
|
#include <urldefid.h>
|
||||||
|
#include <prefix.h>
|
||||||
|
#include <printer.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <utility.h>
|
||||||
|
#include <config.h>
|
||||||
|
#include "cg4800a.h"
|
||||||
|
#include "cg4800b.h"
|
||||||
|
|
||||||
|
#define ACCONTO_SENZA_CREDITO real(200000)
|
||||||
|
#define ROUND_MILLELIRE (-3)
|
||||||
|
|
||||||
|
class VersAcc_app : public TApplication
|
||||||
|
{
|
||||||
|
TRelation* _nditte;
|
||||||
|
TArray_sheet* _ditte;
|
||||||
|
TArray _nomiditte, _desc;
|
||||||
|
TBit_array _selected;
|
||||||
|
|
||||||
|
TTable* _lim;
|
||||||
|
TTable* _lia;
|
||||||
|
TTable* _del;
|
||||||
|
TTable* _ban;
|
||||||
|
TTable* _ucc;
|
||||||
|
|
||||||
|
TProgind* _prind;
|
||||||
|
|
||||||
|
int _year;
|
||||||
|
real _acconto, _credito, _diff, _impver;
|
||||||
|
bool _calcall, _da_stampare, _print;
|
||||||
|
TDate _dataver;
|
||||||
|
TString16 _abi, _cab, _con;
|
||||||
|
TString16 _abips, _cabps; //dai parametri di studio
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual bool create();
|
||||||
|
virtual bool destroy();
|
||||||
|
virtual bool menu(MENU_TAG);
|
||||||
|
virtual void print();
|
||||||
|
|
||||||
|
// handlers
|
||||||
|
static bool ch_year_handler(TMask_field& f, KEY key);
|
||||||
|
|
||||||
|
public:
|
||||||
|
|
||||||
|
static VersAcc_app& app() { return (VersAcc_app&)main_app(); }
|
||||||
|
void build_ditte_sheet();
|
||||||
|
void build_nomiditte();
|
||||||
|
|
||||||
|
void lettura_delega();
|
||||||
|
void lettura_anagrafica(bool*);
|
||||||
|
void crea_riga_stampa(bool);
|
||||||
|
void aggiorna_delega();
|
||||||
|
void crea_delega();
|
||||||
|
void vers_acc();
|
||||||
|
|
||||||
|
bool look_lia();
|
||||||
|
bool video_conferma();
|
||||||
|
bool check_acc();
|
||||||
|
|
||||||
|
VersAcc_app() : _ditte(NULL), _selected(10000), _nomiditte(100), _desc(100) {}
|
||||||
|
};
|
||||||
|
|
||||||
|
bool VersAcc_app::look_lia()
|
||||||
|
{
|
||||||
|
TTable lia ("%LIA");
|
||||||
|
|
||||||
|
TString16 y; y.format("%05ld%04d", _nditte->lfile().get_long("CODDITTA"), _year);
|
||||||
|
|
||||||
|
lia.zero();
|
||||||
|
lia.put("CODTAB", y);
|
||||||
|
lia.read();
|
||||||
|
const bool ok = lia.good();
|
||||||
|
if (ok)
|
||||||
|
{
|
||||||
|
_acconto = lia.get_real("R4");
|
||||||
|
_credito = lia.get_real("R6");
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
_acconto = ZERO;
|
||||||
|
_credito = ZERO;
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::create()
|
||||||
|
{
|
||||||
|
TApplication::create();
|
||||||
|
|
||||||
|
TDate oggi(TODAY);
|
||||||
|
_year = oggi.year();
|
||||||
|
_nditte = new TRelation(LF_NDITTE);
|
||||||
|
_nditte->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR");
|
||||||
|
_nditte->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, LF_ANAG);
|
||||||
|
|
||||||
|
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
|
||||||
|
"@1|Cod.@5R|Ragione Sociale@50|Vers.");
|
||||||
|
|
||||||
|
_del = new TTable("%DEL");
|
||||||
|
_lia = new TTable("%LIA");
|
||||||
|
_ban = new TTable("%BAN");
|
||||||
|
_ucc = new TTable("%UCC");
|
||||||
|
_lim = new TTable("LIM");
|
||||||
|
|
||||||
|
TConfig c (CONFIG_STUDIO, "cg");
|
||||||
|
_abips = c.get("CodABI");
|
||||||
|
_cabps = c.get("CodCAB");
|
||||||
|
|
||||||
|
begin_wait();
|
||||||
|
build_nomiditte();
|
||||||
|
build_ditte_sheet();
|
||||||
|
end_wait();
|
||||||
|
|
||||||
|
dispatch_e_menu(BAR_ITEM(1));
|
||||||
|
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::destroy()
|
||||||
|
{
|
||||||
|
delete _lim;
|
||||||
|
delete _lia;
|
||||||
|
delete _del;
|
||||||
|
delete _ban;
|
||||||
|
delete _ucc;
|
||||||
|
delete _ditte;
|
||||||
|
delete _nditte;
|
||||||
|
|
||||||
|
return TApplication::destroy();
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::ch_year_handler(TMask_field& f, KEY key)
|
||||||
|
{
|
||||||
|
if (key == K_TAB && f.focusdirty())
|
||||||
|
{
|
||||||
|
app().begin_wait();
|
||||||
|
app().build_nomiditte();
|
||||||
|
app().build_ditte_sheet();
|
||||||
|
app().end_wait();
|
||||||
|
}
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void VersAcc_app::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);
|
||||||
|
d->insert(" |", 0);
|
||||||
|
bool selectable = vers == '?';
|
||||||
|
const long pos = _ditte->add(d);
|
||||||
|
if (selectable) _ditte->disable(pos);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::build_nomiditte()
|
||||||
|
{
|
||||||
|
_nomiditte.destroy();
|
||||||
|
// ricostruire _nomiditte e rifare build_ditte_sheet
|
||||||
|
TLocalisamfile& dt = _nditte->lfile();
|
||||||
|
TString fr(2);
|
||||||
|
TTable lia("%LIA");
|
||||||
|
|
||||||
|
for (dt.first(); !dt.eof(); dt.next())
|
||||||
|
{
|
||||||
|
// check no archivi
|
||||||
|
fr = "??";
|
||||||
|
bool good = prefix().exist(dt.get_long("CODDITTA"));
|
||||||
|
|
||||||
|
if (good)
|
||||||
|
{
|
||||||
|
// check no parametri liquidazione
|
||||||
|
lia.put("CODTAB", format("%05ld%d",dt.get_long("CODDITTA"),_year));
|
||||||
|
if (lia.read() != NOERR) good = FALSE;
|
||||||
|
else fr = lia.get("S7");
|
||||||
|
}
|
||||||
|
else continue;
|
||||||
|
|
||||||
|
TToken_string* d = new TToken_string(64);
|
||||||
|
|
||||||
|
// add record
|
||||||
|
d->add(dt.get_long("CODDITTA"));
|
||||||
|
d->add(dt.get("RAGSOC"));
|
||||||
|
d->add(fr);
|
||||||
|
|
||||||
|
_nomiditte.add(d);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::menu(MENU_TAG)
|
||||||
|
{
|
||||||
|
if (check_acc())
|
||||||
|
{
|
||||||
|
if (_calcall || _selected.ones() > 0l)
|
||||||
|
{
|
||||||
|
vers_acc();
|
||||||
|
if (_print)
|
||||||
|
{
|
||||||
|
enable_menu_item(M_FILE_PRINT);
|
||||||
|
print();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else warning_box("Nessuna ditta selezionata!");
|
||||||
|
}
|
||||||
|
return FALSE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::check_acc()
|
||||||
|
{
|
||||||
|
KEY k;
|
||||||
|
|
||||||
|
TMask m("cg4800a");
|
||||||
|
|
||||||
|
m.set_handler(FLD_CGB_YEAR, ch_year_handler);
|
||||||
|
|
||||||
|
long j;
|
||||||
|
_calcall = FALSE;
|
||||||
|
|
||||||
|
for (;;)
|
||||||
|
{
|
||||||
|
if (k == K_ESC || k == K_ENTER)
|
||||||
|
break;
|
||||||
|
|
||||||
|
k = m.run();
|
||||||
|
|
||||||
|
switch (k)
|
||||||
|
{
|
||||||
|
case DLG_SELECT:
|
||||||
|
_ditte->run();
|
||||||
|
for (j = 0l; j < _ditte->items(); j++)
|
||||||
|
if (_ditte->checked(j)) _selected.set(j);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case BUT_CGB_ALL:
|
||||||
|
_ditte->check(-1);
|
||||||
|
for (j = 0l; j < _ditte->items(); j++)
|
||||||
|
if (_ditte->checked(j) && !_ditte->disabled(j))
|
||||||
|
_selected.set(j);
|
||||||
|
_calcall = TRUE;
|
||||||
|
k = K_ENTER;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (k == K_ENTER) _year = m.get_int(FLD_CGB_YEAR);
|
||||||
|
|
||||||
|
return k == K_ENTER;
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::vers_acc()
|
||||||
|
{
|
||||||
|
char buf[256]; bool tipo;
|
||||||
|
|
||||||
|
_desc.destroy();
|
||||||
|
_da_stampare = _print = FALSE;
|
||||||
|
|
||||||
|
_prind = new TProgind(_calcall ? 0l : _selected.ones(),
|
||||||
|
" Creazione versam. acconti \n"
|
||||||
|
" preparazione archivi \n"
|
||||||
|
" \n",
|
||||||
|
TRUE,TRUE,30);
|
||||||
|
|
||||||
|
for (int l = 0; l < _ditte->items(); l++)
|
||||||
|
{
|
||||||
|
if (_prind->iscancelled())
|
||||||
|
break;
|
||||||
|
|
||||||
|
if (!(_calcall || _selected[l]) || _ditte->disabled(l))
|
||||||
|
continue;
|
||||||
|
|
||||||
|
_abi = _abips;
|
||||||
|
_cab = _cabps;
|
||||||
|
_da_stampare = FALSE; //relativo a ciascuna ditta
|
||||||
|
|
||||||
|
TApplication::set_firm(_ditte->row(l).get_long(1));
|
||||||
|
|
||||||
|
_nditte->curr().zero();
|
||||||
|
_nditte->curr().put("CODDITTA",_ditte->row(l).get(1));
|
||||||
|
_nditte->read();
|
||||||
|
|
||||||
|
if (!look_lia()) continue;
|
||||||
|
|
||||||
|
sprintf (buf,"Creazione vers. acconti:\nditta %s\n ",
|
||||||
|
(const char*)_nditte->lfile().get("RAGSOC"));
|
||||||
|
_prind->set_text(buf);
|
||||||
|
|
||||||
|
lettura_anagrafica(&tipo);
|
||||||
|
|
||||||
|
lettura_delega();
|
||||||
|
|
||||||
|
if (_da_stampare)
|
||||||
|
{
|
||||||
|
crea_riga_stampa(tipo);
|
||||||
|
_print = TRUE; //relativo alla stampa finale
|
||||||
|
}
|
||||||
|
|
||||||
|
_prind->addstatus(1);
|
||||||
|
}
|
||||||
|
delete _prind;
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::print()
|
||||||
|
{
|
||||||
|
printer().open();
|
||||||
|
|
||||||
|
TPrintrow row;
|
||||||
|
|
||||||
|
row.put("Gestione iva", 0);
|
||||||
|
row.put("Data @>", 106);
|
||||||
|
row.put("Pag.@#", 124);
|
||||||
|
printer().setheaderline(0,row);
|
||||||
|
|
||||||
|
row.reset();
|
||||||
|
TString256 t("@bCREAZIONE VERSAMENTI PER ACCONTI DICEMBRE");
|
||||||
|
t <<' '<<_year;
|
||||||
|
row.put(t,34);
|
||||||
|
printer().setheaderline(1,row);
|
||||||
|
|
||||||
|
t = "";
|
||||||
|
t.fill('-',132);
|
||||||
|
row.reset();
|
||||||
|
row.put(t,0);
|
||||||
|
printer().setheaderline(2,row);
|
||||||
|
printer().setheaderline(4,row);
|
||||||
|
|
||||||
|
row.reset();
|
||||||
|
row.put("Ditta",0);
|
||||||
|
row.put("Denominazione",7);
|
||||||
|
row.put("Importo",46);
|
||||||
|
row.put("Banca",55);
|
||||||
|
row.put("Dipendenza",62);
|
||||||
|
row.put("Concessione",74);
|
||||||
|
printer().setheaderline(3,row);
|
||||||
|
|
||||||
|
for (int i = 0; i < _desc.items(); i++)
|
||||||
|
{
|
||||||
|
TToken_string& tt = (TToken_string&)_desc[i];
|
||||||
|
|
||||||
|
TParagraph_string rs (tt.get(1),30);
|
||||||
|
|
||||||
|
row.reset();
|
||||||
|
row.put(tt.get(0),0);
|
||||||
|
const real imp(real::ita2eng(tt.get(2)));
|
||||||
|
row.put(imp.string("###.###.###.###"),38);
|
||||||
|
if (tt.get_int(7) == 0)
|
||||||
|
{
|
||||||
|
row.put(tt.get(3),55);
|
||||||
|
row.put(tt.get(4),63);
|
||||||
|
}
|
||||||
|
else row.put(tt.get(5),77);
|
||||||
|
|
||||||
|
const TString80 descr(tt.get(6));
|
||||||
|
row.put(descr.left(45),86);
|
||||||
|
const char* r;
|
||||||
|
while ((r = rs.get()) != NULL)
|
||||||
|
{
|
||||||
|
row.put(r,7);
|
||||||
|
printer().print(row);
|
||||||
|
row.reset();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printer().close();
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::lettura_delega()
|
||||||
|
{
|
||||||
|
TString16 cod;
|
||||||
|
TString16 y (format("%05ld", _nditte->lfile().get_long("CODDITTA")));
|
||||||
|
|
||||||
|
_diff = _acconto - _credito;
|
||||||
|
_diff.round(ROUND_MILLELIRE);
|
||||||
|
|
||||||
|
cod << y << _year << 12 << 7;
|
||||||
|
|
||||||
|
_del->zero();
|
||||||
|
_del->put("CODTAB", cod);
|
||||||
|
|
||||||
|
if (_del->read() == NOERR)
|
||||||
|
{
|
||||||
|
if (_diff < ACCONTO_SENZA_CREDITO) //l'importo non e' dovuto
|
||||||
|
{
|
||||||
|
//cancello la delega
|
||||||
|
_del->remove();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
// se sono qui e' perche' l'importo e' dovuto (_diff >= ACCONTO_SENZA_CREDITO)
|
||||||
|
bool stampata = _del->get_bool("B0");
|
||||||
|
|
||||||
|
_impver = _del->get_real("R0");
|
||||||
|
_dataver = _del->get_date("D0");
|
||||||
|
|
||||||
|
if (stampata)
|
||||||
|
{
|
||||||
|
_abi = _del->get("S7");
|
||||||
|
_cab = _del->get("S8");
|
||||||
|
_con = _del->get("S9");
|
||||||
|
if (_diff != _impver)
|
||||||
|
video_conferma();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
aggiorna_delega();
|
||||||
|
_da_stampare = TRUE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else //non esiste la delega
|
||||||
|
{
|
||||||
|
if (_diff >= ACCONTO_SENZA_CREDITO)
|
||||||
|
//creo record delega
|
||||||
|
{
|
||||||
|
crea_delega();
|
||||||
|
_da_stampare = TRUE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::crea_delega()
|
||||||
|
{
|
||||||
|
TString16 y (format("%05ld", _nditte->lfile().get_long("CODDITTA")));
|
||||||
|
TString16 cod;
|
||||||
|
|
||||||
|
cod << y << _year << 12 << 7;
|
||||||
|
|
||||||
|
_del->zero();
|
||||||
|
_del->put("CODTAB", cod);
|
||||||
|
_del->put("S7", _abi);
|
||||||
|
_del->put("S8", _cab);
|
||||||
|
_del->put("S9", _con);
|
||||||
|
_del->put("R0", _diff);
|
||||||
|
|
||||||
|
_del->write();
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::aggiorna_delega()
|
||||||
|
{
|
||||||
|
_del->put("S7", _abi);
|
||||||
|
_del->put("S8", _cab);
|
||||||
|
_del->put("S9", _con);
|
||||||
|
_del->put("R0", _diff);
|
||||||
|
|
||||||
|
_del->rewrite();
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::lettura_anagrafica(bool* tipo)
|
||||||
|
{
|
||||||
|
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
|
||||||
|
TLocalisamfile& com = _nditte->lfile(LF_COMUNI); // Comune residenza fiscale
|
||||||
|
|
||||||
|
const bool cf = anag.get_bool("TITCF");
|
||||||
|
const int isdel = anag.get_int("TIPOSTDEL");
|
||||||
|
|
||||||
|
if (cf && (isdel == 1 || isdel == 2))
|
||||||
|
{
|
||||||
|
*tipo = TRUE;
|
||||||
|
const int con = com.get_int("UFFCONC");
|
||||||
|
_abi = "";
|
||||||
|
_cab = "";
|
||||||
|
_con = format("%03d",con);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
*tipo = FALSE;
|
||||||
|
_con = "";
|
||||||
|
const long codabi = anag.get_long("CODABI");
|
||||||
|
const long codcab = anag.get_long("CODCAB");
|
||||||
|
if (codabi != 0 || codcab != 0)
|
||||||
|
{
|
||||||
|
_abi = format("%05ld", codabi);
|
||||||
|
_cab = format("%05ld", codcab);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool VersAcc_app::video_conferma()
|
||||||
|
{
|
||||||
|
TMask m("cg4800b");
|
||||||
|
|
||||||
|
m.field(F_CODDITTA).set(_nditte->lfile().get("CODDITTA"));
|
||||||
|
m.field(F_RAGSOC).set(_nditte->lfile().get("RAGSOC"));
|
||||||
|
m.field(F_DATAVER).set(_dataver);
|
||||||
|
m.field(F_ABI).set(_abi);
|
||||||
|
m.field(F_CAB).set(_cab);
|
||||||
|
m.field(F_CON).set(_con);
|
||||||
|
m.field(F_IMPVER).set(_impver.string());
|
||||||
|
m.field(F_NEWIMP).set(_diff.string());
|
||||||
|
|
||||||
|
for (bool stop = FALSE; !stop;)
|
||||||
|
{
|
||||||
|
KEY k = m.run();
|
||||||
|
|
||||||
|
switch(k)
|
||||||
|
{
|
||||||
|
case K_SAVE:
|
||||||
|
{
|
||||||
|
KEY k = yesnocancel_box("Delega gia' stampata. Si desidera ugualmente confermare l'aggiornamento?");
|
||||||
|
if (k == K_YES)
|
||||||
|
{
|
||||||
|
_da_stampare = TRUE;
|
||||||
|
_del->put("R0",_diff);
|
||||||
|
_del->put("B0", "");
|
||||||
|
_del->rewrite();
|
||||||
|
}
|
||||||
|
if (k == K_YES || k == K_NO)
|
||||||
|
stop = TRUE;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case K_ESC:
|
||||||
|
stop = TRUE;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
void VersAcc_app::crea_riga_stampa(bool tipost)
|
||||||
|
{
|
||||||
|
TToken_string* tt = new TToken_string(150);
|
||||||
|
TString80 desc;
|
||||||
|
|
||||||
|
if (tipost) //prendo la descrizione dell'ufficio concessione
|
||||||
|
{
|
||||||
|
if (_con.not_empty())
|
||||||
|
{
|
||||||
|
TTable ucc("%UCC");
|
||||||
|
ucc.zero();
|
||||||
|
ucc.put("CODTAB", _con);
|
||||||
|
if (ucc.read() == NOERR)
|
||||||
|
desc = ucc.get("S0");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else //prendo la descrizione della banca
|
||||||
|
{
|
||||||
|
if (_abi.not_empty())
|
||||||
|
{
|
||||||
|
TTable ban("%BAN");
|
||||||
|
TString16 cod;
|
||||||
|
cod = _abi; cod << _cab;
|
||||||
|
ban.zero();
|
||||||
|
ban.put("CODTAB", cod);
|
||||||
|
if (ban.read() == NOERR)
|
||||||
|
desc = ban.get("S0");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
tt->add(_nditte->lfile().get("CODDITTA"));
|
||||||
|
tt->add(_nditte->lfile().get("RAGSOC"));
|
||||||
|
tt->add(_diff.string());
|
||||||
|
tt->add(_abi);
|
||||||
|
tt->add(_cab);
|
||||||
|
tt->add(_con);
|
||||||
|
tt->add(desc);
|
||||||
|
tt->add(tipost);
|
||||||
|
|
||||||
|
if (tt != NULL) _desc.add(tt);
|
||||||
|
}
|
||||||
|
|
||||||
|
int cg4800(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
VersAcc_app app;
|
||||||
|
app.run(argc, argv, "Creazione versam. acconti dicembre");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
2
cg/cg4800a.h
Executable file
2
cg/cg4800a.h
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
#define FLD_CGB_YEAR 101
|
||||||
|
#define BUT_CGB_ALL 102
|
||||||
41
cg/cg4800a.uml
Executable file
41
cg/cg4800a.uml
Executable file
@ -0,0 +1,41 @@
|
|||||||
|
#include "cg4800a.h"
|
||||||
|
|
||||||
|
PAGE "Creazione versamenti acconti dicembre" -1 -1 45 10
|
||||||
|
|
||||||
|
NUMBER FLD_CGB_YEAR 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 1 "Anno iva da elaborare "
|
||||||
|
FLAGS "A"
|
||||||
|
VALIDATE FIXLEN_FUNC 4
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 41 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Scelta ditte"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_SELECT 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 4 "Scegli"
|
||||||
|
MESSAGE EXIT,DLG_SELECT
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON BUT_CGB_ALL 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 4 "Tutte"
|
||||||
|
MESSAGE EXIT,BUT_CGB_ALL
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
9
cg/cg4800b.h
Executable file
9
cg/cg4800b.h
Executable file
@ -0,0 +1,9 @@
|
|||||||
|
#define F_CODDITTA 101
|
||||||
|
#define F_RAGSOC 102
|
||||||
|
#define F_DATAVER 103
|
||||||
|
#define F_ABI 104
|
||||||
|
#define F_CAB 105
|
||||||
|
#define F_CON 106
|
||||||
|
#define F_IMPVER 107
|
||||||
|
#define F_NEWIMP 108
|
||||||
|
|
||||||
87
cg/cg4800b.uml
Executable file
87
cg/cg4800b.uml
Executable file
@ -0,0 +1,87 @@
|
|||||||
|
#include "cg4800b.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
|
BUTTON DLG_SAVEREC 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 "~Registra"
|
||||||
|
MESSAGE EXIT,K_SAVE
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -34 -1 ""
|
||||||
|
MESSAGE EXIT,K_ESC
|
||||||
|
END
|
||||||
|
|
||||||
|
/*
|
||||||
|
BUTTON DLG_QUIT 8 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -33 -1 ""
|
||||||
|
MESSAGE EXIT,K_QUIT
|
||||||
|
END
|
||||||
|
*/
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Creazione versam. acconti dicembre" -1 -1 77 20
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 79 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 0 1 "@bDitta corrente"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODDITTA 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Codice "
|
||||||
|
FLAGS "DFR"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 16 2 "Rag. Soc. "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATAVER
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 5 "Data versamento "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_ABI 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 6 "Codice banca "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CAB 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 7 "Codice dipendenza "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CON 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 8 "Codice concessione "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_IMPVER 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 9 "Importo versato "
|
||||||
|
FLAGS "D"
|
||||||
|
PICTURE "."
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_NEWIMP 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 10 "Nuovo importo "
|
||||||
|
FLAGS "D"
|
||||||
|
PICTURE "."
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user