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

Patch level :4.0 602

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Correzione trasferimento da galileo


git-svn-id: svn://10.65.10.50/trunk@14839 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2007-02-02 16:54:52 +00:00
parent 5d7a8be2ba
commit 2097440ae6
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ve/ve7701.cpp
View File

@ -88,7 +88,7 @@ bool TGalileo_clifo::dump()
TFilename path = _path; path.add("clifo.txt");
TSystemisamfile clifo(LF_CLIFO);
int err = clifo.dump(path, lista_dump, 1, '|', '\0', '\10', true, false, NULL, select_clifo, this);
int err = clifo.dump(path, lista_dump, 1, '|', '\0', '\n', true, false, NULL, select_clifo, this);
if (err == NOERR)
log("Errore di scrittura del file clifo.txt", 0);
return true;
@ -258,17 +258,23 @@ bool TGalileo_articoli::dump()
if (campo_orig.full())
lista_dump.add(campo_dest);
}
TFilename path = _path;
path.add("umart.txt");
ini.list_variables(lista_anamag, true, "UMART", true);
TToken_string lista_umart;
FOR_EACH_ARRAY_ROW(lista_anamag,k,rowu)
{
rowu->get(0, campo_dest);
lista_umart.add(campo_dest);
}
TSystemisamfile anamag(LF_ANAMAG);
TSystemisamfile umart(LF_UMART);
TToken_string cazzo; // Programma interessante, ma per pochi!
int err = umart.dump(path, cazzo, 1, '|', '\0', '\10', true, false,
TFilename path = _path;
path.add("umart.txt");
int err = umart.dump(path, lista_umart, 1, '|', '\0', '\n', true, false,
NULL, select_umart, this);
if (err != NOERR)
log("Errore di scrittura umart.txt", 2);
path = _path; path.add("anamag.txt");
err = anamag.dump(path, lista_dump, 1, '|', '\0', '\10', true, false,
err = anamag.dump(path, lista_dump, 1, '|', '\0', '\n', true, false,
NULL, select_articoli, this);
if (err != NOERR)
log("Errore di scrittura anamag.txt", 0);