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     : pd0610 pd0610300a.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunto il filtro sul totdoc


git-svn-id: svn://10.65.10.50/branches/R_10_00@21425 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-01-12 16:30:25 +00:00
parent c384841a44
commit cd691136c7
3 changed files with 33 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ps/pd0610300.cpp
View File

@ -35,9 +35,13 @@ bool TSost_condpag_msk::elabora_documenti()
const long dacodcf = get_long(F_DACODCF);
const long acodcf = get_long(F_ACODCF);
const TString8 codnum = get(F_CODNUM);
const real totdoc = get_real(F_TOTDOC);
TString query;
query << "USE DOC SELECT (CODNUM=\"" << codnum << "\")&&(TIPODOC=\"" << tipodoc << "\")&&(STATO=\"" << stato << "\")&&(TIPOCF=\"C\")&&(BETWEEN(CODCF," << dacodcf << "," << acodcf << "))&&(BETWEEN(DATADOC,#DADATA,#ADATA))\n"
query << "USE DOC SELECT (CODNUM=\"" << codnum << "\")&&(TIPODOC=\"" << tipodoc << "\")&&(STATO=\"" << stato << "\")&&(TIPOCF=\"C\")&&(BETWEEN(CODCF," << dacodcf << "," << acodcf << "))&&(BETWEEN(DATADOC,#DADATA,#ADATA))";
if(totdoc > ZERO)
query << "&&(TOTDOC<=" << totdoc << ')';
query << "\n"
<< "FROM PROVV=\"D\" ANNO=" << daanno << "\n"
<< "TO PROVV=\"D\" ANNO=" << aanno;

17
ps/pd0610300a.h
View File

@ -5,11 +5,12 @@
#define F_DESTIPODOC 204
#define F_STATO 205
#define F_DESSTATO 206
#define F_DACODCF 207
#define F_DARAGSOC 208
#define F_ACODCF 209
#define F_ARAGSOC 210
#define F_DADATA 211
#define F_ADATA 212
#define F_CODPAG 213
#define F_DESPAG 214
#define F_DADATA 207
#define F_ADATA 208
#define F_TOTDOC 209
#define F_DACODCF 210
#define F_DARAGSOC 211
#define F_ACODCF 212
#define F_ARAGSOC 213
#define F_CODPAG 214
#define F_DESPAG 215

33
ps/pd0610300a.uml
View File

@ -89,9 +89,24 @@ BEGIN
CHECKTYPE REQUIRED
END
DATE F_DADATA
BEGIN
PROMPT 2 5 "Filtra documenti dal "
END
DATE F_ADATA
BEGIN
PROMPT 37 5 "al "
END
CURRENCY F_TOTDOC 8
BEGIN
PROMPT 53 5 "Tot. documento "
END
NUMBER F_DACODCF 6
BEGIN
PROMPT 2 5 "Da cliente "
PROMPT 2 6 "Da cliente "
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_DACODCF
@ -103,7 +118,7 @@ END
STRING F_DARAGSOC 50
BEGIN
PROMPT 25 5 ""
PROMPT 25 6 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_DARAGSOC
@ -114,7 +129,7 @@ END
NUMBER F_ACODCF 6
BEGIN
PROMPT 2 6 "A cliente "
PROMPT 2 7 "A cliente "
USE LF_CLIFO
INPUT TIPOCF "C" SELECT
INPUT CODCF F_ACODCF
@ -126,7 +141,7 @@ END
STRING F_ARAGSOC 50
BEGIN
PROMPT 25 6 ""
PROMPT 25 7 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C" SELECT
INPUT RAGSOC F_ARAGSOC
@ -135,16 +150,6 @@ BEGIN
COPY OUTPUT F_ACODCF
END
DATE F_DADATA
BEGIN
PROMPT 2 7 "Filtra documenti dal "
END
DATE F_ADATA
BEGIN
PROMPT 37 7 "al "
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 9 "@bNuova Condizione"