Sistemati errori di cui al fax idel 29/12/94

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

cg/cg1600.cpp

@@ -4760,7 +4760,7 @@ void CG1600_application::crea_intestazione()
   com=comuni.curr().get(COM_DENCOM);
   prov=comuni.curr().get(COM_PROVCOM);
 
-  anag.setkey(2); 
+  anag.setkey(1); 
   anag.curr().zero();
   anag.curr().put(ANA_TIPOA,tipoa);
   anag.curr().put(ANA_CODANAGR,codanagr);

cg/cg3100b.uml

@@ -45,20 +45,19 @@ END
 
 DATE F_DATAINI
 BEGIN
-  PROMPT 2 6 "Stampa movimenti dalla data "
+  PROMPT 2 5 "Stampa movimenti dalla data "
   HELP "Data da cui iniziare la stampa"
 END
 
 DATE F_DATAFIN
 BEGIN
-  PROMPT 45 6 "alla data "
+  PROMPT 45 5 "alla data "
   HELP "Data fino a cui eseguire la stampa"
 END
 
-
+LIST F_TIPOELENCO 9
-LIST F_TIPOELENCO 8
 BEGIN
-  PROMPT 2 7 "Tipo elenco                 "
+  PROMPT 2 6 "Tipo elenco                 "
   HELP "Indicare cosa includere nella stampa"
   ITEM "C|Clienti"
   MESSAGE HIDE,2@|SHOW,1@|RESET,1@
@@ -70,84 +69,140 @@ END
 
 NUMBER F_CODICEINI 6
 BEGIN
-  PROMPT 2 8 "Stampa dal codice           "
+  PROMPT 2 7 "Stampa dal codice           "
   HELP "Indicare il codice da cui iniziare la stampa"
   GROUP 1
   USE LF_CLIFO
   INPUT TIPOCF F_TIPOELENCO SELECT
+  INPUT CODCF F_CODICEINI
   DISPLAY "Tipo" TIPOCF
   DISPLAY "Codice" CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODICEINI CODCF
+  OUTPUT F_RAGSOCINI RAGSOC
   FLAGS "R"
 END
 
+STRING F_RAGSOCINI 50
+BEGIN
+  PROMPT 2 8 ""
+  GROUP 1
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF F_TIPOELENCO SELECT
+  INPUT RAGSOC F_RAGSOCINI
+  DISPLAY "Tipo" TIPOCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  OUTPUT F_RAGSOCINI RAGSOC
+  OUTPUT F_CODICEINI CODCF
+END
+
 NUMBER F_CODICEFIN 6
 BEGIN
-  PROMPT 45 8 "al codice "
+  PROMPT 2 9 "al codice                   "
   HELP "Indicare il codice a cui terminare la stampa"
   GROUP 1
   COPY USE F_CODICEINI
   INPUT TIPOCF F_TIPOELENCO SELECT
+  INPUT CODCF F_CODICEFIN
   DISPLAY "Tipo" TIPOCF
   DISPLAY "Codice" CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODICEFIN CODCF
+  OUTPUT F_RAGSOCFIN RAGSOC
   NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
   WARNING "Limite superiore errato"
   FLAGS "R"
 END  
 
+STRING F_RAGSOCFIN 50
+BEGIN
+  PROMPT 2 10 ""
+  GROUP 1
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF F_TIPOELENCO SELECT
+  INPUT RAGSOC F_RAGSOCFIN
+  DISPLAY "Tipo" TIPOCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  OUTPUT F_RAGSOCFIN RAGSOC
+  OUTPUT F_CODICEFIN CODCF
+END
+
 NUMBER F_CODICEINI1 6
 BEGIN
-  PROMPT 2 8 "Stampa dal codice           "
+  PROMPT 2 7 "Stampa dal codice           "
   HELP "Indicare il codice da cui iniziare la stampa"
   GROUP 2
-  COPY USE F_CODICEINI
+  USE LF_CLIFO KEY 1
-  INPUT TIPOCF F_CODICEINI1
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODICEINI1
   DISPLAY "Tipo" TIPOCF
   DISPLAY "Codice" CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODICEINI1 CODCF
+  OUTPUT F_RAGSOCINI1 RAGSOC
   FLAGS "R"
 END
 
