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

Patch level : 12.00 1326

Browse Source 
Files correlati     : ca0.exe cg0.exe ve0.exe

Inivo a CRM
Chiusura commesse fino all'anno
This commit is contained in:
Alessandro Bonazzi 2024-07-29 18:58:47 +02:00
parent b7f75c2be7
commit 33124b2cdb
2 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/ca/ca0600.cpp
View File

@ -15,14 +15,64 @@
////////////////////////////////////////////////////////////////////////
class TCms_anal_msk : public TSimple_anal_msk
{
protected:
virtual int get_logicnum() const { return LF_COMMESSE; }
virtual bool create_tree() const { return ca_config().get_bool("CmsTree");}
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
public:
TCms_anal_msk();
};
bool TCms_anal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case DLG_SELECT:
if (e == fe_button)
{
TMask select("Selezione anno", 1, 60, 5);
select.add_number(101, 0, "Fino all'anno ", 2, 1, 4, "R");
select.add_button(DLG_OK, 0, "", -12, -1, 12, 2, "", 0);
select.add_button(DLG_QUIT, 0, "", -22, -1, 12, 2, "", 0);
if (select.run() == K_ENTER)
{
TString filter = "(" COMMESSE_CHIUSA "!=\"X\")&&(" COMMESSE_ANNO "<=";
filter << select.get(101) << ")";
TCursor c(new TRelation(LF_COMMESSE), filter);
TRectype & curr = c.curr();
const long items = c.items();
const int fino_all_anno = select.get_int(101);
long chiuse = 0L;
for (c = 0L; c.pos() < items; ++c)
{
const int anno = curr.get_int(COMMESSE_ANNO);
TDate data_chiusura = curr.get_date(COMMESSE_DATAPROR);
if (!data_chiusura.ok())
data_chiusura = curr.get_date(COMMESSE_DATAFINE);
if (data_chiusura.ok() && anno <= fino_all_anno && data_chiusura <= today)
{
curr.put(COMMESSE_CHIUSA, true);
curr.rewrite();
chiuse++;
}
}
message_box(FR("Chiuse %ld commesse"), chiuse);
}
return false;
}
break;
default:
break;
}
return TSimple_anal_msk::on_field_event(o, e, jolly);
}
TCms_anal_msk::TCms_anal_msk()
{
read("ca0600a");

5
src/ca/ca0600a.uml
View File

@ -4,6 +4,11 @@ TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
BUTTON DLG_SELECT 2 2
BEGIN
PROMPT 2 1 "~Chiudi"
PICTURE TOOL_IMPORT
END
ENDPAGE
PAGE "Commessa" 0 0 0 2