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

1
sc/sc2100a.h
View File

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

30
sc/sc2100a.uml
View File

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