f565fc1dc8
Files correlati : Quelli delle patch 1.7 Ricompilazione Demo : [ ] Commento : Riportata la versione 1.7 A.G.A. e Partners alla patch 530 git-svn-id: svn://10.65.10.50/trunk@11331 c028cbd2-c16b-5b4b-a496-9718f37d4682
295 lines
7.2 KiB
C++
Executable File
295 lines
7.2 KiB
C++
Executable File
#define XVT_INCL_NATIVE
|
|
|
|
#include <applicat.h>
|
|
#include <execp.h>
|
|
|
|
#include "../cg/cg2103.h"
|
|
#include "../mg/anamag.h"
|
|
|
|
#include <mov.h>
|
|
#include <doc.h>
|
|
#include <rdoc.h>
|
|
|
|
#include "velib.h"
|
|
|
|
class TIndustriosa_app : public TSkeleton_application
|
|
{
|
|
protected:
|
|
const TString& conto_industriale(const TRiga_documento& row) const;
|
|
void get_field(const TDocumento& doc, const TRectype& mov, const TRectype& rec, const char* field, TString& val) const;
|
|
bool filerr(const char* name) const;
|
|
bool get_mci_path(TFilename& shell) const;
|
|
bool call_mci(TDocumento& doc, const TRectype& movimento) const;
|
|
|
|
public:
|
|
virtual void main_loop();
|
|
};
|
|
|
|
const TString& TIndustriosa_app::conto_industriale(const TRiga_documento& row) const
|
|
{
|
|
const TDocumento& doc = row.doc();
|
|
const char tipocf = doc.get_char(DOC_TIPOCF);
|
|
|
|
if (row.is_merce())
|
|
{
|
|
const TRectype& rec = cache().get(LF_ANAMAG, row.get(RDOC_CODARTMAG));
|
|
return rec.get(tipocf == 'F' ? ANAMAG_CONTOINDA : ANAMAG_CONTOINDV);
|
|
} else
|
|
if (row.is_prestazione())
|
|
{
|
|
const TRectype& rec = cache().get("PRS", row.get(RDOC_CODART));
|
|
return rec.get(tipocf == 'F' ? "S1" : "S2");
|
|
}
|
|
return EMPTY_STRING;
|
|
}
|
|
|
|
void TIndustriosa_app::get_field(const TDocumento& doc, const TRectype& mov, const TRectype& rec, const char* field, TString& val) const
|
|
{
|
|
if (field[0] == '"' || field[0] == '\'')
|
|
{
|
|
val = field;
|
|
val.rtrim(1);
|
|
val.ltrim(1);
|
|
} else
|
|
if (field[0] == '_')
|
|
{
|
|
val.cut(0);
|
|
if (stricmp(field, "_CANTIERE") == 0)
|
|
{
|
|
val = rec.get(RDOC_CODCMS).left(4);
|
|
val << rec.get(RDOC_FASCMS);
|
|
} else
|
|
if (stricmp(field, "_CONINDU") == 0)
|
|
{
|
|
val = conto_industriale((TRiga_documento&)rec);
|
|
} else
|
|
if (stricmp(field, "_IMPORTO") == 0)
|
|
{
|
|
TCurrency_documento imp(((TRiga_documento&)rec).importo(TRUE, FALSE), doc);
|
|
imp.change_to_firm_val();
|
|
val = imp.get_num().string();
|
|
} else
|
|
if (stricmp(field, "_IMPORTOVAL") == 0)
|
|
{
|
|
if (doc.in_valuta())
|
|
{
|
|
const TCurrency_documento imp(((TRiga_documento&)rec).importo(TRUE, FALSE), doc);
|
|
val = imp.get_num().string();
|
|
}
|
|
} else
|
|
if (stricmp(field, "_IMPOSTADOC") == 0)
|
|
{
|
|
real impval;
|
|
for (int i = 1; i <= doc.physical_rows(); i++)
|
|
{
|
|
const TRiga_documento& rdoc = doc[i];
|
|
if (conto_industriale(rdoc).not_empty())
|
|
impval += rdoc.imposta();
|
|
}
|
|
TCurrency_documento imposta(impval, doc);
|
|
imposta.change_to_firm_val();
|
|
val = imposta.get_num().string();
|
|
} else
|
|
if (stricmp(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)
|
|
{
|
|
real totval;
|
|
for (int i = 1; i <= doc.physical_rows(); i++)
|
|
{
|
|
const TRiga_documento& rdoc = doc[i];
|
|
if (conto_industriale(rdoc).not_empty())
|
|
totval += rdoc.importo(TRUE, FALSE);
|
|
}
|
|
TCurrency_documento tot(totval, doc);
|
|
tot.change_to_firm_val();
|
|
val = tot.get_num().string();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
const TRectype* r = &rec;
|
|
if (strncmp(field, "33->", 4) == 0)
|
|
{
|
|
r = &doc;
|
|
field += 4;
|
|
} else
|
|
if (strncmp(field, "23->", 4) == 0)
|
|
{
|
|
r = &mov;
|
|
field += 4;
|
|
}
|
|
|
|
const TFieldtypes ft = r->type(field);
|
|
switch (ft)
|
|
{
|
|
case _nullfld: break;
|
|
case _realfld: val = r->get_real(field).string(); break;
|
|
default: val = r->get(field); break;
|
|
}
|
|
}
|
|
}
|
|
|
|
bool TIndustriosa_app::filerr(const char* name) const
|
|
{
|
|
return error_box("Impossibile accedere al file '%s'", name);
|
|
}
|
|
|
|
bool TIndustriosa_app::get_mci_path(TFilename& shell) const
|
|
{
|
|
char winpath[_MAX_PATH];
|
|
::GetWindowsDirectory(winpath, sizeof(winpath));
|
|
|
|
shell = winpath;
|
|
shell.add("mci4.ini");
|
|
|
|
bool ok = FALSE;
|
|
|
|
if (shell.exist())
|
|
{
|
|
TConfig mci4(shell, "Paths");
|
|
TString8 lcl = mci4.get("lcldrive");
|
|
|
|
shell = mci4.get("inilocation");
|
|
|
|
if (!lcl.empty())
|
|
{
|
|
lcl.cut(1);
|
|
lcl << ":";
|
|
shell.insert(lcl);
|
|
}
|
|
|
|
if (shell.exist())
|
|
{
|
|
TConfig appl(shell, "Paths");
|
|
shell = appl.get("exelocation");
|
|
shell.insert(lcl);
|
|
|
|
shell.add("mci.exe");
|
|
ok = shell.exist();
|
|
if (!ok)
|
|
filerr(shell);
|
|
}
|
|
else
|
|
filerr(shell);
|
|
}
|
|
else
|
|
filerr(shell);
|
|
|
|
return ok;
|
|
}
|
|
|
|
bool TIndustriosa_app::call_mci(TDocumento& doc, const TRectype& movimento) const
|
|
{
|
|
TConfig mci("ve6600.ini");
|
|
TString_array para;
|
|
mci.list_paragraphs(para);
|
|
|
|
bool ok = FALSE;
|
|
|
|
TFilename ininame; ininame.temp();
|
|
if (para.items() >= 2)
|
|
{
|
|
TConfig ini(ininame);
|
|
|
|
TString val;
|
|
|
|
TAssoc_array& hvar = mci.list_variables(para.row(0));
|
|
ini.set_paragraph(para.row(0));
|
|
|
|
FOR_EACH_ASSOC_STRING(hvar, obj, key, field)
|
|
{
|
|
get_field(doc, movimento, movimento, field, val);
|
|
ini.set(key, val);
|
|
}
|
|
|
|
TAssoc_array& rvar = mci.list_variables(para.row(1));
|
|
for (int r = 1; r <= doc.physical_rows(); r++)
|
|
{
|
|
TString16 pr; pr.format("%s_%d", (const char*)para.row(1), r); // Paragrafo riga contabile
|
|
ini.set_paragraph(pr);
|
|
FOR_EACH_ASSOC_STRING(rvar, obj, key, field)
|
|
{
|
|
get_field(doc, movimento, doc[r], field, val);
|
|
ini.set(key, val);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
error_box("Il file 've6600.ini' non e' valido");
|
|
|
|
if (ininame.exist())
|
|
{
|
|
TFilename shell;
|
|
if (get_mci_path(shell))
|
|
{
|
|
shell << ' ' << ininame;
|
|
TExternal_app app(shell);
|
|
ok = app.run() == 0;
|
|
if (ok)
|
|
{
|
|
TConfig ini(ininame, para.row(0));
|
|
const TString16 oldnumreg = doc.get("NUMREGIND");
|
|
const TString16 newnumreg = ini.get("NumReg");
|
|
if (oldnumreg != newnumreg)
|
|
{
|
|
doc.put("NUMREGIND", newnumreg);
|
|
doc.rewrite();
|
|
}
|
|
}
|
|
else
|
|
error_box("Impossibile eseguire %s", (const char*)shell);
|
|
}
|
|
::remove(ininame);
|
|
}
|
|
|
|
return ok;
|
|
}
|
|
|
|
void TIndustriosa_app::main_loop()
|
|
{
|
|
if (argc() > 2)
|
|
{
|
|
TFilename ininame;
|
|
ininame = argv(2);
|
|
ininame.ltrim(2); // toglie /i
|
|
|
|
if (ininame.exist())
|
|
{
|
|
open_files(LF_TAB, LF_TABCOM, LF_DOC, LF_RIGHEDOC, LF_CLIFO, LF_CFVEN, LF_MOV, LF_ANAMAG, 0);
|
|
|
|
TString8 para; para.format("%d", LF_DOC);
|
|
TConfig ini(ininame, para);
|
|
const char provv = ini.get(DOC_PROVV)[0];
|
|
const int anno = ini.get_int(DOC_ANNO);
|
|
const TString8 codnum = ini.get(DOC_CODNUM);
|
|
const long ndoc = ini.get_long(DOC_NDOC);
|
|
TDocumento doc(provv, anno, codnum, ndoc);
|
|
|
|
para.format("%d", LF_MOV);
|
|
ini.set_paragraph(para);
|
|
const long numreg = ini.get_long(MOV_NUMREG);
|
|
const TRectype& mov = cache().get(LF_MOV, numreg);
|
|
|
|
call_mci(doc, mov);
|
|
}
|
|
else
|
|
filerr(ininame);
|
|
}
|
|
else
|
|
error_box("Specificare il file con la transazione da eseguire");
|
|
}
|
|
|
|
////// Esecuzione del programma ///////////
|
|
|
|
int ve6600(int argc, char** argv)
|
|
{
|
|
TIndustriosa_app app;
|
|
app.run(argc,argv, "Contabilizzazione industriale");
|
|
return 0;
|
|
}
|