Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :sistemate le maschere del collegamento CE/CG


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

ce/ce0400a.h

@@ -54,6 +54,10 @@
 #define F_VEND_CESP_SO 242
 #define F_VEND_CESP_D  243
 
+#define F_TIPOAMM      245
+#define F_MOVDETT      246
+#define F_ANNOAMM      247
+
 //sheet elenco files personalizzati e relative righe
 #define F_USER        300
 

ce/ce0400a.uml

@@ -181,18 +181,38 @@ BEGIN
   ITEM "X|Su Conto Cespite"
     MESSAGE CLEAR,F_VEND_CESP_GR|CLEAR,F_VEND_CESP_CO|CLEAR,F_VEND_CESP_SO|CLEAR,F_VEND_CESP_D
   FIELD COR5PM
+  FLAGS "Z"
+  GROUP 9
+END
+
+LIST F_TIPOAMM 15
+BEGIN
+  PROMPT 2 5 "Tipo ammortamenti   "
+  ITEM "1|Fiscali"
+  ITEM "2|Civilistici"
+  FIELD TPAMM
+  GROUP 9
+END
+
+LIST F_MOVDETT 50
+BEGIN
+  PROMPT 2 6 "Dettaglio movimenti "
+  ITEM "0|Non dettagliati"
+  ITEM "1|Per cespite con conto della categoria"
+  ITEM "2|Per cespite con sottoconto = codice cespite"
+  FIELD MOVDETT
   GROUP 9
 END
 
 GROUPBOX DLG_NULL 78 7
 BEGIN
-  PROMPT 1 6 "@B                             Cod.             Causali"
+  PROMPT 1 7 "@B                             Cod.             Causali"
   FLAGS "R"
 END
 
 STRING F_ELIMCESP 3
 BEGIN
-  PROMPT 2 7 "Eliminazione cespite           "
+  PROMPT 2 8 "Eliminazione cespite           "
   FIELD COAUEL
   USE LF_CAUSALI SELECT ((SOSPESO!="X")&&(TIPODOC=="")&&(COLLCESP==""))
   INPUT CODCAUS F_ELIMCESP
@@ -207,7 +227,7 @@ END
 
 STRING F_D_ELIMCESP 50 35
 BEGIN
-  PROMPT 40 7 ""
+  PROMPT 40 8 ""
   USE LF_CAUSALI KEY 2
   INPUT DESCR F_D_ELIMCESP
   DISPLAY "Descrizione@50" DESCR
@@ -220,7 +240,7 @@ END
 
 STRING F_RIL_DIFF 3
 BEGIN
-  PROMPT 2 8 "Rilevazione differenze         "
+  PROMPT 2 9 "Rilevazione differenze         "
   FIELD COAUDI
   COPY USE F_ELIMCESP
   INPUT CODCAUS F_RIL_DIFF
@@ -234,7 +254,7 @@ END
 
 STRING F_D_RIL_DIFF 50 35
 BEGIN
-  PROMPT 40 8 ""
+  PROMPT 40 9 ""
   COPY USE F_D_ELIMCESP
   INPUT DESCR F_D_RIL_DIFF
   COPY DISPLAY F_D_ELIMCESP
@@ -246,7 +266,7 @@ END
 
 STRING F_RIL_QUOT 3
 BEGIN
-  PROMPT 2 9 "Rilevazione quote ammortamento "
+  PROMPT 2 10 "Rilevazione quote ammortamento "
   FIELD COAUQU
   COPY USE F_ELIMCESP
   INPUT CODCAUS F_RIL_QUOT
@@ -260,7 +280,7 @@ END
 
 STRING F_D_RIL_QUOT 50 35
 BEGIN
-  PROMPT 40 9 ""
+  PROMPT 40 10 ""
   COPY USE F_D_ELIMCESP
   INPUT DESCR F_D_RIL_QUOT
   COPY DISPLAY F_D_ELIMCESP
@@ -272,7 +292,7 @@ END
 
 STRING F_RIL_PLUS 3
 BEGIN
-  PROMPT 2 10 "Rilevazione plusvalenze        "
+  PROMPT 2 11 "Rilevazione plusvalenze        "
   FIELD COAUPL
   COPY USE F_ELIMCESP
   INPUT CODCAUS F_RIL_PLUS
@@ -286,7 +306,7 @@ END
 
 STRING F_D_RIL_PLUS 50 35
 BEGIN
-  PROMPT 40 10 ""
+  PROMPT 40 11 ""
   COPY USE F_D_ELIMCESP
   INPUT DESCR F_D_RIL_PLUS
   COPY DISPLAY F_D_ELIMCESP
@@ -298,7 +318,7 @@ END
 
 STRING F_RIL_MIN 3
 BEGIN
-  PROMPT 2 11 "Rilevazione minusvalenze       "
+  PROMPT 2 12 "Rilevazione minusvalenze       "
   FIELD COAUM
   COPY USE F_ELIMCESP
   INPUT CODCAUS F_RIL_MIN
