root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
situazione iniziale contabilizzazione cespiti (cg only)


git-svn-id: svn://10.65.10.50/trunk@20624 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-06-23 09:11:45 +00:00
parent 1e58d003f6
commit 82555a971a
3 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ce/ce4.cpp
View File

@ -12,7 +12,7 @@ int main(int argc,char** argv)
case 2:
ce4300(argc,argv); break; //stampa proiezione ammortamenti cespiti
case 3:
ce4400(argc,argv); break; //trasferimento movimenti cespiti in contabilita' generale
ce4400(argc,argv); break; //contabilizzazione cespiti
case 4:
ce4500(argc,argv); break; //stampa cespiti in contabilitŕ analitica
case 0:

28
ce/ce4400.cpp
View File

@ -20,17 +20,17 @@
//===============================================================================================
//maschera
class TTrasf_mov_ce_cg_mask: public TAutomask
class TContabilizza_ce_mask: public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TTrasf_mov_ce_cg_mask():TAutomask("ce4400a") { ditta_cespiti().init_mask(*this); }
TContabilizza_ce_mask():TAutomask("ce4400a") { ditta_cespiti().init_mask(*this); }
};
bool TTrasf_mov_ce_cg_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
bool TContabilizza_ce_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
@ -680,9 +680,9 @@ void TPlus_minus::genera_mov_elim_ven(TConfig& config_ditta_ce, const TDate& dat
//===============================================================================================
//Applicazione
class TTrasf_mov_ce_cg : public TSkeleton_application
class TContabilizza_ce : public TSkeleton_application
{
TTrasf_mov_ce_cg_mask* _mask;
TContabilizza_ce_mask* _mask;
protected:
virtual void main_loop();
@ -699,7 +699,7 @@ public:
};
void TTrasf_mov_ce_cg::delete_old_movs(const TDate& ini_es)
void TContabilizza_ce::delete_old_movs(const TDate& ini_es)
{
TMovimentoPN_CE pn;
@ -726,7 +726,7 @@ void TTrasf_mov_ce_cg::delete_old_movs(const TDate& ini_es)
//metodo per la generazione di movimenti con righe per categoria (chiamata se movdett=0)
void TTrasf_mov_ce_cg::genera_mov(TArray& righe_mov, const TDate& datareg, const TDate& datacomp, const TString& codcaus,
void TContabilizza_ce::genera_mov(TArray& righe_mov, const TDate& datareg, const TDate& datacomp, const TString& codcaus,
const int movdett, const bool definitivo, TLog_report& log)
{
//Riempie i campi della testata movimento
@ -818,7 +818,7 @@ void TTrasf_mov_ce_cg::genera_mov(TArray& righe_mov, const TDate& datareg, const
//metodo per gestire la successione degli eventi ad alto livello
void TTrasf_mov_ce_cg::elabora()
void TContabilizza_ce::elabora()
{
//gettiamo un po' di parametri dalla maschera
const long codes = _mask->get_long(F_ESERCIZIO);
@ -973,19 +973,19 @@ void TTrasf_mov_ce_cg::elabora()
}
bool TTrasf_mov_ce_cg::create()
bool TContabilizza_ce::create()
{
_mask = new TTrasf_mov_ce_cg_mask;
_mask = new TContabilizza_ce_mask;
return TSkeleton_application::create();
}
bool TTrasf_mov_ce_cg::destroy()
bool TContabilizza_ce::destroy()
{
delete _mask;
return true;
}
void TTrasf_mov_ce_cg::main_loop()
void TContabilizza_ce::main_loop()
{
KEY k = K_ENTER;
while (k != K_QUIT)
@ -1007,7 +1007,7 @@ void TTrasf_mov_ce_cg::main_loop()
int ce4400(int argc, char* argv[])
{
TTrasf_mov_ce_cg a;
a.run(argc,argv,TR("Trasferimento cespiti in contabilita'"));
TContabilizza_ce a;
a.run(argc,argv,TR("Contabilizzazione cespiti"));
return 0;
}

15
ce/ce4400a.uml
View File

@ -16,14 +16,11 @@ BEGIN
MESSAGE RUN,ce0,-3
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -11 ""
END
#include <helpbar.h>
ENDPAGE
PAGE "Contabilizzazione cespiti" -1 -1 0 -3
PAGE "Contabilizzazione cespiti" 0 2 0 0
GROUPBOX DLG_NULL 78 5
BEGIN
@ -77,14 +74,14 @@ END
NUMBER F_GRUPPO 2
BEGIN
PROMPT 1 3 "Gruppo "
PROMPT 2 3 "Gruppo "
FLAGS "Z"
FIELD CODTAB[5,6]
END
STRING F_SPECIE 4
BEGIN
PROMPT 12 3 "Specie "
PROMPT 13 3 "Specie "
FLAGS "_"
USE CCB
JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
@ -101,9 +98,9 @@ BEGIN
FIELD CODTAB[7,10]
END
STRING F_DESC_GRSP 60 50
STRING F_DESC_GRSP 60 49
BEGIN
PROMPT 26 3 ""
PROMPT 27 3 ""
FLAGS "D"
END