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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
importazione ordini e-commerce di GF: aggiunti prezzo e magazzino


git-svn-id: svn://10.65.10.50/branches/R_10_00@20933 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-09-30 15:59:20 +00:00
parent 2d2f813f33
commit d480176d21
3 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ps/ps0398100.cpp
View File

@ -69,6 +69,7 @@ TTrasferimento_ordini_recordset::TTrasferimento_ordini_recordset(const char* fil
class TTrasferimento_ordini : public TSkeleton_application class TTrasferimento_ordini : public TSkeleton_application
{ {
TTrasferimento_ordini_mask* _mask; TTrasferimento_ordini_mask* _mask;
TString4 _codmag;
protected: protected:
virtual bool check_autorization() const {return false;} virtual bool check_autorization() const {return false;}
@ -260,7 +261,9 @@ void TTrasferimento_ordini::elab_ra(const TString& riga_txt, const int curr_nrig
curr_ini.set(RDOC_CODART, codart); curr_ini.set(RDOC_CODART, codart);
curr_ini.set(RDOC_QTA, str_qta); curr_ini.set(RDOC_QTA, str_qta);
const real prezzo = riga_ord.get(); //per adesso non ci va? TString80 str_prezzo = riga_ord.get(); //per adesso ci si mette il prezzo sull'ordine
str_prezzo.replace(',', '.');
curr_ini.set(RDOC_PREZZO, str_prezzo);
//e per ultime le eventuali note //e per ultime le eventuali note
const TString nota = riga_ord.get(); const TString nota = riga_ord.get();
if (nota.full()) if (nota.full())
@ -268,6 +271,9 @@ void TTrasferimento_ordini::elab_ra(const TString& riga_txt, const int curr_nrig
curr_ini.set(RDOC_DESCLUNGA, "X"); curr_ini.set(RDOC_DESCLUNGA, "X");
curr_ini.set(RDOC_DESCEST, nota); curr_ini.set(RDOC_DESCEST, nota);
} }
//anzi, per ultimissimo il magazzino
curr_ini.set(RDOC_CODMAG, _codmag);
} }
@ -436,6 +442,9 @@ bool TTrasferimento_ordini::elabora()
TProgind pi(n_files_txt, TR("Acquisizione ordini in corso..."), true, true); TProgind pi(n_files_txt, TR("Acquisizione ordini in corso..."), true, true);
TLog_report log("ERRORI DI TRASFERIMENTO"); TLog_report log("ERRORI DI TRASFERIMENTO");
//si accatta anche il magazzino
_codmag = _mask->get(F_CODMAG);
//ciclo su tutti i files .txt da esaminare //ciclo su tutti i files .txt da esaminare
for (int i = 0; i < n_files_txt; i++) for (int i = 0; i < n_files_txt; i++)
{ {

2
ps/ps0398100a.h
View File

@ -4,3 +4,5 @@
#define F_DESNUM 105 #define F_DESNUM 105
#define F_TIPODOC 106 #define F_TIPODOC 106
#define F_DESTIPODOC 107 #define F_DESTIPODOC 107
#define F_CODMAG 108
#define F_DESMAG 109

24
ps/ps0398100a.uml
View File

@ -1,6 +1,6 @@
#include "ps0398100a.h" #include "ps0398100a.h"
PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 10 PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 12
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
@ -81,6 +81,28 @@ BEGIN
COPY OUTPUT F_TIPODOC COPY OUTPUT F_TIPODOC
END END
STRING F_CODMAG 3
BEGIN
PROMPT 2 9 "Magazzino "
USE MAG
INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODMAG CODTAB
OUTPUT F_DESMAG S0
CHECKTYPE REQUIRED
END
STRING F_DESMAG 50
BEGIN
PROMPT 24 9 ""
USE MAG KEY 2
INPUT S0 F_DESMAG
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODMAG
END
STRING DLG_PROFILE 50 STRING DLG_PROFILE 50
BEGIN BEGIN
PROMPT 1 -1 "Profilo " PROMPT 1 -1 "Profilo "