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

*** empty log message ***

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@11874 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2004-03-16 20:40:21 +00:00
parent a3e0a7e44b
commit e72bbf905a
22 changed files with 48 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ce/ce3.cpp
View File

@ -18,4 +18,3 @@ int main(int argc,char** argv)
}
return 0;
}

16
ce/ce3100.cpp
View File

@ -19,7 +19,7 @@
#include "ce3100.h"
#include "celib.h"
#include "..\cg\cglib01.h"
#include "../cg/cglib01.h"
class TForm_registroce : public TForm_cespiti
{
@ -226,7 +226,7 @@ void TRegistro_cespiti::main_loop()
TRectype darec(LF_CESPI),arec(LF_CESPI);
TString filtro;
// filtro sulla attivitá e categorie
const int esercizio = _mask->get_int(F_ESERCIZIO);
// const int esercizio = _mask->get_int(F_ESERCIZIO);
const TString4 catini = _mask->get(F_CATINI);
const TString4 catfin = _mask->get(F_CATFIN);
darec.put(CESPI_CODCGRA, _mask->get(F_GRUPPO));
@ -236,8 +236,8 @@ void TRegistro_cespiti::main_loop()
arec.put(CESPI_CODSPA, _mask->get(F_SPECIE));
arec.put(CESPI_CODCAT, catfin);
// filtro sulle date di acquisizione e alienazione
const TDate datainizio = _mask->get(F_DATAINIZIO);
const TDate datafine = _mask->get(F_DATAFINE);
const TDate datainizio(_mask->get(F_DATAINIZIO));
const TDate datafine(_mask->get(F_DATAFINE));
filtro.format("(ANSI(%d->DTCOMP)<=\"",LF_CESPI) << datafine.string(ANSI) << "\")";
filtro << format(" && ((ANSI(%d->DTALIEN)>=\"",LF_CESPI) << datainizio.string(ANSI);
filtro << format("\") || (%d->DTALIEN==\"\"))",LF_CESPI);
@ -334,7 +334,7 @@ void TRegistro_cespiti::costruisci_cespite(int cat, const real& spese)
int es;
TString4 gr, sp;
ditta_cespiti().get_attivita(es, gr, sp);
const TDate datafine = _mask->get(F_DATAFINE);
const TDate datafine(_mask->get(F_DATAFINE));
TString& idcespite = (cat == 91) ? _idspese5 : _idspese25;
@ -464,7 +464,7 @@ void TRegistro_cespiti::aggiorna_bollato()
//aggiorna la tabella REG (registro cespiti)
{
const TDate datafine = _mask->get(F_DATAFINE);
const TDate datafine(_mask->get(F_DATAFINE));
TString16 codtab;
codtab.format("%4d%s", datafine.year(), (const char*)_mask->get(F_CODREG));
TTable reg("REG");
@ -664,7 +664,7 @@ void TRegistro_cespiti::print_movimenti()
if (idret.not_empty())
continue;
const TDate dtmov = recmovce.get(MOVCE_DTMOV);
const TDate dtmov = recmovce.get_date(MOVCE_DTMOV);
const int esmov = _esc.date2esc(dtmov);
if (_mask->get_int(F_ESERCIZIO) != esmov)
continue;
@ -750,7 +750,7 @@ void TRegistro_cespiti::print_valorifinali()
TString80 key; key.format("%04d",_mask->get_int(F_ESERCIZIO));
const TRectype& cce = cache().get("CCE", key);
long giorni = (_mask->get_date(F_DATAFINE) - _mask->get_date(F_DATAINIZIO) + 1);
key.format(FR("Amm.to ragguagliato all'esercizio di %3d giorni su %3d"),giorni, cce.get("I3"));
key.format(FR("Amm.to ragguagliato all'esercizio di %3d giorni su %3d"),giorni, cce.get_int("I3"));
section.find_field(FR_FE_MSG2).set(key);
section.find_field(FR_FE_MSG2).enable(msg);
msg = _form->cursor()->curr(LF_AMMCE).get_bool(AMMCE_MSG03);

14
ce/ce3200.cpp
View File

@ -4,7 +4,7 @@
#include <recarray.h>
#include <utility.h>
#include "..\cg\cglib01.h"
#include "../cg/cglib01.h"
#include "ce3.h"
#include "ce3200a.h"
#include "ce3200.h"
@ -132,7 +132,7 @@ void TStampa_storico::print_header( const int tipo )
_form->find_field('H', odd_page, FF_D_GRUPPO).set(_mask->get(F_D_GRUPPO));
_form->find_field('H', odd_page, FF_SPECIE).set(_mask->get(F_SPECIE));
_form->find_field('H', odd_page, FF_D_SPECIE).set(_mask->get(F_D_SPECIE));
TDate inies = _mask->get(F_INIZIO_ES);
TDate inies(_mask->get(F_INIZIO_ES));
--inies;
_form->find_field('H', odd_page, FF_DATASIT).set(inies.string());
@ -255,7 +255,7 @@ void TStampa_storico::print_percespite( const int tipo)
if (!errore) do //se non c'é incongruenza di date procede alla stampa righe 2
{
TDate datamov = rel.curr(LF_MOVCE).get("DTMOV");
TDate datamov = rel.curr(LF_MOVCE).get_date("DTMOV");
if (datamov >= inies) break;
bool ammven = FALSE;
@ -489,7 +489,7 @@ void TStampa_storico::print_percespite( const int tipo)
if (scrivo_unarigatre) //stampa la riga3 solo se ha trovato almeno una cosa da stampare
{
TDate inies = _mask->get(F_INIZIO_ES);
TDate inies(_mask->get(F_INIZIO_ES));
--inies;
_form->find_field('B', last_page, FF_DATASIT).set(inies.string());
@ -585,12 +585,10 @@ void TStampa_storico::main_loop()
cursore.freeze(FALSE);
}
}
int ce3200(int argc, char* argv[])
{
TStampa_storico a;
a.run(argc,argv,TR("Stampa schede cespiti"));
return 0;
}
}

2
ce/ce3200.h
View File

@ -61,4 +61,4 @@
#define FF_TALIACC 75
#define FF_TQNOR 76
#define FF_TQANT 77
#define FF_TQACC 78
#define FF_TQACC 78

2
ce/ce3200a.h
View File

@ -18,4 +18,4 @@
#define F_INIZIO_ES 116
#define F_FINE_ES 117
#define F_TIPOSTAMPA 118
#define F_D_GRUPPO 119
#define F_D_GRUPPO 119

22
ce/ce3300.cpp
View File

@ -6,7 +6,7 @@
#include "ce3.h"
#include "celib.h"
#include "..\cg\cglib01.h"
#include "../cg/cglib01.h"
#include "ce2101.h"
#include "ce3300a.h"
@ -335,29 +335,29 @@ void TStampa_prospetto::aggiorna_totali(TCursor& cur, const int tipo, TTipo_cesp
{
// valori della riga 1 (dipendenti da tipo solo le rivgf/rivgc)
TRectype& recsalce = cur.curr(LF_SALCE);
real csto = recsalce.get(SALCE_CSTO);
real csto = recsalce.get_real(SALCE_CSTO);
if (tipo == 1)
{
real vnonamm1 = recsalce.get(SALCE_VNONAMM);
real vnonamm1 = recsalce.get_real(SALCE_VNONAMM);
_cat._tot_csto += csto - vnonamm1;
}
else
_cat._tot_csto += csto;
real riv75 = recsalce.get(SALCE_RIV75);
real riv83 = recsalce.get(SALCE_RIV83);
real riv90 = recsalce.get(SALCE_RIV90);
real riv91 = recsalce.get(SALCE_RIV91);
real riv75 = recsalce.get_real(SALCE_RIV75);
real riv83 = recsalce.get_real(SALCE_RIV83);
real riv90 = recsalce.get_real(SALCE_RIV90);
real riv91 = recsalce.get_real(SALCE_RIV91);
if (tipo == 1)
{
real rivgf = recsalce.get(SALCE_RIVGF);
real rivgf = recsalce.get_real(SALCE_RIVGF);
_cat._tot_riv += riv75 + riv83 + riv90 + riv91 + rivgf;
}
else
{
real rivgc = recsalce.get(SALCE_RIVGC);
real rivgc = recsalce.get_real(SALCE_RIVGC);
_cat._tot_riv += riv75 + riv83 + riv90 + riv91 + rivgc;
}
@ -389,7 +389,7 @@ void TStampa_prospetto::aggiorna_totali(TCursor& cur, const int tipo, TTipo_cesp
const TRectype& mov = curmovce.curr();
const TRectype& amm = curmovce.curr(LF_MOVAM);
const TRectype& amv = curmovce.curr(LF_AMMMV);
const TDate dtmov = mov.get(MOVCE_DTMOV);
const TDate dtmov = mov.get_date(MOVCE_DTMOV);
if (dtmov >= _dataini && dtmov <= _datafine)
{
const TString8 codmov = mov.get(MOVCE_CODMOV);
@ -590,4 +590,4 @@ int ce3300(int argc, char* argv[])
TStampa_prospetto a;
a.run(argc,argv,TR("Stampa prospetto cespiti"));
return 0;
}
}

2
ce/ce3300.h
View File

@ -69,4 +69,4 @@
#define FR_TG_AMMACC 75
#define FR_TG_AMMANT 76
#define FR_TG_FONDBIL 77
#define FR_TG_RESBIL 78
#define FR_TG_RESBIL 78

2
ce/ce3300a.h
View File

@ -13,4 +13,4 @@
#define F_SITFISC 120
#define F_SITCIV 121
#define F_SITGEST 122
#define F_ORDINA 123
#define F_ORDINA 123

6
ce/ce3400.cpp
View File

@ -155,7 +155,7 @@ const TString& TTotalizer::get(const char* name)
void TTotalizer::add_num(const TRectype& rec, const char* name, char segno)
{
real num = rec.get(name);
real num = rec.get_real(name);
if (!num.is_zero())
{
if (segno == '-')
@ -314,7 +314,7 @@ void TPR_app::print_movimenti(const TRectype& salini)
_tot_grp += tot;
}
real valore = salini.get(SALCE_CSTO);
real valore = salini.get_real(SALCE_CSTO);
valore += totces.get_num(SALCE_RIV75);
valore += totces.get_num(SALCE_RIV83);
valore += totces.get_num(SALCE_RIV90);
@ -342,7 +342,7 @@ void TPR_app::print_total(TTotalizer& tot, const char* prompt)
body.find_field(1).set_prompt(prompt);
TForm_item& field = body.find_field(2);
const real costo = tot.get(SALCE_CSTO);
const real costo(tot.get(SALCE_CSTO));
if (!costo.is_zero())
{
field.show();

1
ce/ce3400a.h
View File

@ -22,4 +22,3 @@
#define F_SITUAZIONE 120
#define F_ORDINAMENTO 121

10
ce/ce3500.cpp
View File

@ -3,7 +3,7 @@
#include <printer.h>
#include <recarray.h>
#include "celib.h"
#include "celib.h"
#include "ce3400.h"
#include "ce3500a.h"
@ -75,7 +75,7 @@ bool TLC_form::validate(TForm_item& fld, TToken_string& val)
{
const TRectype& cespi = relation()->curr();
const char* cmd = val.get(0);
if (stricmp(cmd, "_INVCODTAB") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_INVCODTAB") == 0)
{
// Se la stampa è ordinata per categoria allora stampo l'impianto e viceversa
const TString16 codtab = cespi.get(_order == 1 ? CESPI_CODIMP : CESPI_CODCAT);
@ -85,7 +85,7 @@ bool TLC_form::validate(TForm_item& fld, TToken_string& val)
fld.set("");
return TRUE;
}
if (stricmp(cmd, "_USOPROM") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_USOPROM") == 0)
{
bool yes = cespi.get_bool(CESPI_VEIDIP);
if (!yes)
@ -93,7 +93,7 @@ bool TLC_form::validate(TForm_item& fld, TToken_string& val)
fld.set(yes ? TR("Si") : TR("No"));
return TRUE;
}
if (stricmp(cmd, "_TPSPEMAN") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_TPSPEMAN") == 0)
{
switch(cespi.get_int(CESPI_TPSPEMAN))
{
@ -104,7 +104,7 @@ bool TLC_form::validate(TForm_item& fld, TToken_string& val)
}
return TRUE;
}
if (stricmp(cmd, "_RIVGEN") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_RIVGEN") == 0)
{
const TRectype& salce = relation()->curr(LF_SALCE);
fld.set(salce.get(_tiposit == 1 ? SALCE_RIVGF : SALCE_RIVGC));

1
ce/ce3500a.h
View File

@ -23,4 +23,3 @@
#define F_ORDINAMENTO 121
#define F_SALDINI 122
#define F_SUBORDINAMENTO 123

5
ce/ce3600.cpp
View File

@ -47,7 +47,7 @@ void TLM_form::set_testata(const TMask& m)
bool TLM_form::validate(TForm_item& fld, TToken_string& val)
{
const char* cmd = val.get(0);
if (stricmp(cmd, "_RIVGEN") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_RIVGEN") == 0)
{
const TRectype& mov = relation()->curr();
fld.set(mov.get(_tiposit == 1 ? MOVCE_RIVGF : MOVCE_RIVGC));
@ -139,7 +139,8 @@ void TLM_app::main_loop()
const TRectype& cespi = rel.curr(LF_CESPI);
TDate fromdate = m.get(F_FROM_DATE), todate = m.get(F_TO_DATE);
TDate fromdate(m.get(F_FROM_DATE));
TDate todate(m.get(F_TO_DATE));
TString filter;
if (fromdate.ok())
filter << "(ANSI(" << MOVCE_DTMOV << ")>=\"" << fromdate.string(ANSI) << "\")";

2
ce/ce3600a.h
View File

@ -19,5 +19,3 @@
#define F_SITUAZIONE 120
#define F_ORDINAMENTO 121

4
ce/ce3700.cpp
View File

@ -59,7 +59,9 @@ bool TECUP_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
case F_USOPROM1:
if (e == fe_close)
{
for (int up = 2; up >= 0; up--)
int up;
for (up = 2; up >= 0; up--)
if (get_bool(F_USOPROM1+up))
break;
if (up < 0)

1
ce/ce3700a.h
View File

@ -4,4 +4,3 @@
#define F_USOPROM2 202
#define F_USOPROM3 203
#define F_VEIDIP 204

6
ce/ce3800.cpp
View File

@ -67,7 +67,7 @@ const TString& TECFE_form::decode_group(const char* codtab, int mode)
bool TECFE_form::validate(TForm_item& fld, TToken_string& val)
{
const char* cmd = val.get(0);
if (stricmp(cmd, "_INVCODTAB") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_INVCODTAB") == 0)
{
const TRectype& cespi = relation()->curr();
// Se la stampa è ordinata per categoria allora stampo l'impianto e viceversa
@ -78,7 +78,7 @@ bool TECFE_form::validate(TForm_item& fld, TToken_string& val)
fld.set("");
return TRUE;
}
if (stricmp(cmd, "_VALAMM") == 0)
if (xvt_str_compare_ignoring_case(cmd, "_VALAMM") == 0)
{
const TRectype& salpro = relation()->curr(LF_SALCE);
real val = salpro.get_real(SALCE_CSTO)-salpro.get_real(SALCE_VNONAMM)-salpro.get_real(SALCE_PLUSREIN)+
@ -164,7 +164,7 @@ void TECFE_app::print_totale(const char* cod)
bool TECFE_app::elenco_filter(const TRelation* rel)
{
const TRectype& salpro = rel->curr(LF_SALCE);
const real num = salpro.get(SALCE_NUMELE);
const real num = salpro.get_real(SALCE_NUMELE);
return num > ZERO;
}

1
ce/ce4.cpp
View File

@ -16,4 +16,3 @@ int main(int argc,char** argv)
}
return 0;
}

2
ce/ce4200.cpp
View File

@ -4,7 +4,7 @@
#include <printer.h>
#include <recarray.h>
#include "..\ve\velib.h"
#include "../ve/velib.h"
#include "ce4200a.h"
#include "ce4200.h"

3
ce/ce4200.h
View File

@ -13,6 +13,3 @@
#define FR_B_VALAMM 21
#define FR_B_TOTVALAMM 22
#define FR_B_TOTPERC 23

1
ce/celib.cpp
View File

@ -403,4 +403,3 @@ bool null_fields(const TRectype& rec, const char* fld0, const char* fld1, const
return TRUE;
}

2
ce/cetbcac.h
View File

@ -30,4 +30,4 @@
#define GR_MAT 130
#define GR_IMMAT 131
#define GR_PLURI 132
#define GR_PLURI 132