Patch level :10.0 466

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001465: cg2.exe -1 Gestione movimenti provvisori - Eliminazione
Descrizione  Se scelgo la funzione elimina dei movimenti provvisori con tipo movimenti=Tutti non vengono eliminati i movimenti di analitica creati con il movimento provvisorio.

Modificata maschera di selezione causale in modo da vedere il collegamento a SC/CA/CE/770

Rimodernata maschera cg3400a


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

cg/cg2100a.uml

@@ -73,6 +73,10 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Tipo" TIPODOC
   DISPLAY "Registro" REG
+  DISPLAY "SC" TIPOMOV
+  DISPLAY "CA" MOVIND
+  DISPLAY "CE" COLLCESP
+  DISPLAY "770" M770
   OUTPUT F_CODCAUS CODCAUS
   OUTPUT F_DESCRCAUS DESCR
   ADD RUN cg0 -4

cg/cg2200.cpp

@@ -5,13 +5,17 @@
 #include <tabutil.h>
 #include <urldefid.h>
 
+#include <causali.h>
+
+#include "../ca/movana.h"
+#include "../ca/calib01.h"
+#include "../ca/calib02.h"
+
 #include "cg2200.h"
 #include "cg2101.h"
 #include "cglib01.h"
 #include "cglib02.h"
 
-#include <causali.h>
-
 class TProvvisori_msk : public TAutomask
 { 
   char _provv;                      // Tipo provvisori da cancellare
@@ -235,6 +239,7 @@ public:
   void inizia_saldi(const TRectype& mov);
   void aggiungi_saldi(const TRectype& rmov, bool lettura);
   void aggiorna_saldi();
+  void aggiorna_analitica(const long numreg);
 
   bool confirm_provv(TCursor& cur, TProgind& pi, TCursor_sheet* sheet= NULL);
   bool delete_provv(TCursor& cur, TProgind& pi, TCursor_sheet* sheet= NULL);
@@ -301,6 +306,20 @@ void TProvvisori_app::aggiorna_saldi()
   _saldi.registra();
 }
 
+void TProvvisori_app::aggiorna_analitica(const long numreg)
+{
+  //cerca un eventuale movimento analitico collegato al contabile provvisorio in via d'estinzione
+  TLocalisamfile movana(LF_MOVANA);
+  movana.setkey(3);
+  movana.put(MOVANA_NUMREGCG, numreg);
+  //se trova il movana da accoppare...
+  if (movana.read() == NOERR)
+  {
+    TAnal_mov movana_to_kill(movana.curr());
+    movana_to_kill.remove(movana);
+  }
+}
+
 bool TProvvisori_app::confirm_provv(TCursor& cur, TProgind& pi, TCursor_sheet* sheet)
 {
   TLocalisamfile& mov = cur.file(LF_MOV);
@@ -349,8 +368,8 @@ bool TProvvisori_app::delete_provv(TCursor& cur, TProgind& pi, TCursor_sheet* sh
 {
   TLocalisamfile& mov = cur.file(LF_MOV);
   TLocalisamfile rmov(LF_RMOV);
-  TLocalisamfile rmoviva(LF_RMOVIVA); 
+  TLocalisamfile rmoviva(LF_RMOVIVA);
-  
+
   if (sheet && sheet->checked() == 0)
     sheet = NULL;
 
@@ -403,8 +422,8 @@ bool TProvvisori_app::delete_provv(TCursor& cur, TProgind& pi, TCursor_sheet* sh
     if (err == NOERR)
     {
       aggiorna_saldi();
-      pi.addstatus(1);
+      aggiorna_analitica(numreg);  //elimina anche il movimento analitico collegato
-      if (pi.iscancelled())
+      if (!pi.addstatus(1))
         return warning_box(TR("Procedura interrotta dall'utente"));
     }  
     else

cg/cg3400a.uml

@@ -4,7 +4,7 @@ PAGE "Stampa Libro Giornale" -1 -1 76 14
 
 GROUPBOX DLG_NULL 74 3
 BEGIN
-    PROMPT 1 0 ""
+  PROMPT 1 0 ""
 END
 
 NUMBER F_CODDITTA 5
@@ -33,7 +33,6 @@ DATE DATA_A
 BEGIN
   PROMPT 40 3 "Alla data  "
   HELP "Stampa i movimenti fino alla data specificata"
-//  VALIDATE DATE_CMP_FUNC >= DATA_DA
   WARNING "Specificare la data di fine stampa"
   CHECKTYPE REQUIRED
 END
@@ -60,7 +59,6 @@ BEGIN
   OUTPUT REG_DESC S0
   CHECKTYPE REQUIRED
   WARNING "Registro assente"
-//    VALIDATE ZEROFILL_FUNC 3
   FLAGS "UZ"
 END
 
@@ -70,33 +68,9 @@ BEGIN
   FLAGS "D"
 END
 
-
-/*
-GROUPBOX DLG_NULL 30 4
-BEGIN
-    PROMPT 1 8 "Intervallo"
-END
-
-RADIOBUTTON DLG_NULL 12
-BEGIN
-    PROMPT 1 8 ""
-    HELP "Indicare l'intervallo di pagine da stampare"
-    ITEM "1|Tutto"       MESSAGE CLEAR,PAGINA_DA|DISABLE,PAGINA_DA
-    ITEM "2|Da pagina "  MESSAGE ENABLE,PAGINA_DA
-END
-
-NUMBER PAGINA_DA 5
-BEGIN
-    PROMPT 18 10 ""
-    HELP "Numero di pagina da cui iniziare la stampa"
-END
-
-*/
-
 GROUPBOX DLG_NULL 35 4
 BEGIN
   PROMPT 40 8 "Formato pagina"
-//  PROMPT 1 8 "Formato pagina"
 END
 
 LISTBOX STAMPA_WIDTH 4
@@ -121,31 +95,12 @@ BEGIN
   MESSAGE FALSE ENABLE,DATA_DA
 END
 
-/*
+ENDPAGE
-STRING F_CODVAL 3
-BEGIN
-  PROMPT 1 10 "Valuta "
-  USE %VAL
-  INPUT CODTAB F_CODVAL 
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_CODVAL CODTAB
-  CHECKTYPE NORMAL
-// Per ora non visibile
-  FLAGS "HU"
-END
-*/
 
-BUTTON DLG_PRINT 10 2
-BEGIN
- PROMPT -12 -1 "~Stampa"
- MESSAGE EXIT,K_ENTER
-END
 
-BUTTON DLG_QUIT 10 2
+TOOLBAR "" 0 0 0 2
-BEGIN
+
- PROMPT -22 -1 ""
+#include "printbar.h"
-END
 
 ENDPAGE