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

Patch level : 12.00 1358

Browse Source 
Files correlati     : 777.exe 777200c.msk xvaga.dll xi.dll

Commento:
Possibilità di cambiare l'utente che invia la posta nell'invio certificazioni.
This commit is contained in:
Alessandro Bonazzi 2024-10-03 18:57:44 +02:00
parent 0dd32c5d39
commit 67dee68ea4
3 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/m770/777200.cpp
View File

@ -1144,6 +1144,7 @@ bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
long percip; long percip;
const long save_ditta = main_app().get_firm(); const long save_ditta = main_app().get_firm();
m.load();
for (long codditta = daditta; codditta <= aditta; codditta++) for (long codditta = daditta; codditta <= aditta; codditta++)
{ {
TString query; TString query;
@ -1175,6 +1176,7 @@ bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (m.run() == K_ENTER) if (m.run() == K_ENTER)
{ {
set_test_mail(m.get(F_TESTEMAIL)); set_test_mail(m.get(F_TESTEMAIL));
xvt_set_mail_params(nullptr, nullptr, m.get(F_FROMEMAIL), m.get(F_PASSWORD), nullptr);
FOR_EACH_SHEET_ITEM(sh, r) FOR_EACH_SHEET_ITEM(sh, r)
{ {
@ -1198,6 +1200,7 @@ bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
} }
} }
} }
m.save();
main_app().set_firm(save_ditta); main_app().set_firm(save_ditta);
} }
else else

10
src/m770/777200c.h
View File

@ -1,8 +1,10 @@
#define F_SHEET 201 #define F_SHEET 201
#define F_CCNEMAIL 202 #define F_FROMEMAIL 202
#define F_RECEIPT 203 #define F_PASSWORD 203
#define F_MESSAGE 204 #define F_CCNEMAIL 204
#define F_TESTEMAIL 205 #define F_RECEIPT 205
#define F_MESSAGE 206
#define F_TESTEMAIL 207
#define S_SELECTED 101 #define S_SELECTED 101
#define S_EMAIL 102 #define S_EMAIL 102

25
src/m770/777200c.uml
View File

@ -5,7 +5,7 @@ TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_ALL 2 2 BUTTON DLG_ALL 2 2
BEGIN BEGIN
PROMPT 1 2 "~Tutti" PROMPT 1 2 "~Tutti"
PICTURE TOOL_MULTISEL PICTURE TOOL_MULTISEL
END END
BUTTON DLG_OK 2 2 BUTTON DLG_OK 2 2
@ -20,30 +20,41 @@ ENDPAGE
PAGE "Invio Certificazione unica" 0 2 0 0 PAGE "Invio Certificazione unica" 0 2 0 0
STRING F_FROMEMAIL 50
BEGIN
PROMPT 1 1 "Email di invio "
END
STRING F_PASSWORD 50
BEGIN
PROMPT 1 2 "Password "
FLAGS "*"
END
STRING F_CCNEMAIL 50 STRING F_CCNEMAIL 50
BEGIN BEGIN
PROMPT 1 1 "Email conoscenza " PROMPT 1 3 "Email conoscenza "
END END
BOOLEAN F_RECEIPT BOOLEAN F_RECEIPT
BEGIN BEGIN
PROMPT 70 1 "Ricevuta" PROMPT 70 3 "Ricevuta"
END END
ZOOM F_MESSAGE 50 ZOOM F_MESSAGE 50
BEGIN BEGIN
PROMPT 1 2 "Messaggio " PROMPT 1 4 "Messaggio "
END END
STRING F_TESTEMAIL 50 STRING F_TESTEMAIL 50
BEGIN BEGIN
PROMPT 1 3 "Email prova " PROMPT 1 5 "Email prova "
FLAGS "H" FLAGS "H"
END END
SPREADSHEET F_SHEET -1 -1 SPREADSHEET F_SHEET -1 -1
BEGIN BEGIN
PROMPT 0 6 "" PROMPT 0 7 ""
ITEM "@1" ITEM "@1"
ITEM "Email@50" ITEM "Email@50"
ITEM "Tipo" ITEM "Tipo"
@ -106,4 +117,4 @@ BEGIN
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK