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

Patch level : 10.0 718

Browse Source 
Files correlati     : cg0.exe
Ricompilazione Demo : [ ]
Commento

Bug  	 	0001612: 002240 - Gerling - inserimento fornitore/percipiente

si richiede di controllare che il bottone crea percipiente, qualora il campo codice percipiente presente nel campo codice percipiente sia già stato creato, eviti di dare errore 224 di scrittura anagrafic


git-svn-id: svn://10.65.10.50/trunk@20406 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-04-30 13:28:20 +00:00
parent 0bac14acdc
commit 5badf4c12a
1 changed files with 45 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg0200.cpp
View File

@ -318,7 +318,11 @@ bool TClifo_application::crea_percipienti(TMask_field& f, KEY key)
const TRectype & rec = cache().get(LF_ANAG, k);
if (!rec.empty())
return error_box("Esiste gia' una anagrafica con codice uguale del fornitore");
{
message_box("Esiste gia' una anagrafica con codice uguale del fornitore");
m.set(F_CODANAGPER, rec.get_long(ANA_CODANAGR));
return true;
}
m.set(F_CODANAGPER, percip);
}
else
@ -347,6 +351,8 @@ bool TClifo_application::crea_percipienti(TMask_field& f, KEY key)
int err = anag.write();
if (err == _isreinsert)
return true;
if (err == NOERR)
{
if (tipo == 'F')
@ -382,8 +388,12 @@ bool TClifo_application::crea_percipienti(TMask_field& f, KEY key)
bool TClifo_application::percip_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
const bool full = f.get().full();
if (f.to_check(key) && !m.field(F_CODANAGPER).empty())
if (f.to_check(key, true))
m.enable(DLG_ANAG, !full);
if (f.to_check(key) && full)
{
long percip = m.get_long(F_CODANAGPER);
const char tipo = m.get(F_TIPOAPER)[0];