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

Continua il profilame estratti conto

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2185 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-11-21 10:39:29 +00:00
parent 97e7c05bbc
commit 135b014f78
3 changed files with 40 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sc/sc2100.cpp
View File

@ -295,9 +295,18 @@ bool TStampaEC_application::select_ec()
{
// sciroppa profilo
if (_form != NULL) delete _form;
_form = new TForm(BASE_EC_PROFILE, m.get(F_CODPROF));
_linprof[0] = _form->code()[_form->code().len() - 1];
_linprof[1] = '\0';
TString16 base(m.get(F_PROFBASE));
TString16 code(m.get(F_CODPROF));
_form = new TForm(base, code.empty() ? NULL : (const char*)code);
if (base == BASE_EC_PROFILE) _linprof = "";
else
{
_linprof[0] = base[base.len() - 1];
_linprof[1] = '\0';
}
print_selected();
}
return k != K_ESC;
@ -360,7 +369,7 @@ bool TStampaEC_application::print_ec(long clifo)
}
else
{
warning_box ("Dio bestia! Cliente analfabeta!");
// TBC: ci vuole? warning_box ("Dio bestia! Cliente analfabeta!");
};
return TRUE;
@ -402,9 +411,9 @@ bool TStampaEC_application::create()
_ditta->lfile().put("CODDITTA", get_firm());
_ditta->read();
TConfig tc(CONFIG_DITTA);
_lingua = tc.get("CodLin", "");
_gesval = tc.get_bool("GesVal", "");
TConfig tc(CONFIG_DITTA, "cg");
_lingua = tc.get("CodLin");
_gesval = tc.get_bool("GesVal");
dispatch_e_menu(MENU_ITEM(1));

1
sc/sc2100a.h
View File

@ -21,6 +21,7 @@
#define R_SORTCF 121
#define F_NSEL 122
#define F_COMSEND 123
#define F_PROFBASE 124
// basename of profile
#define BASE_EC_PROFILE "PEC"

30
sc/sc2100a.uml
View File

@ -23,18 +23,34 @@ BEGIN
PROMPT 0 7 ""
END
STRING F_CODPROF 5
STRING F_PROFBASE 8
BEGIN
PROMPT 1 8 "Codice profilo "
USE LF_FORM KEY 1
DISPLAY "Codice" CODPROF
PROMPT 1 8 "Profilo base"
USE LF_FORM KEY 1 SELECT (CODPROF="")&&(TIPOPROF[1,3]=BASE_EC_PROFILE)
DISPLAY "Codice@9" TIPOPROF
DISPLAY "Descrizione@50" DESC
INPUT TIPOPROF BASE_EC_PROFILE
INPUT CODPROF F_CODPROF
OUTPUT F_CODPROF CODPROF
INPUT TIPOPROF F_PROFBASE
OUTPUT F_PROFBASE TIPOPROF
OUTPUT F_DESPROF DESC
HELP ""
FLAGS ""
CHECKTYPE REQUIRED
END
STRING F_CODPROF 5
BEGIN
PROMPT 25 8 ""
USE LF_FORM KEY 1 SELECT CODPROF!=""
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
INPUT TIPOPROF F_PROFBASE SELECT
INPUT CODPROF F_CODPROF
// OUTPUT F_PROFBASE TIPOPROF
OUTPUT F_CODPROF CODPROF
OUTPUT F_DESPROF DESC
HELP ""
FLAGS ""
CHECKTYPE NORMAL
END
STRING F_DESPROF 50 30