Patch level : 10.0 patch 767

Files correlati     : cg4.exe cg5.exe
Ricompilazione Demo : [ ]
Commento            :

Aggiunto conto opzionale per il giroconto dell'utile o della perdita sui parametri ditta e sulla chisura e apertura conti

Dalla versione 3.2


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

cg/cg4600.cpp

@@ -26,7 +26,7 @@ class TApertura_chiusura : public TSkeleton_application
   TSaldo_agg*     _sld;
   TSaldo*         _sale;   
   TProgind*       _prog;  
-  TConto          _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente;
+  TConto          _tcbilch,_tcproper,_tcbilap,_tcutilp,_tcperdp,_tcutile,_tcperde, _conto_corrente, _tcacutp;
   TEsercizi_contabili* _esc;
 
   real    _saldo, _totale_saldo, _capitale_netto;
@@ -436,9 +436,9 @@ bool TApertura_chiusura::set()
 {
   TMask m("cg4600a");
   KEY     tasto;
-  int     gbilch, cbilch , gproper, cproper, gbilap, cbilap, gutilp;
+  int     gbilch, cbilch , gproper, cproper, gbilap, cbilap, gutilp, gacutp;
-  int     cutilp, gperdp, cperdp, gutile, cutile, gperde, cperde;
+  int     cutilp, gperdp, cperdp, gutile, cutile, gperde, cperde, cacutp;
-  long    sbilch, sproper, sbilap, sutilp, sperdp, sutile, sperde;
+  long    sbilch, sproper, sbilap, sutilp, sperdp, sutile, sperde, sacutp;
 
   TConfig conf(CONFIG_DITTA, "cg");
   m.set(F_CHIUSURA, conf.get("CoCaCh"));
@@ -482,6 +482,9 @@ bool TApertura_chiusura::set()
   m.set(F_PERDEG,  conf.get("CsPeCeG"));
   m.set(F_PERDEC,  conf.get("CsPeCeC"));
   m.set(F_PERDES,  conf.get("CsPeCeS"));
+	m.set(F_ACUTPG,  conf.get("CsAuCpG"));
+  m.set(F_ACUTPC,  conf.get("CsAuCpC"));
+  m.set(F_ACUTPS,  conf.get("CsAuCpS"));
           
   m.set_handler (F_DATAC,  mask_datac);
   m.set_handler (F_DATAAP, mask_dataap);
@@ -524,7 +527,10 @@ bool TApertura_chiusura::set()
     sutile      = m.get_long(F_UTILES);
     gperde      = m.get_int (F_PERDEG);
     cperde      = m.get_int (F_PERDEC);
-    sperde      = m.get_long(F_PERDES);         
+    sperde      = m.get_long(F_PERDES);
+		gacutp      = m.get_int (F_ACUTPG);
+    cacutp      = m.get_int (F_ACUTPC);
+    sacutp      = m.get_long(F_ACUTPS);
 
     _tcbilch.set (gbilch,cbilch,sbilch);
     _tcproper.set(gproper,cproper,sproper);
@@ -533,6 +539,7 @@ bool TApertura_chiusura::set()
     _tcperdp.set (gperdp,cperdp,sperdp);
     _tcutile.set (gutile,cutile,sutile);
     _tcperde.set (gperde,cperde,sperde);
+    _tcacutp.set (gacutp,cacutp,sacutp);
 
     long cicli = (_cur->items() * 8) + 4;
     _prog  = new TProgind(cicli,TR("Chiusura/Apertura conti in corso... Prego attendere"),FALSE);
@@ -1985,6 +1992,26 @@ void TApertura_chiusura::apertura_capitale_netto()
     _tcbilap.put(rmov2, TRUE);            // Contropartita
 
     registra_pn();
+		if (_tcacutp.ok())
+		{
+			j = 0;
+
+			compila_testata(_annoesap,_dataregap, EMPTY_STRING,_dataregap);  //Reg. 10 Apertura Capitale netto
+      _pn->curr().put(MOV_DESCR, "Giroconto Perdita Esercizio");     //Viene generato un movimento
+    
+			TRectype& rmov1 = _pn->cg(j);
+			numrig = 1;
+			rmov_proper(_annoesap,numrig,_dataregap,rmov1,_tcacutp,_capitale_netto,FALSE);
+			_tcperdp.put(rmov1, TRUE);            // Contropartita
+    
+			numrig++;
+			j++;
+			TRectype& rmov2 = _pn->cg(j);
+			rmov_proper(_annoesap,numrig,_dataregap,rmov2,_tcperdp,_capitale_netto,TRUE);
+			_tcacutp.put(rmov2, TRUE);            // Contropartita
+
+			registra_pn();
+		}
   }
   else
     if (_capitale_netto < ZERO)
@@ -2008,6 +2035,26 @@ void TApertura_chiusura::apertura_capitale_netto()
       _tcbilap.put(rmov2, TRUE);            // Contropartita
 
       registra_pn();
