root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 2.0 552

Browse Source 
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
This commit is contained in:
guy 2003-08-08 12:32:44 +00:00
parent 6cea04205e
commit c2098e7eab
3 changed files with 56 additions and 21 deletions

13
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();

3
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

61
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