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

Patch level : 10.0 no patch

Browse Source 
Files correlati     : lv4.exe
Ricompilazione Demo : [ ]
Commento            :

Convesrione saldi partite e cespiti COGECO primo commit


git-svn-id: svn://10.65.10.50/trunk@19856 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-01-03 20:29:32 +00:00
parent 3973958c8f
commit efbe3bc066
12 changed files with 1287 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lv/lv4.cpp Executable file
View File

@ -0,0 +1,20 @@
#include <xvt.h>
#include "lv4.h"
int main(int argc, char** argv)
{
int n = argc > 1 ? atoi(argv[1]+1) : 0;
switch(n)
{
case 1:
lv4200(argc, argv); break; //importazione saldaconto
case 2:
lv4300(argc, argv); break; //importazione cespiti
case 0:
default:
lv4100(argc, argv); break; //importazione movimenti contabili
}
exit(0);
return 0;
}

3
lv/lv4.h Executable file
View File

@ -0,0 +1,3 @@
int lv4100(int argc, char* argv[]); // importazione movimenti contabili
int lv4200(int argc, char* argv[]); // importazione saldaconto
int lv4300(int argc, char* argv[]); // importazione cespiti

288
lv/lv4100.cpp Executable file
View File

@ -0,0 +1,288 @@
#include <applicat.h>
#include <automask.h>
#include <execp.h>
#include <lffiles.h>
#include <progind.h>
#include <real.h>
#include <recarray.h>
#include <reputils.h>
#include <utility.h>
#include <relation.h>
#include <reprint.h>
#include <textset.h>
#include <tabutil.h>
#include "../cg/cglib01.h"
#include "lv4.h"
#include "lv4100.h"
#include "lv4100a.h"
#include <pconti.h>
#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>
#define DITTA_PK 0
#define TIPO 1
#define GRUPPO 2
#define CONTO 3
#define SOTTOCONTO 4
#define ANNO 5
#define VALUTA 6
#define CREAZIONE 7
#define PROGR_DARE 8
#define PROGR_AVERE 9
#define SALDO_APERTURA 10
#define SALDO_CHIUSURA 11
#define ULT_PAG_PART 12
#define DARE_PARTITARIO 13
#define AVERE_PARTITARIO 14
#define DATAAGG_PARTITARIO 15
/*const TVariant& TImporta_saldi_recset::get(unsigned int column) const
{
TString str = TCSV_recordset::get(column).as_string();
TVariant& var = get_tmp_var();
int len = str.len();
if (len == 0)
return NULL_VARIANT;
if (str[len -1] == '"')
str.rtrim(1);
if (str[0] == '"')
str.ltrim(1);
var.set(str);
return var;
} */
///////////////////////////////////////////////////////////
// TAutomask
///////////////////////////////////////////////////////////
class TImporta_saldi_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TImporta_saldi_mask();
};
TImporta_saldi_mask::TImporta_saldi_mask() :TAutomask ("lv4100a")
{
}
bool TImporta_saldi_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
switch (f.dlg())
{
//giochetto per avere la lista dei files validi nella directory di trasferimento!
case F_NAME:
if (e == fe_button)
{
TArray_sheet as(-1, -1, 72, 20, TR("Selezione file"),
"File@32");
TFilename path = get(F_PATH);
path.add("*.txt"); //files delle testate
list_files(path, as.rows_array());
TFilename name;
FOR_EACH_ARRAY_ROW(as.rows_array(), i, row)
{
name = *row;
*row = name.name();
}
if (as.run() == K_ENTER)
{
f.set(as.row(as.selected()));
}
}
break;
default:
break;
}
return true;
}
///////////////////////////////////////
// TSkeleton_application
///////////////////////////////////////
class TImporta_saldi : public TSkeleton_application
{
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "ba";}
TImporta_saldi_mask* _msk;
//protected:
public:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
void transfer(const TFilename& file);
TImporta_saldi() {};
};
void TImporta_saldi::transfer(const TFilename& file)
{
TFilename outdir(_msk->get(F_PATHOUT));
TImporta_cogeco_recset s(file);
TProgind pi(s.items(),"Importazione saldi in corso ...",true,true);
TConfig * conf = NULL;
long ntran = 1L;
int nrow = 1;
int anno = 0;
TString8 reg;
TDate dataop = _msk->get_date(F_DATAMOV);
TImporto totmov;
TConfig cditta(CONFIG_DITTA, "cg");
const TString4 ctypes("GCF");
const TString8 causale = cditta.get("CoCaAp");
const int gruppoap = cditta.get_int("CsBiApG");
const int contoap = cditta.get_int("CsBiApC");
const long sottocontoap = cditta.get_long("CsBiApS");
int lastgruppo = 0;
const int codes = _msk->get_int(F_ANNOES);
const long ditta = _msk->get_long(F_CODITTA);
const TEsercizi_contabili esc;
TString8 paragraph;
for (bool ok=s.move_first();ok;ok=s.move_next())
{
if (!pi.addstatus(1))
break;
const long dt = s.get(DITTA_PK).as_int();
if (ditta != dt)
continue;
const int es = s.get(ANNO).as_int();
if (codes != es)
continue;
if (ctypes.find(s.get(TIPO).as_string()[0]) < 0)
continue;
int gruppo = s.get(GRUPPO).as_int();
int conto = s.get(CONTO).as_int();
long sottoconto = s.get(SOTTOCONTO).as_int();
if (lastgruppo != gruppo && nrow >= 99)
{
if (conf != NULL)
{
paragraph.format("%d,%d",LF_RMOV,nrow++);
conf->set_paragraph(paragraph);
conf->set(RMV_SEZIONE, totmov.sezione());
conf->set(RMV_IMPORTO, totmov.valore().string());
conf->set(RMV_GRUPPO, gruppoap);
conf->set(RMV_CONTO, contoap);
conf->set(RMV_SOTTOCONTO, sottocontoap);
delete conf;
}
conf = NULL;
TFilename temp(outdir);
temp << '/' << format("%05ld", ntran++);
temp.ext("ini");
if (fexist(temp))
remove_file(temp);
conf = new TConfig(temp);
conf->set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini
conf->set("Action","INSERT");
conf->set("Mode","AUTO");
conf->set_paragraph("23"); //setto il paragrafo [23] del file ini (testata)
conf->set(MOV_CODCAUS, causale);
conf->set(MOV_DATAREG, dataop.stringa());
conf->set(MOV_DESCR, "Ripresa Saldi");
nrow = 1;
lastgruppo = gruppo;
}
real val = s.get(SALDO_APERTURA).as_real();
TImporto impmov(val > ZERO ? 'D' : 'A', abs(val));
const TImporto pdare('D', s.get(PROGR_DARE).as_real());
const TImporto pavere('A', s.get(PROGR_AVERE).as_real());
impmov += pdare;
impmov += pavere;
if (impmov.valore() != ZERO)
{
paragraph.format("%d,%d",LF_RMOV,nrow++);
conf->set_paragraph(paragraph);
conf->set(RMV_SEZIONE, impmov.sezione());
conf->set(RMV_IMPORTO, impmov.valore().string());
conf->set(RMV_GRUPPO, gruppo);
conf->set(RMV_CONTO, conto);
conf->set(RMV_SOTTOCONTO, sottoconto);
totmov -= impmov;
}
}
if (conf != NULL)
{
paragraph.format("%d,%d",LF_RMOV,nrow++);
conf->set_paragraph(paragraph);
conf->set(RMV_SEZIONE, totmov.sezione());
conf->set(RMV_IMPORTO, totmov.valore().string());
conf->set(RMV_GRUPPO, gruppoap);
conf->set(RMV_CONTO, contoap);
conf->set(RMV_SOTTOCONTO, sottocontoap);
delete conf;
}
if (yesno_box(FR("Si desidera confermare l'importazione di %ld movimenti"), ntran -1))
{
TString app;
app << "cg2 -0 -i" << outdir << "/*.ini";
TExternal_app primanota(app);
primanota.run(true);
}
}
bool TImporta_saldi::create()
{
_msk = new TImporta_saldi_mask();
return TSkeleton_application::create();
}
bool TImporta_saldi::destroy()
{
delete _msk;
return TApplication::destroy();
}
void TImporta_saldi::main_loop()
{
KEY tasto;
tasto = _msk->run();
if (tasto == K_ENTER)
{
//genero il nome del file da caricare
TFilename name = _msk->get(F_PATH);
name.add(_msk->get(F_NAME));
transfer(name);
}
}
TImporta_saldi& app() { return (TImporta_saldi&) main_app(); }
int lv4100 (int argc, char* argv[])
{
TImporta_saldi main_app;
main_app.run(argc, argv, TR("Importazione contabilità Galileo"));
return true;
}

