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

Corretti i check sulla immissione della ricerca gruppo di costo/ricavo

Browse Source 
nella tabella di contabilizzazione.


git-svn-id: svn://10.65.10.50/trunk@4209 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-15 11:06:33 +00:00
parent 88e6243dc4
commit 88457a24db
2 changed files with 47 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ve/ve0200.cpp
View File

@ -24,6 +24,7 @@ class TConf_vendite : public TConfig_application
{ {
char _current; char _current;
static bool check_fields(TMask_field& f, KEY k);
public: public:
virtual bool preprocess_config (TMask& mask, TConfig& config); virtual bool preprocess_config (TMask& mask, TConfig& config);
@ -35,6 +36,25 @@ public:
virtual ~TConf_vendite( ){ } virtual ~TConf_vendite( ){ }
}; };
bool TConf_vendite::check_fields(TMask_field& f, KEY k)
{
if (k == K_TAB && f.focusdirty())
{
TString fld(f.get());
TMask& m = f.mask();
TToken_string t;
if (fld == "-") return TRUE;
for (short i=F_RICERCACR1;i<=F_RICERCAAN4;i++)
{
if (f.dlg() == i) continue;
t.add(m.get(i));
}
if (t.find(fld)>=0)
return f.error_box("Immettere un gruppo di ricerca non ancora indicato nella sequenza");
}
return TRUE;
}
bool TConf_vendite::preprocess_config (TMask& mask, TConfig& config) bool TConf_vendite::preprocess_config (TMask& mask, TConfig& config)
{ {
disable_menu_item(M_FILE_NEW); disable_menu_item(M_FILE_NEW);
@ -45,6 +65,15 @@ bool TConf_vendite::preprocess_config (TMask& mask, TConfig& config)
TString ana_items("AR|GM|SM|RF"); TString ana_items("AR|GM|SM|RF");
int nor_order = 0, ana_order = 0; int nor_order = 0, ana_order = 0;
TString it; TString it;
mask.set_handler(F_RICERCACR1,check_fields);
mask.set_handler(F_RICERCACR2,check_fields);
mask.set_handler(F_RICERCACR3,check_fields);
mask.set_handler(F_RICERCACR4,check_fields);
mask.set_handler(F_RICERCACR5,check_fields);
mask.set_handler(F_RICERCAAN1,check_fields);
mask.set_handler(F_RICERCAAN2,check_fields);
mask.set_handler(F_RICERCAAN3,check_fields);
mask.set_handler(F_RICERCAAN4,check_fields);
for (it = ric.get();it.not_empty();it = ric.get()) for (it = ric.get();it.not_empty();it = ric.get())
{ {
if (ana_items.find(it) >= 0) if (ana_items.find(it) >= 0)

36
ve/ve0200e.uml
View File

@ -29,8 +29,8 @@ ITEM "CA|Causale contabile"
ITEM "AN|Anagrafica magazzino" ITEM "AN|Anagrafica magazzino"
ITEM "CV|Categoria di vendita" ITEM "CV|Categoria di vendita"
ITEM "CC|Categoria contabile" ITEM "CC|Categoria contabile"
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi" //WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR2 36 LIST F_RICERCACR2 36
@ -42,8 +42,8 @@ ITEM "CA|Causale contabile" MESSAGE ENABLE,F_RICERCACR3
ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR3 ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR3
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR3 ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR3
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR3 ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR3
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi" //WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR3 36 LIST F_RICERCACR3 36
@ -56,8 +56,8 @@ ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR4
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR4 ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR4
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR4 ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR4
GROUP 1 GROUP 1
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi" //WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR4 36 LIST F_RICERCACR4 36
@ -70,8 +70,8 @@ ITEM "AN|Anagrafica magazzino" MESSAGE ENABLE,F_RICERCACR5
ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR5 ITEM "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR5
ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR5 ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR5
GROUP 1 2 GROUP 1 2
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi" //WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR5 36 LIST F_RICERCACR5 36
@ -84,8 +84,8 @@ ITEM "AN|Anagrafica magazzino"
ITEM "CV|Categoria di vendita" ITEM "CV|Categoria di vendita"
ITEM "CC|Categoria contabile" ITEM "CC|Categoria contabile"
GROUP 1 2 GROUP 1 2
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)&&(#THIS_FIELD!=#F_RICERCACR4))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi" //WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 6
@ -100,8 +100,8 @@ ITEM "AR|Articolo"
ITEM "GM|Gruppo merceologico" ITEM "GM|Gruppo merceologico"
ITEM "SM|Sottogruppo merceologico" ITEM "SM|Sottogruppo merceologico"
ITEM "RF|Raggruppamento fiscale" ITEM "RF|Raggruppamento fiscale"
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi" //WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END END
LIST F_RICERCAAN2 36 LIST F_RICERCAAN2 36
@ -112,8 +112,8 @@ ITEM "AR|Articolo" MESSAGE ENABLE,F_RICERCAAN3
ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3 ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3
ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3 ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3
ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN3 ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN3
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi" //WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END END
LIST F_RICERCAAN3 36 LIST F_RICERCAAN3 36
@ -125,8 +125,8 @@ ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN4
ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN4 ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN4
ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN4 ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN4
GROUP 3 GROUP 3
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi" //WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END END
LIST F_RICERCAAN4 36 LIST F_RICERCAAN4 36
@ -138,8 +138,8 @@ ITEM "GM|Gruppo merceologico"
ITEM "SM|Sottogruppo merceologico" ITEM "SM|Sottogruppo merceologico"
ITEM "RF|Raggruppamento fiscale" ITEM "RF|Raggruppamento fiscale"
GROUP 3 GROUP 3
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3)) //STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi" //WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END END
ENDPAGE ENDPAGE