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

Patch level : 10.0 860

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

NUovo programma per esportazione bolle in txt (CHIMA)


git-svn-id: svn://10.65.10.50/branches/R_10_00@21335 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-12-19 09:04:43 +00:00
parent 674507387f
commit 53d0dc3d51
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lv/lv4800.cpp
View File

@ -55,6 +55,8 @@ void TSpedisci_bolla::output_doc(const char * outdir)
const long codcf = ini.get_long(DOC_CODCF, para);
const TDate datadoc(ini.get(DOC_DATADOC, para));
const int codaut = ini.get_int(DOC_CODAG, para);
const int codage2 = ini.get_int(DOC_CODAGVIS, para);
const int codindsp = ini.get_int(DOC_CODINDSP, para);
TDocumento doc(provv, anno, codnum,ndoc);
const int rows = doc.physical_rows();
@ -62,6 +64,7 @@ void TSpedisci_bolla::output_doc(const char * outdir)
TFilename outname(outdir);
outname.add(format("bo%06ld%06ld", codcf, ndoc));
outname.ext("dat");
ofstream outfile(outname);
@ -69,18 +72,20 @@ void TSpedisci_bolla::output_doc(const char * outdir)
{
const TRiga_documento row = doc[r];
real qta = row.get_real(RDOC_QTA); qta.floor();
TString16 sqta = qta.string(9, 0, '0');
const TString & codart = row.get(RDOC_CODART);
TString16 sqta = qta.string(6, 0, '0');
const TString codart = row.get(RDOC_CODART);
const TString caus = row.get(RDOC_CODAGG1);
real qtarit = row.get_real(RDOC_QTA); qtarit.floor();
TString16 sqtarit = qtarit.string(6, 0, '0');
outrow.cut(0);
outrow.format("%06ld%2s%06ld%08ld%-20s%9s%04d", codcf, (const char *) codnum.mid(1), ndoc, datadoc.date2ansi(), (const char *) codart, (const char *)sqta, codaut);
outrow.format("%06ld%2s%06ld%08ld%-20s%6s%04d%3s%06s%04d%04d", codcf, (const char *) codnum.mid(1), ndoc, datadoc.date2ansi(), (const char *) codart, (const char *)sqta, codaut, (const char *)caus, (const char *) sqtarit, codage2, codindsp);
outfile << outrow << '\n';
}
}
void TSpedisci_bolla::main_loop() //definizione della member function main_loop, della classe TSpedisci_bolla
{
message_box("Start");
TFilename outdir(argv(2)); outdir.lower();
if (outdir.starts_with("-d"))