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

Tentativi di far funzionare ba3700

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@54 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-08-24 07:24:52 +00:00
parent aba005889b
commit 55c8ea4bfc
4 changed files with 70 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
ba/ba1.url
View File

@ -1,26 +1,26 @@
#include <default.url> #include <default.url>
/* ba1 -0 */ /* ba1 -0 */
MENU TASK_MENUBAR MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Modifica" ITEM BAR_ITEM(1) "~Modifica"
/* ba1 -1 */ /* ba1 -1 */
MENUBAR MENU_BAR(1) MENUBAR MENU_BAR(1)
MENU MENU_BAR(1) MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Test" ITEM BAR_ITEM(1) "~Test"
/* ba1 -2 */ /* ba1 -2 */
MENUBAR MENU_BAR(2) MENUBAR MENU_BAR(2)
MENU MENU_BAR(2) MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"

46
ba/ba3.cpp
View File

@ -1,22 +1,24 @@
#include <xvt.h> #include <xvt.h>
#include <strings.h> #include <strings.h>
#include "ba3.h" #include "ba3.h"
#define usage "Error - usage : %s -{0|1|2|3|4|5}" #define usage "Error - usage : %s -{0|1|2|3|4|5}"
int main(int argc, char** argv) int main(int argc, char** argv)
{ {
const TFixed_string s(argv[1]); if (argc < 2) fatal_box(usage, argv[0]);
if (s == "-0") ba3100(argc,argv) ; else const TFixed_string s(argv[1]);
if (s == "-1") ba3200(argc,argv) ; else
if (s == "-2") ba3300(argc,argv); if (s == "-0") ba3100(argc,argv) ; else
if (s == "-3") ba3400(argc,argv); if (s == "-1") ba3200(argc,argv) ; else
if (s == "-4") ba3500(argc,argv); if (s == "-2") ba3300(argc,argv) ; else
if (s == "-5") ba3600(argc,argv); if (s == "-3") ba3400(argc,argv) ; else
if (s == "-6") ba3700(argc,argv); if (s == "-4") ba3500(argc,argv) ; else
else fatal_box(usage, argv[0]) ; if (s == "-5") ba3600(argc,argv) ; else
if (s == "-6") ba3700(argc,argv);
return 0; else fatal_box(usage, argv[0]) ;
}
return 0;
}

53
ba/ba3700.cpp
View File