8
lv/lv4100.h Executable file
View File

@ -0,0 +1,8 @@
class TImporta_cogeco_recset : public TCSV_recordset
{
public:
TImporta_cogeco_recset(const char* query = "") : TCSV_recordset(TString("CSV(\";)\n") << query) {}
virtual ~TImporta_cogeco_recset() {}
};

9
lv/lv4100a.h Executable file
View File

@ -0,0 +1,9 @@
//campi maschera lv4100a
#define F_CODITTA 101
#define F_RAGSOC 102
#define F_PATH 103
#define F_NAME 104
#define F_ANNOES 105
#define F_DATAMOV 106
#define F_PATHOUT 107

108
lv/lv4100a.uml Executable file
View File

@ -0,0 +1,108 @@
#include "lv4100a.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
PICTURE BMP_ELABORA
MESSAGE EXIT,K_ENTER
PROMPT -12 -1 "E~labora"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
TOOLBAR "" 0 21 0 2
STRING DLG_PROFILE 50
BEGIN
PROMPT 9 -1 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Importazione contabilità Galileo" 0 0 0 -3
GROUPBOX DLG_NULL 90 3
BEGIN
PROMPT 2 1 "@bDitta corrente"
END
NUMBER F_CODITTA 5
BEGIN
PROMPT 3 2 "Codice "
FLAGS "FD"
USE LF_NDITTE
INPUT CODDITTA F_CODITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 23 2 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 90 5
BEGIN
PROMPT 2 4 "@bSorgente"
END
STRING F_PATH 256 39
BEGIN
PROMPT 3 5 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD ComInPath
END
STRING F_NAME 18
BEGIN
PROMPT 3 6 "File "
FIELD ComInFile
CHECKTYPE REQUIRED
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 3 7 "Esercizio "
USE ESC
INPUT CODTAB F_ANNOES
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNOES CODTAB
FIELD AnnoEs
CHECKTYPE REQUIRED
END
DATE F_DATAMOV
BEGIN
PROMPT 3 7 "Data mov. "
FIELD DataMov
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 2 10 "@bDestinazione"
END
STRING F_PATHOUT 256 39
BEGIN
PROMPT 3 11 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD ComOutPath
END
ENDPAGE
ENDMASK

