Corretta gestione clifo occasionali

git-svn-id: svn://10.65.10.50/trunk@93 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-30 08:06:09 +00:00
parent 4584da5e26
commit 3067a41d90
3 changed files with 589 additions and 588 deletions

File diff suppressed because it is too large Load Diff

View File

@ -11,7 +11,6 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Codice obbligatorio"
HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
FIELD CFPI
@ -27,7 +26,6 @@ BEGIN
DISPLAY "Codice@16" CFPI
OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
HELP "Ragione sociale o Nome della persona"
WARNING "Ragione sociale obbligatoria"
END
@ -151,12 +149,7 @@ END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "Conferma"
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 "Annulla"
PROMPT -11 -1 "Conferma"
END
ENDPAGE

View File

@ -838,11 +838,19 @@ bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
if (occas.read() == NOERR)
{
f.mask().autoload(&occas);
f.mask().send_key(K_TAB, O_COMUNE);
f.mask().send_key(K_TAB, O_COMUNE); // Forza decodifica comuni
f.mask().send_key(K_TAB, O_COMUNENAS);
}
}
}
} else
if (key == K_ENTER)
{
const TFixed_string codice(f.get());
if (codice.not_empty())
app().mask().set(app().iva() == iva_vendite ? F_PIVACLIENTE : F_PIVAFORNITORE, codice);
else
return f.error_box("Il codice e' obbligatorio");
}
return TRUE;
}
@ -851,7 +859,8 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
if (key == K_SPACE && f.mask().is_running())
{
TMask& om = app().occas_mask();
om.run();
om.run();
f.set_focus();
}
return TRUE;
}
@ -872,7 +881,6 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
TConto bill; _causale.bill(1, bill);
gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo);
conto = bill.conto(); m.set(F_CONTOCLIFO, conto);
codice = bill.sottoconto(); m.set(tipo == 'F' ? F_FORNITORE : F_CLIENTE, codice);
}
if (tipo == 'C' && causale().reg().corrispettivi())