Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
personalizzazione dinamica


git-svn-id: svn://10.65.10.50/trunk@20325 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-04-12 10:20:47 +00:00
parent 608dedf728
commit bccbb6c7e7
3 changed files with 26 additions and 5 deletions

View File

@ -147,7 +147,7 @@ class TDistribuzione_f24 : public TSkeleton_application
virtual bool check_autorization() const {return false;}
protected:
virtual const char * extra_modules() const {return "cg";}
virtual const char * extra_modules() const {return "rs";}
virtual bool create();
void elabora();
@ -266,8 +266,8 @@ void TDistribuzione_f24::elabora()
bool TDistribuzione_f24::create()
{
//se non ha la CG non può proseguire
if (!has_module(CGAUT))
//se non ha il modulo RS non può proseguire
if (!has_module(RSAUT))
return error_box(TR("Modulo non autorizzato"));
return TSkeleton_application::create();

View File

@ -216,6 +216,7 @@ bool TImporta_movana::transfer(const TFilename& file)
const char sep_field = _msk->get(F_SEP_FIELD)[0]; //separatore dei campi
const char sep_dec = _msk->get(F_SEP_DEC)[0]; //separatore decimali
//parametri del movana
const long numreg = _msk->get_long(F_NUMREGCA);
const int annoes = _msk->get_int(F_ANNOES);
const TDate datareg = _msk->get_date(F_DATAREG);
const TDate datacomp = _msk->get_date(F_DATACOMP);
@ -241,6 +242,14 @@ bool TImporta_movana::transfer(const TFilename& file)
//-------
//movimento analitico che sarà generato
TAnal_mov movana;
//il movana esisteva giŕ o č nuovo?
const int err = movana.read(numreg);
//se esisteva giŕ deve accoppare tutte le righe visto che le sostituirŕ
if (err == NOERR)
movana.destroy_rows(LF_RMOVANA);
else
movana.put(MOVANA_NUMREG, numreg);
movana.put(MOVANA_DATAREG, datareg);
movana.put(MOVANA_DATACOMP, datacomp);
movana.put(MOVANA_DATAFCOMP, datafcomp);
@ -353,7 +362,7 @@ bool TImporta_movana::transfer(const TFilename& file)
const real totimp = totale.valore();
//controllo sul totmov in caso di riscrittura
if (ori_totimp != totimp || ori_totsez != totsez)
if (ori_totimp != totimp || (ori_totimp == ZERO && ori_totsez != totsez))
{
TString str_totimp;
str_totimp << totimp;

View File

@ -146,9 +146,11 @@ BEGIN
PROMPT 2 15 "Totale movimento "
END
STRING F_TOTMOV_SEZ 1
LIST F_TOTMOV_SEZ 1 5
BEGIN
PROMPT 40 15 ""
ITEM "D|Dare"
ITEM "A|Avere"
END
STRING DLG_PROFILE 50
@ -218,6 +220,16 @@ BEGIN
PROMPT 1 11 " e con le righe importate."
END
TEXT -1
BEGIN
PROMPT 1 12 "@bTracciato record file da importare"
END
TEXT -1
BEGIN
PROMPT 1 13 "COMMESSA ; SEDE ; IMPORTO ; SEZIONE ; GRUPPO ; CONTO ; SOTTOCONTO"
END
ENDPAGE
ENDMASK