Corretta la visualizzazione saldi:

corretto il caricamento del record, l'update multiplo dello sheet e
la maschera di visualizzazione del rigo.


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

cg/cg5200.cpp

@@ -109,7 +109,6 @@ class TSaldibrowse_application : public TBrowse_application
 {
   
   TMask*          _msk;
-  TLocalisamfile* _clifo;
   TCursor       * _cur;
   TRelation     * _rel,* _rel1;
   TRiga_array   _riga;
@@ -150,11 +149,57 @@ bool TSaldibrowse_application::sheet_action(TSheet_field& s, int r, KEY k)
 void TSaldibrowse_application::init_query_mode(TMask& m)
 {
   m.disable(DLG_FINDREC);
+  TString t(m.get(F_TIPOCF));
+  if (t == "C")
+  {
+    m.show(F_DESCR_CLIENTE);
+    m.enable(F_DESCR_CLIENTE);
+    m.hide(F_DESCR_FORN);
+    m.hide(F_DESCR_CONTO);
+  }
+  else
+  if (t == "F")
+  {
+    m.hide(F_DESCR_CLIENTE);
+    m.show(F_DESCR_FORN);
+    m.enable(F_DESCR_FORN);
+    m.hide(F_DESCR_CONTO);
+  }
+  else
+  {
+    m.hide(F_DESCR_CLIENTE);
+    m.hide(F_DESCR_FORN);
+    m.show(F_DESCR_CONTO);
+    m.enable(F_DESCR_CONTO);
+  }
 }
 
 void TSaldibrowse_application::init_modify_mode(TMask& m)
 {
+  TString t(m.get(F_TIPOCF));
   m.disable(DLG_FINDREC);
+  if (t == "C")
+  {
+    m.show(F_DESCR_CLIENTE);
+    m.disable(F_DESCR_CLIENTE);
+    m.hide(F_DESCR_FORN);
+    m.hide(F_DESCR_CONTO);
+  }
+  else
+  if (t == "F")
+  {
+    m.hide(F_DESCR_CLIENTE);
+    m.show(F_DESCR_FORN);
+    m.disable(F_DESCR_FORN);
+    m.hide(F_DESCR_CONTO);
+  }
+  else
+  {
+    m.hide(F_DESCR_CLIENTE);
+    m.hide(F_DESCR_FORN);
+    m.show(F_DESCR_CONTO);
+    m.disable(F_DESCR_CONTO);
+  }
 }
 
 bool TSaldibrowse_application::fai_filtro()
@@ -236,9 +281,9 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
     int  gruppo = m.get_int(F_GRUPPO);
     int  conto  = m.get_int(F_CONTO);
     const long sottoconto = atol(f.get());
+    TLocalisamfile pconti(LF_PCON);
     
     const short id  = f.dlg();
-    TLocalisamfile& pconti = app().get_relation()->lfile();
     
     if (sottoconto != 0)
     {
@@ -283,12 +328,8 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
         else 
           m.reset(F_DESCR_CONTO);
       }
-    if (stop) 
+    if (!ok)
-    {
+      f.error_box("Conto errato o incompleto");
-      f.set_focusdirty(FALSE);
-      return m.stop_run(K_AUTO_ENTER);
-    }
-    if (!ok) error_box("Conto errato o incompleto");
   }
   
   return ok;
