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

Patch level : 10.0 290

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

Bug 0001301

 	Nell'applicazione Clienti, il bottone nuovo crea il cliente 000000. la stessa procedura risulta corretta nei fornitori.
C'e un cliente 999999. L'unico modo di fare in questo caso e non generare un codice


git-svn-id: svn://10.65.10.50/trunk@18824 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-05-07 13:03:31 +00:00
parent 29ca69f7ab
commit 06dc7e2a7e
3 changed files with 16 additions and 16 deletions

10
cg/cg0200.cpp

@ -126,7 +126,13 @@ bool TClifo_application::get_next_key(TToken_string& key)
if ( tipocf == tipo )
codcf += clifo.get_long(CLI_CODCF);
}
}
}
if (codcf > 999999L)
{
key.cut(0);
return false;
}
key.format("%d|%s|%d|%ld", F_TIPOCF, (const char*) tipo, F_CODCF, codcf);
return true;
}
@ -205,7 +211,7 @@ HIDDEN bool almeno_cf_o_pi(TMask_field& f)
{
const bool occas = m.get_bool(F_OCCASIONALE);
const int alleg = m.get_int(F_ALLEG);
if (!occas && (alleg == 0 || alleg == 6)) // ... e non sono occasionale
if (!occas && (alleg == 0 || alleg == 6 || alleg == 7)) // ... e non sono occasionale
{
const TEdit_field& cofi = m.efield(F_COFI);
if (cofi.empty()) // Dal 2007 serve il codice fiscale

3
cg/cg0200a.uml

@ -267,7 +267,7 @@ LIST F_TIPOPERS 1 12
BEGIN
PROMPT 2 13 "Tipo persona "
FIELD TIPOPERS
HELP "Tipo anagrafico del clinete/fornitore"
HELP "Tipo anagrafico del cliente/fornitore"
ITEM "F|Fisica"
MESSAGE COPY,F_TIPOAPER
ITEM "G|Giuridica"
@ -301,6 +301,7 @@ BEGIN
ITEM "4|Clienti/Fornitori con codici fiscali gia' inseriti"
ITEM "5|Cliente/Fornitore estero"
ITEM "6|Cliente/Fornitore privato"
ITEM "7|Ente pubblico"
OUTPUT F_ALLEG
END

19
cg/cg0200b.uml

@ -128,26 +128,19 @@ HELP "Indicare se e' soggetto a riduzione IVA"
GROUP 1
END
BUTTON DLG_OK 9 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -14 -1 ""
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 9 2
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -24 -1 ""
PROMPT -23 -1 "Elimina"
END
BUTTON DLG_CANCEL 9 2
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -44 -1 "A~zzera"
MESSAGE RESET,1@
MESSAGE EXIT,K_ENTER
PROMPT -33 -1 ""
END
ENDPAGE