From 1c895e6c1ff0c7d5d0948e062ca63db45bff9f0c Mon Sep 17 00:00:00 2001 From: angelo Date: Thu, 19 Sep 1996 11:12:20 +0000 Subject: [PATCH] Corretto programma di configurazione ricerche conti di costo/ricavo in contabilizzazione. git-svn-id: svn://10.65.10.50/trunk@3632 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/ve0200.cpp | 23 ++++++++++++++++++++--- ve/ve0200e.uml | 36 ++++++++++++++++++++---------------- 2 files changed, 40 insertions(+), 19 deletions(-) diff --git a/ve/ve0200.cpp b/ve/ve0200.cpp index 41e0ad916..cde7af7b9 100755 --- a/ve/ve0200.cpp +++ b/ve/ve0200.cpp @@ -50,8 +50,11 @@ bool TConf_vendite::preprocess_config (TMask& mask, TConfig& config) if (ana_items.find(it) >= 0) { 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"); + nor_order++; + } ana_order++; } else @@ -72,12 +75,26 @@ bool TConf_vendite::postprocess_config (TMask& mask, TConfig& config) { TToken_string ric; 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++) { - r = mask.get(i); + r = mask.get(i); + if (r == "-") continue; if (r == "AN") 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 ric.add(r); } diff --git a/ve/ve0200e.uml b/ve/ve0200e.uml index 0ff782109..a8c199566 100755 --- a/ve/ve0200e.uml +++ b/ve/ve0200e.uml @@ -18,7 +18,7 @@ PAGE "Tabelle contabilizzazione" 1 1 60 14 GROUPBOX DLG_NULL 78 7 BEGIN -PROMPT 1 1 "Gruppi di ricerca del conto di costo ricavo" +PROMPT 1 1 "Ricerca primaria del conto di costo ricavo" END LIST F_RICERCACR1 36 @@ -29,6 +29,8 @@ ITEM "CA|Causale contabile" ITEM "AN|Anagrafica magazzino" ITEM "CV|Categoria di vendita" 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 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 "CV|Categoria di vendita" MESSAGE ENABLE,F_RICERCACR3 ITEM "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR3 -STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_RICERCACR1) -WARNING "La sequenza di ricerca deve indicare cinque tipi diversi" +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 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 "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR4 GROUP 1 -STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)) -WARNING "La sequenza di ricerca deve indicare cinque tipi diversi" +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 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 "CC|Categoria contabile" MESSAGE ENABLE,F_RICERCACR5 GROUP 1 2 -STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCACR1)&&(#THIS_FIELD!=#F_RICERCACR2)&&(#THIS_FIELD!=#F_RICERCACR3)) -WARNING "La sequenza di ricerca deve indicare cinque tipi diversi di righe" +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 LIST F_RICERCACR5 36 @@ -83,21 +85,23 @@ ITEM "CV|Categoria di vendita" ITEM "CC|Categoria contabile" GROUP 1 2 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 GROUPBOX DLG_NULL 78 6 BEGIN -PROMPT 1 8 "Gruppi di ricerca sugli articoli anagrafica" +PROMPT 1 8 "Ricerca per anagrafica del conto di costo ricavo" END -LIST F_RICERCAAN1 25 +LIST F_RICERCAAN1 36 BEGIN PROMPT 2 9 "Primo gruppo " ITEM "AR|Articolo" ITEM "GM|Gruppo merceologico" ITEM "SM|Sottogruppo merceologico" 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 LIST F_RICERCAAN2 36 @@ -108,8 +112,8 @@ ITEM "AR|Articolo" MESSAGE ENABLE,F_RICERCAAN3 ITEM "GM|Gruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3 ITEM "SM|Sottogruppo merceologico" MESSAGE ENABLE,F_RICERCAAN3 ITEM "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN3 -STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#F_RICERCAAN1) -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 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 "RF|Raggruppamento fiscale" MESSAGE ENABLE,F_RICERCAAN4 GROUP 3 -STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)) -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 LIST F_RICERCAAN4 36 @@ -133,9 +137,9 @@ ITEM "AR|Articolo" ITEM "GM|Gruppo merceologico" ITEM "SM|Sottogruppo merceologico" ITEM "RF|Raggruppamento fiscale" -STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_RICERCAAN1)&&(#THIS_FIELD!=#F_RICERCAAN2)&&(#THIS_FIELD!=#F_RICERCAAN3)) 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 ENDPAGE