Modifiche dalla versione Linux sulla 2.1

Verificare ve6600.cpp


git-svn-id: svn://10.65.10.50/trunk@12030 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2004-04-28 22:11:22 +00:00
parent b9f2694180
commit 05a5f59345
8 changed files with 30 additions and 26 deletions

View File

@ -1,4 +1,6 @@
#ifdef WIN32 //qui verificare
#include <direct.h>
#endif
#include <applicat.h>
#include <archives.h>

View File

@ -68,7 +68,7 @@ long TCopydoc_mask::get_first_ndoc() const
TLocalisamfile doc(LF_DOC);
TRectype& curr = doc.curr();
const TDate dd = get(F_TO_DATA);
const TDate dd = get_date(F_TO_DATA);
const int anno = dd.year();
const char provv = get(F_TO_PROVV)[0];
const TString& codnum = get(F_TO_NUM);
@ -238,7 +238,7 @@ void TCopydoc_app::main_loop()
tot, (tot == 1L) ? 'o' : 'i'))
{
const TString& provv = m.get(F_TO_PROVV);
const TDate data = m.get(F_TO_DATA);
const TDate data = m.get_date(F_TO_DATA);
TString16 anno; anno << data.year();
const TString& codnum = m.get(F_TO_NUM);
long ndoc = m.get_first_ndoc();
@ -300,4 +300,4 @@ int ve5300(int argc, char* argv[])
TCopydoc_app a;
a.run(argc, argv, "Copia documenti");
return 0;
}
}

View File

@ -282,7 +282,6 @@ void TContabilizzazione_app::contabilize()
const long items = _num_sheet->items();
int year_from = _data_ini.year();
int year_to = _data_fine.year();
bool ok = TRUE;
TString16 codnum;
TString msg,filt_expr;
TToken_string nums;

View File

