Patch level : 10.0

Files correlati     : cg0200a.msk cg3.exe
Ricompilazione Demo : [ ]
Commento            :
Migliorata esportazione in Excel dei campi Partita IVA in cui scomparivano gli zeri iniziali


git-svn-id: svn://10.65.10.50/trunk@20182 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-03-03 10:44:30 +00:00
parent 04c645854d
commit 4ae414798e
3 changed files with 5 additions and 5 deletions

View File

@ -44,7 +44,7 @@ BEGIN
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF
DISPLAY "Codice@6R" CODCF
DISPLAY "Sospeso" SOSPESO
DISPLAY "Sospeso@C" SOSPESO
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV

View File

@ -2194,7 +2194,7 @@ bool TGrid_mask::edit_handler(TMask_field& f, KEY k)
TMastrino_set ms(grid);
TFilename n; n.tempdir(); n.add("mastrino.xls");
ms.save_as(n, fmt_text);
ms.save_as(n);
ok = xvt_sys_goto_url(n, "open") != FALSE;
if (!ok)
ok = export_handler(f, k); // Se non parte Excel salvo altrove
@ -2209,13 +2209,13 @@ bool TGrid_mask::export_handler(TMask_field& f, KEY k)
{
TFilename n; n.tempdir(); n.add("mastrino.xls");
FILE_SPEC fs; xvt_fsys_convert_str_to_fspec(n, &fs);
if (xvt_dm_post_file_save(&fs, TR("Esportazione")) == FL_OK)
if (xvt_dm_post_file_save(&fs, f.prompt()) == FL_OK)
{
xvt_fsys_convert_fspec_to_str(&fs, n.get_buffer(), n.size());
TGrid_mask& gm = (TGrid_mask&)f.mask();
TMastrini_grid& grid = gm.grid();
TMastrino_set ms(grid);
ms.save_as(n, fmt_text);
ms.save_as(n);
}
}
return ok;

View File

@ -1666,7 +1666,7 @@ bool TAlleg_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
TRecordset* rs = new_recordset();
TFilename fname = get(F_DIR);
fname.add("clifo.xls");
if (rs->save_as(fname, fmt_silk))
if (rs->save_as(fname))
xvt_sys_goto_url(fname, "open");
delete rs;
return false;