Corretto errore MI4318

git-svn-id: svn://10.65.10.50/trunk@3577 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg0.url

@@ -20,9 +20,6 @@ MENUBAR MENU_BAR(3)
 
 MENU MENU_BAR(3)
     SUBMENU MENU_FILE "~File" 
-    ITEM BAR_ITEM(1) "~Riepilogo"
-    ITEM BAR_ITEM(2) "~Stampa"
-
 
 MENUBAR MENU_BAR(4)
 

cg/cg0400.cpp

@@ -131,6 +131,7 @@ class TProgressivi_iva : public TPrintapp
 
 protected:  
    static bool tipo_handler(TMask_field& f, KEY k);
+   static bool selection_handler(TMask_field& f, KEY k);
    
 public:            
 
@@ -518,34 +519,34 @@ bool TProgressivi_iva::tipo_handler(TMask_field& f, KEY k)
   return TRUE;
 }
 
+bool TProgressivi_iva::selection_handler(TMask_field& f, KEY k)
+{
+  if (k == K_SPACE)
+  {
+    TMask& m = f.mask();
+    const int sel = atoi(f.get());
+    if (sel == 1)
+    {
+      const bool b = atoi(m.field(F_LIVELLO).get()) == 1 ? TRUE : FALSE;
+      m.show(F_CODIVA,b);
+      m.show(F_ATTIVITA,!b);
+      tipo_handler(m.field(F_TIPO),K_SPACE);
+    }
+  }
+  return TRUE;
+}
+
 bool TProgressivi_iva::set_print(int m)
 {
-  TString16 masc = "";
+  TMask msk("cg0400a");
   
-  switch(m)
+  msk.set_handler(F_TIPO, tipo_handler);
-  {
+  msk.set_handler(F_SELECTION, selection_handler);
-  case 1: 
-    masc = "cg0400a";
-    _tipo_lista = visualizza;
-    break;
-  case 2:
-    masc = "cg0400b";
-    _tipo_lista = stampa;
-    break;
-  default:
-    break;
-  }   
-  
-  TMask msk(masc);
-  
-  switch(m)
-  {             
-  case 1 :msk.set_handler(F_TIPO, tipo_handler);
-  default:break;
-  }
   
   if (msk.run() != K_ENTER) return FALSE;
 
+  _tipo_lista = msk.get_int(F_SELECTION) == 1 ? visualizza : stampa;
+  
   switch (_tipo_lista)
   {
     case visualizza:

cg/cg0400.h

@@ -17,6 +17,7 @@
 #define F_DATASTAMPA 112
 #define F_MESE       113
 #define F_STAMPA     114
+#define F_SELECTION  115
 
 #endif  // __CG0400_H
 

cg/cg0400a.uml

@@ -2,6 +2,7 @@
 
 PAGE "Riepilogo progressivi IVA" -1 -1 76 19
 
+
 GROUPBOX DLG_NULL 74 3
 BEGIN
     PROMPT 1 0 ""
@@ -41,27 +42,38 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+RADIOBUTTON F_SELECTION 40
+BEGIN
+  PROMPT 2 5 "Tipo di stampa     "
+  ITEM "1|Riepilogo progressivi per aliquota"
+  MESSAGE HIDE,2@|SHOW,3@
+  ITEM "2|Riepilogo progressivi per mese"
+  MESSAGE SHOW,2@|HIDE,1@
+END
+
 RADIOBUTTON F_LIVELLO 24
 BEGIN
-  PROMPT 2 5 "Livello progressivi"
+  PROMPT 2 9 "Livello progressivi"
   HELP "Tipo di raggruppamento dei riepiloghi"
   ITEM "1|Per aliquota"
   MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA|K_SPACE,F_TIPO
   ITEM "2|Per attivita'"
   MESSAGE SHOW,F_ATTIVITA|HIDE,F_CODIVA|K_SPACE,F_TIPO
+  GROUP 1 3
 END
 
 RADIOBUTTON F_TIPO 24
 BEGIN
-    PROMPT 40 5 "Tipo progressivi "
+  PROMPT 40 9 "Tipo progressivi "
   HELP "Tipo di riepilogo da effettuare"
   ITEM "1|Vendite"
   ITEM "2|Acquisti"
+  GROUP 1 3
 END
 
 STRING F_CODIVA 4
 BEGIN
-  PROMPT 2 10 "Codice IVA       "
+  PROMPT 2 13 "Codice IVA       "
   HELP "Aliquota IVA da riepilogare"
   FLAGS "U"
   USE %IVA
@@ -74,19 +86,21 @@ BEGIN
   CHECKTYPE REQUIRED
   VALIDATE ZEROFILL_FUNC 2
   WARNING "Codice IVA assente"
+  GROUP 1
 END
 
 RADIOBUTTON F_TIPOTAB 38
 BEGIN
-  PROMPT 2 12 "Tipo tabella "
+  PROMPT 2 14 "Tipo tabella "
   HELP "Tipo di tabella da visualizzare"
   ITEM "1|Vendite in genere"
   ITEM "2|Vendite in sospensione d'imposta"
+  GROUP 1
 END
 
 STRING F_ATTIVITA 5
 BEGIN
-  PROMPT 2 10 "Codice attivita' "
+  PROMPT 2 13 "Codice attivita' "
   HELP "Codice dell'attivita' di cui si vuole il riepilogo"
   USE LF_ATTIV
   JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@@ -97,11 +111,12 @@ BEGIN
   DISPLAY "Descrizione@50" LF_TABCOM->S0
   OUTPUT F_ATTIVITA CODATT
   WARNING "Codice attivita' non presente"
+  GROUP 1
 END
 
 NUMBER F_TIPOTABEL 1
 BEGIN
-  PROMPT 2 12 "Tipo tabella     "
+  PROMPT 2 14 "Tipo tabella     "
   HELP "Tipo di tabella da visualizzare"
   SHEET "Tipo|Descrizione@50"
   ITEM "1|Acquisti beni per rivendita"
@@ -111,11 +126,12 @@ BEGIN
   ITEM "5|Acquisti beni da ammortizzare ult.detr. 6%"
   INPUT F_TIPOTABEL
   OUTPUT F_TIPOTABEL
+  GROUP 1
 END
 
 NUMBER F_TIPOTABE 1
 BEGIN
-  PROMPT 2 12 "Tipo tabella     "
+  PROMPT 2 14 "Tipo tabella     "
   HELP "Tipo di tabella da visualizzare"
   SHEET "Tipo|Descrizione@50"
   ITEM "1|Acquisti in genere"
@@ -127,15 +143,41 @@ BEGIN
   ITEM "7|Acquisti in sospensione d'imposta"
   INPUT F_TIPOTABE
   OUTPUT F_TIPOTABE
+  GROUP 1
 END
 
-/*
+DATE F_DATASTAMPA
-BUTTON DLG_PRINT 10 2
 BEGIN
- PROMPT -12 -1 "~Stampa"  
+  PROMPT 2 9 "Data stampa    "
- MESSAGE EXIT,K_ENTER
+  HELP "Data in cui viene effettuata la stampa"
+  FLAGS "A"
+  GROUP 2
+END
+
+LISTBOX F_MESE 11
+BEGIN
+  PROMPT 2 11 "Mese riepilogo "
+  ITEM "1|Gennaio" MESSAGE ENABLE,F_STAMPA
+  ITEM "2|Febbraio" MESSAGE ENABLE,F_STAMPA
+  ITEM "3|Marzo" MESSAGE ENABLE,F_STAMPA
+  ITEM "4|Aprile" MESSAGE ENABLE,F_STAMPA
+  ITEM "5|Maggio" MESSAGE ENABLE,F_STAMPA
+  ITEM "6|Giugno" MESSAGE ENABLE,F_STAMPA
+  ITEM "7|Luglio" MESSAGE ENABLE,F_STAMPA
+  ITEM "8|Agosto" MESSAGE ENABLE,F_STAMPA
+  ITEM "9|Settembre" MESSAGE ENABLE,F_STAMPA
+  ITEM "10|Ottobre" MESSAGE ENABLE,F_STAMPA
+  ITEM "11|Novembre" MESSAGE ENABLE,F_STAMPA
+  ITEM "12|Dicembre" MESSAGE ENABLE,F_STAMPA
+  ITEM "13|Annuale" MESSAGE "X", F_STAMPA|DISABLE,F_STAMPA
+  GROUP 2
+END
+
+BOOLEAN F_STAMPA
+BEGIN
+  PROMPT 2 13 "Stampa progressivi da inizio anno "
+  GROUP 2
 END
-*/
 
 BUTTON DLG_OK 10 2
 BEGIN 
@@ -150,3 +192,4 @@ END
 ENDPAGE
 
 ENDMASK
+