+STRING F_RAGSOCINI1 50
+BEGIN
+  PROMPT 2 8 ""
+  GROUP 2
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_RAGSOCINI1
+  DISPLAY "Tipo" TIPOCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  OUTPUT F_RAGSOCINI1 RAGSOC
+  OUTPUT F_CODICEINI1 CODCF
+END
+
 NUMBER F_CODICEFIN1 6
 BEGIN
-  PROMPT 45 8 "al codice "
+  PROMPT 2 9 "al codice                   "
   HELP "Indicare il codice a cui terminare la stampa"
   GROUP 2
-  COPY USE F_CODICEINI
+  COPY USE F_CODICEINI1
-  INPUT TIPOCF F_CODICEFIN1
+  INPUT TIPOCF "F"
+  INPUT CODCF F_CODICEFIN1
   DISPLAY "Tipo" TIPOCF
   DISPLAY "Codice" CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODICEFIN1 CODCF
+  OUTPUT F_RAGSOCFIN1 RAGSOC
   NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
   WARNING "Limite superiore errato"
   FLAGS "R"
 END  
 
+STRING F_RAGSOCFIN1 50
+BEGIN
+  PROMPT 2 10 ""
+  GROUP 2
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "F"
+  INPUT RAGSOC F_RAGSOCFIN1
+  DISPLAY "Tipo" TIPOCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  OUTPUT F_RAGSOCFIN1 RAGSOC
+  OUTPUT F_CODICEFIN1 CODCF
+END
+
 BOOLEAN F_CAMBIO
 BEGIN
-  //GROUP 2
+  PROMPT 2 12 "Cambio pagina per cliente/fornitore "
-  PROMPT 2 10 "Cambio pagina per cliente/fornitore "
   HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
 END
 
 BOOLEAN F_STAMPAMOVP
 BEGIN
-  PROMPT 2 11 "Stampa movimenti provvisori "
+  PROMPT 2 13 "Stampa movimenti provvisori "
   HELP "Indicare se stampare i movimenti provvisori"
 END
 
-/*
-TEXT DLG_NULL
-BEGIN
-  PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
-END
-*/
-  
 BUTTON DLG_OK 9 2 
 BEGIN
   PROMPT -12 -1 ""

cg/cg3200.cpp