@ -57,8 +57,6 @@ class BA3700_application : public TRelation_application
TRelation * _rel; TRelation * _rel;
TMask * _msk; TMask * _msk;
TTable * _tab_cpg;
TTable * _tab_rpg;
TBit_array _righe_gia_presenti; TBit_array _righe_gia_presenti;
int _mode; // Modo maschera corrente int _mode; // Modo maschera corrente
@ -76,6 +74,7 @@ class BA3700_application : public TRelation_application
void ulteriore_riclass (TMask_field& f, KEY k); void ulteriore_riclass (TMask_field& f, KEY k);
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -84,21 +83,22 @@ protected:
virtual bool changing_mask(int mode) {return FALSE; } virtual bool changing_mask(int mode) {return FALSE; }
virtual bool remove(); virtual bool remove();
void init_mask(TMask&);
virtual void init_query_mode(TMask&);
virtual void init_modify_mode(TMask&); virtual void init_modify_mode(TMask&);
virtual void init_insert_mode(TMask&); virtual void init_insert_mode(TMask&);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int read(TMask& m); virtual int read(TMask& m);
int cancella(long items); int cancella(long items);
public: public:
TMask * main_mask() { return _msk; }
BA3700_application() {}
};
TMask * main_mask() { return _msk; }
BA3700_application() : TRelation_application() {}
virtual ~BA3700_application() {}
};
HIDDEN BA3700_application * app() { return (BA3700_application*) MainApp(); } HIDDEN BA3700_application * app() { return (BA3700_application*) MainApp(); }
TMask* BA3700_application::get_mask(int mode) TMask* BA3700_application::get_mask(int mode)
@ -203,14 +203,9 @@ bool BA3700_application::fill_sheet(TMask& m)
return TRUE; return TRUE;
} }
void BA3700_application::init_query_mode(TMask& m)
{
}
void BA3700_application::init_insert_mode(TMask& m) void BA3700_application::init_insert_mode(TMask& m)
{ {
_interv_rate = 0; _interv_rate = 0;
} }
void BA3700_application::init_modify_mode(TMask& m) void BA3700_application::init_modify_mode(TMask& m)
@ -220,12 +215,7 @@ void BA3700_application::init_modify_mode(TMask& m)
rate_differenziate = m.get_bool(F_RATE_DIFF); rate_differenziate = m.get_bool(F_RATE_DIFF);
if (rate_differenziate) if (rate_differenziate)
_interv_rate = 0; _interv_rate = 0;
}
void BA3700_application::init_mask(TMask& m)
{
} }
bool BA3700_application::rate_differenziate(TMask_field& f, KEY k) bool BA3700_application::rate_differenziate(TMask_field& f, KEY k)
@ -426,13 +416,13 @@ bool BA3700_application::numero_rate(TMask_field& f, KEY k)
{ {
if (items < numero_rate) if (items < numero_rate)
{ {
TToken_string& riga_app = cs.row(items - 1); //Mi posiziono sull'ultima rata TToken_string& riga_app = cs.row((int)items - 1); //Mi posiziono sull'ultima rata
num_giorni = atol(riga_app.get(0)); num_giorni = atol(riga_app.get(0));
for (int i = items; i < numero_rate; i++) for (long i = items; i < numero_rate; i++)
{ {
TToken_string& riga = cs.row(i); TToken_string& riga = cs.row((int)i);
riga.cut(0); riga.cut(0);
riga = riga_app; riga = riga_app;
@ -441,11 +431,11 @@ bool BA3700_application::numero_rate(TMask_field& f, KEY k)
riga.add(ng, 0); riga.add(ng, 0);
num_giorni = atol(riga.get(0)); num_giorni = atol(riga.get(0));
if (i == 1) if (i == 1l)
cs.disable_cell(i,1); cs.disable_cell((int)i,1);
if (i >= 2) else if (i >= 2l)
cs.disable_cell(i,-1); cs.disable_cell((int)i,-1);
// cs.disable_cell(i,-1); // cs.disable_cell(i,-1);
} }
@ -623,7 +613,7 @@ bool BA3700_application::ricalcolo_percentuale(TMask_field& f, KEY k)
bool BA3700_application::ricalcola_numero_giorni(TMask_field& f, KEY k) bool BA3700_application::ricalcola_numero_giorni(TMask_field& f, KEY k)
{ {
long items, ng, giorni, ngiorni; long items, ng, giorni;
// TSheet_field& cs = (TSheet_field&)f.mask().field(F_SHEET_RPG); // TSheet_field& cs = (TSheet_field&)f.mask().field(F_SHEET_RPG);
TSheet_field& cs = (TSheet_field&)app()->main_mask()->field(F_SHEET_RPG); TSheet_field& cs = (TSheet_field&)app()->main_mask()->field(F_SHEET_RPG);
@ -882,7 +872,7 @@ bool BA3700_application::remove()
int BA3700_application::cancella(long items) int BA3700_application::cancella(long items)
{ {
TTable* tab_rpg = (TTable*)_rel->lfile(-ALIAS); TTable* tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TRecfield an (_rel->lfile(-ALIAS)->curr(),"CODTAB",0,3); TRecfield an (tab_rpg->curr(),"CODTAB",0,3);
TString cod_pag,dep; TString cod_pag,dep;
cod_pag = (const char*)(an); cod_pag = (const char*)(an);
@ -917,9 +907,6 @@ bool BA3700_application::user_create()
_rel->add(TAB_RPG, "CODTAB[1,4]=CODTAB" ,1, 0, ALIAS); //-4 = alias,perche'le _rel->add(TAB_RPG, "CODTAB[1,4]=CODTAB" ,1, 0, ALIAS); //-4 = alias,perche'le
//due tabelle sono entrambe in TABCOM.dta //due tabelle sono entrambe in TABCOM.dta
_tab_cpg = new TTable (TAB_CPG);
_tab_rpg = new TTable (TAB_RPG);
_interv_rate = 0; _interv_rate = 0;
_msk = new TMask("ba3700a"); _msk = new TMask("ba3700a");
@ -941,8 +928,6 @@ bool BA3700_application::user_create()
bool BA3700_application::user_destroy() bool BA3700_application::user_destroy()
{ {
delete _msk; delete _msk;
delete _tab_cpg;
delete _tab_rpg;
delete _rel; delete _rel;
return TRUE; return TRUE;
} }

2
ba/ba3700a.uml
View File

@ -105,7 +105,7 @@ ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 50 11 PAGE "" -1 -1 78 15
NUMBER 101 4 NUMBER 101 4
BEGIN BEGIN