Patch level :2.2 224
Files correlati : Ricompilazione Demo : [ ] Commento :Aggiunta secondissima stesura della stampa pagato (Appare solo la maschera, ma questa volta e' corretta) git-svn-id: svn://10.65.10.50/trunk@13502 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
bee78e6470
commit
1985ae8986
354
ca/ca3600.cpp
354
ca/ca3600.cpp
@ -1,5 +1,4 @@
|
|||||||
#include <applicat.h>
|
#include <applicat.h>
|
||||||
#include <automask.h>
|
|
||||||
#include <defmask.h>
|
#include <defmask.h>
|
||||||
#include <execp.h>
|
#include <execp.h>
|
||||||
#include <progind.h>
|
#include <progind.h>
|
||||||
@ -30,183 +29,25 @@
|
|||||||
// MASCHERA DI CONFIGURAZIONE
|
// MASCHERA DI CONFIGURAZIONE
|
||||||
////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////
|
||||||
|
|
||||||
class TPag_per_cms_configmask: public TAutomask
|
class TPag_per_cms_configmask: public TAnal_report_mask
|
||||||
{
|
|
||||||
public:
|
|
||||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|
||||||
void config_loader(TSheet_field& sf, const char* paragrafo);
|
|
||||||
void config_setter(TSheet_field& sf, const char* paragrafo);
|
|
||||||
|
|
||||||
TPag_per_cms_configmask():TAutomask("ca3601")
|
|
||||||
{
|
|
||||||
config_loader(sfield(F_COSTI), "Costi");
|
|
||||||
config_loader(sfield(F_PAGAMENTI), "Pagamenti");
|
|
||||||
config_loader(sfield(F_RITFIS), "Fiscali");
|
|
||||||
config_loader(sfield(F_RITSOC), "Sociali");
|
|
||||||
}
|
|
||||||
|
|
||||||
};
|
|
||||||
|
|
||||||
bool TPag_per_cms_configmask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|
||||||
{
|
|
||||||
switch (o.dlg())
|
|
||||||
{
|
|
||||||
case DLG_SAVEREC:
|
|
||||||
{
|
|
||||||
config_setter(sfield(F_COSTI), "Costi");
|
|
||||||
config_setter(sfield(F_PAGAMENTI), "Pagamenti");
|
|
||||||
config_setter(sfield(F_RITFIS), "Fiscali");
|
|
||||||
config_setter(sfield(F_RITSOC), "Sociali");
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
return true;
|
|
||||||
}
|
|
||||||
|
|
||||||
void TPag_per_cms_configmask::config_loader(TSheet_field& sf, const char* paragrafo)
|
|
||||||
{
|
|
||||||
TConfig config("ca3600.ini", paragrafo);
|
|
||||||
TString_array conti;
|
|
||||||
|
|
||||||
int n = config.list_variables(conti, true, paragrafo, true);
|
|
||||||
FOR_EACH_ARRAY_ROW(conti, i, row)
|
|
||||||
{
|
|
||||||
TToken_string conto(row->get(1), '.'); //prende il valore della riga
|
|
||||||
TBill uncle(conto, 0);
|
|
||||||
uncle.add_to(sf.row(i), 0, 0x2);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void TPag_per_cms_configmask::config_setter(TSheet_field& sf, const char* paragrafo)
|
|
||||||
{
|
|
||||||
TConfig config("ca3600.ini", paragrafo);
|
|
||||||
|
|
||||||
config.remove_all(); //svuota il paragrafo sul .ini prima di ricompilarlo (se non si facesse
|
|
||||||
//non si riuscirebbero ad ammazzare le righe sul .ini
|
|
||||||
FOR_EACH_SHEET_ROW (sf, i, row)
|
|
||||||
{
|
|
||||||
TToken_string conto("", '.');
|
|
||||||
conto.add(row->get(0));
|
|
||||||
conto.add(row->get(1));
|
|
||||||
conto.add(row->get(2));
|
|
||||||
|
|
||||||
config.set("conto", conto, NULL, true, i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
//===============================================================================================
|
|
||||||
////////////////////////////////////////////////////////
|
|
||||||
// MASCHERA PRINCIPALE
|
|
||||||
////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
class TPag_per_cms_mask: public TAnal_report_mask
|
|
||||||
{
|
{
|
||||||
protected:
|
protected:
|
||||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
const TString& get_report_class() const;
|
void config_loader(TSheet_field& sf, const char* paragrafo);
|
||||||
bool test_compatible_report();
|
void config_setter(TSheet_field& sf, const char* paragrafo);
|
||||||
bool esistono_riclassificazioni() const;
|
bool esistono_riclassificazioni() const;
|
||||||
|
|
||||||
public:
|
public:
|
||||||
TPag_per_cms_mask();
|
TPag_per_cms_configmask();
|
||||||
virtual ~TPag_per_cms_mask() {}
|
virtual ~TPag_per_cms_configmask() {}
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
const TString& TPag_per_cms_mask::get_report_class() const
|
//costruttore
|
||||||
{
|
TPag_per_cms_configmask::TPag_per_cms_configmask()
|
||||||
TString& classe = get_tmp_string();
|
:TAnal_report_mask("ca3601")
|
||||||
classe = "ca3600a";
|
|
||||||
return classe;
|
|
||||||
}
|
|
||||||
|
|
||||||
bool TPag_per_cms_mask::test_compatible_report()
|
|
||||||
{
|
|
||||||
const TString& cls = get_report_class();
|
|
||||||
const TString& name = get(F_REPORT);
|
|
||||||
bool ok = name.not_empty();
|
|
||||||
if (ok)
|
|
||||||
{
|
|
||||||
TReport rep;
|
|
||||||
ok = rep.load(name);
|
|
||||||
if (ok)
|
|
||||||
{
|
|
||||||
const TString& classe = rep.get_class();
|
|
||||||
ok = classe == cls;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (!ok)
|
|
||||||
{
|
|
||||||
set(F_REPORT, cls);
|
|
||||||
TFilename path = cls;
|
|
||||||
path.ext("rep");
|
|
||||||
ok = path.custom_path();
|
|
||||||
}
|
|
||||||
return ok;
|
|
||||||
}
|
|
||||||
|
|
||||||
bool TPag_per_cms_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|
||||||
{
|
|
||||||
switch (o.dlg())
|
|
||||||
{
|
|
||||||
case DLG_CONFIG:
|
|
||||||
if (e == fe_button)
|
|
||||||
{
|
|
||||||
TPag_per_cms_configmask configmask; //lancia la maschera di configurazione
|
|
||||||
configmask.run();
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case F_REPORT:
|
|
||||||
if (e == fe_button)
|
|
||||||
{
|
|
||||||
const TString8 lib = get_report_class();
|
|
||||||
TFilename path = o.get();
|
|
||||||
if (select_custom_file(path, "rep", lib))
|
|
||||||
{
|
|
||||||
path = path.name();
|
|
||||||
path.ext("");
|
|
||||||
o.set(path);
|
|
||||||
}
|
|
||||||
} else
|
|
||||||
if (e == fe_close)
|
|
||||||
{
|
|
||||||
if (!test_compatible_report())
|
|
||||||
return error_box(TR("Impossibile trovare un report compatibile"));
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case F_PRE1:
|
|
||||||
case F_PRE2:
|
|
||||||
case F_PRE3:
|
|
||||||
if ((e == fe_init || e == fe_modify) && o.active())
|
|
||||||
{
|
|
||||||
const int k = o.dlg()-F_PRE1;
|
|
||||||
set(F_PAN1_INI + k, o.get(), 0x2);
|
|
||||||
disable(F_PAN1_INI + k);
|
|
||||||
disable(F_PANDES1_INI + k);
|
|
||||||
|
|
||||||
set(F_PAN1_FIN + k, o.get(), 0x2);
|
|
||||||
disable(F_PAN1_FIN + k);
|
|
||||||
disable(F_PANDES1_FIN + k);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
return TAnal_report_mask::on_field_event(o, e, jolly);
|
|
||||||
}
|
|
||||||
|
|
||||||
bool TPag_per_cms_mask::esistono_riclassificazioni() const
|
|
||||||
{
|
|
||||||
TLocalisamfile ric(LF_PANAPDC);
|
|
||||||
return ric.first() == NOERR;
|
|
||||||
}
|
|
||||||
|
|
||||||
TPag_per_cms_mask::TPag_per_cms_mask()
|
|
||||||
:TAnal_report_mask("ca3600")
|
|
||||||
{
|
{
|
||||||
|
//Controllo sul tipo di piano dei conti da utilizzare (Analitico/Contabile) e su eventuali
|
||||||
|
//prefissi (esigenza CRPA)
|
||||||
TConfig& cfg = ca_config();
|
TConfig& cfg = ca_config();
|
||||||
const bool use_pdcc = cfg.get_bool("UsePdcc");
|
const bool use_pdcc = cfg.get_bool("UsePdcc");
|
||||||
|
|
||||||
@ -281,6 +122,177 @@ TPag_per_cms_mask::TPag_per_cms_mask()
|
|||||||
field(a_des+i).set_group(g);
|
field(a_des+i).set_group(g);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* config_loader(sfield(F_COSTI), "Costi");
|
||||||
|
config_loader(sfield(F_PAGAMENTI), "Pagamenti");
|
||||||
|
config_loader(sfield(F_RITFIS), "Fiscali");
|
||||||
|
config_loader(sfield(F_RITSOC), "Sociali");*/
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPag_per_cms_configmask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
switch (o.dlg())
|
||||||
|
{
|
||||||
|
case DLG_SAVEREC:
|
||||||
|
{
|
||||||
|
config_setter(sfield(F_COSTI), "Costi");
|
||||||
|
config_setter(sfield(F_PAGAMENTI), "Pagamenti");
|
||||||
|
config_setter(sfield(F_RITFIS), "Fiscali");
|
||||||
|
config_setter(sfield(F_RITSOC), "Sociali");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
/*case F_PRE1:
|
||||||
|
case F_PRE2:
|
||||||
|
case F_PRE3:
|
||||||
|
if ((e == fe_init || e == fe_modify) && o.active())
|
||||||
|
{
|
||||||
|
const int k = o.dlg()-F_PRE1;
|
||||||
|
set(F_PAN1_INI + k, o.get(), 0x2);
|
||||||
|
disable(F_PAN1_INI + k);
|
||||||
|
disable(F_PANDES1_INI + k);
|
||||||
|
|
||||||
|
set(F_PAN1_FIN + k, o.get(), 0x2);
|
||||||
|
disable(F_PAN1_FIN + k);
|
||||||
|
disable(F_PANDES1_FIN + k);
|
||||||
|
}
|
||||||
|
break;*/
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
void TPag_per_cms_configmask::config_loader(TSheet_field& sf, const char* paragrafo)
|
||||||
|
{
|
||||||
|
TConfig config("ca3600.ini", paragrafo);
|
||||||
|
TString_array conti;
|
||||||
|
|
||||||
|
int n = config.list_variables(conti, true, paragrafo, true);
|
||||||
|
FOR_EACH_ARRAY_ROW(conti, i, row)
|
||||||
|
{
|
||||||
|
TToken_string conto(row->get(1), '.'); //prende il valore della riga
|
||||||
|
TBill uncle(conto, 0);
|
||||||
|
uncle.add_to(sf.row(i), 0, 0x2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void TPag_per_cms_configmask::config_setter(TSheet_field& sf, const char* paragrafo)
|
||||||
|
{
|
||||||
|
TConfig config("ca3600.ini", paragrafo);
|
||||||
|
|
||||||
|
config.remove_all(); //svuota il paragrafo sul .ini prima di ricompilarlo (se non si facesse
|
||||||
|
//non si riuscirebbero ad ammazzare le righe sul .ini
|
||||||
|
FOR_EACH_SHEET_ROW (sf, i, row)
|
||||||
|
{
|
||||||
|
TToken_string conto("", '.');
|
||||||
|
conto.add(row->get(0));
|
||||||
|
conto.add(row->get(1));
|
||||||
|
conto.add(row->get(2));
|
||||||
|
|
||||||
|
config.set("conto", conto, NULL, true, i);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPag_per_cms_configmask::esistono_riclassificazioni() const
|
||||||
|
{
|
||||||
|
TLocalisamfile ric(LF_PANAPDC);
|
||||||
|
return ric.first() == NOERR;
|
||||||
|
}
|
||||||
|
|
||||||
|
//===============================================================================================
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
// MASCHERA PRINCIPALE
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TPag_per_cms_mask: public TAnal_report_mask
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
const TString& get_report_class() const;
|
||||||
|
bool test_compatible_report();
|
||||||
|
|
||||||
|
public:
|
||||||
|
TPag_per_cms_mask();
|
||||||
|
virtual ~TPag_per_cms_mask() {}
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
const TString& TPag_per_cms_mask::get_report_class() const
|
||||||
|
{
|
||||||
|
TString& classe = get_tmp_string();
|
||||||
|
classe = "ca3600a";
|
||||||
|
return classe;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPag_per_cms_mask::test_compatible_report()
|
||||||
|
{
|
||||||
|
const TString& cls = get_report_class();
|
||||||
|
const TString& name = get(F_REPORT);
|
||||||
|
bool ok = name.not_empty();
|
||||||
|
if (ok)
|
||||||
|
{
|
||||||
|
TReport rep;
|
||||||
|
ok = rep.load(name);
|
||||||
|
if (ok)
|
||||||
|
{
|
||||||
|
const TString& classe = rep.get_class();
|
||||||
|
ok = classe == cls;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!ok)
|
||||||
|
{
|
||||||
|
set(F_REPORT, cls);
|
||||||
|
TFilename path = cls;
|
||||||
|
path.ext("rep");
|
||||||
|
ok = path.custom_path();
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPag_per_cms_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
switch (o.dlg())
|
||||||
|
{
|
||||||
|
case DLG_CONFIG:
|
||||||
|
if (e == fe_button)
|
||||||
|
{
|
||||||
|
TPag_per_cms_configmask configmask; //lancia la maschera di configurazione
|
||||||
|
configmask.run();
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case F_REPORT:
|
||||||
|
if (e == fe_button)
|
||||||
|
{
|
||||||
|
const TString8 lib = get_report_class();
|
||||||
|
TFilename path = o.get();
|
||||||
|
if (select_custom_file(path, "rep", lib))
|
||||||
|
{
|
||||||
|
path = path.name();
|
||||||
|
path.ext("");
|
||||||
|
o.set(path);
|
||||||
|
}
|
||||||
|
} else
|
||||||
|
if (e == fe_close)
|
||||||
|
{
|
||||||
|
if (!test_compatible_report())
|
||||||
|
return error_box(TR("Impossibile trovare un report compatibile"));
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return TAnal_report_mask::on_field_event(o, e, jolly);
|
||||||
|
}
|
||||||
|
|
||||||
|
TPag_per_cms_mask::TPag_per_cms_mask()
|
||||||
|
:TAnal_report_mask("ca3600")
|
||||||
|
{
|
||||||
|
// creazione dei campi della pagina della maschera con lo sheet di cdc/cms/fasi
|
||||||
|
create_sheet(F_RIGHE);
|
||||||
|
// setta gli handlers a tutti i campi generati della maschera;senza questa chiamata la on_field_event
|
||||||
|
// non puo' funzionare sui campi generati!!!
|
||||||
|
set_handlers();
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -377,11 +389,11 @@ void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, int cms_ro
|
|||||||
_codfas = rel.curr().get(RMOVANA_CODFASE);
|
_codfas = rel.curr().get(RMOVANA_CODFASE);
|
||||||
}
|
}
|
||||||
|
|
||||||
for (int i = 0; msk.id2pos(F_CDC1_INI+i) > 0; i++)
|
/* for (int i = 0; msk.id2pos(F_CDC1_INI+i) > 0; i++)
|
||||||
{
|
{
|
||||||
_daconto << msk.get(F_CDC1_INI+i);
|
_daconto << msk.get(F_CDC1_INI+i);
|
||||||
_aconto << msk.get(F_CDC1_FIN+i);
|
_aconto << msk.get(F_CDC1_FIN+i);
|
||||||
}
|
}*/
|
||||||
}
|
}
|
||||||
|
|
||||||
////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////
|
||||||
|
|||||||
34
ca/ca3600.h
34
ca/ca3600.h
@ -25,38 +25,4 @@
|
|||||||
//sheet e righe relative
|
//sheet e righe relative
|
||||||
#define F_RIGHE 260
|
#define F_RIGHE 260
|
||||||
|
|
||||||
//campi generati dai piani dei conti
|
|
||||||
#define F_PIANO 319
|
|
||||||
#define F_PRE0 320
|
|
||||||
#define F_PRE1 321
|
|
||||||
#define F_PRE2 322
|
|
||||||
#define F_PRE3 323
|
|
||||||
#define F_PREDES1 325
|
|
||||||
#define F_PREDES2 326
|
|
||||||
#define F_PREDES3 327
|
|
||||||
|
|
||||||
#define F_PDC0_INI 330
|
|
||||||
#define F_PDC1_INI 331
|
|
||||||
#define F_PDC4_INI 334
|
|
||||||
#define F_PDCDES1_INI 335
|
|
||||||
#define F_PDCDES4_INI 338
|
|
||||||
|
|
||||||
#define F_PDC0_FIN 340
|
|
||||||
#define F_PDC1_FIN 341
|
|
||||||
#define F_PDC4_FIN 344
|
|
||||||
#define F_PDCDES1_FIN 345
|
|
||||||
#define F_PDCDES4_FIN 348
|
|
||||||
|
|
||||||
#define F_PAN0_INI 350
|
|
||||||
#define F_PAN1_INI 351
|
|
||||||
#define F_PAN4_INI 354
|
|
||||||
#define F_PANDES1_INI 355
|
|
||||||
#define F_PANDES4_INI 358
|
|
||||||
|
|
||||||
#define F_PAN0_FIN 360
|
|
||||||
#define F_PAN1_FIN 361
|
|
||||||
#define F_PAN4_FIN 364
|
|
||||||
#define F_PANDES1_FIN 365
|
|
||||||
#define F_PANDES4_FIN 368
|
|
||||||
|
|
||||||
#endif // __CA3600_H
|
#endif // __CA3600_H
|
||||||
@ -28,7 +28,7 @@ END
|
|||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "CdC/Cms/Fasi / Date / Fornitori" -1 -1 78 20
|
PAGE "Stampa pagato" -1 -1 78 20
|
||||||
|
|
||||||
SPREADSHEET F_RIGHE -1 -13
|
SPREADSHEET F_RIGHE -1 -13
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -147,37 +147,6 @@ END
|
|||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Conti" -1 -1 78 20
|
|
||||||
|
|
||||||
LIST F_PIANO 1 12
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 "Piano dei conti "
|
|
||||||
ITEM "A|Analitico"
|
|
||||||
MESSAGE HIDE,5@|SHOW,6@
|
|
||||||
ITEM "C|Contabile"
|
|
||||||
MESSAGE HIDE,6@|SHOW,5@
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX F_PRE0 76 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 3 "@bPrefisso del piano dei conti analitico:"
|
|
||||||
GROUP 6
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX F_PDC0_INI 76 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 9 "@bDa conto:"
|
|
||||||
GROUP 4
|
|
||||||
END
|
|
||||||
|
|
||||||
GROUPBOX F_PDC0_FIN 76 6
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 15 "@bA conto:"
|
|
||||||
GROUP 4
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
PAGE "Riga Analitica" -1 -1 78 19
|
PAGE "Riga Analitica" -1 -1 78 19
|
||||||
|
|||||||
38
ca/ca3601.h
38
ca/ca3601.h
@ -4,7 +4,7 @@
|
|||||||
#define F_RITFIS 202
|
#define F_RITFIS 202
|
||||||
#define F_RITSOC 203
|
#define F_RITSOC 203
|
||||||
|
|
||||||
#define F_SC_GRUPPO 101
|
/*#define F_SC_GRUPPO 101
|
||||||
#define F_SC_CONTO 102
|
#define F_SC_CONTO 102
|
||||||
#define F_SC_SOTTOCONTO 103
|
#define F_SC_SOTTOCONTO 103
|
||||||
#define F_SC_DESCRIZIONE 104
|
#define F_SC_DESCRIZIONE 104
|
||||||
@ -22,4 +22,38 @@
|
|||||||
#define F_SO_GRUPPO 101
|
#define F_SO_GRUPPO 101
|
||||||
#define F_SO_CONTO 102
|
#define F_SO_CONTO 102
|
||||||
#define F_SO_SOTTOCONTO 103
|
#define F_SO_SOTTOCONTO 103
|
||||||
#define F_SO_DESCRIZIONE 104
|
#define F_SO_DESCRIZIONE 104*/
|
||||||
|
|
||||||
|
//campi generati dai piani dei conti
|
||||||
|
#define F_PIANO 319
|
||||||
|
#define F_PRE0 320
|
||||||
|
#define F_PRE1 321
|
||||||
|
#define F_PRE2 322
|
||||||
|
#define F_PRE3 323
|
||||||
|
#define F_PREDES1 325
|
||||||
|
#define F_PREDES2 326
|
||||||
|
#define F_PREDES3 327
|
||||||
|
|
||||||
|
#define F_PDC0_INI 330
|
||||||
|
#define F_PDC1_INI 331
|
||||||
|
#define F_PDC4_INI 334
|
||||||
|
#define F_PDCDES1_INI 335
|
||||||
|
#define F_PDCDES4_INI 338
|
||||||
|
|
||||||
|
#define F_PDC0_FIN 340
|
||||||
|
#define F_PDC1_FIN 341
|
||||||
|
#define F_PDC4_FIN 344
|
||||||
|
#define F_PDCDES1_FIN 345
|
||||||
|
#define F_PDCDES4_FIN 348
|
||||||
|
|
||||||
|
#define F_PAN0_INI 350
|
||||||
|
#define F_PAN1_INI 351
|
||||||
|
#define F_PAN4_INI 354
|
||||||
|
#define F_PANDES1_INI 355
|
||||||
|
#define F_PANDES4_INI 358
|
||||||
|
|
||||||
|
#define F_PAN0_FIN 360
|
||||||
|
#define F_PAN1_FIN 361
|
||||||
|
#define F_PAN4_FIN 364
|
||||||
|
#define F_PANDES1_FIN 365
|
||||||
|
#define F_PANDES4_FIN 368
|
||||||
|
|||||||
281
ca/ca3601.uml
281
ca/ca3601.uml
@ -1,4 +1,5 @@
|
|||||||
#include "ca3601.h"
|
#include "ca3601.h"
|
||||||
|
#include "camask.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 -2 0 2
|
TOOLBAR "" 0 -2 0 2
|
||||||
|
|
||||||
@ -18,6 +19,21 @@ ENDPAGE
|
|||||||
|
|
||||||
PAGE "Costi / Pagamenti" -1 -1 78 20
|
PAGE "Costi / Pagamenti" -1 -1 78 20
|
||||||
|
|
||||||
|
LIST F_PIANO 1 12
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Piano dei conti "
|
||||||
|
ITEM "A|Analitico"
|
||||||
|
MESSAGE HIDE,5@|SHOW,6@
|
||||||
|
ITEM "C|Contabile"
|
||||||
|
MESSAGE HIDE,6@|SHOW,5@
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX F_PRE0 76 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 3 "@bPrefisso del piano dei conti analitico:"
|
||||||
|
GROUP 6
|
||||||
|
END
|
||||||
|
|
||||||
TEXT -1
|
TEXT -1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 "@bCosti"
|
PROMPT 1 0 "@bCosti"
|
||||||
@ -86,64 +102,33 @@ ENDMASK
|
|||||||
//----------------------MOVIMENTI IVA------------------------------//
|
//----------------------MOVIMENTI IVA------------------------------//
|
||||||
//-----------Pagina di riga dello sheet costi----------------------//
|
//-----------Pagina di riga dello sheet costi----------------------//
|
||||||
|
|
||||||
PAGE "Riga Costo" -1 -1 66 10
|
PAGE "Riga Costo" -1 -1 78 19
|
||||||
|
|
||||||
NUMBER F_SC_GRUPPO 3
|
STRING S_CDC1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Gruppo "
|
PROMPT 1 2 "Cdc1"
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO="")
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SC_GRUPPO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SC_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SC_CONTO 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 3 "Conto "
|
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
||||||
INPUT GRUPPO F_SC_GRUPPO
|
|
||||||
INPUT CONTO F_SC_CONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SC_CONTO CONTO
|
|
||||||
OUTPUT F_SC_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SC_SOTTOCONTO 6
|
STRING S_CDC2 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Sottoconto "
|
PROMPT 21 2 "Cdc2"
|
||||||
USE LF_PCON
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SC_GRUPPO
|
|
||||||
INPUT CONTO F_SC_CONTO
|
|
||||||
INPUT SOTTOCONTO F_SC_SOTTOCONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
|
|
||||||
OUTPUT F_SC_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SC_CONTO CONTO
|
|
||||||
OUTPUT F_SC_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SC_DESCRIZIONE 50
|
STRING S_CDC3 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Descrizione "
|
PROMPT 41 2 "Cdc3"
|
||||||
USE LF_PCON KEY 2
|
FLAGS "B"
|
||||||
INPUT DESCR F_SC_DESCRIZIONE
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Descrizione@50" DESCR
|
END
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
STRING S_CDC4 20
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
BEGIN
|
||||||
OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
|
PROMPT 61 2 "Cdc4"
|
||||||
OUTPUT F_SC_CONTO CONTO
|
FLAGS "B"
|
||||||
OUTPUT F_SC_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SC_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -168,64 +153,33 @@ ENDMASK
|
|||||||
|
|
||||||
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
||||||
|
|
||||||
PAGE "Riga Pagamento" -1 -1 66 10
|
PAGE "Riga Pagamento" -1 -1 78 19
|
||||||
|
|
||||||
NUMBER F_SP_GRUPPO 3
|
STRING S_CDC1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Gruppo "
|
PROMPT 1 2 "Cdc1"
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO="")
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SP_GRUPPO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SP_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SP_CONTO 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 3 "Conto "
|
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
||||||
INPUT GRUPPO F_SP_GRUPPO
|
|
||||||
INPUT CONTO F_SP_CONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SP_CONTO CONTO
|
|
||||||
OUTPUT F_SP_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SP_SOTTOCONTO 6
|
STRING S_CDC2 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Sottoconto "
|
PROMPT 21 2 "Cdc2"
|
||||||
USE LF_PCON
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SP_GRUPPO
|
|
||||||
INPUT CONTO F_SP_CONTO
|
|
||||||
INPUT SOTTOCONTO F_SP_SOTTOCONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
|
|
||||||
OUTPUT F_SP_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SP_CONTO CONTO
|
|
||||||
OUTPUT F_SP_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SP_DESCRIZIONE 50
|
STRING S_CDC3 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Descrizione "
|
PROMPT 41 2 "Cdc3"
|
||||||
USE LF_PCON KEY 2
|
FLAGS "B"
|
||||||
INPUT DESCR F_SP_DESCRIZIONE
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Descrizione@50" DESCR
|
END
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
STRING S_CDC4 20
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
BEGIN
|
||||||
OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
|
PROMPT 61 2 "Cdc4"
|
||||||
OUTPUT F_SP_CONTO CONTO
|
FLAGS "B"
|
||||||
OUTPUT F_SP_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SP_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -251,67 +205,41 @@ ENDMASK
|
|||||||
//-------------------MOVIMENTI CONTABILI---------------------------//
|
//-------------------MOVIMENTI CONTABILI---------------------------//
|
||||||
//-----------Pagina di riga dello sheet costi----------------------//
|
//-----------Pagina di riga dello sheet costi----------------------//
|
||||||
|
|
||||||
PAGE "Riga Ritenuta Fiscale" -1 -1 66 10
|
PAGE "Riga Ritenuta Fiscale" -1 -1 78 19
|
||||||
|
|
||||||
NUMBER F_FI_GRUPPO 3
|
STRING S_CDC1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Gruppo "
|
PROMPT 1 2 "Cdc1"
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO="")
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_FI_GRUPPO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_FI_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_FI_CONTO 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 3 "Conto "
|
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
||||||
INPUT GRUPPO F_FI_GRUPPO
|
|
||||||
INPUT CONTO F_FI_CONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_FI_CONTO CONTO
|
|
||||||
OUTPUT F_FI_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_FI_SOTTOCONTO 6
|
STRING S_CDC2 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Sottoconto "
|
PROMPT 21 2 "Cdc2"
|
||||||
USE LF_PCON
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_FI_GRUPPO
|
|
||||||
INPUT CONTO F_FI_CONTO
|
|
||||||
INPUT SOTTOCONTO F_FI_SOTTOCONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
|
|
||||||
OUTPUT F_FI_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_FI_CONTO CONTO
|
|
||||||
OUTPUT F_FI_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_FI_DESCRIZIONE 50
|
STRING S_CDC3 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Descrizione "
|
PROMPT 41 2 "Cdc3"
|
||||||
USE LF_PCON KEY 2
|
FLAGS "B"
|
||||||
INPUT DESCR F_FI_DESCRIZIONE
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
|
|
||||||
OUTPUT F_FI_CONTO CONTO
|
|
||||||
OUTPUT F_FI_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_FI_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING S_CDC4 20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 61 2 "Cdc4"
|
||||||
|
FLAGS "B"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -13 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 10 2
|
BUTTON DLG_OK 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -13 -1 ""
|
PROMPT -13 -1 ""
|
||||||
@ -333,64 +261,33 @@ ENDMASK
|
|||||||
|
|
||||||
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
||||||
|
|
||||||
PAGE "Riga Ritenuta Sociale" -1 -1 66 10
|
PAGE "Riga Ritenuta Sociale" -1 -1 78 19
|
||||||
|
|
||||||
NUMBER F_SO_GRUPPO 3
|
STRING S_CDC1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Gruppo "
|
PROMPT 1 2 "Cdc1"
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO="")
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SO_GRUPPO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SO_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER F_SO_CONTO 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 3 "Conto "
|
|
||||||
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
||||||
INPUT GRUPPO F_SO_GRUPPO
|
|
||||||
INPUT CONTO F_SO_CONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SO_CONTO CONTO
|
|
||||||
OUTPUT F_SO_GRUPPO GRUPPO
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SO_SOTTOCONTO 6
|
STRING S_CDC2 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Sottoconto "
|
PROMPT 21 2 "Cdc2"
|
||||||
USE LF_PCON
|
FLAGS "B"
|
||||||
INPUT GRUPPO F_SO_GRUPPO
|
|
||||||
INPUT CONTO F_SO_CONTO
|
|
||||||
INPUT SOTTOCONTO F_SO_SOTTOCONTO
|
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
|
||||||
DISPLAY "Descrizione@50" DESCR
|
|
||||||
OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
|
|
||||||
OUTPUT F_SO_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SO_CONTO CONTO
|
|
||||||
OUTPUT F_SO_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_SO_DESCRIZIONE 50
|
STRING S_CDC3 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Descrizione "
|
PROMPT 41 2 "Cdc3"
|
||||||
USE LF_PCON KEY 2
|
FLAGS "B"
|
||||||
INPUT DESCR F_SO_DESCRIZIONE
|
CHECKTYPE NORMAL
|
||||||
DISPLAY "Descrizione@50" DESCR
|
END
|
||||||
DISPLAY "Gruppo" GRUPPO
|
|
||||||
DISPLAY "Conto" CONTO
|
STRING S_CDC4 20
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
BEGIN
|
||||||
OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
|
PROMPT 61 2 "Cdc4"
|
||||||
OUTPUT F_SO_CONTO CONTO
|
FLAGS "B"
|
||||||
OUTPUT F_SO_GRUPPO GRUPPO
|
|
||||||
OUTPUT F_SO_DESCRIZIONE DESCR
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user