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:
Alessandro Bonazzi 2023-03-16 20:51:11 +01:00
parent d7f7a2851c
commit 968c7c1d0f
5 changed files with 12 additions and 6 deletions

View File

@ -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;
}

View File

@ -4,5 +4,5 @@
#define F_CODDITTA 101
#define F_RAGDITTA 102
#define F_ANNODIC 103
#define F_FORCE 104
#endif

View File

@ -44,6 +44,11 @@ BEGIN
FLAGS "D"
END
BOOLEAN F_FORCE
BEGIN
PROMPT 1 6 "Forza riapertura"
END
ENDPAGE
ENDMASK

View File

@ -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
{

View File

@ -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