Patch level : 2.0 552

Files correlati     : cm0.exe cm0100a.msk
Ricompilazione Demo : [ ]
Commento            :

CM20043
Avrei la necessità di effettuare una modifica sui parametri di stampa,
ovvero la possibilità di non stampare né i  totali x conto né i totali
per fase ma solo per commessa.


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

cm/cm0100.cpp

@@ -172,7 +172,7 @@ class TContixCdc : public TSkeleton_application
   int _currgruppo, _currconto, _oldgruppo, _oldconto;
   long _currsottoc, _oldsottoc;
   TString _currcms, _currfsc, _oldcms, _oldfsc;
-  bool _saltopagina, _headercms, _headerfsc;
+  bool _saltopagina, _stampa_totconti, _headercms, _headerfsc;
 
 protected:
   virtual bool create();
@@ -202,7 +202,7 @@ bool TContixCdc::create()
 {
   _mask = new TContixcdc_mask;
   _form = new TForm_contixcdc;
-  open_files(LF_RMOV, 0);
+  open_files(LF_TAB, LF_PCON, LF_RMOV, 0);
   return TSkeleton_application::create();
 }
 
@@ -246,7 +246,7 @@ void TContixCdc::print_sottoc()
 
 void TContixCdc::print_footer_gruppo()
 {                                            
-	if (!_t_gruppo._tot_periodo.is_zero())
+	if (!_t_gruppo._tot_periodo.is_zero() && _stampa_totconti)
 	{
 		TString16 key;
 	  key.format("%d|%d", _oldgruppo, _oldconto);
@@ -375,9 +375,10 @@ void TContixCdc::aggiorna_totali(const TImporto importo, const TDate data)
 
 void TContixCdc::main_loop()
 {
+  _mask->set(F_TOTCONTI, "X");  // Attiva stampa totali per conto
+
   while (_mask->run() == K_ENTER)
   {                       
-  	_saltopagina = _mask->get_bool(F_SALTOPAGINA);			// salto pagina a fine commessa
   	_codes		= _mask->get_int(F_ANNO);			// esercizio
   	_dataini 	= _mask->get_date(F_DATAINI);	// data iniziale
   	_datafin 	= _mask->get_date(F_DATAFIN);	// data finale
@@ -460,6 +461,10 @@ void TContixCdc::main_loop()
     _t_sottoc.azzera();
     _headercms = TRUE;
     _headerfsc = (ctrlfsc) ? TRUE : FALSE;
+
+   	_saltopagina = _mask->get_bool(F_SALTOPAGINA);			// salto pagina a fine commessa
+   	_stampa_totconti = _mask->get_bool(F_TOTCONTI);			
+    
     for (sortcur=0; sortcur.pos()<num; ++sortcur)    //scansione su tutte le righe di movimento
     { 
     	const TRectype rmovrec = sortcur.curr();

cm/cm0100a.h

@@ -17,4 +17,5 @@
 #define F_CONTOFIN      115
 #define F_SOTTOCFIN     116
 #define F_DESCRFIN      117
-#define F_SALTOPAGINA   118
+#define F_SALTOPAGINA   118
+#define F_TOTCONTI      119

cm/cm0100a.uml

@@ -17,9 +17,14 @@ ENDPAGE
 
 PAGE "Conti per CDC/Commessa" -1 -1 76 20
 
+GROUPBOX DLG_NULL 79 3
+BEGIN
+  PROMPT 1 0 "@bDitta"
+END
+
 NUMBER F_CODDITTA 5
 BEGIN
-  PROMPT 2 1 "Ditta             "
+  PROMPT 2 1 "Codice "
   FLAGS "FRD"
   USE LF_NDITTE KEY 1
   CHECKTYPE REQUIRED
@@ -32,10 +37,15 @@ END
 
 STRING F_RAGSOC 50
 BEGIN
-  PROMPT 2 2 "Ragione sociale   "
+  PROMPT 17 1 "Rag. Soc. "
   FLAGS "D"
 END
 
+GROUPBOX DLG_NULL 79 4
+BEGIN
+  PROMPT 1 3 "@bPeriodo"
+END
+
 NUMBER F_ANNO 4
 BEGIN
   PROMPT 2 4 "Codice esercizio  "
@@ -62,9 +72,14 @@ BEGIN
   PROMPT 50 5 "alla data "
 END
 
+GROUPBOX DLG_NULL 79 5
+BEGIN
+  PROMPT 1 7 "@bSelezione commesse"
+END
+
 STRING F_DACDC 20
 BEGIN
-  PROMPT 2 7 "Da CDC/Commessa   "
+  PROMPT 2 8 "Da CDC/Commessa   "
   FLAGS "UZ"
   USE CMS
   INPUT CODTAB F_DACDC
@@ -76,7 +91,7 @@ END
 
 STRING F_DAFSC 10
 BEGIN
-  PROMPT 50 7 "Da fase   "
+  PROMPT 50 8 "Da fase   "
   FLAGS "UZ"
   USE FSC
   INPUT CODTAB F_DAFSC
@@ -88,7 +103,7 @@ END
 
 STRING F_ACDC 20
 BEGIN
-  PROMPT 2 8 "A CDC/Commessa    "
+  PROMPT 2 9 "A CDC/Commessa    "
   FLAGS "UZ"
   COPY USE F_DACDC
   INPUT CODTAB F_ACDC
@@ -99,7 +114,7 @@ END
 
 STRING F_AFSC 10
 BEGIN
-  PROMPT 50 8 "A fase    "
+  PROMPT 50 9 "A fase    "
   FLAGS "UZ"
   COPY USE F_DAFSC
   INPUT CODTAB F_AFSC
@@ -108,14 +123,24 @@ BEGIN
   CHECKTYPE SEARCH
 END
 
+BOOLEAN F_SALTOPAGINA
+BEGIN
+   PROMPT 2 10 "Salto pagina a fine commessa"
+END
+
+GROUPBOX DLG_NULL 79 7
+BEGIN
+  PROMPT 1 12 "@bSelezione conti"
+END
+
 NUMBER F_GRUPPOINI 3
 BEGIN
-  PROMPT 2 10 "Da Gruppo - Conto - Sottoconto "
+  PROMPT 2 13 "Da Gruppo - Conto - Sottoconto "
 END
 
 NUMBER F_CONTOINI 3
 BEGIN
-  PROMPT 39 10 ""
+  PROMPT 39 13 ""
   USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
   INPUT GRUPPO F_GRUPPOINI
   INPUT CONTO F_CONTOINI
@@ -132,7 +157,7 @@ END
 
 NUMBER F_SOTTOCINI 6
 BEGIN
-  PROMPT 46 10 ""
+  PROMPT 46 13 ""
   USE LF_PCON SELECT SOTTOCONTO!=""
   INPUT GRUPPO F_GRUPPOINI
   INPUT CONTO F_CONTOINI
@@ -146,11 +171,12 @@ BEGIN
   OUTPUT F_SOTTOCINI SOTTOCONTO
   OUTPUT F_DESCRINI DESCR
   CHECKTYPE NORMAL
+  ADD RUN cg0 -0
 END
 
 STRING F_DESCRINI 50
 BEGIN
-  PROMPT 2 11 "Descrizione       "
+  PROMPT 2 14 "Descrizione       "
   USE LF_PCON KEY 2
   CHECKTYPE NORMAL
   INPUT DESCR F_DESCRINI
@@ -159,16 +185,17 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCINI
+  ADD RUN cg0 -0
 END
 
 NUMBER F_GRUPPOFIN 3
 BEGIN
-  PROMPT 2 12 "A  Gruppo - Conto - Sottoconto "
+  PROMPT 2 15 "A  Gruppo - Conto - Sottoconto "
 END
 
 NUMBER F_CONTOFIN 3
 BEGIN
-  PROMPT 39 12 ""
+  PROMPT 39 15 ""
   USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
   INPUT GRUPPO F_GRUPPOFIN
   INPUT CONTO F_CONTOFIN
@@ -185,7 +212,7 @@ END
 
 NUMBER F_SOTTOCFIN 6
 BEGIN
-  PROMPT 46 12 ""
+  PROMPT 46 15 ""
   USE LF_PCON SELECT SOTTOCONTO!=""
   INPUT GRUPPO F_GRUPPOFIN
   INPUT CONTO F_CONTOFIN
@@ -200,11 +227,12 @@ BEGIN
   OUTPUT F_DESCRFIN DESCR
   CHECKTYPE NORMAL
   WARNING "Sottoconto inesistente o mancante"
+  ADD RUN cg0 -0
 END
 
 STRING F_DESCRFIN 50
 BEGIN
-  PROMPT 2 13 "Descrizione       "
+  PROMPT 2 16 "Descrizione       "
   USE LF_PCON KEY 2
   CHECKTYPE NORMAL
   INPUT DESCR F_DESCRFIN
@@ -213,11 +241,12 @@ BEGIN
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCFIN
+  ADD RUN cg0 -0
 END
 
-BOOLEAN F_SALTOPAGINA
+BOOLEAN F_TOTCONTI
 BEGIN
-   PROMPT 2 15 "Salto pagina a fine commessa"
+   PROMPT 2 17 "Stampa totali per conto"
 END
 
 ENDPAGE