+			if (_tcacutp.ok())
+			{
+				j = 0;
+
+				compila_testata(_annoesap,_dataregap, EMPTY_STRING,_dataregap);  //Reg. 10 Apertura Capitale netto
+				 _pn->curr().put(MOV_DESCR, "Giroconto Utile Esercizio");     //Viene generato un movimento
+      
+				TRectype& rmov1 = _pn->cg(j);
+				numrig = 1;
+				rmov_proper(_annoesap,numrig,_dataregap,rmov1,_tcacutp,_capitale_netto,FALSE);
+				_tcutilp.put(rmov1, TRUE);            // Contropartita
+      
+				numrig++;
+				j++;
+				TRectype& rmov2 = _pn->cg(j);
+				rmov_proper(_annoesap,numrig,_dataregap,rmov2,_tcutilp,_capitale_netto,TRUE);
+				_tcacutp.put(rmov2, TRUE);            // Contropartita
+
+				registra_pn();
+			}
     }
 }
 

cg/cg4600.h

@@ -28,7 +28,10 @@
 #define F_PERDEG 125
 #define F_PERDEC 126
 #define F_PERDES 127
-#define F_ANNO 128
+#define F_ANNO   128
 #define F_ANNOCH 129
+#define F_ACUTPG 130
+#define F_ACUTPC 131
+#define F_ACUTPS 132
 
 #endif  // __CG4600_H

cg/cg4600a.uml

@@ -96,7 +96,7 @@ BEGIN
 END
 
 
-GROUPBOX DLG_NULL 60 10
+GROUPBOX DLG_NULL 60 11
 BEGIN 
   PROMPT 2 7 "@bCodici sottoconto"
 END
@@ -326,6 +326,38 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+NUMBER F_ACUTPG 3
+BEGIN
+  PROMPT 3 16 "Accantonamento utili              "
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
+  COPY DISPLAY F_BILCHG
+  OUTPUT F_ACUTPG GRUPPO
+  OUTPUT F_ACUTPC CONTO
+  OUTPUT F_ACUTPS SOTTOCONTO
+  INPUT GRUPPO F_ACUTPG 
+  INPUT CONTO  F_ACUTPC
+  INPUT SOTTOCONTO F_ACUTPS
+END
+
+NUMBER F_ACUTPC 3
+BEGIN
+  PROMPT 44 16 ""
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY USE F_UTILPG
+  COPY DISPLAY F_BILCHG
+  COPY OUTPUT F_ACUTPG
+  COPY INPUT F_ACUTPG
+  CHECKTYPE NORMAL
+END
+                             
+NUMBER F_ACUTPS 6
+BEGIN
+  PROMPT 51 16 ""
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY ALL F_ACUTPC
+END
+
 ENDPAGE
 
 ENDMASK

cg/cg5100a.h

@@ -39,6 +39,9 @@
 #define FLD_CSPECES 235
 #define FLD_CSPECEG 236
 #define FLD_CSPECEC 237
+#define FLD_CSAUCPS 238
+#define FLD_CSAUCPG 239
+#define FLD_CSAUCPC 240
 
 #define LST_RRFRAM  338
 #define CHK_RRMECO  339

cg/cg5100a.uml

@@ -723,6 +723,62 @@ BEGIN
   GROUP GROUP_CONTABILITA
 END
 
+NUMBER  FLD_CSAUCPG 3
+BEGIN
+  PROMPT 2 17 "Accantonamento utili    "
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY USE FLD_CSBICHG
+  COPY DISPLAY FLD_CSBICHG
+  OUTPUT FLD_CSAUCPG GRUPPO
+  OUTPUT FLD_CSAUCPC CONTO
+  OUTPUT FLD_CSAUCPS SOTTOCONTO
+  OUTPUT FLD_DCSAUCP DESCR
+  INPUT GRUPPO FLD_CSAUCPG 
+  INPUT CONTO FLD_CSAUCPC
+  INPUT SOTTOCONTO FLD_CSAUCPS
+  FIELD CsAuCpG
+  ADD RUN cg0 -0
+  GROUP GROUP_CONTABILITA
+END
+
+NUMBER  FLD_CSAUCPC 3
+BEGIN
+  PROMPT 33 17 ""
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY ALL FLD_CSAUCPG  
+  FIELD CsAuCpC
+  ADD RUN cg0 -0
+  GROUP GROUP_CONTABILITA
+END
+
+NUMBER  FLD_CSAUCPS 6
+BEGIN
+  PROMPT 40 17 ""
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY USE FLD_CSAUCPG  
+  COPY INPUT FLD_CSAUCPG  
+  COPY DISPLAY FLD_CSAUCPG  
+  OUTPUT FLD_CSAUCPG GRUPPO
+  OUTPUT FLD_CSAUCPC CONTO
+  OUTPUT FLD_CSAUCPS SOTTOCONTO
+  OUTPUT FLD_DCSAUCP DESCR
+  CHECKTYPE NORMAL
+  FIELD CsAuCpS
+  ADD RUN cg0 -0
+  GROUP GROUP_CONTABILITA
+END
+
+STRING FLD_DCSAUCP 50 25
+BEGIN
+  PROMPT 50 17 ""
+  HELP "Codice del conto patrimoniale per l'accantonamento utili"
+  COPY USE FLD_DCSBICH
+  INPUT DESCR FLD_DCSAUCP 
+  COPY DISPLAY FLD_DCSBICH
+  COPY OUTPUT FLD_CSAUCPG
+  ADD RUN cg0 -0
+  GROUP GROUP_CONTABILITA
+END
 
 ENDPAGE