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

Patch level : 12.0 1252

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/m770/776200.cpp
View File

@ -51,7 +51,7 @@ bool TImmissioneDichiarazione::do_it()
while ((tasto = _msk->run()) != K_QUIT) while ((tasto = _msk->run()) != K_QUIT)
{ {
long codditta = _msk->get_long(F_CODDITTA); 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); warning_box("La dichiarazione della ditta %ld esiste gia'", codditta);
continue; continue;
} }

2
src/m770/776200a.h
View File

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

5
src/m770/776200a.uml
View File

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

3
src/m770/777200.cpp
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) bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{ {
int i;
switch (o.dlg()) switch (o.dlg())
{ {
case F_ANNO: case F_ANNO:
@ -1308,7 +1307,7 @@ void TCU_app::main_loop()
{ {
tmp.add(CU_DEFAULT_NAME); tmp.add(CU_DEFAULT_NAME);
if (yesno_box(FR("E' stato generato il file %s\nSi desidera visualizzarlo in anteprima?"), (const char*) tmp)) 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 else
{ {

6
src/m770/77lib01.cpp
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); warning_box("rewrite su basebis fallita codice %d", rc2rw);
#endif #endif
// return (rc1 == NOERR && rc2 == NOERR); TConfig ditta(CONFIG_DITTA, "CU");
return TRUE;
ditta.remove_all();
return true;
} }
// Ritorna numero quadri L aggiuntivi // Ritorna numero quadri L aggiuntivi