288
lv/lv4200.cpp Executable file
View File

@ -0,0 +1,288 @@
#include <applicat.h>
#include <automask.h>
#include <clifo.h>
#include <execp.h>
#include <lffiles.h>
#include <progind.h>
#include <real.h>
#include <recarray.h>
#include <reputils.h>
#include <utility.h>
#include <relation.h>
#include <reprint.h>
#include <textset.h>
#include <tabutil.h>
#include "../cg/cglib01.h"
#include "../cg/cg2103.h"
#include "../cg/cgsaldac.h"
#include "../cg/cgpagame.h"
#include "lv4.h"
#include "lv4100.h"
#include "lv4200a.h"
#include <pconti.h>
#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>
#define TIPO 0
#define ANNO 1
#define NUMEROPARTITA 2
#define CODCF 3
#define NUMERO REC. 4
#define CAMBIO 5
#define VALUTA 6
#define TIPODOC 7
#define DATA_DOCUM 8
#define SCADENZA 9
#define IMPORTO 10
#define IMPORTO_VAL 11
class TCausali_cache : public TCache
{
protected:
virtual TObject* key2obj(const char* key);
public:
const TCausale& causale(const char* codice, int annoiva);
};
TObject* TCausali_cache::key2obj(const char* key)
{
// Metodo bastardo per evitare TToken_string temporanee "a randa"
// sfrutto chiave a lunghezza fissa
const int anno = atoi(key);
const char* codice = key+5;
TCausale* pcaus = new TCausale(codice, anno);
return pcaus;
}
const TCausale& TCausali_cache::causale(const char* codice, int annoiva)
{
// Metodo bastardo per evitare TToken_string temporanee "a randa"
// creo chiave a lunghezza fissa anno+codice = 9999|AAA
TString8 key;
key.format("%04d|%s", annoiva, codice);
return *(const TCausale*)objptr(key);
}
///////////////////////////////////////////////////////////
// TAutomask
///////////////////////////////////////////////////////////
class TImporta_sc_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TImporta_sc_mask();
};
TImporta_sc_mask::TImporta_sc_mask() :TAutomask ("lv4200a")
{
}
bool TImporta_sc_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
switch (f.dlg())
{
//giochetto per avere la lista dei files validi nella directory di trasferimento!
case F_NAME:
if (e == fe_button)
{
TArray_sheet as(-1, -1, 72, 20, TR("Selezione file"),
"File@32");
TFilename path = get(F_PATH);
path.add("*.txt"); //files delle testate
list_files(path, as.rows_array());
TFilename name;
FOR_EACH_ARRAY_ROW(as.rows_array(), i, row)
{
name = *row;
*row = name.name();
}
if (as.run() == K_ENTER)
{
f.set(as.row(as.selected()));
}
}
break;
default:
break;
}
return true;
}
///////////////////////////////////////
// TSkeleton_application
///////////////////////////////////////
class TImporta_sc : public TSkeleton_application
{
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "ba";}
TImporta_sc_mask* _msk;
//protected:
public:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
void transfer(const TFilename& file);
TImporta_sc() {};
};
void TImporta_sc::transfer(const TFilename& file)
{
TImporta_cogeco_recset s(file);
TProgind pi(s.items(),"Importazione saldaconto in corso ...",true,true);
TConfig * conf = NULL;
int anno = 0;
int part;
TPartita * game;
TCausali_cache cache_causali;
TToken_string key;
const TString8 codcausc(_msk->get(F_CODCAUSC));
const TString8 codcausf(_msk->get(F_CODCAUSF));
TImporto totdoc;
for (bool ok=s.move_first();ok;ok=s.move_next())
{
if (!pi.addstatus(1))
break;
const int a = s.get(ANNO).as_int();
const long p = s.get(NUMEROPARTITA).as_int();
if (anno != a || p != part )
{
anno = a;
part = p;
if (game != NULL)
{
for (int r = game->first(); r >= 0; r = game->succ(r))
game->riga(r).put(PART_IMPTOTDOC, totdoc.valore());
game->write();
delete game;
}
game = NULL;
totdoc.reset();
}
const char tipocf = s.get(CODCF).as_string()[0]; // ?? verificare
const long sottoconto = s.get(CODCF).as_int();
TToken_string key;
key.cut(0);
key.add(tipocf);
key.add(sottoconto);
const TRectype & clifo = cache().get(LF_CLIFO, key);
int gruppo = clifo.get_int(CLI_GRUPPO);
int conto = clifo.get_int(CLI_CONTO);
const TCausale & c = cache_causali.causale(tipocf == 'C' ? codcausc : codcausf, anno);
if (gruppo == 0)
{
TBill cc;
c.bill(1, cc);
gruppo = cc.gruppo();
conto = cc.conto();
}
TBill codclifo(gruppo, conto, sottoconto);
const int tipodoc = s.get(TIPODOC).as_int();
const TDate datadoc = s.get(DATA_DOCUM).as_date();
if (game == NULL)
game = new TPartita(codclifo, anno, format("%7d", part));
TRiga_partite& partita = game->new_row();
partita.put(PART_TIPOMOV, c.tipomov());
partita.put(PART_DATAREG, datadoc);
partita.put(PART_DATADOC, datadoc);
partita.put(PART_CODCAUS, c.codice());
partita.put(PART_REG, c.reg().name());
partita.put(PART_SEZ, c.sezione(1));
partita.put(PART_SOTTOCONTO, codclifo.sottoconto());
const TString8 codpag(clifo.get(MOV_CODPAG)); // ?? verificare
TPagamento pag(codpag);
partita.put(PART_CODPAG, codpag);
partita.put(PART_TIPOPAG, pag.tipo_rata(0));
partita.put(PART_GRUPPOCL, codclifo.gruppo());
partita.put(PART_CONTOCL, codclifo.conto());
const real val = s.get(IMPORTO).as_real();
TImporto importo(val.sign() < 0 ? 'A' : 'D', abs(val));
importo.normalize(c.sezione(1));
totdoc += importo; // somma se e' fattura ??? verificare
partita.put(PART_IMPORTO, importo.valore());
TRiga_scadenze& scadenza = partita.new_row(); // ?? da fare
scadenza.put(SCAD_CODPAG, codpag);
scadenza.put(SCAD_DATASCAD, s.get(SCADENZA).as_string());
scadenza.put(SCAD_IMPORTO, importo.valore());
scadenza.put(SCAD_TIPOPAG, partita.get(PART_TIPOPAG));
}
if (game != NULL)
{
for (int r = game->first(); r >= 0; r = game->succ(r))
game->riga(r).put(PART_IMPTOTDOC, totdoc.valore());
game->write();
delete game;
}
}
bool TImporta_sc::create()
{
_msk = new TImporta_sc_mask();
return TSkeleton_application::create();
}
bool TImporta_sc::destroy()
{
delete _msk;
return TApplication::destroy();
}
void TImporta_sc::main_loop()
{
KEY tasto;
tasto = _msk->run();
if (tasto == K_ENTER)
{
//genero il nome del file da caricare
TFilename name = _msk->get(F_PATH);
name.add(_msk->get(F_NAME));
transfer(name);
}
}
TImporta_sc& app() { return (TImporta_sc&) main_app(); }
int lv4200 (int argc, char* argv[])
{
TImporta_sc main_app;
main_app.run(argc, argv, TR("Importazione saldaconto"));
return true;
}