@@ -31,6 +31,9 @@ class TMastrini_application : public TPrintapp
 {
   static bool data_inizio (TMask_field& f, KEY k);
   static bool data_fine   (TMask_field& f, KEY k);
+  static bool gruppo_hnd  (TMask_field& f, KEY k);
+  static bool conto_hnd   (TMask_field& f, KEY k);
+  static bool sottoc_hnd  (TMask_field& f, KEY k);
   friend bool sottoc_handler_ini  (TMask_field& f, KEY k); 
   friend bool sottoc_handler_fine (TMask_field& f, KEY k);
   
@@ -86,6 +89,7 @@ protected:
   virtual bool preprocess_print(int file, int counter);
   virtual bool preprocess_page (int,int);
   virtual print_action postprocess_page (int,int);
+  virtual print_action postprocess_print(int,int);
   virtual void preprocess_header();
   virtual void set_page(int,int);
   virtual void process_link(int id, const char* txt);
@@ -185,21 +189,7 @@ bool sottoc_handler_ini(TMask_field& f, KEY key)
         clifo.put(CLI_CODCF, sottoconto) ;
         clifo.setkey(1);
         if (clifo.read(_isequal, _nolock) == NOERR)
-        {
           rs = clifo.get(CLI_RAGSOC);
-          char tipoa = clifo.get_char("TIPOAPER");
-
-          if (tipoa == 'F')
-          {
-            TString80 cognome, nome;
-            cognome = rs.mid(0,30);
-            nome    = rs.mid(30,20);
-            cognome.trim(); nome.trim();
-            
-            rs = cognome;
-            rs << " " << nome;
-          }
-        }
         else
           rs = "";
         
@@ -249,19 +239,6 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
 
   if ( key == K_TAB )
   {
-//    if (!f.focusdirty() && gruppo == 0 && conto == 0) return TRUE;
-/*    
-    if (sottoconto != 0 && conto == 0) 
-    {
-      f.warning_box("Manca il CONTO");
-      return FALSE;
-    }
-    if (conto != 0 && gruppo == 0)
-    {
-      f.warning_box("Manca il GRUPPO");
-      return FALSE;
-    }  
-*/    
     if (id == F_SOTTOCFINE_CONTO)
     {
       pconti.zero();
@@ -290,21 +267,7 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
         clifo.put(CLI_CODCF, sottoconto) ;
         clifo.setkey(1);
         if (clifo.read(_isequal, _nolock) == NOERR)
-        {
           rs = clifo.get(CLI_RAGSOC);
-          char tipoa = clifo.get_char("TIPOAPER");
-
-          if (tipoa == 'F')
-          {
-            TString80 cognome, nome;
-            cognome = rs.mid(0,30);
-            nome    = rs.mid(30,20);
-            cognome.trim(); nome.trim();
-            
-            rs = cognome;
-            rs << " " << nome;
-          }
-        }
         else 
           rs = "";
           
@@ -333,6 +296,77 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
   return TRUE;
 }
 
+bool TMastrini_application::gruppo_hnd (TMask_field& f, KEY k)
+{
+  if (k == K_ENTER)
+  {
+    int gruppof = f.mask().get_int(F_GRUPPOFINE);
+    
+    if (gruppof == 0)
+      return TRUE;
+      
+    int gruppoi = f.mask().get_int(F_GRUPPOINI);
+    
+    if (gruppoi > gruppof)
+      return f.error_box("Il gruppo di partenza deve essere inferiore o uguale al gruppo di arrivo");
+  }   
+  
+  return TRUE;
+}
+
+bool TMastrini_application::conto_hnd (TMask_field& f, KEY k)
+{
+  if (k == K_ENTER)
+  {
+    int gruppof = f.mask().get_int(F_GRUPPOFINE);
+    
+    if (gruppof == 0)
+      return TRUE;
+      
+    int gruppoi = f.mask().get_int(F_GRUPPOINI);
+    
+    if (gruppoi < gruppof)
+      return TRUE;
+      
+    int contof = f.mask().get_int(F_CONTOFINE_CONTO);
+    int contoi = f.mask().get_int(F_CONTOINI_CONTO);
+      
+    if (contoi > contof)
+      return f.error_box("Il conto di partenza deve essere inferiore o uguale al conto di arrivo");
+  }  
+  
+  return TRUE;
+}
+
+bool TMastrini_application::sottoc_hnd (TMask_field& f, KEY k)
+{
+  if (k == K_ENTER)
+  {
+    int gruppof = f.mask().get_int(F_GRUPPOFINE);
+    
+    if (gruppof == 0)
+      return TRUE;
+      
+    int gruppoi = f.mask().get_int(F_GRUPPOINI);
+    
+    if (gruppoi < gruppof)
+      return TRUE;
+    
+    int contof = f.mask().get_int(F_CONTOFINE_CONTO);
+    int contoi = f.mask().get_int(F_CONTOINI_CONTO);
+    
+    if (contoi < contof)
+      return TRUE;
+    
+    long sottocf = f.mask().get_long(F_SOTTOCFINE_CONTO);
+    long sottoci = f.mask().get_long(F_SOTTOCINI_CONTO);
+        
+    if (sottoci > sottocf)
+      return f.error_box("Il sottoconto di partenza deve essere inferiore o uguale al sottoconto di arrivo");
+  }           
+  
+  return TRUE;
+}
 int date2esc(const TDate& d, int* prevesc)
 {                   
   if (prevesc) *prevesc = 0;
@@ -1027,6 +1061,32 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
   return NEXT_PAGE;
 }                                                 
 
+print_action TMastrini_application::postprocess_print(int file, int counter)
+{
+  if (file == LF_SALDI)
+  {
+    _msk->reset(F_GRUPPOINI);  
+    
+    _msk->reset(F_CONTOINI_CONTO);
+    _msk->reset(F_CONTOINI_CLIENTE);
+    _msk->reset(F_CONTOINI_FORN);
+    
+    _msk->reset(F_SOTTOCINI_CONTO);
+    _msk->reset(F_SOTTOCINI_CLIENTE);
+    _msk->reset(F_SOTTOCINI_FORN);
+    
+    _msk->reset(F_GRUPPOFINE);  
+    
+    _msk->reset(F_CONTOFINE_CONTO);
+    _msk->reset(F_CONTOFINE_CLIENTE);
+    _msk->reset(F_CONTOFINE_FORN);
+    
+    _msk->reset(F_SOTTOCFINE_CONTO);
+    _msk->reset(F_SOTTOCFINE_CLIENTE);
+    _msk->reset(F_SOTTOCFINE_FORN);
+  }     
+  return NEXT_PAGE;
+}
 // Stampa dei totali documenti iva se richiesta
 
 void TMastrini_application::stampa_totaliiva()
@@ -1126,9 +1186,8 @@ bool TMastrini_application::set_print(int)
 
   _puoi_stampare = TRUE;
 
-  _msk->set_handler (F_DATAINI        , data_inizio);
+  _msk->set_handler (F_DATAINI          ,data_inizio);
-  _msk->set_handler (F_DATAFINE       , data_fine);
+  _msk->set_handler (F_DATAFINE         ,data_fine);
-
   
   tasto = _msk->run();
 
@@ -1921,6 +1980,15 @@ bool TMastrini_application::user_create()
   _msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
   _msk->set_handler(F_SOTTOCFINE_FORN,    sottoc_handler_fine);
   
+  _msk->set_handler (F_GRUPPOFINE         ,gruppo_hnd);
+  _msk->set_handler (F_CONTOFINE_CONTO    ,conto_hnd);
+  _msk->set_handler (F_CONTOFINE_CLIENTE  ,conto_hnd);
+  _msk->set_handler (F_CONTOFINE_FORN     ,conto_hnd);
+  
+  _msk->set_handler (F_SOTTOCFINE_CONTO   ,sottoc_hnd);
+  _msk->set_handler (F_SOTTOCFINE_CLIENTE ,sottoc_hnd);
+  _msk->set_handler (F_SOTTOCFINE_FORN    ,sottoc_hnd);
+  
   _inizio_stampa = TRUE;
   return TRUE;
 }

cg/cg3200a.uml

@@ -246,7 +246,7 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Codice" CODCF
-  COPY OUTPUT F_DESCRINI_CONTO
+  COPY OUTPUT F_SOTTOCINI_FORN
   MESSAGE COPY,F_DESCRINI_CONTO
   CHECKTYPE NORMAL
   GROUP 3
@@ -438,7 +438,7 @@ BEGIN
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Codice" CODCF
-  COPY OUTPUT F_DESCRFINE_CONTO
+  COPY OUTPUT F_SOTTOCFINE_FORN
   MESSAGE COPY,F_DESCRFINE_CONTO
   GROUP 6
 END

cg/cg3500.cpp

@@ -656,7 +656,8 @@ void CG3500_application::setta_riga_sottoconto()
 {
   TString udata = _ultima_data.string();
   
-  set_row(1,"%06ld",  _scorr);
+  //set_row(1,"%06ld",  _scorr);
+  set_row(1,"%6ld",  _scorr);
   //set_row(1,"@i %.32s@r",(const char*) _descr);
   set_row(1," %.32s@r",(const char*) _descr);
   set_row(1,"@42g%s",(const char*) udata);
@@ -675,14 +676,15 @@ void CG3500_application::setta_riga_conto()
   if (_scelta == 1)
   {
     set_row(r++,"%s",(const char*)riga);
-    set_row(r,"****  Totali conto   %03d.%03d",_gconto,_cconto);
+    //set_row(r,"****  Totali conto   %03d.%03d",_gconto,_cconto);
+    set_row(r,"****  Totali conto   %3d %3d",_gconto,_cconto);
     // set_row(r,"@i %.27s@r",(const char*)_descrconto);
     set_row(r," %.27s@r",(const char*)_descrconto);
 
   }
   if (_scelta == 2)
   {
-    set_row(r,"%03d",  _ccorr);
+    set_row(r,"%3d",  _ccorr);
     //set_row(r,"@i %.32s@r",(const char*)_descrconto);
     set_row(r," %.32s@r",(const char*)_descrconto);
     set_row(r,"@42g%s",(const char*)udata);
@@ -704,7 +706,8 @@ void CG3500_application::setta_riga_gruppo()
   if (_scelta == 2)
     if (_tp == fine) r = 3;
     else r = 2;
-  set_row(r,"****  TOTALI GRUPPO  %03d-",_ggruppo);
+  //set_row(r,"****  TOTALI GRUPPO  %3d-",_ggruppo);
+  set_row(r,"****  TOTALI GRUPPO  %3d ",_ggruppo);
   //set_row(r,"@i %.30s@r",(const char*)_descrgruppo);
   set_row(r," %.30s@r",(const char*)_descrgruppo);
   set_row(r++,"@57g%r@77g%r@97g%r@117g%r",&_prg_dare_gruppo,&_prg_avere_gruppo,&_saldo_dare_gruppo,&_saldo_avere_gruppo);