root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ps/pe0001100.cpp
cris edebc36b52 Patch level : 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : avanzamento lavoro per gallo


git-svn-id: svn://10.65.10.50/trunk@19763 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-12-14 14:04:57 +00:00

328 lines
13 KiB
C++
Executable File
Raw Blame History

#include <applicat.h>
#include <automask.h>
#include <execp.h>
#include <progind.h>
#include <reputils.h>
#include <utility.h>
#include <relation.h>
#include <reprint.h>
#include <textset.h>
#include "tabutil.h"
#include "pe0001.h"
#include "pe0001100a.h"
#include <causali.h>
#include <clifo.h>
#include <mov.h>
#include <rmoviva.h>
class TImporta_mov_recset : public TAS400_recordset
{
const TVariant& get_field(const TAS400_column_info& fi) const;
public:
TImporta_mov_recset(const char* query = "");
virtual ~TImporta_mov_recset() { }
};
TImporta_mov_recset::TImporta_mov_recset(const char* query)
: TAS400_recordset(TString("AS400(269,0,0)\n") << query)
{
// questi sono i campi dell'applicazione originaria servono solo di esempio!!!
create_field("Impianto", 0, 8);
create_field("Cliente", 8, 3);
create_field("Filler01", 11, 14);
create_field("Schede", 25, 5, _intfld);
create_field("Data", 30, 8, _datefld);
create_field("Ora", 38, 8);
create_field("Pompa", 46, 2);
create_field("Prodotto", 48, 15);
create_field("Volume", 63, 15, _realfld);
create_field("Importo", 78, 15, _realfld);
create_field("Prezzo", 93, 15, _realfld);
create_field("Note", 108, 20);
create_field("Ins.Manuale", 128, 1);
create_field("Num. Buono", 129, 10, _realfld);
create_field("DataStampa", 139, 8, _datefld);
create_field("OraStampa", 147, 8);
create_field("Fller02", 155, 1);
create_field("Contatore", 156, 10, _realfld);
create_field("Num. Fattura", 166, 10, _realfld);
create_field("Sconto", 176, 15, _realfld);
create_field("Mess Inc.", 191, 4);
create_field("ID", 195, 10, _realfld);
create_field("Ora Registrazione", 205, 8);
create_field("Venduto", 213, 1);
create_field("Temperatura", 214, 15, _realfld);
create_field("Densitŕ", 229, 15, _realfld);
create_field("Fatt54b", 244, 15, _realfld);
create_field("Data", 259, 8, _datefld);
// questi sono i campi per Sicuri
create_field("AT01CM" 1 1 1 Record attivo/sospeso/annullato DIZSMAS - ATTI
create_field("DT01CM" P 2 6 5 8 0 Data stampa per G.Gen.le DIZSMAS - DATS
create_field("NR01CM" P 7 11 5 9 0 Numero azione di aggiornamento DIZSMAS - NRAZ
create_field("TPMVCM" A 12 12 1 Flag IVA I=IVA =no IVA DIZSMAS - TPMV
create_field("CDDTCM" A 13 14 2 Codice Ditta DIZSMAS - CDDT
create_field("AAPRCM" A 15 15 1 Anno Operazione DIZSMAS - AAPR
create_field("ANNPCM" S 16 19 4 4 0 Anno Reg.DA GESTIRE DIZSMAS - ANNP
create_field("TPGICM" A 20 20 1 Giornale IVA TB=GI DIZSMAS - TPGI
create_field("DTOPCM" P 21 25 5 8 0 Data operazione DIZSMAS - DATS
create_field("NONPCM" S 26 32 7 7 0 Nr. Operaz./Nr. Prot. DIZSMAS - NONP
create_field("NRRGCM" S 33 37 5 5 0 Numero Riga 2 DIZSMAS - NRR2
create_field("NRGICM" P 38 41 4 7 0 Nr Riga Giornale DIZSMAS - NRGI
create_field("CONTCM" A 42 51 10 Gr. Conto Sottoconto DIZSMAS - CONT
create_field("DIVICM" A 52 52 1 Divisione TB=DI DIZSMAS - DIVI
create_field("NPARCM" S 53 59 7 7 0 Nr Partita DIZSMAS - NPAR
create_field("AAOPCM" S 60 63 4 4 0 Anno partita DIZSMAS - ANNO
create_field("DTRGCM" P 64 68 5 8 0 Data registrazione DIZSMAS - DATS
create_field("CAUSCM" A 69 70 2 Causale TB=CA DIZSMAS - CAUS
create_field("DSUPCM" A 71 95 25 Descrizione Supplementare DIZSMAS - DSUP
create_field("IMPOCM" P 96 102 7 13 2 Importo "-"=Avere DIZSMAS - IMPO
create_field("CDVACM" A 103 104 2 Codice Valuta TB=VA DIZSMAS - CDVA
create_field("CAMBCM" P 105 111 7 13 6 Cambio DIZSMAS - CAMB
create_field("IMVACM" P 112 118 7 13 2 Importo Valuta DIZSMAS - IMVA
create_field("CDPGCM" A 119 121 3 Codice di Pagamento TB=CP DIZSMAS - CDPG
create_field("DT1SCM" P 122 126 5 8 0 Data I^ scadenza DIZSMAS - DATS
create_field("DTDOCM" P 127 131 5 8 0 Data documento DIZSMAS - DATS
create_field("NRDOCM" P 132 135 4 7 0 N° Documento DIZSMAS - NUDO
create_field("CCTPCM" A 136 138 3 Centri Costo Tipico TB=CC DIZSMAS - CCTP
create_field("NCOMCM" A 139 143 5 Numero Commessa DIZSMAS - NCOM
create_field("CDSCCM" A 144 158 15 Codice Sottocommessa DIZSMAS - CDSC
create_field("INDECM" P 159 160 2 3 0 Indetraibilitŕ % DIZSMAS - INDE
create_field("CDIVCM" A 161 162 2 Codice IVA DIZSMAS - CDIV
create_field("IMPSCM" P 163 169 7 13 2 Imposta DIZSMAS - IMPS
create_field("CDAGCM" A 170 172 3 Codice Agente DIZSMAS - CDAG
create_field("DTVBCM" P 173 177 5 8 0 Data Liquidazione Iva Sospesa DIZSMAS - DATS
create_field("FLSBCM" A 178 178 1 Flag *=Stampato Bollato DIZSMAS - FLSB
create_field("FSBICM" A 179 179 1 Flag *=Stampato Boll.IVA DIZSMAS - FSBI
create_field("FLVZCM" A 180 180 1 V=Var.S=Storno P=Liq.prec. E=Esig.Sosp. DIZSMAS - FLVZ
create_field("FLIICM" A 181 181 1 Flag IVA Irrecup. " "=I irr. DIZSMAS - FLII
create_field("FLTSCM" A 182 182 1 Flag Tipo Sollecito DIZSMAS - FLTS
create_field("FLEPCM" A 183 183 1 *=Est.EP Non č piů usato DIZSMAS - FLEP
create_field("DPERCM" A 184 193 10 Dati Personalizzabili DIZSMAS - DPER
create_field("CONSCM" A 194 203 10 Gr.Co.Sottoc.Sostitutivo DIZSMAS - CONS
create_field("DTSTCM" S 204 210 7 7 0 Nr.progr. rateo/risconto -
create_field("USERCM" A 211 220 10 Utente DIZSMAS - NOMU
create_field("DTUMCM" P 221 225 5 8 0 Data ultima manutenzione DIZSMAS - DATS
create_field("TPUMCM" A 226 226 1 Tipo ultima manutenzione DIZSMAS - FLAG
create_field("FL01CM" A 227 227 1 Flag Generico DIZSMAS - FLAG
create_field("FL02CM" A 228 228 1 Flag Generico DIZSMAS - FLAG
create_field("FL03CM" A 229 229 1 Flag Generico DIZSMAS - FLAG
create_field("FL04CM" A 230 230 1 Flag Generico DIZSMAS - FLAG
create_field("FL05CM" A 231 231 1 Flag Generico DIZSMAS - FLAG
create_field("CMBECM" P 232 238 7 13 6 Cambio EURO DIZSMAS - CAME
create_field("IMVACM2" P 239 245 7 13 2 Importo Val 2 DIZSMAS - IMPO
create_field("IMPSCM2" P 246 252 7 13 2 Imposta 2 DIZSMAS - IMPS
}
const TVariant& TImporta_mov_recset::get_field(const TAS400_column_info& ci) const
{
if (ci._type == _datefld)
{
TVariant & var = get_tmp_var();
const TRecnotype n = current_row();
if (n >= 0 && n < items())
{
const TString& str = row(n).mid(ci._pos, ci._width);
long ansi = 20000000L + atoi(str.right(2)) * 10000 + atoi(str.mid(3,2)) * 100 + atoi(str.left(2));
if (ansi > 20510000L)
ansi -= 1000000L;
var = TDate(ansi);
}
return var;
}
else
if (ci._type == _realfld)
{
TVariant & var = get_tmp_var();
const TRecnotype n = current_row();
if (n >= 0 && n < items())
{
const TString& str = row(n).mid(ci._pos, ci._width);
var = real(real::ita2eng(str));
}
return var;
}
return TAS400_recordset::get_field(ci);
}
///////////////////////////////////////////////////////////
// TAutomask
///////////////////////////////////////////////////////////
class TImporta_mov_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TImporta_mov_mask();
};
TImporta_mov_mask::TImporta_mov_mask() :TAutomask ("pe0001100a")
{
}
bool TImporta_mov_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("*.csv"); //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_mov : public TSkeleton_application
{
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "ve";}
TImporta_mov_mask* _msk;
TConfig* _configfile;
//protected:
public:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
bool transfer(const TFilename& file);
TImporta_mov() {};
};
bool TImporta_mov::transfer(const TFilename& file)
{
TImporta_mov_recset s(file);
TProgind pi(s.items(),"Importazione movimenti in corso ...",true,true);
_configfile->set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini
_configfile->set("Action","INSERT");
_configfile->set("Mode","AUTO");
_configfile->set_paragraph("23"); //setto il paragrafo [23] del file ini (testata)
_configfile->set(MOV_TIPO,"F");
_configfile->set(MOV_CODCF, _msk->get(F_CODCF));
_configfile->set(MOV_CODCAUS, _msk->get(F_CODCAU));
_configfile->set(MOV_DATAREG, _msk->get(F_DATAREG));
int nriga = 1;
for (bool ok=s.move_first();ok;ok=s.move_next())
{
if (!pi.addstatus(1))
break;
TString8 paragraph;
paragraph.format("%d,%d",LF_RMOVIVA,nriga++);
_configfile->set_paragraph(paragraph);
TString16 codcom = s.get(0).as_string();
real imp = s.get(1).as_real();
_configfile->set(RMI_IMPONIBILE,imp.string());
_configfile->set(RMI_CODIVA,_msk->get(F_CODIVA));
_configfile->set(RMI_CODCMS,codcom);
}
_configfile->set_paragraph("Transaction");
return true;
}
const char* nomeini = "pe0001100fatt.ini";
bool TImporta_mov::create()
{
xvt_fsys_removefile(nomeini);
_configfile = new TConfig(nomeini);
_msk = new TImporta_mov_mask();
return TSkeleton_application::create();
}
bool TImporta_mov::destroy()
{
delete _msk;
delete _configfile;
return TApplication::destroy();
}
void TImporta_mov::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));
if (transfer(name))
{
TString app;
app << "cg2 -0 -i" << nomeini;
TExternal_app primanota(app);
primanota.run();
message_box(TR("Importazione movimenti completata"));
}
}
}
TImporta_mov& app() { return (TImporta_mov&) main_app(); }
int pe0001100 (int argc, char* argv[])
{
TImporta_mov main_app;
main_app.run(argc, argv, TR("Importazione movimenti di contab."));
return true;
}
Reference in New Issue View Git Blame Copy Permalink