8
lv/lv4200a.h Executable file
View File

@ -0,0 +1,8 @@
//campi maschera lv4200a
#define F_CODITTA 101
#define F_RAGSOC 102
#define F_PATH 103
#define F_NAME 104
#define F_CODCAUSC 105
#define F_CODCAUSF 106

74
lv/lv4200a.uml Executable file
View File

@ -0,0 +1,74 @@
#include "lv4200a.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
PICTURE BMP_ELABORA
MESSAGE EXIT,K_ENTER
PROMPT -12 -1 "E~labora"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
TOOLBAR "" 0 21 0 2
STRING DLG_PROFILE 50
BEGIN
PROMPT 9 -1 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Importazione saldaconto" 0 0 0 -3
GROUPBOX DLG_NULL 90 3
BEGIN
PROMPT 2 1 "@bDitta corrente"
END
NUMBER F_CODITTA 5
BEGIN
PROMPT 3 2 "Codice "
FLAGS "FD"
USE LF_NDITTE
INPUT CODDITTA F_CODITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 23 2 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 2 4 "@bSorgente"
END
STRING F_PATH 256 39
BEGIN
PROMPT 3 5 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD ComInPath
END
STRING F_NAME 18
BEGIN
PROMPT 3 6 "File "
FIELD ComInFile
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

