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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17840 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2008-12-10 09:38:16 +00:00
parent 2565a8607b
commit 5e6ffe80f2
4 changed files with 151 additions and 2 deletions

4
lv/lvstcau.h Executable file

@ -0,0 +1,4 @@
#define F_COD_CAU 201
#define F_DES_CAU 202
#define F_COD_CAU_TO 203
#define F_DES_CAU_TO 204

88
lv/lvstcau.rep Executable file

@ -0,0 +1,88 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lvstcau" lpi="6" command="lv0 -1 lvstcau">
<description>Stampa Causali Lavanderie</description>
<font face="Courier New" size="10" />
<section type="Head">
<field x="27" y="0.75" type="Testo" align="center" width="40" height="2" pattern="1" text="Stampa Causali Lavanderie">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="1" y="0.93" type="Testo" width="12" height="1.5" pattern="1" text="Data elab. :" />
<field x="13.5" y="0.93" type="Stringa" width="12" height="1.5" pattern="1">
<prescript>MESSAGE _TODAY</prescript>
</field>
<field x="72.87" y="0.93" type="Testo" width="5" height="1.5" pattern="1" text="Pag." />
<field x="78" y="0.93" type="Stringa" width="10" height="1.5" pattern="1">
<prescript>MESSAGE _PAGENO</prescript>
</field>
<field border="2" y="3" type="Linea" width="90" height="0" pattern="1" />
<field x="1" y="4" type="Testo" width="8" pattern="1" text="Causale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="4" type="Testo" width="35" pattern="1" text="Descrizione Causale Lavanderie">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="60" y="4" type="Testo" width="7" pattern="1" text="Ritiro">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="67" y="4" type="Testo" width="8" pattern="1" text="Consegna">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="77" y="4" type="Testo" width="5" pattern="1" text="Reso">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="10" y="5" type="Testo" width="50" pattern="1" text="Causale Magazzino (Ritiro&#2F;Consegna) - Descrizione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" y="6" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Head" level="1" />
<section type="Body" />
<section type="Body" level="1">
<field x="1" y="1" type="Stringa" width="6" pattern="1">
<source>CODTAB</source>
</field>
<field x="10" y="1" type="Stringa" width="50" pattern="1">
<source>S0</source>
</field>
<field x="62.5" y="1" type="Stringa" width="2" pattern="1">
<source>B0</source>
</field>
<field x="70" y="1" type="Stringa" width="2" pattern="1">
<source>B1</source>
</field>
<field x="78" y="1" type="Stringa" width="2" pattern="1">
<source>B2</source>
</field>
</section>
<section type="Body" level="2">
<condition>(TRIM(163.S1) != '')</condition>
<field x="10" type="Testo" width="6" pattern="1" text="Rit.:">
<font italic="1" face="Courier New" size="10" />
</field>
<field x="17" type="Stringa" width="6" pattern="1">
<source>S1</source>
</field>
<field x="24" type="Stringa" width="50" pattern="1">
<source>1000@.S0</source>
</field>
</section>
<section type="Body" level="3">
<condition>(TRIM(163.S2) != '')</condition>
<field x="10" type="Testo" width="6" pattern="1" text="Cons.:">
<font italic="1" face="Courier New" size="10" />
</field>
<field x="17" type="Stringa" width="6" pattern="1">
<source>S2</source>
</field>
<field x="24" type="Stringa" width="50" pattern="1">
<source>2000@.S0</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<sql>USE &#26;CAU
JOIN %CAU TO &#26;CAU ALIAS 1000 INTO COD==COD CODTAB==S1
JOIN %CAU TO &#26;CAU ALIAS 2000 INTO COD==COD CODTAB==S2
FROM CODTAB=#FROM
TO CODTAB=#TO</sql>
</report>

53
lv/lvstcau.uml Executable file

@ -0,0 +1,53 @@
#include "lvstfrq.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Stampa Causali Lavanderie" -1 -1 40 5
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 1 "@b Parametri Causali Lavanderie"
END
STRING 201 3
BEGIN
PROMPT 2 2 "Da codice"
FLAGS "U"
USE &CAU
INPUT CODTAB 201
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 201 CODTAB
OUTPUT 202 S0
FIELD #FROM
END
STRING 202 50
BEGIN
PROMPT 25 2 ""
FLAGS "D"
END
STRING 203 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
USE &CAU
INPUT CODTAB 203
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 203 CODTAB
OUTPUT 204 S0
FIELD #TO
END
STRING 204 50
BEGIN
PROMPT 25 3 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

8
lv/lvtbiti.uml

@ -16,11 +16,15 @@ BEGIN
PROMPT 2 2 "Itinerario "
FLAGS "ZU"
USE &ITI
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
INPUT CODTAB F_COD_ITINERARIO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Autista" S1
DISPLAY "Mezzo" S2
DISPLAY "Descrizione Autista@50" 1000@->S0
DISPLAY "Targa@8" S2
DISPLAY "Descrizione Targa@50" 2000@->S0
OUTPUT F_COD_ITINERARIO CODTAB
OUTPUT F_DES_ITINERARIO S0
OUTPUT F_COD_AUTISTA S1
@ -76,7 +80,7 @@ END
STRING F_COD_MEZZO 8
BEGIN
PROMPT 2 6 "Mezzo "
PROMPT 2 6 "Targa "
FLAGS "U"
USE &MEZ
INPUT CODTAB F_COD_MEZZO