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

Errori 005118-005119-005022

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2695 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-03-26 09:29:30 +00:00
parent 40a18fe92c
commit 3c82754af8
3 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ba/ba4500.cpp
View File

@ -32,10 +32,19 @@ HIDDEN inline TAttivita_application & app() { return (TAttivita_application &) m
bool TAttivita_application::gest_res(TMask_field& f, KEY key)
{
TMask & msk = f.mask();
if (key == K_TAB && f.dirty() == 3)
{
msk.set( FLD_AT2_CODANGRDS_ANAGR_RAGSOC , "" ) ;
msk.set( FLD_AT2_ANAGR_DEP_IND , "" ) ;
msk.set( FLD_AT2_ANAGR_DEP_CIV , "" ) ;
msk.set( FLD_AT2_ANAGR_DEP_CAP , "" ) ;
msk.set( FLD_AT2_DEP_ANAGR_COMUNI_DESCR , "" ) ;
msk.set( FLD_AT2_DEP_ANAGR_COMUNI_PROV , "" ) ;
}
if (!f.to_check(key)) return TRUE;
TMask & msk = f.mask();
TLocalisamfile & anag = *app()._anag;
TLocalisamfile & comuni = *app()._comuni;
@ -49,6 +58,7 @@ bool TAttivita_application::gest_res(TMask_field& f, KEY key)
TArray comarr(2), f1(2), f2(2), f3(2);
TString cod_com = anag.get(N_CODCOMRF);
msk.set( FLD_AT2_CODANGRDS_ANAGR_RAGSOC , N_RAGSOC ) ;
comarr.add(cod_com);
cod_com = anag.get(N_CODCOMRES);
comarr.add(cod_com);

1
ba/ba4500.h
View File

@ -23,6 +23,7 @@
#define FN_GILAVASTAG "GILAVASTAG" /* FLD_AT1_GILAVASTAG */
#define N_TIPOA "TIPOA"
#define N_CODANAGR "CODANAGR"
#define N_RAGSOC "RAGSOC"
#define N_STATORF "STATORF"
#define N_CODCOMRF "COMRF"
#define N_INDRF "INDRF"

15
ba/ba4500a.uml
View File

@ -1,6 +1,6 @@
#include "ba4500.h"
TOOLBAR "" 0 20 0 2
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
@ -98,7 +98,7 @@ BEGIN
MESSAGE FALSE COPY,5@
END
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 40
BEGIN
PROMPT 1 4 "Nome Attivita' "
FIELD LF_ATTIV->DESCR
@ -113,7 +113,7 @@ BEGIN
FLAGS "R"
END
STRING FLD_AT1_OLDCODATT 4
NUMBER FLD_AT1_OLDCODATT 4
BEGIN
PROMPT 1 6 "Vecchio codice "
FIELD LF_ATTIV->OLDCODATT
@ -323,7 +323,7 @@ BEGIN
GROUP 5
END
STRING DLG_NULL 50
STRING DLG_NULL 40
BEGIN
PROMPT 1 4 "Nome Attivita' "
FLAGS "D"
@ -368,13 +368,10 @@ BEGIN
DISPLAY "Nome/Cognome o Ragione sociale @50" RAGSOC
OUTPUT FLD_AT2_CODANGRDS CODANAGR
OUTPUT FLD_AT2_CODANGRDS_ANAGR_RAGSOC RAGSOC
OUTPUT FLD_AT2_ANAGR_DEP_IND INDRES
OUTPUT FLD_AT2_ANAGR_DEP_CIV CIVRES
OUTPUT FLD_AT2_ANAGR_DEP_CAP CAPRES
HELP "Codice del depositario dei registri"
CHECKTYPE REQUIRED
WARNING "Anagrafica assente"
ADD RUN ba4 -1
ADD RUN ba4 -1 #LST_AT2_TIPOADS
END
STRING FLD_AT2_CODANGRDS_ANAGR_RAGSOC 50
@ -390,7 +387,7 @@ BEGIN
HELP "Nome del depositario dei registri"
CHECKTYPE NORMAL
WARNING "Anagrafica assente"
ADD RUN ba4 -1
ADD RUN ba4 -1 #LST_AT2_TIPOADS
END
STRING FLD_AT2_ANAGR_DEP_IND 35