@@ -312,7 +332,7 @@ END
 
 STRING F_D_RIL_MIN 50 35
 BEGIN
-  PROMPT 40 11 ""
+  PROMPT 40 12 ""
   COPY USE F_D_ELIMCESP
   INPUT DESCR F_D_RIL_MIN
   COPY DISPLAY F_D_ELIMCESP

ce/ce4400.cpp

@@ -129,7 +129,7 @@ void TTrasf_mov_ce_cg::elabora()
 		//Assoc_array Categoria-QammTot-QperseTot
 		TAssoc_array quote_per_cat;
 
-		TProgind pi(nrec, TR("Trasferimento in corso..."), true, true);
+		TProgind pi(nrec, TR("Ricalcolo ammortamenti in corso..."), true, true);
 		for (int i = 0; cespiti.move_to(i); i++)
 		{
 			if (!pi.addstatus(1))
@@ -141,6 +141,7 @@ void TTrasf_mov_ce_cg::elabora()
 
 			//calcola gli ammortamenti di tutti i cespiti; SOLO situazione FISCALE (tiposit = 1)
 			//la calc_amm pensa da sola a calcolare gli ammortamenti solo per i cespiti validi
+      //l'ultimo parametro e' true x' il calcolo viene fatto in memoria!
 		  cespite.calc_amm(1, datacalc, false, true);
 
 			//controlla le quote del cespite in questione su AMMCE

ce/cemenu.men

@@ -79,12 +79,7 @@ Caption = "Collegamenti contabili"
 Picture = <ce00>
 Module = 11
 Flags = ""
-Item_01 = "Parametri collegamento contabilità", "ce0 -3", ""
+Item_01 = "Trasferimento movimenti", "ce4 -3", "F"
-Item_02 = "Colleg. contabilità cat/ces", "", ""
-Item_03 = "St. contr. param. colleg. contab.", "", ""
-Item_04 = "St. contr. colleg. contab. cat/ces", "", ""
-Item_05 = "Trasferimento movimenti provvisori", "", ""
-Item_06 = "Trasferimento movimenti definitivi", "", ""
 
 [CEMENU_009]
 Caption = "Operazioni giornaliere e fine esercizio"

ce/cetbcac.h

@@ -31,3 +31,25 @@
 #define GR_MAT        130
 #define GR_IMMAT      131
 #define GR_PLURI      132
+
+//pagina collegamenti con la contabilta'
+#define F_IMM_GR      201
+#define F_IMM_CO      202
+#define F_IMM_SOT     203
+#define F_IMM_DES     204
+#define F_FON_GR      205
+#define F_FON_CO      206
+#define F_FON_SOT     207
+#define F_FON_DES     208
+#define F_QNOR_GR     209
+#define F_QNOR_CO     210
+#define F_QNOR_SOT    211
+#define F_QNOR_DES    212
+#define F_QANT_GR     213
+#define F_QANT_CO     214
+#define F_QANT_SOT    215
+#define F_QANT_DES    216
+#define F_QACC_GR     217
+#define F_QACC_CO     218
+#define F_QACC_SOT    219
+#define F_QACC_DES    220

ce/cetbcac.uml

@@ -239,5 +239,340 @@ END
 
 ENDPAGE
 
+PAGE "Collegamento contabilita'" -1 -1 60 6
+
+GROUPBOX DLG_NULL 74 7
+BEGIN
+  PROMPT 1 1 "@bConti per attivita'   Gruppo     Conto      Sottoconto      Descrizione"
+  FLAGS "R"
+END
+
+NUMBER F_IMM_GR 3
+BEGIN
+  PROMPT 2 2 "Immobilizzo  "
+  FIELD S1[1,3]
+  FLAGS "Z"
+  USE LF_PCON SELECT CONTO=""
+  INPUT GRUPPO F_IMM_GR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_IMM_GR GRUPPO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_IMM_CO 3
+BEGIN
+  PROMPT 22 2 ""
+  FIELD S1[4,6]
+  FLAGS "Z"
+  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
+  COPY INPUT F_IMM_GR
+  INPUT CONTO F_IMM_CO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Ind.Bil." INDBIL
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_IMM_GR
+  OUTPUT F_IMM_CO CONTO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_IMM_SOT 6
+BEGIN
+  PROMPT 29 2 ""
+  FIELD S1[7,12]
+  FLAGS "Z"
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  COPY INPUT F_IMM_CO
+  INPUT SOTTOCONTO F_IMM_SOT
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_IMM_CO
+  OUTPUT F_IMM_SOT SOTTOCONTO
+  OUTPUT F_IMM_DES DESCR  
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_IMM_DES 50 32
+BEGIN
+  PROMPT 39 2 ""
+  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+  INPUT DESCR F_IMM_DES
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_IMM_SOT
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_FON_GR 3
+BEGIN
+  PROMPT 2 3 "Fondo        "
+  FIELD S1[13,15]
+  FLAGS "Z"
+  USE LF_PCON SELECT CONTO=""
+  INPUT GRUPPO F_FON_GR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_FON_GR GRUPPO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_FON_CO 3
+BEGIN
+  PROMPT 22 3 ""
+  FIELD S1[16,18]
+  FLAGS "Z"
+  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
+  COPY INPUT F_FON_GR
+  INPUT CONTO F_FON_CO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Ind.Bil." INDBIL
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_FON_GR
+  OUTPUT F_FON_CO CONTO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_FON_SOT 6
+BEGIN
+  PROMPT 29 3 ""
+  FIELD S1[19,24]
+  FLAGS "Z"
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  COPY INPUT F_FON_CO
+  INPUT SOTTOCONTO F_FON_SOT
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_FON_CO
+  OUTPUT F_FON_SOT SOTTOCONTO
+  OUTPUT F_FON_DES DESCR  
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_FON_DES 50 32
+BEGIN
+  PROMPT 39 3 ""
+  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+  INPUT DESCR F_FON_DES
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_FON_SOT
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_QNOR_GR 3
+BEGIN
+  PROMPT 2 4 "Amm. Normali "
+  FIELD S1[25,27]
+  FLAGS "Z"
+  USE LF_PCON SELECT CONTO=""
+  INPUT GRUPPO F_QNOR_GR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_QNOR_GR GRUPPO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QNOR_CO 3
+BEGIN
+  PROMPT 22 4 ""
+  FIELD S1[28,30]
+  FLAGS "Z"
+  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
+  COPY INPUT F_QNOR_GR
+  INPUT CONTO F_QNOR_CO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Ind.Bil." INDBIL
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QNOR_GR
+  OUTPUT F_QNOR_CO CONTO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QNOR_SOT 6
+BEGIN
+  PROMPT 29 4 ""
+  FIELD S1[31,36]
+  FLAGS "Z"
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  COPY INPUT F_QNOR_CO
+  INPUT SOTTOCONTO F_QNOR_SOT
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QNOR_CO
+  OUTPUT F_QNOR_SOT SOTTOCONTO
+  OUTPUT F_QNOR_DES DESCR  
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_QNOR_DES 50 32
+BEGIN
+  PROMPT 39 4 ""
+  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+  INPUT DESCR F_QNOR_DES
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_QNOR_SOT
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_QANT_GR 3
+BEGIN
+  PROMPT 2 5 "Amm. Anticip."
+  FIELD S1[37,39]
+  FLAGS "Z"
+  USE LF_PCON SELECT CONTO=""
+  INPUT GRUPPO F_QANT_GR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_QANT_GR GRUPPO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QANT_CO 3
+BEGIN
+  PROMPT 22 5 ""
+  FIELD S1[40,42]
+  FLAGS "Z"
+  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
+  COPY INPUT F_QANT_GR
+  INPUT CONTO F_QANT_CO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Ind.Bil." INDBIL
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QANT_GR
+  OUTPUT F_QANT_CO CONTO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QANT_SOT 6
+BEGIN
+  PROMPT 29 5 ""
+  FIELD S1[43,48]
+  FLAGS "Z"
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  COPY INPUT F_QANT_CO
+  INPUT SOTTOCONTO F_QANT_SOT
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QANT_CO
+  OUTPUT F_QANT_SOT SOTTOCONTO
+  OUTPUT F_QANT_DES DESCR  
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_QANT_DES 50 32
+BEGIN
+  PROMPT 39 5 ""
+  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+  INPUT DESCR F_QANT_DES
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_QANT_SOT
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_QACC_GR 3
+BEGIN
+  PROMPT 2 6 "Amm. Accel.  "
+  FIELD S1[49,51]
+  FLAGS "Z"
+  USE LF_PCON SELECT CONTO=""
+  INPUT GRUPPO F_QACC_GR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_QACC_GR GRUPPO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QACC_CO 3
+BEGIN
+  PROMPT 22 6 ""
+  FIELD S1[52,54]
+  FLAGS "Z"
+  USE LF_PCON SELECT ((CONTO!="")&&(SOTTOCONTO="")&&((INDBIL==1)||(INDBIL==2)))
+  COPY INPUT F_QACC_GR
+  INPUT CONTO F_QACC_CO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Ind.Bil." INDBIL
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QACC_GR
+  OUTPUT F_QACC_CO CONTO
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_QACC_SOT 6
+BEGIN
+  PROMPT 29 6 ""
+  FIELD S1[55,60]
+  FLAGS "Z"
+  USE LF_PCON SELECT SOTTOCONTO!=""
+  COPY INPUT F_QACC_CO
+  INPUT SOTTOCONTO F_QACC_SOT
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" DESCR
+  COPY OUTPUT F_QACC_CO
+  OUTPUT F_QACC_SOT SOTTOCONTO
+  OUTPUT F_QACC_DES DESCR  
+  ADD RUN CG0 -0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_QACC_DES 50 32
+BEGIN
+  PROMPT 39 6 ""
+  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
+  INPUT DESCR F_QACC_DES
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_QACC_SOT
+  ADD RUN CG0 -0
+  CHECKTYPE NORMAL
+END
+
+ENDPAGE
+
 ENDMASK