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

Corretta stampa Sig. o Sig.ra nella stampa delle etichette delle persone fisiche

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@253 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-16 10:43:09 +00:00
parent 7b2d537322
commit 19a035c659
5 changed files with 132 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ba/ba0.cpp
View File

@ -86,7 +86,8 @@ class TMenu_application : public TApplication
protected:
void load_menu();
int do_level();
bool create();
virtual bool create();
virtual bool menu(MENU_TAG m);
public:
TMenu_application(const char* name) : _name(name) {}
@ -179,9 +180,16 @@ int TMenu_application::do_level()
}
bool TMenu_application::create()
{
load_menu();
dispatch_e_menu(BAR_ITEM(1));
return TRUE;
}
bool TMenu_application::menu(MENU_TAG)
{
int refarray[256];
int i = 0;
@ -213,14 +221,13 @@ bool TMenu_application::create()
else _level = (--i >= 0) ? refarray[i] : 0;
}
stop_run();
return TRUE;
return FALSE;
}
int main(int argc, char** argv)
{
const char* menu = (argc < 2) ? "prassi.mnu" : argv[1];
TMenu_application ma(menu);
ma.run(argc, argv, "PRASSI");
ma.run(argc, argv, "Menu principale");
return TRUE;
}

18
ba/ba6100.cpp
View File

@ -42,7 +42,7 @@ void BA6100_App::process_link(int id, const char* txt)
{
if (id == _ana_link)
{
TString ss = "1|"; ss << txt;
TString80 ss = "1|"; ss << txt;
TMessage fs(cmd2name("ba4","-1"), MSG_LN, ss);
TMailbox m;
m.send(fs);
@ -51,10 +51,9 @@ void BA6100_App::process_link(int id, const char* txt)
}
else if (id == _dit_link)
{
TString ss = "1|"; ss << txt << "|" << txt;
TString80 ss = "1|"; ss << txt << "|" << txt;
TMessage fs(cmd2name("ba4","-2"), MSG_LN, ss);
TMailbox m;
m.send(fs);
fs.send();
TExternal_app ba4("ba4 -2");
if (ba4.run()) beep();
}
@ -165,8 +164,9 @@ void BA6100_App::preprocess_etichette()
if (_pr_what == anafis)
{
_surname = _name.mid(30,50); _surname.trim();
_name = _name.mid(0,30); _name.trim();
_surname = _name.mid(30); _surname.trim();
_name = _name.cut(30); _name.trim();
_sex = get_field(LF_ANAGFIS,"SESSO")[0] == 'M' ? "Sig." : "Sig.ra";
}
switch (_ind_what)
{
@ -453,7 +453,7 @@ bool BA6100_App::set_print(int)
void BA6100_App::user_create()
{
TToken_string rxp(40);
{
TProgind p(5, "Preparazione archivi\nPrego attendere", FALSE, TRUE, 30);
// setup relation
@ -544,7 +544,7 @@ void BA6100_App::user_create()
set_wait_threshold(0);
p.addstatus(1);
}
}
void BA6100_App::user_destroy()
@ -561,6 +561,6 @@ void BA6100_App::user_destroy()
int ba6100(int argc, char* argv[])
{
BA6100_App app;
app.run(argc, argv, "Stampe Anagrafiche");
app.run(argc, argv, "Stampa Anagrafiche");
return 0;
}

1
ba/ba6100.h
View File

@ -42,6 +42,7 @@ class BA6100_App : public TPrintapp
bool* _frpos;
TString _cod, _cofi, _name, _surname, _address,
_cap, _prov, _com, _civ, _stato, _phone;
TString16 _sex;
int _ana_link, _dit_link;

12
ba/ba6100b.uml
View File

@ -91,19 +91,19 @@ BEGIN
PROMPT 4 11 "Salva impostazioni"
END
BUTTON DLG_OK 9 3
BUTTON DLG_OK 9 2
BEGIN
PROMPT 30 12 "Conferma"
PROMPT -13 -1 "Conferma"
END
BUTTON DLG_CANCEL 9 3
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT 44 12 "Annulla"
PROMPT -23 -1 "Annulla"
END
BUTTON BUT_BA6B_RESET 5 3
BUTTON BUT_BA6B_RESET 9 2
BEGIN
PROMPT 4 12 "Reset"
PROMPT -33 -1 "~Reset"
END
ENDPAGE

5
ba/ba6101.cpp
View File

@ -832,10 +832,7 @@ void BA6100_App::set_etichette()
set_row(namerow,TString(format("@%dg#t",_ind_col)), &_name);
else
{
set_row(namerow,TString(format("@%dg%s #t #t",_ind_col,
*((const char *)get_field(LF_ANAGFIS,"SESSO")) == 'M' ?
"Sig." : "Sig.ra")),
&_name, &_surname);
set_row(namerow,TString(format("@%dg#t #t #t",_ind_col)), &_sex, &_name, &_surname);
}
set_row(_ind_row,TString(format("@%dg#t #t", _ind_col)), &_address, &_civ);