Patch level :4.0 504

Files correlati     :ca4.exe ca4200a.msk
Ricompilazione Demo : [ ]
Commento            :aggiunta opzione di eliminazione dei documenti generati al termine della stampa (eva braun request)


git-svn-id: svn://10.65.10.50/trunk@14362 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-10-04 09:25:15 +00:00
parent cf4685472a
commit 36e835a42c
3 changed files with 14 additions and 4 deletions

View File

@ -92,7 +92,7 @@ public:
void delete_cespi_docs(); void delete_cespi_docs();
TRiga_documento& cerca_riga(TDocumento& doc_cesp, const TString& idcesp, const TString& codcms) const; TRiga_documento& cerca_riga(TDocumento& doc_cesp, const TString& idcesp, const TString& codcms) const;
void elabora_docs(); void elabora_docs();
void stampa_docs(); bool stampa_docs();
}; };
//Calcolo % utilizzo del cespite nella commessa //Calcolo % utilizzo del cespite nella commessa
@ -368,7 +368,7 @@ void TCalc_cesp_cms::elabora_docs()
} }
void TCalc_cesp_cms::stampa_docs() bool TCalc_cesp_cms::stampa_docs()
{ {
//setta la testata del form //setta la testata del form
@ -403,6 +403,8 @@ void TCalc_cesp_cms::stampa_docs()
curform.setfilter(filtro); curform.setfilter(filtro);
_form->print(); _form->print();
return true;
} }
@ -427,7 +429,7 @@ bool TCalc_cesp_cms::destroy()
{ {
delete _mask; delete _mask;
delete _form; delete _form;
return TRUE; return true;
} }
void TCalc_cesp_cms::main_loop() void TCalc_cesp_cms::main_loop()
@ -445,7 +447,9 @@ void TCalc_cesp_cms::main_loop()
break; break;
case K_ESC: case K_ESC:
stampa_docs(); if (stampa_docs() && !_mask->get_bool(F_DEFINITIVA))
//eventuale eliminazione dei documenti appena creati (richiesta di Eva Braun)
delete_cespi_docs();
break; break;
default: default:

View File

@ -25,3 +25,4 @@
#define F_DESCF 224 #define F_DESCF 224
#define F_NUMDOCRIF 225 #define F_NUMDOCRIF 225
#define F_GENERA_DOC 226 #define F_GENERA_DOC 226
#define F_DEFINITIVA 227

View File

@ -85,6 +85,11 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BOOLEAN F_DEFINITIVA
BEGIN
PROMPT 1 5 "Stampa definitiva (i documenti generati non saranno eliminati dopo la stampa)"
END
STRING F_DA_IDCESPITE 10 STRING F_DA_IDCESPITE 10
BEGIN BEGIN
PROMPT 1 6 "Dal cespite " PROMPT 1 6 "Dal cespite "