387
lv/lv4300.cpp Executable file
View File

@ -0,0 +1,387 @@
#include <applicat.h>
#include <automask.h>
#include <execp.h>
#include <lffiles.h>
#include <progind.h>
#include <real.h>
#include <recarray.h>
#include <reputils.h>
#include <utility.h>
#include <relation.h>
#include <reprint.h>
#include <textset.h>
#include <tabutil.h>
#include "../ce/ammce.h"
#include "../ce/cespi.h"
#include "../ce/salce.h"
#include "../cg/cglib01.h"
#include "lv4.h"
#include "lv4100.h"
#include "lv4300a.h"
#include <pconti.h>
#include <mov.h>
#include <rmov.h>
#include <rmoviva.h>
#define DITTA 0
#define GRUPPO 1
#define SPECIE 2
#define CESPITE 3
#define CODPADRE 4
#define CEINCR 5
#define NPROGR 6
#define DESCR 7
#define CEALIQ1 8
#define PERCAMMANTIC 9
#define COSTOACQ 10
#define COSTODAAMM 11
#define RIVALUTAZIONE 12
#define RETTIFICHE 13
#define FONDOAMMORT 14
#define TOTAMMANTIC 15
#define RIVALUTAMM 16
#define CEDIMRIVALUTAMM 17
#define AMMORTINDEDUCIBILE 18
#define CREDIMPOSTA 19
#define VENDCOSTOACQ 20
#define VENDFDOAMM 21
#define PLUSREINVEST 22
#define VALORVEN 23
#define DATAINIZAMM 24
#define DATAACCANTONAM 25
#define DATAALIENENAZIONE 26
#define PERCDAAMM 27
#define RIFERFATTVEN 28
#define RIFERFATTACQ 29
#define CODFOR 30
#define CEDITFIL 31
#define RIFERACQ 32
#define CODCLI 33
#define INAMMCOSTOES 34
#define IMMATERIALI 35
#define TIPOAMMORT 36
#define CESSIONE 37
#define RIFERVEN 38
#define CEMANRIP 39
#define PERCAMMSTD 40
#define NQUOTEANTCALC 41
#define NUMMOVCESP 42
#define VENDFDOANT 43
#define AMMDIPPADRE 44
///////////////////////////////////////////////////////////
// TAutomask
///////////////////////////////////////////////////////////
class TImporta_cesp_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TImporta_cesp_mask();
};
TImporta_cesp_mask::TImporta_cesp_mask() :TAutomask ("lv4300a")
{
}
bool TImporta_cesp_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
switch (f.dlg())
{
//giochetto per avere la lista dei files validi nella directory di trasferimento!
case F_NAME:
if (e == fe_button)
{
TArray_sheet as(-1, -1, 72, 20, TR("Selezione file"),
"File@32");
TFilename path = get(F_PATH);
path.add("*.txt"); //files delle testate
list_files(path, as.rows_array());
TFilename name;
FOR_EACH_ARRAY_ROW(as.rows_array(), i, row)
{
name = *row;
*row = name.name();
}
if (as.run() == K_ENTER)
{
f.set(as.row(as.selected()));
}
}
break;
default:
break;
}
return true;
}
///////////////////////////////////////
// TSkeleton_application
///////////////////////////////////////
class TImporta_cesp : public TSkeleton_application
{
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "ve";}
TImporta_cesp_mask* _msk;
//protected:
public:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
void transfer(const TFilename& file);
TImporta_cesp() {};
};
void TImporta_cesp::transfer(const TFilename& file)
{
TFilename outdir(_msk->get(F_PATHOUT));
TImporta_cogeco_recset s(file);
TProgind pi(s.items(),"Importazione cespiti in corso ...",true,true);
const long ditta = _msk->get_long(F_CODITTA);
long ntran = 1;
TString str(50);
const TEsercizi_contabili esc;
int lastes = esc.last();
for (bool ok = s.move_first(); ok ; ok = s.move_next())
{
if (!pi.addstatus(1))
break;
const long dt = s.get(DITTA).as_int();
if (ditta != dt)
continue;
TFilename temp(outdir);
temp << '/' << format("%05ld", ntran++);
temp.ext("ini");
if (fexist(temp))
remove_file(temp);
TConfig conf(temp);
conf.set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini
conf.set("Action","INSERT");
conf.set("Mode","AUTO");
conf.set_paragraph("139"); // setto il paragrafo cespi
const long codces = s.get(NPROGR).as_int();
conf.set(CESPI_IDCESPITE, format("%010ld", codces));
conf.set(CESPI_CODCGR, s.get(GRUPPO).as_string());
conf.set(CESPI_CODSP, s.get(SPECIE).as_string());
conf.set(CESPI_CODCAT, s.get(CESPITE).as_string());
conf.set(CESPI_DESC, s.get(DESCR).as_string());
conf.set(CESPI_DTFUNZ, s.get(DATAINIZAMM).as_string());
conf.set(CESPI_DTALIEN, s.get(DATAALIENENAZIONE).as_string());
conf.set(CESPI_TPSPEMAN, 1);
/*
#define CESPI_CODCGRA "CODCGRA"
#define CESPI_CODSPA "CODSPA"
#define CESPI_CODIMP "CODIMP"
#define CESPI_CODLOC "CODLOC"
#define CESPI_CODORIG "CODORIG"
#define CESPI_DTCOMP "DTCOMP"
#define CESPI_AMMPROP "AMMPROP"
#define CESPI_ESCLPR "ESCLPR"
#define CESPI_TPSPEMAN "TPSPEMAN"
#define CESPI_USOPROM "USOPROM"
#define CESPI_LEASING "LEASING"
#define CESPI_TUIR "TUIR"
#define CESPI_USATO "USATO"
#define CESPI_ANNIRIC "ANNIRIC"
#define CESPI_PMAT "PMAT"
#define CESPI_PIMM "PIMM"
#define CESPI_VINCOLO "VINCOLO"
#define CESPI_PMINP "PMINP"
#define CESPI_PMAXP "PMAXP"
#define CESPI_CODVAL "CODVAL"
#define CESPI_FLGTPVEI "FLGTPVEI"
#define CESPI_VEIDIP "VEIDIP"
#define CESPI_STABILIM "STABILIM"
#define CESPI_REPARTO "REPARTO"
#define CESPI_IDIMP "IDIMP"
#define CESPI_PERCIMP "PERCIMP"
#define CESPI_FABBR06 "FABBR06"
#define CEALIQ1 8
#define PERCAMMANTIC 9
#define COSTODAAMM 11
#define RIVALUTAZIONE 12
#define RETTIFICHE 13
#define FONDOAMMORT 14
#define TOTAMMANTIC 15
#define RIVALUTAMM 16
#define CEDIMRIVALUTAMM 17
#define AMMORTINDEDUCIBILE 18
#define CREDIMPOSTA 19
#define VENDCOSTOACQ 20
#define VENDFDOAMM 21
#define PLUSREINVEST 22
#define VALORVEN 23
#define PERCDAAMM 27
#define RIFERFATTVEN 28
#define RIFERFATTACQ 29
#define CODFOR 30
#define CEDITFIL 31
#define RIFERACQ 32
#define CODCLI 33
#define INAMMCOSTOES 34
#define IMMATERIALI 35
#define TIPOAMMORT 36
#define CESSIONE 37
#define RIFERVEN 38
#define CEMANRIP 39
#define PERCAMMSTD 40
#define NQUOTEANTCALC 41
#define NUMMOVCESP 42
#define VENDFDOANT 43
#define AMMDIPPADRE 44
*/
conf.set_paragraph("143"); // setto il paragrafo del file salce
conf.set(SALCE_NUMELE, 1);
conf.set(SALCE_CSTO, s.get(COSTOACQ).as_string());
/*
#define SALCE_IDCESPITE "IDCESPITE"
#define SALCE_CODES "CODES"
#define SALCE_TPSALDO "TPSALDO"
#define SALCE_NUMELE "NUMELE"
#define SALCE_CSTO "CSTO"
#define SALCE_VNONAMM "VNONAMM"
#define SALCE_VNONAMM06 "VNONAMM06"
#define SALCE_VNONAMMC "VNONAMMC"
#define SALCE_PLUSREIN "PLUSREIN"
#define SALCE_RIV75 "RIV75"
#define SALCE_RIV83 "RIV83"
#define SALCE_RIV90 "RIV90"
#define SALCE_ANNIPOST90 "ANNIPOST90"
#define SALCE_ANNIPOST91 "ANNIPOST91"
#define SALCE_RIV91 "RIV91"
#define SALCE_RIVGF "RIVGF"
#define SALCE_RIVGC "RIVGC"
#define SALCE_VSPMANU "VSPMANU"
#define SALCE_ANNIAMM "ANNIAMM"
#define SALCE_DTSTBOLL "DTSTBOLL"
val = s.get(VLICAS).as_real() + s.get(VVICAS).as_real(); // civ
val = s.get(VLINAS2).as_real() + s.get(VAVIAS2).as_real(); // gest */
conf.set_paragraph("136"); // setto il paragrafo del file ammce
/*
#define AMMCE_IDCESPITE "IDCESPITE"
#define AMMCE_CODES "CODES"
#define AMMCE_TPSALDO "TPSALDO"
#define AMMCE_TPAMM "TPAMM"
#define AMMCE_SCELTE "SCELTE"
#define AMMCE_AMMRIT "AMMRIT"
#define AMMCE_CSCEN "CSCEN"
#define AMMCE_FZPER "FZPER"
#define AMMCE_PNOR "PNOR"
#define AMMCE_PACC "PACC"
#define AMMCE_PANT "PANT"
#define AMMCE_FZQUO "FZQUO"
#define AMMCE_QNOR "QNOR"
#define AMMCE_QACC "QACC"
#define AMMCE_QANT "QANT"
#define AMMCE_QPERSE "QPERSE"
#define AMMCE_FPRIVATO "FPRIVATO"
#define AMMCE_QPPRIVATE "QPPRIVATE"
#define AMMCE_QNORP "QNORP"
#define AMMCE_QACCP "QACCP"
#define AMMCE_QANTP "QANTP"
#define AMMCE_QPERSEP "QPERSEP"
#define AMMCE_FPRIVATOP "FPRIVATOP"
#define AMMCE_QPPRIVATEP "QPPRIVATEP"
#define AMMCE_MSG01 "MSG01"
#define AMMCE_MSG02 "MSG02"
#define AMMCE_MSG03 "MSG03"
#define AMMCE_MSG04 "MSG04"
#define AMMCE_MSG05 "MSG05"
#define AMMCE_MSGD05 "MSGD05"
#define AMMCE_MSG06 "MSG06"
#define AMMCE_FRINGEBEN "FRINGEBEN"
val = s.get(VAMNAS).as_real(); val amm norm fisc
val = s.get(PFANAS).as_real() + s.get(VAFNAS).as_real(); prog amm norm fisc
val = s.get(VAMAAS).as_real(); val amm ant fisc
val = s.get(PFAAAS).as_real() + s.get(VAFAAS).as_real(); prog amm ant fisc
val = s.get(VALFAS).as_real(); val amm acc fisc
val = s.get(VANCAS).as_real(); val amm norm civ
val = s.get(FANCAS).as_real() + s.get(VFNCAS).as_real(); prog amm norm civ
val = s.get(VAACAS).as_real(); val amm ant civ
val = s.get(FAACAS).as_real() + s.get(VFACAS).as_real(); prog amm ant civ
val = s.get(VALCAS).as_real(); val amm acc civ
val = s.get(VAMNAS2).as_real(); val amm norm gest
val = s.get(PFANAS2).as_real() + s.get(VAFNAS2).as_real(); prog amm norm gest
val = s.get(VAMAAS2).as_real(); val amm ant gest
val = s.get(PFAAAS2).as_real() + s.get(VAFAAS2).as_real(); prog amm ant gest
val = s.get(VALCAS).as_real(); val amm acc gest
??? conf.set(, s.get(VLICAS2 51 // Valore Iniziale Civil.2 DIZSMAS - VLIN
conf.set(, s.get(VVICAS2 52 // Variaz. Valore Iniz. Civ.2 DIZSMAS - VAVI
conf.set(, s.get(VANCAS2 53 // Valore Ammort.Normale Civ.2 DIZSMAS - VAMN
conf.set(, s.get(VAACAS2 54 // Valore Ammort.Anti.Civil.2 DIZSMAS - VAMA
conf.set(, s.get(FANCAS2 55 // Progr.Fondo Amm.Norm Civ.2 DIZSMAS - PFAN
*/
}
if (yesno_box(FR("Si desidera confermare l'importazione di %ld record di cespiti"), ntran - 1))
{
TString app;
app << "ce0 -4 -i" << outdir << "/*.ini";
TExternal_app primanota(app);
primanota.run(true);
}
}
bool TImporta_cesp::create()
{
_msk = new TImporta_cesp_mask();
return TSkeleton_application::create();
}
bool TImporta_cesp::destroy()
{
delete _msk;
return TApplication::destroy();
}
void TImporta_cesp::main_loop()
{
KEY tasto;
tasto = _msk->run();
if (tasto == K_ENTER)
{
//genero il nome del file da caricare
TFilename name = _msk->get(F_PATH);
name.add(_msk->get(F_NAME));
transfer(name);
}
}
TImporta_cesp& app() { return (TImporta_cesp&) main_app(); }
int lv4300 (int argc, char* argv[])
{
TImporta_cesp main_app;
main_app.run(argc, argv, TR("Importazione cespiti"));
return true;
}

