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

Modifiche per correggere la ricerca del codice attivita'.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3288 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-30 11:05:48 +00:00
parent 2945bd997e
commit a3ab49a6b1
3 changed files with 13 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba4300.cpp
View File

@ -12,7 +12,7 @@
#define FLD_UL1_CODDITTA 133
#define FLD_UL1_CODDITTA_NDITTE_RAGSOC 100
#define FLD_AT1_CODDITTA 102
#define FLD_AT1_CODDITTAH 198
#define FLD_AT1_CODATTH 199
#define FLD_AT1_PROGD_NDITTE_RAGSOC 105
#define FLD_SC1_CODDITTA 143
#define FLD_SC1_CODANAGRSOH 147
@ -116,7 +116,7 @@ bool ba4300_handler(TMask& m, KEY k)
appname = "ba4 -4";
fld = FLD_AT1_CODDITTA;
fld1 = FLD_AT1_PROGD_NDITTE_RAGSOC;
fldbrowse = FLD_AT1_CODDITTAH;
fldbrowse = FLD_AT1_CODATTH;
}
if (k == K_F7)
{

4
ba/ba4500.cpp
View File

@ -122,7 +122,7 @@ bool TAttivita_application::user_create()
_anag = new TLocalisamfile(LF_ANAG) ;
_ditte = new TLocalisamfile(LF_NDITTE) ;
_comuni = new TLocalisamfile(LF_COMUNI) ;
set_search_field(FLD_AT1_CODDITTAH);
set_search_field(FLD_AT1_CODATTH);
return TRUE;
}
@ -131,6 +131,7 @@ void TAttivita_application::init_query_mode(TMask& m)
{
m.show(FLD_AT1_CODATTH);
m.hide(FLD_AT1_CODATT);
set_search_field(FLD_AT1_CODATTH);
}
@ -139,6 +140,7 @@ void TAttivita_application::init_query_insert_mode(TMask& m)
{
m.show(FLD_AT1_CODATT);
m.hide(FLD_AT1_CODATTH);
set_search_field(FLD_AT1_CODATT);
}

30
ba/ba4500a.uml
View File

@ -25,29 +25,11 @@ BEGIN
OUTPUT FLD_AT1_CODDITTA CODDITTA
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
HELP "Codice della ditta"
MESSAGE COPY,1@|COPY,FLD_AT1_CODDITTAH
MESSAGE COPY,1@
CHECKTYPE FORCED
WARNING "Ditta assente"
END
STRING FLD_AT1_CODDITTAH 5
BEGIN
FLAGS "HD"
USE LF_ATTIV KEY 1
KEY 1
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
INPUT CODATT FLD_AT1_CODATT
DISPLAY "Attivita'" CODATT
DISPLAY "Prevalente" ATTPREV
DISPLAY " @48" DESCR
OUTPUT FLD_AT1_CODDITTAH CODDITTA
OUTPUT FLD_AT1_CODATT CODATT
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR DESCR
VALIDATE CHECK_FIELD FLD_AT1_CODDITTA
CHECKTYPE REQUIRED
WARNING "Ditta assente"
END
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
@ -69,11 +51,15 @@ BEGIN
FIELD LF_ATTIV->CODATT
FLAGS "UZ"
KEY 1
COPY USE FLD_AT1_CODDITTAH
USE LF_ATTIV KEY 1
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
INPUT CODATT FLD_AT1_CODATTH
COPY DISPLAY FLD_AT1_CODDITTAH
COPY OUTPUT FLD_AT1_CODDITTAH
DISPLAY "Attivita'" CODATT
DISPLAY "Prevalente" ATTPREV
DISPLAY " @48" DESCR
OUTPUT FLD_AT1_CODATTH CODDITTA
OUTPUT FLD_AT1_CODATT CODATT
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR DESCR
GROUP 3
VALIDATE CHECK_FIELD FLD_AT1_CODATT
MESSAGE COPY,FLD_AT1_CODATT