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            :
personalizzazione model assistance sistemata per il listino e l'anno


git-svn-id: svn://10.65.10.50/branches/R_10_00@21734 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-03-03 14:12:21 +00:00
parent 3055eb875b
commit 22a184cabd
4 changed files with 69 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ps/ps0330100a.uml
View File

@ -83,13 +83,7 @@ ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT 1 1 "~Mmmuuu!"
PICTURE TOOL_PACK2MAG
END
#include <helpbar.h>
#include <elabar.h>
ENDPAGE

39
ps/ps0330200.cpp
View File

@ -95,22 +95,40 @@ void TDisp_by_ftp::elabora()
file_txt.ext(".txt");
ofstream file_output(file_txt);
TString query;
//se è stato selezionato un listino (ovvero il programma funziona come richiesto dalla ModelAssistance)..
const TString4 codlis = _mask->get(F_CODLIS);
const bool usa_listino = codlis.full();
if (usa_listino)
{
query << "USE RCONDV";
query << "\nJOIN 109 INTO ANNOES=#ANNO CODART==CODRIGA";
query << "\nJOIN ANAMAG INTO CODART==CODRIGA";
query << "\nJOIN UMART INTO CODART==CODRIGA NRIGA=1";
query << "\nFROM TIPO=L COD=#CODLIS TIPORIGA=A";
query << "\nTO TIPO=L COD=#CODLIS TIPORIGA=A";
}
else
{
//crea il recordset da esportare
//esporta dati dalle giacenze di magazzino, l'anagrafica articolo, l'unità di misura
TString query;
query << "USE 109";
query << "\nBY ANAMAG.CODART";
query << "\nJOIN ANAMAG INTO CODART==CODART";
query << "\nJOIN UMART INTO CODART=CODART NRIGA=1";
query << "\nFROM ANNOES=#ANNO";
query << "\nTO ANNOES=#ANNO";
query << "USE 109";
query << "\nBY ANAMAG.CODART";
query << "\nJOIN ANAMAG INTO CODART==CODART";
query << "\nJOIN UMART INTO CODART=CODART NRIGA=1";
query << "\nFROM ANNOES=#ANNO";
query << "\nTO ANNOES=#ANNO";
}
TISAM_recordset recset(query);
const TDate today(TODAY);
const long anno = 2009; //today.year();
const long anno = today.year();
recset.set_var("#ANNO", anno);
if (usa_listino)
recset.set_var("#CODLIS", codlis);
const long items = recset.items();
TProgind pi(items, "Elaborazione in corso...", true, true);
@ -134,7 +152,7 @@ void TDisp_by_ftp::elabora()
record.add(""); //co. prodotto produttore
const real giac = recset.get("GIAC").as_real();
const real giac = recset.get("109.GIAC").as_real();
const long int_giac = giac.integer();
record.add(int_giac); //quantita' disponibile
@ -176,7 +194,8 @@ void TDisp_by_ftp::elabora()
//spostamento del file locale nella directory di destinazione
TFilename dst_file = _mask->get(F_FTP_PATH);
dst_file.add(file_txt.name());
const int err = xvt_fsys_fcopy(file_txt, dst_file);
if (!xvt_fsys_fcopy(file_txt, dst_file))
warning_box("Impossibile spostare il file nella cartella ftp indicata");
}

6
ps/ps0330200a.h
View File

@ -1,4 +1,6 @@
#define F_FILENAME 201
#define F_FTP_PATH 202
#define F_CODLIS 201
#define F_DESLIS 202
#define F_FILENAME 203
#define F_FTP_PATH 204

47
ps/ps0330200a.uml
View File

@ -1,26 +1,55 @@
#include "ps0330200a.h"
PAGE "Esportazione disponibilita' via FTP" -1 -1 78 6
PAGE "Esportazione disponibilita' via FTP" -1 -1 78 8
STRING F_CODLIS 3
BEGIN
PROMPT 1 1 "Listino "
USE CONDV
INPUT TIPO "L"
INPUT COD F_CODLIS
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
DISPLAY "Inizio validita'" VALIN
DISPLAY "Fine validità" VALFIN
OUTPUT F_CODLIS COD
OUTPUT F_DESLIS DESCR
CHECKTYPE NORMAL
END
STRING F_DESLIS 50
BEGIN
PROMPT 22 1 ""
USE CONDV KEY 2
INPUT TIPO "L"
INPUT DESCR F_DESLIS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" COD
DISPLAY "Inizio validita'" VALIN
DISPLAY "Fine validità" VALFIN
COPY OUTPUT F_CODLIS
CHECKTYPE NORMAL
END
TEXT DLG_NULL
BEGIN
PROMPT 1 0 "Nome del file txt da esportare (SENZA estensione '.txt' !)"
PROMPT 1 3 "Nome del file txt da esportare (SENZA estensione '.txt' !)"
END
STRING F_FILENAME 32
BEGIN
PROMPT 1 1 ""
PROMPT 1 4 ""
CHECKTYPE REQUIRED
END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "Indirizzo ftp di destinazione (scritto come ftp://utente:password@sito)"
PROMPT 1 5 "Indirizzo ftp di destinazione (scritto come ftp://utente:password@sito)"
END
STRING F_FTP_PATH 255 75
BEGIN
PROMPT 1 4 ""
PROMPT 1 6 ""
FLAGS "M"
CHECKTYPE REQUIRED
END
@ -35,13 +64,7 @@ ENDPAGE
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT 1 1 "~Mmmuuu!"
PICTURE TOOL_PACK2MAG
END
#include <helpbar.h>
#include <elabar.h>
ENDPAGE