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

Patch level : 12.00 1364

Browse Source 
Files correlati     : f900.exe

Commento:
Implementata esclusione integrazioni
This commit is contained in:
Alessandro Bonazzi 2024-10-25 16:18:38 +02:00
parent 9fb4af1b7b
commit 6e2ed8ce9c
2 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/f9/f90600.cpp
View File

@ -654,6 +654,40 @@ bool TControlloIntegrazioni_mask::associa_int_acq(const long numreg, TToken_stri
return ok;
}
void TControlloIntegrazioni_mask::conferma_esclusi() const
{
TSheet_field& sf = sfield(S_INCL);
FOR_EACH_SHEET_ROW_LOOP(sf, row)
{
const long nreg = sf.get_long_row_cell(row, FI_NUMREG);
TRectype & movs = (TRectype&)cache().get(LF_MOV, nreg);
const TString & da_escludere = sf.get_str_row_cell(row, FI_IESCLUDI);
if (da_escludere == "S")
{
TToken_string stato("", ';');
stato.add("", 0);
stato.add(today.date2ansi());
stato.add("X");
movs.put(MOV_ELABF9, stato);
movs.rewrite();
sf.set_row_cell(FI_IESCLUSO, true, row);
}
else
{
if (movs.get(MOV_ELABF9).full())
{
movs.zero(MOV_ELABF9);
sf.set_row_cell(FI_IESCLUSO, false, row);
movs.rewrite();
}
}
}
sf.force_update();
}
TToken_string* TControlloIntegrazioni_mask::selected_mov()
{
TSheet_field& movs = sfield(S_CONTROLLO);
@ -1007,8 +1041,8 @@ bool TControlloIntegrazioni_mask::on_field_event(TOperable_field& o, TField_even
case B_ESCL:
if (e == fe_button)
{
//conferma_esclusi();
//fill();
conferma_esclusi();
fill_sheets();
}
break;
case B_SELESCL:

2
src/f9/f90600.h
View File

@ -134,7 +134,7 @@ class TControlloIntegrazioni_mask : public TAutomask
void associa();
bool associa_int_ven(const long numreg, TToken_string key_paf);
bool associa_int_acq(const long numreg, TToken_string key_fppro);
//void conferma_esclusi() const;
void conferma_esclusi() const;
TArray& import_error_list();
void fill_sheets();