7
lv/lv4300a.h Executable file
View File

@ -0,0 +1,7 @@
//campi maschera lv4300a
#define F_CODITTA 101
#define F_RAGSOC 102
#define F_PATH 103
#define F_NAME 104
#define F_PATHOUT 105

87
lv/lv4300a.uml Executable file
View File

@ -0,0 +1,87 @@
#include "lv4300a.h"
TOOLBAR "" 0 0 0 2
BUTTON DLG_ELABORA 10 2
BEGIN
PICTURE BMP_ELABORA
MESSAGE EXIT,K_ENTER
PROMPT -12 -1 "E~labora"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
TOOLBAR "" 0 21 0 2
STRING DLG_PROFILE 50
BEGIN
PROMPT 9 -1 "Profilo "
PSELECT
END
ENDPAGE
PAGE "Importazione cespiti" 0 0 0 -3
GROUPBOX DLG_NULL 90 3
BEGIN
PROMPT 2 1 "@bDitta corrente"
END
NUMBER F_CODITTA 5
BEGIN
PROMPT 3 2 "Codice "
FLAGS "FD"
USE LF_NDITTE
INPUT CODDITTA F_CODITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 23 2 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 2 4 "@bSorgente"
END
STRING F_PATH 256 39
BEGIN
PROMPT 3 5 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD ComInPath
END
STRING F_NAME 18
BEGIN
PROMPT 3 6 "File "
FIELD ComInFile
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 90 4
BEGIN
PROMPT 2 8 "@bDestinazione"
END
STRING F_PATHOUT 256 39
BEGIN
PROMPT 3 9 "Cartella "
DSELECT
CHECKTYPE REQUIRED
FIELD ComOutPath
END
ENDPAGE
ENDMASK