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            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21785 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-03-14 15:24:19 +00:00
parent f9e8b8e3a4
commit 4fe91b4ea5
4 changed files with 36 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ps/ps0330100.cpp
View File

@ -83,6 +83,7 @@ void TMultimarche::elabora()
{
TRecordset* recset = rep.recordset();
const long anno = _mask->get_int(F_ANNO);
const TString4 codmag = _mask->get(F_CODMAG);
//crea l'elenco delle marche
TString marche_query;
@ -106,6 +107,7 @@ void TMultimarche::elabora()
const TString4 marca = marche_recset.get(ANAMAG_CODART).as_string();
recset->set_var("#MARCA", marca);
recset->set_var("#ANNO", anno);
recset->set_var("#CODMAG", codmag);
const long items = recset->items();
if (items > 0)
{

6
ps/ps0330100a.h
View File

@ -3,6 +3,8 @@
#define F_DAMARCA_D 103
#define F_AMARCA 104
#define F_AMARCA_D 105
#define F_REPORT 107
#define F_PATH_FILE 108
#define F_CODMAG 106
#define F_DESCRMAG 107
#define F_REPORT 108
#define F_PATH_FILE 109

4
ps/ps0330100a.rep
View File

@ -29,7 +29,7 @@ SELECT (CODART[1,3]=#MARCA)(CODART!=#MARCA)
BY ANAMAG.DESCR
JOIN ANAMAG INTO CODART=CODART
JOIN UMART INTO CODART=CODART NRIGA=1
FROM ANNOES=#ANNO
TO ANNOES=#ANNO
FROM ANNOES=#ANNO CODMAG=#CODMAG
TO ANNOES=#ANNO CODMAG=#CODMAG
</sql>
</report>

31
ps/ps0330100a.uml
View File

@ -1,6 +1,6 @@
#include "ps0330100a.h"
PAGE "Rimanenze per marca" -1 -1 78 10
PAGE "Rimanenze per marca" -1 -1 78 13
NUMBER F_ANNO 4
BEGIN
@ -57,16 +57,41 @@ BEGIN
CHECKTYPE SEARCH
END
STRING F_CODMAG 3
BEGIN
PROMPT 2 6 "Magazzino "
USE MAG SELECT CODTAB[4,5]==""
FLAGS "U"
INPUT CODTAB F_CODMAG
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Denominazione magazzino@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_DESCRMAG S0
CHECKTYPE REQUIRED
END
STRING F_DESCRMAG 50
BEGIN
PROMPT 22 6 ""
USE MAG KEY 2
INPUT S0 F_DESCRMAG
DISPLAY "Denominazione magazzino@50" S0
DISPLAY "Codice" CODTAB[1,3]
COPY OUTPUT F_CODMAG
CHECKTYPE REQUIRED
WARNING "Manca la denominazione del magazzino"
END
STRING F_REPORT 50
BEGIN
PROMPT 1 6 "Report "
PROMPT 1 8 "Report "
RSELECT "ps0330"
CHECKTYPE REQUIRED
END
STRING F_PATH_FILE 255 50
BEGIN
PROMPT 1 7 "Cartella dest. "
PROMPT 1 9 "Cartella dest. "
DSELECT
FLAGS "M"
CHECKTYPE REQUIRED