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

Corretto programma di configurazione ricerche conti di costo/ricavo

Browse Source 
in contabilizzazione.


git-svn-id: svn://10.65.10.50/trunk@3632 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-09-19 11:12:20 +00:00
parent 0f8ba96bbb
commit 1c895e6c1f
2 changed files with 40 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ve/ve0200.cpp
View File

@ -50,8 +50,11 @@ bool TConf_vendite::preprocess_config (TMask& mask, TConfig& config)
if (ana_items.find(it) >= 0) if (ana_items.find(it) >= 0)
{ {
mask.set(F_RICERCAAN1+ana_order,it); mask.set(F_RICERCAAN1+ana_order,it);
if (ana_order>0) // Se e' la prima volta... if (ana_order==0) // Se e' la prima volta...
{
mask.set(F_RICERCACR1+nor_order,"AN"); mask.set(F_RICERCACR1+nor_order,"AN");
nor_order++;
}
ana_order++; ana_order++;
} }
else else
@ -72,12 +75,26 @@ bool TConf_vendite::postprocess_config (TMask& mask, TConfig& config)
{ {
TToken_string ric; TToken_string ric;
TString r; TString r;
const KEY k = mask.last_key();
bool tosave = k == K_ENTER || k == K_SAVE;
if (!tosave && mask.dirty())
tosave = yesno_box("Modifiche non registrate. Salvare?");
if (!tosave)
return FALSE;
for (short i=F_RICERCACR1;i<=F_RICERCACR5;i++) for (short i=F_RICERCACR1;i<=F_RICERCACR5;i++)
{ {
r = mask.get(i); r = mask.get(i);
if (r == "-") continue;
if (r == "AN") if (r == "AN")
for (short j=F_RICERCAAN1;j<=F_RICERCAAN4;j++) for (short j=F_RICERCAAN1;j<=F_RICERCAAN4;j++)
ric.add(mask.get(j)); {
r = mask.get(j);
if (r == "-") continue;
ric.add(r);
}
else else
ric.add(r); ric.add(r);
} }

36
ve/ve0200e.uml
View File

@ -18,7 +18,7 @@ PAGE "Tabelle contabilizzazione" 1 1 60 14
GROUPBOX DLG_NULL 78 7 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 1 1 "Gruppi di ricerca del conto di costo ricavo" PROMPT 1 1 "Ricerca primaria del conto di costo ricavo"
END END
LIST F_RICERCACR1 36 LIST F_RICERCACR1 36
@ -29,6 +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))
WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR2 36 LIST F_RICERCACR2 36
@ -40,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) 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 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
@ -54,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)) 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 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
@ -68,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)) 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 deve indicare cinque tipi diversi di righe" WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
LIST F_RICERCACR5 36 LIST F_RICERCACR5 36
@ -83,21 +85,23 @@ 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 deve indicare cinque tipi diversi di righe" WARNING "La sequenza di ricerca primaria deve indicare cinque tipi diversi"
END END
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 1 8 "Gruppi di ricerca sugli articoli anagrafica" PROMPT 1 8 "Ricerca per anagrafica del conto di costo ricavo"
END END
LIST F_RICERCAAN1 25 LIST F_RICERCAAN1 36
BEGIN BEGIN
PROMPT 2 9 "Primo gruppo " PROMPT 2 9 "Primo gruppo "
ITEM "AR|Articolo" 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))
WARNING "La sequenza di ricerca per anagrafica deve indicare quattro tipi diversi"
END END
LIST F_RICERCAAN2 36 LIST F_RICERCAAN2 36
@ -108,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) STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca 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
@ -121,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)) STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3))
WARNING "La sequenza di ricerca 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
@ -133,9 +137,9 @@ 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))
GROUP 3 GROUP 3
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi" 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"
END END
ENDPAGE ENDPAGE