Patch level : 12.0 1252
Files correlati : 776mod.exe 777.exe 776200a.msk Commento: Non venivano azzerati i flag di invio delle certificazioni uniche
This commit is contained in:
parent
d7f7a2851c
commit
968c7c1d0f
@ -51,7 +51,7 @@ bool TImmissioneDichiarazione::do_it()
|
||||
while ((tasto = _msk->run()) != K_QUIT)
|
||||
{
|
||||
long codditta = _msk->get_long(F_CODDITTA);
|
||||
if (exist_dichiar_770(codditta)) {
|
||||
if (!_msk->get_bool(F_FORCE) && exist_dichiar_770(codditta)) {
|
||||
warning_box("La dichiarazione della ditta %ld esiste gia'", codditta);
|
||||
continue;
|
||||
}
|
||||
|
@ -4,5 +4,5 @@
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGDITTA 102
|
||||
#define F_ANNODIC 103
|
||||
|
||||
#define F_FORCE 104
|
||||
#endif
|
||||
|
@ -44,6 +44,11 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_FORCE
|
||||
BEGIN
|
||||
PROMPT 1 6 "Forza riapertura"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
@ -1087,7 +1087,6 @@ void TCU_mask::fill_row(TMask & m, const char * tipoa, long percip)
|
||||
|
||||
bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
int i;
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_ANNO:
|
||||
@ -1308,7 +1307,7 @@ void TCU_app::main_loop()
|
||||
{
|
||||
tmp.add(CU_DEFAULT_NAME);
|
||||
if (yesno_box(FR("E' stato generato il file %s\nSi desidera visualizzarlo in anteprima?"), (const char*) tmp))
|
||||
m.send_key(K_SPACE, DLG_PREVIEW);
|
||||
m.send_key(K_SPACE, F_PRINT);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
@ -513,8 +513,10 @@ bool enter_dichiar_770(long codditta, int anno_dic, bool sogg_dich)
|
||||
warning_box("rewrite su basebis fallita codice %d", rc2rw);
|
||||
#endif
|
||||
|
||||
// return (rc1 == NOERR && rc2 == NOERR);
|
||||
return TRUE;
|
||||
TConfig ditta(CONFIG_DITTA, "CU");
|
||||
|
||||
ditta.remove_all();
|
||||
return true;
|
||||
}
|
||||
|
||||
// Ritorna numero quadri L aggiuntivi
|
||||
|
Loading…
x
Reference in New Issue
Block a user