Patch level : 2.0 552

Files correlati     : 771230la.msk 772mod.exe batbca7.msk
Ricompilazione Demo : [ ]
Commento            :

OB200012
772mod.exe -0 d:
Quando premo alt+F4 compare il messaggio: 772MOD ha provocato un errore di
pagina non valida nel modulo <sconosciuto> in 0000:xxxx

OB200013
772mod.exe -1 d:
Proporre come dafault nel campo Periodo A: DICEMBRE maschera: 772200a.msk

OB200014
773mod.exe -3 %ca7;
Mancano le nuove funzionalità della ricerca, avanzamento record etc.

OB200015
771mod.exe -5 la:
Fatal Error: Impossibile leggere il file 771230la.msk


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

m770/771230la.uml

@@ -256,7 +256,7 @@ END
 
 BOOLEAN 116
 BEGIN                                               
-  PROMPT 31 13 "Generata da schede"
+  PROMPT 31 13 "Riga generata da schede"
   FLAGS "D"
   FIELD GENERATA
 END

m770/772100.cpp

@@ -3,9 +3,9 @@
 #include <mask.h>   
 #include <currency.h>
 #include <printapp.h>
+#include <recarray.h>
 #include <relation.h>
 #include <config.h>
-#include <tabutil.h>
 #include <sort.h>
 
 #include "perc.h"
@@ -89,7 +89,7 @@ class TStampa_perc : public TPrintapp
   TSort*            _sort;
   TVersamento_stampa  _stvers;
   const char*       _buf;
-  TLocalisamfile*   _nditte, *_anag, *_rpag, *_rver, *_comuni;  
+  TLocalisamfile   *_anag, *_rpag, *_rver, *_comuni;  
   TString16         _section;
   TConfig*          _cnf;
   TString   _ragsocER,_indER,_civER,_capER,_dencomER,_provER,_cofiER;
@@ -205,14 +205,10 @@ void TStampa_perc::do_sort(const TString& codqua,const TString& causqua,int codt
                                                          
 int TStampa_perc::ricerca_causale(TString& desc,TString& codqua)
 {                           
-  TTable ca7 ("%CA7");   
-  TString16 dep;
   int cod = 0;
-  
+  TString4 dep; dep.format("%02d", _codcaus);
-  ca7.zero();
+  const TRectype& ca7 = cache().get("%CA7", dep);
-  dep.format("%02d", _codcaus);
+  if (!ca7.empty())
-  ca7.put("CODTAB", dep);      
-  if (ca7.read() == NOERR)
   {
     desc    = ca7.get("S0");
     cod     = ca7.get_int("I0"); 
@@ -906,16 +902,14 @@ void TStampa_perc::preprocess_header()
 
 void TStampa_perc::dati_erogante()
 { 
-  TString com,comnasc;           
+  TString4 com,comnasc;           
-  TDate   data;
+//  TDate   data;
        
-  _nditte->setkey(1);
+  const TRectype& nditte = cache().get(LF_NDITTE, _codditta);
-  _nditte->curr().zero();
+  if (!nditte.empty())
-  _nditte->curr().put(NDT_CODDITTA, _codditta);
-  if (_nditte->read() == NOERR)
   {
-    _tipoaER   = _nditte->get_char(NDT_TIPOA);
+    _tipoaER   = nditte.get_char(NDT_TIPOA);
-    _codanagER = _nditte->get_long(NDT_CODANAGR);
+    _codanagER = nditte.get_long(NDT_CODANAGR);
   }
  
   _anag->setkey(1);
@@ -970,7 +964,7 @@ void TStampa_perc::dati_erogante()
     anagfis.put(ANF_CODANAGR, _codanagER);
     if (anagfis.read() == NOERR)
     {
-      data = anagfis.get_date(ANF_DATANASC);
+      const TDate data = anagfis.get(ANF_DATANASC);
       _datanascER = data.string();
       comnasc = anagfis.get(ANF_COMNASC);
     }
@@ -1166,7 +1160,6 @@ bool TStampa_perc::user_create()
   _cur    = new TCursor(_rel,"",2);
   add_cursor(_cur);
   
-  _nditte = new TLocalisamfile (LF_NDITTE);
   _comuni = new TLocalisamfile (LF_COMUNI);
   _anag   = new TLocalisamfile (LF_ANAG);
   _rpag   = new TLocalisamfile (LF_RPAG);
@@ -1182,8 +1175,7 @@ bool TStampa_perc::user_create()
 bool TStampa_perc::user_destroy()
 {
   delete _rel;   
-  delete _cur;
+  // delete _cur;  // Gia' distrutto dalla printapp!!
-  delete _nditte;
   delete _anag;
   delete _comuni;
   delete _rpag;

m770/772200.cpp

@@ -608,9 +608,6 @@ void TSt_certif::postclose_print()
 bool TSt_certif::init_print()
 {
   TMask msk ("772200a");
-  KEY tasto;
-  TLocalisamfile& fl = _cur->file(LF_RPAG);
-  
   msk.set_handler (F_A, mese_handler);
   msk.set_handler (F_CODDITTA, codditta_hnd);
   
@@ -626,11 +623,11 @@ bool TSt_certif::init_print()
     msk.set(F_LUOGO, address.get(0));                                        
   }           
   
-  // precarico numero attestazione
+  msk.set(F_ATTESTA,1); // precarico numero attestazione
-  msk.set(F_ATTESTA,1);
+  msk.set(F_A, 12);     // Imposto dicembre come mese finale
   
   // esecuzione maschera
-  tasto = msk.run();
+  KEY tasto = msk.run();
 
   if (tasto == K_ENTER)
   {
@@ -649,6 +646,7 @@ bool TSt_certif::init_print()
     
     _off_lung = msk.get_int(F_LUNG);  
         
+    TLocalisamfile& fl = _cur->file(LF_RPAG);
     TRectype da (fl.curr());
     TRectype a  (fl.curr());  
 
@@ -716,7 +714,8 @@ bool TSt_certif::set_print(int)
 // init_print ritorna TRUE solo se K_ENTER      
       if (init_print())
         print();
-      else break;
+      else 
+        break;
     }  
     set_firm_770(codditta_prec);
 // Non richiamare di nuovo print()!    

m770/batbca7.uml

@@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "Tabella causali " -1 -1 78 18
+PAGE "Causali 770" -1 -1 78 18
 
 GROUPBOX DLG_NULL 77 12
 BEGIN
@@ -26,7 +26,7 @@ BEGIN
   OUTPUT F_CODTRIB  I0
   OUTPUT F_QUADRAT  S1
   OUTPUT F_QUADRCE2 S1
-  FLAGS "RZ"
+  FLAGS "Z"
   CHECKTYPE REQUIRED
   KEY 1
 END