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

Patch level : 12.0 330

Browse Source 
Files correlati     : cg2.exe
Commento            : Aggiunta all'anagrafica clienti/fornitori la possibilità di scegliere un rappresentante fiscale dopo averlo impostato su ANAGR

git-svn-id: svn://10.65.10.50/branches/R_10_00@23516 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-01-11 15:37:12 +00:00
parent 7f611b580e
commit d367031495
3 changed files with 82 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/cg/cg0200.cpp
View File

@ -81,6 +81,9 @@ protected:
static bool comi_handler(TMask_field& f, KEY k);
virtual bool has_filtered_cursor() const { return true;}
// Handler RF/SO
static bool rfso_handler(TMask_field& f, KEY k);
public:
virtual bool get_next_key(TToken_string& key);
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
@ -530,6 +533,36 @@ bool TClifo_application::comi_handler(TMask_field& f, KEY k)
return true;
}
bool TClifo_application::rfso_handler(TMask_field& f, KEY key)
{
if(f.get() == "G")
{
f.mask().show(F_COD_RFSO_G);
f.mask().enable(F_COD_RFSO_G);
f.mask().set(F_COD_RFSO_F, "");
f.mask().hide(F_COD_RFSO_F);
f.mask().disable(F_COD_RFSO_F);
}
else if(f.get() == "F")
{
f.mask().show(F_COD_RFSO_F);
f.mask().enable(F_COD_RFSO_F);
f.mask().set(F_COD_RFSO_G, "");
f.mask().hide(F_COD_RFSO_G);
f.mask().disable(F_COD_RFSO_G);
}
else
{
f.mask().set(F_COD_RFSO_F, "");
f.mask().set(F_COD_RFSO_G, "");
f.mask().hide(F_COD_RFSO_F);
f.mask().hide(F_COD_RFSO_G);
f.mask().disable(F_COD_RFSO_F);
f.mask().disable(F_COD_RFSO_G);
}
return true;
}
HIDDEN bool alleg_handler(TMask_field& f, KEY key)
{
if (f.to_check(key, true))
@ -1523,6 +1556,7 @@ bool TClifo_application::user_create() // initvar e arrmask
_msk->set_handler(DLG_EMAIL, email_handler);
_msk->set_handler(F_RAGSOC, rsoc_handler);
_msk->set_handler(DLG_CONTRLAV, contrlav_handler);
_msk->set_handler(LST_TIPO_RFSO, rfso_handler);
TSheet_field& ind = _msk->sfield(F_SHEET_G_VEN);
ind.set_notify(indsp_notify);

3
src/cg/cg0200.h
View File

@ -48,6 +48,9 @@
#define F_CODAG 145
#define F_SOSPESO 146
#define F_CODALLEG 148
#define LST_TIPO_RFSO 500
#define F_COD_RFSO_G 501
#define F_COD_RFSO_F 502
#define F_OCCASIONALE 149
#define F_DENCOMCF 150
#define F_PROVCF 152

47
src/cg/cg0200a.uml
View File

@ -357,16 +357,59 @@ BEGIN
FIELD SPLITPAY
END
LIST LST_TIPO_RFSO 10
BEGIN
HELP "Indicare se è un rappresentante o stabile organizzativo è una persona fisica o giuridica"
PROMPT 2 16 "Tipo RF/SO: "
FIELD CODRFSO[1,1]
ITEM "|"
ITEM "G|Giuridico"
ITEM "F|Fisico"
END
STRING F_COD_RFSO_G 5
BEGIN
PROMPT 30 16 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "G"
INPUT CODANAGR F_COD_RFSO_G
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice Fiscale@16" COFI
OUTPUT F_COD_RFSO_G CODANAGR
MESSAGE COPY,1@
CHECKTYPE REQUIRED
FLAGS "H"
END
STRING F_COD_RFSO_F 5
BEGIN
PROMPT 30 16 "Codice RF/SO:"
FIELD CODRFSO[2,]
USE LF_ANAG SELECT TIPORFSO!=""
INPUT TIPOA "F"
INPUT CODANAGR F_COD_RFSO_F
DISPLAY "Codice" CODANAGR
DISPLAY "Cognome@30" RAGSOC[1,30]
DISPLAY "Nome@20" RAGSOC[31,0]
DISPLAY "Codice Fiscale@16" COFI
OUTPUT F_COD_RFSO_F CODANAGR
MESSAGE COPY,1@
CHECKTYPE REQUIRED
FLAGS "H"
END
BOOLEAN F_OCCASIONALE
BEGIN
PROMPT 2 16 "Occasionale "
PROMPT 2 17 "Occasionale "
FIELD OCCAS
HELP "Indicare se si tratta di un C/F occasionale"
END
BOOLEAN F_SOSPESO
BEGIN
PROMPT 32 16 "Sospeso "
PROMPT 32 17 "Sospeso "
FIELD SOSPESO
HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
END