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;
const long save_ditta = main_app().get_firm();
m.load();
for (long codditta = daditta; codditta <= aditta; codditta++)
{
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)
{
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)
{
@ -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);
}
else

10
src/m770/777200c.h
View File

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

21
src/m770/777200c.uml
View File

@ -20,30 +20,41 @@ ENDPAGE
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
BEGIN
PROMPT 1 1 "Email conoscenza "
PROMPT 1 3 "Email conoscenza "
END
BOOLEAN F_RECEIPT
BEGIN
PROMPT 70 1 "Ricevuta"
PROMPT 70 3 "Ricevuta"
END
ZOOM F_MESSAGE 50
BEGIN
PROMPT 1 2 "Messaggio "
PROMPT 1 4 "Messaggio "
END
STRING F_TESTEMAIL 50
BEGIN
PROMPT 1 3 "Email prova "
PROMPT 1 5 "Email prova "
FLAGS "H"
END
SPREADSHEET F_SHEET -1 -1
BEGIN
PROMPT 0 6 ""
PROMPT 0 7 ""
ITEM "@1"
ITEM "Email@50"
ITEM "Tipo"