@@ -296,8 +337,7 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
 
 bool TSaldibrowse_application::user_create()
 {
-  _clifo = new TLocalisamfile(LF_CLIFO);
+  _rel   = new TRelation(LF_SALDI);
-  _rel   = new TRelation(LF_PCON);
   _rel1  = new TRelation(LF_SALDI);
   _cur   = new TCursor(_rel1, "", 2);
 
@@ -316,7 +356,6 @@ bool TSaldibrowse_application::user_create()
 bool TSaldibrowse_application::user_destroy()
 {
   delete _msk;
-  delete _clifo;
   delete _rel;
   delete _rel1;
   delete _cur;
@@ -329,7 +368,6 @@ int TSaldibrowse_application::read(TMask& m)
   m.autoload(*_rel);
   fai_filtro();
   compilasheet();
-  ss().force_update();
 
   return NOERR;
 }

cg/cg5200a.uml

@@ -13,21 +13,23 @@ BEGIN
   PROMPT 4 1 "Cod. esercizio "
   HELP "Codice esercizio a cui si riferiscono i saldi"
   WARNING "Codice esercizio inesistente"
+  FIELD LF_SALDI->ANNOES
   KEY 1
   USE ESC 
-  CHECKTYPE NORMAL
   INPUT CODTAB[1,4] F_ANNO
   DISPLAY "Codice" CODTAB[1,4]
   DISPLAY "Data inizio esercizio" D0
   DISPLAY "Data fine esercizio" D1
   OUTPUT F_ANNO CODTAB[1,4] 
-  VALIDATE CHECK_FIELD F_ANNO
+  CHECKTYPE FORCED
   FLAGS "Z"
 END
 
 BOOLEAN F_SCARICATO 
 BEGIN
   PROMPT 40 1 "Solo saldi dei movimenti scaricati"
+  KEY 1
+  FIELD LF_SALDI->FLSCA
 END
    
 GROUPBOX DLG_NULL 73 4
@@ -52,7 +54,7 @@ BEGIN
   HELP "Codice del conto da visualizzare"
   WARNING "Gruppo inesistente"
   USE LF_PCON KEY 1 SELECT CONTO=""
-  FIELD LF_PCON->GRUPPO
+  FIELD LF_SALDI->GRUPPO
   KEY 1
   INPUT GRUPPO F_GRUPPO
   DISPLAY "Gruppo" GRUPPO 
@@ -70,7 +72,7 @@ BEGIN
   HELP "Codice del conto da visualizzare"
   WARNING "Conto inesistente"
   USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
-  FIELD LF_PCON->CONTO
+  FIELD LF_SALDI->CONTO
   KEY 1
   INPUT GRUPPO F_GRUPPO
   INPUT CONTO F_CONTO
@@ -94,7 +96,7 @@ BEGIN
   HELP "Codice del conto da visualizzare"
   WARNING "Sottoconto inesistente"
   USE LF_PCON SELECT SOTTOCONTO!=""
-  FIELD LF_PCON->SOTTOCONTO 
+  FIELD LF_SALDI->SOTTOCONTO 
   KEY 1
   INPUT GRUPPO F_GRUPPO
   INPUT CONTO F_CONTO
@@ -119,6 +121,7 @@ BEGIN
   PROMPT 54 3 "Cliente "
   HELP "Codice del conto da visualizzare"
   WARNING "Cliente inesistente"
+  FIELD LF_SALDI->SOTTOCONTO 
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_SOTTOC_CLIENTE
@@ -141,6 +144,7 @@ BEGIN
   PROMPT 54 3 "Fornitore "
   HELP "Codice del conto da visualizzare"
   WARNING "Fornitore inesistente"
+  FIELD LF_SALDI->SOTTOCONTO 
   USE LF_CLIFO
   INPUT TIPOCF "F"
   INPUT CODCF F_SOTTOC_FORN
@@ -161,7 +165,6 @@ END
 STRING F_DESCR_CONTO 50
 BEGIN
   PROMPT 4 4 "Descrizione      "
-  FIELD DESCR
   HELP "Descrizione del conto da visualizzare"
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCR_CONTO
@@ -170,8 +173,8 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCONTO
-  KEY 1
+  CHECKTYPE REQUIRED
-  CHECKTYPE NORMAL
+  KEY 2
   GROUP 1
 END
 
@@ -187,8 +190,8 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_SOTTOC_CLIENTE
-  KEY 1
+  KEY 3
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
   GROUP 2
 END
 
@@ -204,8 +207,8 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Codice" CODCF
   COPY OUTPUT F_SOTTOC_FORN
-  KEY 1
+  KEY 4  
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
   GROUP 3
 END
 
@@ -273,7 +276,7 @@ END
 
 NUMBER 105 15
 BEGIN
-  PROMPT 45 4 "Avere  "
+  PROMPT 47 4 "Avere "
   HELP "Progressivo avere attuale del conto da visualizzare"
   FLAGS "R"
   PICTURE "."  
@@ -305,7 +308,7 @@ END
 
 NUMBER 109 15
 BEGIN
-  PROMPT 45 6 "Avere  "
+  PROMPT 47 6 "Avere  "
   HELP "Progressivi avere attuali dei movimenti eliminati"
   FLAGS "R"  
   PICTURE "."
@@ -366,7 +369,7 @@ END
 
 NUMBER 115 15
 BEGIN
-  PROMPT 45 10 "Avere  "
+  PROMPT 47 10 "Avere  "
   HELP "Progressivi avere attuali dei movimenti provvisori del conto"
   FLAGS "R"
   PICTURE "."  
@@ -389,7 +392,7 @@ END
 
 NUMBER 118 15
 BEGIN
-  PROMPT 1 6 "Progr.Mov.Eliminati: Dare  "
+  PROMPT 1 12 "Progr.Mov.Eliminati: Dare  "
   HELP "Progressivi dare attuali dei movimenti eliminati"
   FLAGS "R"
   PICTURE "."
@@ -397,7 +400,7 @@ END
 
 NUMBER 119 15
 BEGIN
-  PROMPT 45 6 "Avere  "
+  PROMPT 47 12 "Avere  "
   HELP "Progressivi avere attuali dei movimenti eliminati"
   FLAGS "R"  
   PICTURE "."