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

Patch level : 10.0 nopatch

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

Importazione fatture ATS


git-svn-id: svn://10.65.10.50/branches/R_10_00@20827 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-09-07 13:23:01 +00:00
parent 287f46c052
commit 220332e850
3 changed files with 206 additions and 270 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

278
ps/ps0713300.cpp
View File

@ -3,20 +3,13 @@
#include <execp.h> #include <execp.h>
#include <progind.h> #include <progind.h>
#include <tabutil.h> #include <tabutil.h>
#include "../ve/velib.h"
#include <causali.h>
#include <clifo.h> #include <clifo.h>
#include <mov.h> #include <doc.h>
#include <rmov.h> #include <rdoc.h>
#include <rmoviva.h>
#include "ps0713lib.h" #include "ps0713lib.h"
#include "../ca/calib01.h"
#include "../ca/calib02.h"
#include "../ca/movana.h"
#include "../ca/rmovana.h"
#include "ps0713300a.h" #include "ps0713300a.h"
/////////////////////////////////// ///////////////////////////////////
@ -51,7 +44,6 @@ bool TImporta_fatacq_msk::on_field_event(TOperable_field& f, TField_event e, lon
class TImporta_fatacq_app : public TSkeleton_application class TImporta_fatacq_app : public TSkeleton_application
{ {
TImporta_fatacq_msk* _msk; TImporta_fatacq_msk* _msk;
TConfig* _configfile;
protected: protected:
virtual bool check_autorization() const {return false;} virtual bool check_autorization() const {return false;}
@ -61,212 +53,90 @@ public:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual void main_loop(); virtual void main_loop();
long genera_movcg(); bool get_doc(const TFilename& file, const TMask & m);
void genera_analitica(const long numreg, TAssoc_array& righean); void add_spesa(TDocumento & doc, const TString & cod, const real & perc);
bool transfer(const TFilename& file, const long numreg, TAssoc_array& righean);
TImporta_fatacq_app() {}; TImporta_fatacq_app() {};
}; };
long TImporta_fatacq_app::genera_movcg() void TImporta_fatacq_app::add_spesa(TDocumento & doc, const TString & cod, const real & perc)
{ {
TISAM_recordset movrec("USE MOV"); if (cod.full() && perc != ZERO)
movrec.move_last(); {
long numreg = movrec.cursor()->curr().get_int(MOV_NUMREG); numreg++; TSpesa_prest p(cod);
TString tiporiga = p.get("S8").left(4);
TLocalisamfile mov(LF_MOV); TRiga_documento & row = doc.new_row(tiporiga);
mov.put(MOV_NUMREG, numreg);
mov.put(MOV_DATACOMP, _msk->get_date(F_DATAREG));
mov.put(MOV_DATAREG, _msk->get_date(F_DATAREG));
mov.put(MOV_CODCAUS, _msk->get(F_CODCAU));
mov.write();
return numreg; row.put(RDOC_CODART, cod);
row.put(RDOC_CHECKED, "X");
row.put(RDOC_QTA, perc);
row.put(RDOC_CODIVA, p.cod_iva());
}
} }
void TImporta_fatacq_app::genera_analitica(const long numreg, TAssoc_array& righean) bool TImporta_fatacq_app::get_doc(const TFilename& file, const TMask & m)
{ {
TProgind pi(righean.items(), "Importazione analitica in corso...", true, true); const TDate datadoc(m.get_date(F_DATAREG));
TDocumento doc('D', datadoc.year(), m.get(F_CODNUM), 0L);
const TDate datareg = _msk->get_date(F_DATAREG);
const int anno = _msk->get_date(F_DATAREG).year();
TToken_string key;
key.add(_msk->get(F_CODCAU));
key.add(1);
key.add(1);
const TRectype& causale = cache().get(LF_RCAUSALI, key);
key.add(2, 1);
const TRectype& causale1 = cache().get(LF_RCAUSALI, key);
//instanzio il movimento di analitica
TAnal_mov anmo(0);
anmo.put(MOVANA_NUMREGCG, numreg);
anmo.put(MOVANA_DATACOMP, datareg);
anmo.put(MOVANA_DATAREG, datareg);
anmo.put(MOVANA_CODCAUS, _msk->get(F_CODCAU));
anmo.put(MOVANA_ANNOES, anno);
//per ogni oggetto dell'assoc_array, creo una riga di analitica
FOR_EACH_ASSOC_OBJECT(righean, obj, keyar, itm)
{
if (!pi.addstatus(1))
break;
TCommessa_string& row = (TCommessa_string)keyar;
const TString& idlav = row.idlavoro();
const int gruppo = row.gruppo(); TString8 grup; grup.format("%03d", gruppo);
const int conto = row.conto(); TString8 cont; cont.format("%03d", conto);
const int sotco = row.sotco(); TString16 sotc; sotc.format("%06ld", sotco);
TString80 codconto; codconto << grup << cont << sotc;
real& imp = *(real*)itm; imp.round(2);
if (!imp.is_zero())
{
TRectype& ranmo = anmo.new_row();
ranmo.put(RMOVANA_ANNOES, anno);
ranmo.put(RMOVANA_SEZIONE, causale1.get("SEZIONE"));
ranmo.put(RMOVANA_CODCONTO, codconto);
ranmo.put(RMOVANA_CODCMS, idlav);
ranmo.put(RMOVANA_IMPORTO, imp);
}
}
TLocalisamfile fmov(LF_MOVANA);
anmo.write(fmov);
}
bool TImporta_fatacq_app::transfer(const TFilename& file, const long numreg, TAssoc_array& righean)
{
TLocalisamfile mov(LF_MOV);
mov.put(MOV_NUMREG, numreg);
mov.remove();
TVB_recset s(file, ','); TVB_recset s(file, ',');
TProgind pi(s.items(),"Importazione fatture in corso ...",true,true); TProgind pi(s.items(),"Importazione fatture in corso ...",true,true);
_configfile->set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini doc.put(DOC_TIPODOC, m.get(F_TIPODOC));
_configfile->set("Action","INSERT"); doc.put(DOC_TIPOCF, "F");
_configfile->set("Mode","AUTO"); doc.put(DOC_CODCF, m.get(F_CODCF));
_configfile->set_paragraph("23"); //setto il paragrafo [23] del file ini (testata) doc.put(DOC_DATADOC, datadoc);
_configfile->set(MOV_NUMREG, numreg);
_configfile->set("SOLAIVA", "");
_configfile->set(MOV_TIPO, 'F');
_configfile->set(MOV_CODCF, _msk->get(F_CODCF));
_configfile->set(MOV_DATACOMP, _msk->get_date(F_DATAREG));
_configfile->set(MOV_DATAREG, _msk->get_date(F_DATAREG));
int nriga = 1; int nriga = 1;
real totimponibile = ZERO; TSpesa_prest p("GENPR", 'P');
real totimposta = ZERO;
const TString16 codiva = _msk->get(F_CODIVA);
const real iva = cache().get("%IVA", codiva, "R0");
const int anno = _msk->get_date(F_DATAREG).year();
TString caus = _msk->get(F_CODCAU);
_configfile->set(MOV_CODCAUS, caus);
TToken_string key(caus);
key.add("1");
const TRectype& causale = cache().get(LF_RCAUSALI, key);
const real spese = _msk->get_real(F_SPESE);
bool has_spese = ! spese.is_zero();
TGeneric_distrib d(spese, 2);
if (has_spese)
{
for (bool ok = s.move_first(); ok; ok = s.move_next())
{
if (!pi.addstatus(1))
break;
TString16 codcom = s.get(0).as_string();
if(codcom.empty())
continue;
TString16 tmp = s.get(1).as_string();
tmp.strip(".");
tmp.replace(',', '.');
real imp(tmp); imp.round(2);
d.add(imp);
}
}
for (bool ok = s.move_first(); ok; ok = s.move_next()) for (bool ok = s.move_first(); ok; ok = s.move_next())
{ {
if (!pi.addstatus(1)) if (!pi.addstatus(1))
break; break;
TString8 paragraph; TRiga_documento & row = doc.new_row("06");
paragraph.format("%d,%d", LF_RMOVIVA, nriga++);
_configfile->set_paragraph(paragraph);
TString16 codcom = s.get(0).as_string(); row.put(RDOC_CODART, p.codice());
if(codcom.empty()) row.put(RDOC_CHECKED, "X");
continue; TString16 tmp = s.get(1).as_string();
TString16 tmp = s.get(1).as_string();
tmp.strip(".");
tmp.replace(',', '.');
real imp(tmp); imp.round(2);
if (has_spese) tmp.strip(".");
imp += d.get(); tmp.replace(',', '.');
totimponibile += imp;
TCommessa cms(codcom); real imp(tmp); imp.round(doc.decimals());
row.put(RDOC_QTA, 1);
row.put(RDOC_UMQTA, p.um());
row.put(RDOC_PREZZO, imp),
row.put(RDOC_CODIVA, p.cod_iva());
const TString16 codcom = s.get(0).as_string();
TCommessa cms(codcom);
TCommessa_string ankey = cms.cmsstr(); TCommessa_string ankey = cms.cmsstr();
TBill co(ankey.gruppo(), ankey.conto(), ankey.sotco()); TString descr;
if(co.is_analitico()) descr << " Id. Lavoro " << codcom;
{
if(righean.is_key(ankey)) row.put(RDOC_DESCR, descr);
{ row.put(RDOC_CODCMS, codcom);
real& imponibile = *(real*)righean.objptr(ankey); row.put(RDOC_QTAGG1, ankey.gruppo());
imponibile += imp; row.put(RDOC_QTAGG2, ankey.conto());
} row.put(RDOC_QTAGG3, ankey.sotco());
else }
righean.add(ankey, imp); TString16 codsp = m.get(F_CODSP1);
} real perc = m.get(F_PERCSP1);
real rimposta = imp * iva / CENTO; rimposta.round(2); add_spesa(doc, codsp, perc);
totimposta += rimposta; codsp = m.get(F_CODSP2);
perc = m.get_real(F_PERCSP2);
add_spesa(doc, codsp, perc);
codsp = m.get(F_CODSP3);
perc = m.get_real(F_PERCSP3);
add_spesa(doc, codsp, perc);
_configfile->set(RMI_ANNOES, anno); return doc.write() == NOERR;
_configfile->set(RMI_IMPONIBILE, imp.string());
_configfile->set(RMI_CODIVA, codiva);
_configfile->set(RMI_IMPOSTA, rimposta.string());
_configfile->set(RMI_GRUPPO, ankey.gruppo());
_configfile->set(RMI_CONTO, ankey.conto());
_configfile->set(RMI_SOTTOCONTO, ankey.sotco());
_configfile->set(RMI_TIPOATT, 1);
}
const real totdoc = totimponibile + totimposta;
TImporto importo(causale.get("SEZIONE")[0], totdoc);
TString8 paragraph;
paragraph.format("%d,%d", LF_RMOV, 1);
_configfile->set_paragraph(paragraph);
_configfile->set(RMV_NUMRIG, 1);
_configfile->set(RMV_ANNOES, anno);
_configfile->set(RMV_SEZIONE, causale.get("SEZIONE"));
_configfile->set(RMV_IMPORTO, importo.valore().string());
_configfile->set(RMV_GRUPPO, causale.get("GRUPPO"));
_configfile->set(RMV_CONTO, causale.get("CONTO"));
_configfile->set(RMV_SOTTOCONTO, _msk->get_long(F_CODCF));
_configfile->set(RMV_TIPOC, "F");
_configfile->set(RMV_ROWTYPE, "T");
_configfile->set_paragraph("23");
_configfile->set(MOV_TOTDOC, totdoc.string());
_configfile->set_paragraph("Transaction");
return true;
} }
const char* nomeini = "ps0713300fatt.ini"; const char* nomeini = "ps0713300fatt.ini";
@ -274,9 +144,8 @@ const char* nomeini = "ps0713300fatt.ini";
bool TImporta_fatacq_app::create() bool TImporta_fatacq_app::create()
{ {
xvt_fsys_remove_file(nomeini); xvt_fsys_remove_file(nomeini);
_configfile = new TConfig(nomeini);
_msk = new TImporta_fatacq_msk(); _msk = new TImporta_fatacq_msk();
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
@ -284,34 +153,19 @@ bool TImporta_fatacq_app::create()
bool TImporta_fatacq_app::destroy() bool TImporta_fatacq_app::destroy()
{ {
delete _msk; delete _msk;
delete _configfile;
return TApplication::destroy(); return TApplication::destroy();
} }
void TImporta_fatacq_app::main_loop() void TImporta_fatacq_app::main_loop()
{ {
KEY tasto; if (_msk->run() == K_ENTER)
tasto = _msk->run();
if (tasto == K_ENTER)
{ {
//genero il nome del file da caricare
//genero il nome del file da caricare TFilename name = _msk->get(F_PATH);
TFilename name = _msk->get(F_PATH); TFilename tmp = _msk->get(F_NAME);
TFilename tmp = _msk->get(F_NAME); name.add(tmp.name());
name.add(tmp.name()); if (get_doc(name, *_msk))
TAssoc_array righean; message_box(TR("Importazione fatture completata"));
const long numreg = genera_movcg();
if (transfer(name, numreg, righean))
{
genera_analitica(numreg, righean);
TString app;
app << "cg2 -0 -i" << nomeini;
TExternal_app primanota(app);
primanota.run();
message_box(TR("Importazione fatture completata"));
}
} }
} }

18
ps/ps0713300a.h
View File

@ -1,11 +1,19 @@
//campi maschera ps0713300a //campi maschera ps0713300a
#define F_PATH 101 #define F_PATH 101
#define F_NAME 102 #define F_NAME 102
#define F_CODIVA 103 #define F_CODNUM 103
#define F_DESIVA 104 #define F_DESNUM 104
#define F_CODCAU 105 #define F_TIPODOC 105
#define F_DESCAU 106 #define F_DESTIPODOC 106
#define F_CODCF 107 #define F_CODCF 107
#define F_FRAGSOC 108 #define F_FRAGSOC 108
#define F_DATAREG 109 #define F_DATAREG 109
#define F_SPESE 110 #define F_CODSP1 110
#define F_DESCRSP1 111
#define F_PERCSP1 112
#define F_CODSP2 113
#define F_DESCRSP2 114
#define F_PERCSP2 115
#define F_CODSP3 116
#define F_DESCRSP3 117
#define F_PERCSP3 118

180
ps/ps0713300a.uml
View File

@ -10,9 +10,8 @@ PAGE "Importazione fatture" 0 0 0 0
STRING DLG_PROFILE 50 STRING DLG_PROFILE 50
BEGIN BEGIN
PROMPT 9 -12 "Profilo " PROMPT 9 -2 "Profilo "
PSELECT PSELECT
FLAGS "H"
END END
GROUPBOX DLG_NULL 90 4 GROUPBOX DLG_NULL 90 4
@ -36,68 +35,65 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 90 7 GROUPBOX DLG_NULL 90 9
BEGIN BEGIN
PROMPT 1 5 "@bParametri per l'importazione" PROMPT 1 5 "@bParametri per l'importazione"
END END
STRING F_CODIVA 4 STRING F_CODNUM 4
BEGIN BEGIN
PROMPT 2 6 "Codice IVA " PROMPT 2 6 "Numerazione"
USE %IVA HELP "Codice numerazione"
INPUT CODTAB F_CODIVA USE %NUM
DISPLAY "Codice " CODTAB INPUT CODTAB F_CODNUM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODIVA CODTAB OUTPUT F_CODNUM CODTAB
OUTPUT F_DESIVA S0 OUTPUT F_DESNUM S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAG "UPA"
WARNING "Numerazione assente"
END END
STRING F_DESIVA 50 STRING F_DESNUM 50
BEGIN BEGIN
PROMPT 25 6 "Descrizione " PROMPT 25 6 "Descrizione "
USE %IVA KEY 2 HELP "Descrizione numerazione"
INPUT S0 F_DESIVA USE %NUM KEY 2
INPUT S0 F_DESNUM
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM
END
STRING F_TIPODOC 4
BEGIN
PROMPT 2 7 "Tipo "
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB OUTPUT F_TIPODOC CODTAB
COPY OUTPUT F_CODIVA OUTPUT F_DESTIPODOC S0
CHECKTYPE NORMAL CHECKTYPE REQUIRED
FLAG "UP"
END END
STRING F_CODCAU 3 STRING F_DESTIPODOC 50
BEGIN BEGIN
PROMPT 2 7 "Causale " PROMPT 25 7 "Descrizione "
FIELD CODCAU HELP "Descrizione tipo documento"
FLAGS "UZ" USE %TIP KEY 2
USE LF_CAUSALI INPUT S0 F_DESTIPODOC
INPUT CODCAUS F_CODCAU DISPLAY "Descrizione@60" S0
DISPLAY "Cod." CODCAUS DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" DESCR COPY OUTPUT F_TIPODOC
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Tipo movimento" TIPOMOV
OUTPUT F_CODCAU CODCAUS
OUTPUT F_DESCAU DESCR
CHECKTYPE REQUIRED
END END
STRING F_DESCAU 50 STRING F_CODCF 4
BEGIN BEGIN
PROMPT 25 7 "Descrizione " PROMPT 2 8 "Fornitore "
FIELD DESCR
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCAU
DISPLAY "Descrizione @50" DESCR
DISPLAY "Cod." CODCAUS
DISPLAY "Documento" TIPODOC
DISPLAY "Registro" REG
DISPLAY "Movimento" TIPOMOV
COPY OUTPUT F_CODCAU
END
STRING F_CODCF 4
BEGIN
PROMPT 2 8 "Fornitore "
FLAG "UR" FLAG "UR"
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -109,9 +105,9 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_FRAGSOC 50 24 STRING F_FRAGSOC 50
BEGIN BEGIN
PROMPT 25 8 "Ragione Sociale " PROMPT 25 8 "Ragione Soc."
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC F_FRAGSOC INPUT RAGSOC F_FRAGSOC
@ -122,13 +118,91 @@ END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 2 9 "Data registrazione " PROMPT 2 9 "Data reg. ."
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
CURRENCY F_SPESE STRING F_CODSP1 8
BEGIN BEGIN
PROMPT 2 10 "Spese " PROMPT 2 10 "Spesa 1 "
USE SPP SELECT S6=="P"
INPUT CODTAB F_CODSP1
DISPLAY "Codice spesa" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODSP1 CODTAB
OUTPUT F_DESCRSP1 S0
OUTPUT F_PERCSP1 R2
FLAGS "U"
CHECKTYPE NORMAL
END
STRING F_DESCRSP1 50 35
BEGIN
PROMPT 25 10 "Descrizione "
USE SPP KEY 2 SELECT S6=="P"
INPUT S0 F_DESCRSP1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice spesa" CODTAB
COPY OUTPUT F_CODSP1
END
NUMBER F_PERCSP1 6 2
BEGIN
PROMPT 74 10 "Perc. "
END
STRING F_CODSP2 8
BEGIN
PROMPT 2 11 "Spesa 2 "
COPY USE F_CODSP1
INPUT CODTAB F_CODSP2
COPY DISPLAY F_CODSP1
OUTPUT F_CODSP2 CODTAB
OUTPUT F_DESCRSP2 S0
OUTPUT F_PERCSP2 R2
FLAGS "U"
CHECKTYPE NORMAL
END
STRING F_DESCRSP2 50 35
BEGIN
PROMPT 25 11 "Descrizione "
COPY USE F_DESCRSP1
INPUT S0 F_DESCRSP2
COPY DISPLAY F_DESCRSP1
COPY OUTPUT F_CODSP2
END
NUMBER F_PERCSP2 6 2
BEGIN
PROMPT 74 11 "Perc. "
END
STRING F_CODSP3 8
BEGIN
PROMPT 2 12 "Spesa 3 "
COPY USE F_CODSP1
INPUT CODTAB F_CODSP3
COPY DISPLAY F_CODSP1
OUTPUT F_CODSP3 CODTAB
OUTPUT F_DESCRSP3 S0
OUTPUT F_PERCSP3 R2
FLAGS "U"
CHECKTYPE NORMAL
END
STRING F_DESCRSP3 50 35
BEGIN
PROMPT 25 12 "Descrizione "
COPY USE F_DESCRSP1
INPUT S0 F_DESCRSP3
COPY DISPLAY F_DESCRSP1
COPY OUTPUT F_CODSP3
END
NUMBER F_PERCSP3 6 2
BEGIN
PROMPT 74 12 "Perc. "
END END
ENDPAGE ENDPAGE