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     : PS0398.exe
Ricompilazione Demo : [ ]
Commento

Trasferimento degli ordini da ftp direttamente


git-svn-id: svn://10.65.10.50/branches/R_10_00@20985 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-10-11 14:20:21 +00:00
parent 8219f58494
commit 7ab0a6d529
2 changed files with 11 additions and 9 deletions

18
ps/ps0398100.cpp

@ -387,12 +387,13 @@ bool TTrasferimento_ordini::elabora_file_txt(TTrasferimento_ordini_recordset& re
bool TTrasferimento_ordini::sposta_file_elaborato(const TFilename& dst_file, const TFilename& curr_fname,
TLog_report& log)
{
bool copia_riuscita = fcopy(curr_fname, dst_file);
bool copia_riuscita = fcopy(curr_fname, dst_file, false, true);
if (copia_riuscita)
{
const long src_size = fsize(curr_fname);
const long dst_size = fsize(dst_file);
copia_riuscita = src_size == dst_size;
copia_riuscita = src_size == dst_size;
}
if (!copia_riuscita)
{
@ -401,15 +402,12 @@ bool TTrasferimento_ordini::sposta_file_elaborato(const TFilename& dst_file, con
log.log(2, msg);
}
else //se va tutto bene elimina il file dalla directory di origine
{
const bool src_file_removed = remove_file(curr_fname);
if (!src_file_removed)
if (!remove_file(curr_fname))
{
TString msg;
msg.format("Impossibile eliminare il file origine %s ", curr_fname.name());
log.log(1, msg);
}
}
return copia_riuscita;
}
@ -417,7 +415,7 @@ bool TTrasferimento_ordini::sposta_file_elaborato(const TFilename& dst_file, con
bool TTrasferimento_ordini::elabora()
{
TFilename src_files = _mask->get(F_PATH_SRC);
src_files.add("*header.txt");
src_files.add("*HEADER.txt");
TString_array src_files_list;
//dalla cartella origine prende tutti i files *HEADER.txt e crea una simpatica lista
const int n_files_txt = list_files(src_files, src_files_list);
@ -453,9 +451,13 @@ bool TTrasferimento_ordini::elabora()
//file in formato filename (è l'ordine corrente da elaborare)
const TFilename curr_fname = src_files_list.row(i);
TFilename tempfile(tmp);
tempfile << '/' << curr_fname.name();
fcopy(curr_fname, tempfile, false, true);
//creazione del recordset associato al file
TTrasferimento_ordini_recordset recset(curr_fname);
TTrasferimento_ordini_recordset recset(tempfile);
//se il file non è di GF (si vede dal codart) viene saltato! ohp!
if (!ordine_gf(recset))

2
ps/ps0398100a.uml

@ -85,7 +85,7 @@ STRING F_CODMAG 3
BEGIN
PROMPT 2 9 "Magazzino "
USE MAG
INPUT CODTAB F_TIPODOC
INPUT CODTAB F_CODMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODMAG CODTAB