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

Patch level : 01.00 1372

Browse Source 
Files correlati     : sc2.exe
Commento:
estratti conto per email
This commit is contained in:
Alessandro Bonazzi 2024-11-28 16:33:15 +01:00
parent e4a40464cf
commit 76ff953bae
1 changed files with 38 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src/sc/scselect.cpp
View File

@ -4,6 +4,7 @@
#include <modaut.h> #include <modaut.h>
#include <postman.h> #include <postman.h>
#include <printer.h> #include <printer.h>
#include <progind.h>
#include "scselect.h" #include "scselect.h"
#include "sc2400a.h" #include "sc2400a.h"
#include "sc2400b.h" #include "sc2400b.h"
@ -1891,49 +1892,53 @@ bool TSelection_mask::on_field_event(TOperable_field& o, TField_event e, long jo
mail.load(); mail.load();
sh.reset(); sh.reset();
update_checked(); update_checked();
const int last = s.last_one(); const int last = s.last_one();
for (long pos = s.first_one(); pos <= last; pos++)
{ {
fc = pos; TProgind p(s.items(), "Selezione");
const TRectype & cli = fc.curr(); for (long pos = s.first_one(); p.addstatus() && pos <= last; pos++)
const TString & tipo = cli.get(CLI_TIPOCF);
const long codice = cli.get_long(CLI_CODCF);
if (s.checked(pos) && some_to_print(tipo, codice))
{ {
TString ragsoc = cli.get(CLI_RAGSOC); fc = pos;
TToken_string email;
const TRectype & cli = fc.curr();
for (int i = 1; email.blank() && i <= 3; i++) const TString & tipo = cli.get(CLI_TIPOCF);
const long codice = cli.get_long(CLI_CODCF);
if (s.checked(pos) && some_to_print(tipo, codice))
{ {
const char order = ini_get_string(CONFIG_USER, "Mail", "Email", "", i)[0]; TString ragsoc = cli.get(CLI_RAGSOC);
TToken_string email;
switch (order) for (int i = 1; email.blank() && i <= 3; i++)
{ {
case 'P': const char order = ini_get_string(CONFIG_USER, "Mail", "Email", "", i)[0];
email = cli.get(CLI_PEC);
break; switch (order)
case 'N': {
email = cli.get(CLI_MAIL); case 'P':
break; email = cli.get(CLI_PEC);
case 'D': break;
email = cli.get(CLI_DOCMAIL); case 'N':
break; email = cli.get(CLI_MAIL);
default: break;
break; case 'D':
email = cli.get(CLI_DOCMAIL);
break;
default:
break;
}
} }
const int nrow = sh.set_row_cell(S_SELECTED, email.full());
sh.enable_cell(nrow, S_SELECTED, email.full());
sh.set_row_cell(S_CODCF, cli.get_long(CLI_CODCF), nrow);
sh.set_row_cell(S_EMAIL, email, nrow);
ragsoc.strip_double_spaces();
sh.set_row_cell(S_RAGSOC, ragsoc, nrow);
} }
const int nrow = sh.set_row_cell(S_SELECTED, email.full());
sh.enable_cell(nrow, S_SELECTED, email.full());
sh.set_row_cell(S_CODCF, cli.get_long(CLI_CODCF), nrow);
sh.set_row_cell(S_EMAIL, email, nrow);
ragsoc.strip_double_spaces();
sh.set_row_cell(S_RAGSOC, ragsoc, nrow);
} }
} }
sh.sort(sort); sh.sort(sort);