@ -79,7 +79,7 @@ void TFatturazione_bolle_app::process_by_cli(const TMask& m)
{
TIndwin iw(0, "Inizializzazione ...\n ", TRUE, FALSE, 60);
const TDate data_elab = m.get(F_DATA_ELAB);
const TDate data_elab = m.get_date(F_DATA_ELAB);
const int anno = data_elab.year();
const long dc = m.get_long(F_CODICE_CLIFO_DA);
@ -89,9 +89,9 @@ void TFatturazione_bolle_app::process_by_cli(const TMask& m)
const TString16 dz(m.get(F_CODICE_ZONA_DA));
const TString16 az(m.get(F_CODICE_ZONA_A));
const TDate dd = m.get(F_DATA_DOCUMENTO_DA);
TString st_da = m.get(F_DATA_DOCUMENTO_A);
const TDate ad = st_da.not_empty() ? (const char*)st_da : data_elab;
const TDate dd = m.get_date(F_DATA_DOCUMENTO_DA);
TString st_da = m.get(F_DATA_DOCUMENTO_A); // qui verificare
const TDate ad = st_da.not_empty() ? (TDate)(const char*)st_da : data_elab;
const TString& codnum = m.get(F_CODICE_NUMERAZIONE);
const long dn = m.get_long(F_NUMERO_DOCUMENTO_DA);
const long an = m.get_long(F_NUMERO_DOCUMENTO_A);
@ -130,7 +130,7 @@ void TFatturazione_bolle_app::process_by_doc(const TMask& m)
{
TIndwin iw(0, "Inizializzazione ...\n ", TRUE, FALSE, 60);
const TDate data_elab = m.get(F_DATA_ELAB);
const TDate data_elab = m.get_date(F_DATA_ELAB);
const int anno = data_elab.year();
long dc = m.get_long(F_CODICE_CLIFO_DA);
long ac = m.get_long(F_CODICE_CLIFO_A);
@ -140,8 +140,8 @@ void TFatturazione_bolle_app::process_by_doc(const TMask& m)
const TString8 dz(m.get(F_CODICE_ZONA_DA));
const TString8 az(m.get(F_CODICE_ZONA_A));
const TDate dd = m.get(F_DATA_DOCUMENTO_DA);
TDate ad = m.get(F_DATA_DOCUMENTO_A);
const TDate dd = m.get_date(F_DATA_DOCUMENTO_DA);
TDate ad = m.get_date(F_DATA_DOCUMENTO_A);
if (!ad.ok()) ad = data_elab;
const TString& codnum = m.get(F_CODICE_NUMERAZIONE);

View File

@ -488,10 +488,10 @@ void TGenerazioneEffetti_app::generate()
if (sort_by_date)
{
cursor_key = 3;
const TDate dataini = _msk->get(F_DATA_INI);
const TDate dataini = _msk->get_date(F_DATA_INI);
da.put(DOC_ANNO,dataini.year());
da.put(DOC_DATADOC,dataini);
const TDate datafin = _msk->get(F_DATA_FIN);
const TDate datafin = _msk->get_date(F_DATA_FIN);
a.put(DOC_ANNO,datafin.year());
a.put(DOC_DATADOC,datafin);
filt_expr << DOC_CODNUM << "=\"" << codnum << "\"";
@ -594,4 +594,4 @@ int ve6300 (int argc, char **argv)
TGenerazioneEffetti_app a;
a.run(argc,argv,"Generazione effetti");
return TRUE;
}
}

View File

@ -3,7 +3,7 @@
#include <config.h>
#include <defmask.h>
#include <execp.h>
#include <fstream.h>
#include <incstr.h>
#include <golem.h>
#include <prefix.h>
@ -296,7 +296,7 @@ bool TScontrino_mask::send_scr_data()
const int pos_code = sheet.cid2index(F_CODART);
const int pos_prezzo = sheet.cid2index(F_PREZZO);
const int pos_rep = sheet.cid2index(F_REPARTO);
// const int pos_rep = sheet.cid2index(F_REPARTO);
const int pos_qta = sheet.cid2index(F_QTA);
TString codart, grmerc, descr;

View File

@ -212,7 +212,7 @@ void TPenna_app::main_loop() //definizione della me
//istanzio dalla classe real
para.format("%d", LF_DOC);
TDate datadoc = ini.get(DOC_DATADOC, para); //dal paragrafo testata documento prende il valore della data del
TDate datadoc(ini.get(DOC_DATADOC, para)); //dal paragrafo testata documento prende il valore della data del
//documento
TEsercizi_contabili esc; //crea un oggetto esc di tipo TEsercizi_contabili
TString16 annoes;

View File

@ -80,7 +80,7 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, con
if (field[0] == '_')
{
val.cut(0);
if (stricmp(field, "_CANTIERE") == 0)
if (xvt_str_compare_ignoring_case(field, "_CANTIERE") == 0)
{
TString cms, fas;
cms = rec.get(RDOC_CODCMS);
@ -95,17 +95,17 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, con
trim_and_cut(fas, _len_fase);
val << cms << fas;
} else
if (stricmp(field, "_CONINDU") == 0)
if (xvt_str_compare_ignoring_case(field, "_CONINDU") == 0)
{
conto_industriale((TRiga_documento&)rec, val);
} else
if (stricmp(field, "_IMPORTO") == 0)
if (xvt_str_compare_ignoring_case(field, "_IMPORTO") == 0)
{
TCurrency_documento imp(((TRiga_documento&)rec).importo(TRUE, FALSE), doc);
imp.change_to_firm_val();
val = imp.get_num().stringa();
} else
if (stricmp(field, "_IMPORTOVAL") == 0)
if (xvt_str_compare_ignoring_case(field, "_IMPORTOVAL") == 0)
{
if (doc.in_valuta())
{
@ -113,7 +113,7 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, con
val = imp.get_num().stringa();
}
} else
if (stricmp(field, "_IMPOSTADOC") == 0)
if (xvt_str_compare_ignoring_case(field, "_IMPOSTADOC") == 0)
{
TString16 conto;
real impval;
@ -128,13 +128,13 @@ void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, con
imposta.change_to_firm_val();
val = imposta.get_num().stringa();
} else
if (stricmp(field, "_SEZIONE") == 0)
if (xvt_str_compare_ignoring_case(field, "_SEZIONE") == 0)
{
TCausale causale(mov.get(MOV_CODCAUS));
const char str[2] = { causale.sezione_clifo(), '\0' };
val = str;
} else
if (stricmp(field, "_TOTDOC") == 0)
if (xvt_str_compare_ignoring_case(field, "_TOTDOC") == 0)
{
TString16 conto;
real totval;
@ -197,14 +197,16 @@ bool TIndustriosa_app::filerr(const char* name) const
bool TIndustriosa_app::get_mci_path(TFilename& shell) const
{
bool ok = FALSE;
#ifdef WIN32
char winpath[_MAX_PATH];
::GetWindowsDirectory(winpath, sizeof(winpath));
shell = winpath;
shell.add("mci4.ini");
bool ok = FALSE;
if (shell.exist())
{
TConfig mci4(shell, "Paths");
@ -236,6 +238,7 @@ bool TIndustriosa_app::get_mci_path(TFilename& shell) const
else
filerr(shell);
#endif
return ok;
}