Patch level : 10.0 patch 820

Files correlati     :
Ricompilazione Demo : [ ]
Commento


git-svn-id: svn://10.65.10.50/branches/R_10_00@21007 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-10-13 23:35:59 +00:00
parent 0c81874e86
commit 05627b62c9
2 changed files with 38 additions and 13 deletions

View File

@ -219,8 +219,8 @@ MESSAGE RESET,F3.2000</prescript>
<font face="Courier New" bold="1" size="10" />
</field>
</section>
<sql>USE 34 KEY 5
SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)&#26;&#26;(34.CODART!='')&#26;&#26;(BETWEEN(33.CODCF,#F_CODCF,#F_CODCF))&#26;&#26;(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))&#26;&#26;(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))&#26;&#26;(BETWEEN(34.CODART,#F_CODART,#F_CODART))&#26;&#26;(BETWEEN(34.CODAGG1,#F_CODAGG1,#F_CODAGG1)))
<sql>USE 34 KEY 2
SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)&#26;&#26;(BETWEEN(33.CODCF,#F_CODCF,#F_CODCF))&#26;&#26;(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))&#26;&#26;(BETWEEN(34.CODAGG1,#F_CODAGG1,#F_CODAGG1)))
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 47 TO 34 INTO CODART==CODART
@ -229,6 +229,6 @@ JOIN 169 TO 34 INTO CODCF==#F_CODCF CODART==CODART CODCONT='1'
JOIN &#26;CAU TO 34 INTO CODTAB==CODAGG1
JOIN %CAU TO &#26;CAU ALIAS 104 INTO COD==COD CODTAB==S1
JOIN %CAU TO &#26;CAU ALIAS 204 INTO COD==COD CODTAB==S2
</sql>
</report>
FROM CODNUM=#F_CODNUM ANNO=#F_ANNO PROVV='D' CODART=#FROM
TO CODNUM=#F_CODNUM ANNO=#F_ANNO PROVV='D' CODART=#TO</sql>
</report>

View File

@ -51,6 +51,9 @@ STRING 203 20
OUTPUT 203 CODART
OUTPUT 204 DESCR
FIELD #F_CODART
MESSAGE EMPTY "",215|"ZZZZZZZZZZZZZZZZZZZ",216
MESSAGE COPY,215|COPY,216
CHECKTYPE NORMAL
END
STRING 204 50
@ -65,6 +68,20 @@ BE
FIELD #F_DESART
END
STRING 215 20
BEGIN
PROMPT 2 5 "Articolo "
FLAG "UDH"
FIELD #FROM
END
STRING 216 20
BEGIN
PROMPT 40 5 "Articolo "
FLAG "UDH"
FIELD #TO
END
STRING 205 3
BEGIN
PROMPT 2 6 "Causale Lav."
@ -76,6 +93,7 @@ BEGIN
OUTPUT 205 CODTAB
OUTPUT 206 S0
FIELD #F_CODAGG1
CHECKTYPE NORMAL
END
STRING 206 50
@ -85,7 +103,6 @@ BEGIN
FIELD #F_DESCODAGG1
END
STRING 207 4
BEGIN
PROMPT 2 8 "Numerazione "
@ -115,8 +132,6 @@ BEGIN
FIELD #F_DESCODNUM
END
STRING 209 4
BEGIN
PROMPT 2 9 "Tipo "
@ -129,6 +144,7 @@ BEGIN
OUTPUT 210 S0
FLAGS "UP"
FIELD #F_TIPODOC
CHECKTYPE NORMAL
END
STRING 210 50
@ -145,28 +161,37 @@ END
DATE 211
BEGIN
PROMP 2 11 "Da Data "
PROMPT 2 11 "Da Data "
FIELD #F_DATADOC_DA
STR_EXPR (#211=="")||(#212=="")||(MID(#212,7,4)==MID(#211,7,4))
WARNING "Le date devono appartenere allo stesso anno"
CHECKTYPE REQUIRED
END
DATE 212
BEGIN
PROMP 40 11 "Da Data "
PROMPT 40 11 "Da Data "
FIELD #F_DATADOC_A
VALIDATE DATE_CMP_FUNC >= 211
WARNING "La data finale non deve essere successiva a quella finale"
CHECKTYPE REQUIRED
FLAGS "A"
END
NUMBER 214 4
BEGIN
PROMPT 2 13 "Anno "
FLAGS "DG"
STR_CALC MID(#211,7,4)
DRIVENBY 211
FIELD #F_ANNO
END
BOOLEAN 213
BEGIN
FIELD #F_TOT
PROMPT 2 13 "Solo Totali"
PROMPT 2 15 "Solo Totali"
END
ENDPAGE
ENDMASK