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

Patch level :10.0 488

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001446: 001638 - stampa cambi giornalieri
Descrizione  la stampa dei cambi giornalieri non produce risultati se la selezione è fatta per cambio, stampa invece correttamente selezionando per data.


git-svn-id: svn://10.65.10.50/trunk@19530 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-10-28 10:04:04 +00:00
parent c4b56e378a
commit 6088806da9
3 changed files with 34 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
cg/cgstcam.rep
View File

@ -1,46 +1,48 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="cgstcam" name="cgstcam" lpi="6">
<font face="Courier New" size="10" />
<section keep_with_next="1" type="Head">
<section type="Head">
<field type="Stringa" width="50">
<font italic="1" face="Courier New" bold="1" size="10" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Cambi Giornalieri">
<field y="1" type="Testo" valign="center" align="center" width="94" height="2" text="Tabella Cambi Giornalieri">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" x="1" y="3.5" type="Linea" width="93" height="0" />
<field x="2" y="4" type="Testo" width="10" text="Cod. Valuta">
<field x="2" y="4" type="Testo" width="7" text="Codice">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="15" y="4" type="Testo" width="5" text="Data">
<field x="14" y="4" type="Testo" width="5" text="Data">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="27" y="4" type="Testo" width="12" text="Descrizione">
<field x="26" y="4" type="Testo" width="12" text="Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="78" y="4" type="Testo" width="7" text="Cambio">
<field x="84" y="4" type="Testo" width="7" text="Cambio">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" x="1" y="5.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Head" level="1" />
<section keep_with_next="1" type="Body" />
<section keep_with_next="1" type="Body" level="1">
<field x="2" type="Stringa" link="CAM.CODTAB" width="8">
<source>CODTAB</source>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field x="2" type="Stringa" link="CAM.CODTAB[1,3]" width="11">
<source>CODTAB[1,3]</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE TABLEREAD,%VAL,#THIS_FIELD,103=S0</prescript>
</field>
<field x="15" type="Data" width="10">
<field x="14" type="Data" width="10">
<source>D0</source>
</field>
<field x="27" type="Stringa" width="50">
<source>S0</source>
</field>
<field x="78" type="Stringa" width="16">
<field x="76" type="Numero" align="right" width="16" text="#######@,@@@@@">
<source>S4</source>
</field>
<field x="93" type="Stringa" hidden="1" link="CAM.CODTAB[4,11]" width="8" pattern="1">
<source>CODTAB[4,11]</source>
</field>
<field x="25" type="Stringa" width="50" id="103" />
</section>
<section keep_with_next="1" type="Foot" height="3">
<section type="Foot" height="3">
<field border="2" x="1" y="0.5" type="Linea" width="93" height="0" />
<field x="2" y="1" type="Data" width="10">
<source>#SYSTEM.DATE</source>
@ -50,8 +52,7 @@
</field>
<field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
</section>
<section keep_with_next="1" type="Foot" level="1" />
<section type="Foot" level="1" />
<sql>USE CAM
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</sql>
</report>

16
cg/cgstcam.uml
View File

@ -9,7 +9,7 @@ PAGE "Stampa Tabella Cambi Giornalieri" 0 2 0 0
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da valuta "
FIELD FROM[1,3]
FIELD CODTAB[1,3]
USE CAM
JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3]
INPUT CODTAB[1,3] F_INIZIO1
@ -18,7 +18,10 @@ BEGIN
DISPLAY "Data valuta" D0
DISPLAY "Descrizione@50" -200->S0
OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,14]
OUTPUT F_INIZIO2 CODTAB[4,11]
VALIDATE REQIF_FUNC 1 F_INIZIO2
WARNING "Codice valuta mancante !"
CHECKTYPE SEARCH
FLAGS "UZ"
GROUP 1
END
@ -26,7 +29,7 @@ END
DATE F_INIZIO2
BEGIN
PROMPT 28 1 "Da data "
FIELD FROM[4,11]
FIELD CODTAB[4,11]
COPY ALL F_INIZIO1
FLAGS "R"
GROUP 1
@ -35,7 +38,7 @@ END
STRING F_FINE1 3
BEGIN
PROMPT 2 2 "A valuta "
FIELD TO[1,3]
FIELD CODTAB[1,3]
COPY USE F_INIZIO1
INPUT CODTAB[1,3] F_FINE1
INPUT CODTAB[4,11] F_FINE2
@ -44,6 +47,9 @@ BEGIN
DISPLAY "Descrizione@50" -200->S0
OUTPUT F_FINE1 CODTAB[1,3]
OUTPUT F_FINE2 CODTAB[4,11]
VALIDATE REQIF_FUNC 1 F_FINE2
WARNING "Codice valuta mancante !"
CHECKTYPE SEARCH
FLAGS "UZ"
GROUP 2
END
@ -52,7 +58,7 @@ END
DATE F_FINE2
BEGIN
PROMPT 28 2 "A data "
FIELD TO[4,11]
FIELD CODTAB[4,11]
FLAGS "R"
COPY ALL F_FINE1
GROUP 2

4
cg/cgtbcam.uml
View File

@ -43,11 +43,9 @@ BEGIN
FIELD CODTAB[4,11]
FLAGS "R"
KEY 1
// USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*")
// JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3]
USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL
JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3]))
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT
INPUT CODTAB[4,11] FLD_TABCAM_D0
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0