From cd422c64a24b761ea6df80bcf588cbef5e0fb58e Mon Sep 17 00:00:00 2001
From: sperego <sperego@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 23 Sep 2008 15:22:01 +0000
Subject: [PATCH] Patch level :10.0 Files correlati :
Ricompilazione Demo : [ ] Commento :Stampa Planning - Unico
Raggruppamento e parametri autista e cliente
git-svn-id: svn://10.65.10.50/trunk@17297 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
lv/lv2300a.h | 20 +++++--
lv/lv2300a.rep | 152 +++++++++++++++++++++++--------------------------
lv/lv2300a.uml | 142 ++++++++++++++++++++++++++++++++++++++-------
3 files changed, 206 insertions(+), 108 deletions(-)
diff --git a/lv/lv2300a.h b/lv/lv2300a.h
index 5109ee4a5..a858fb868 100755
--- a/lv/lv2300a.h
+++ b/lv/lv2300a.h
@@ -1,6 +1,14 @@
-#define F_COD_ITI_FROM 201
-#define F_DES_ITI_FROM 202
-#define F_COD_ITI_TO 203
-#define F_DES_ITI_TO 204
-#define F_DATA_DAL 205
-#define F_DATA_AL 206
\ No newline at end of file
+#define F_DATA_FROM 201
+#define F_DATA_TO 202
+#define F_COD_ITI_FROM 203
+#define F_DES_ITI_FROM 204
+#define F_COD_ITI_TO 205
+#define F_DES_ITI_TO 206
+#define F_COD_AUT_FROM 207
+#define F_DES_AUT_FROM 208
+#define F_COD_AUT_TO 209
+#define F_DES_AUT_TO 210
+#define F_CODCF_FROM 211
+#define F_RAGSOCCF_FROM 212
+#define F_CODCF_TO 213
+#define F_RAGSOCCF_TO 214
diff --git a/lv/lv2300a.rep b/lv/lv2300a.rep
index dde0c41e3..fe06aea4f 100755
--- a/lv/lv2300a.rep
+++ b/lv/lv2300a.rep
@@ -22,39 +22,9 @@
</field>
</section>
<section type="Head" level="1" />
- <section type="Head" level="2">
- <groupby>CODITI</groupby>
- <field x="24" type="Numero" align="right" width="5" height="1.5" pattern="1">
- <font face="Courier New" bold="1" size="14" />
- <source>167.CODITI</source>
- </field>
- <field x="31" type="Stringa" width="51" height="1.5" pattern="1">
- <font face="Courier New" bold="1" size="14" />
- <source>300@.S0</source>
- </field>
- </section>
- <section type="Head" level="3" height="2">
- <groupby>CODAUT</groupby>
- <field x="3" type="Stringa" width="10" pattern="1">
- <font face="Courier New" bold="1" size="12" />
- <source>167.CODAUT</source>
- </field>
- <field x="14" type="Stringa" width="50" pattern="1">
- <font face="Courier New" bold="1" size="12" />
- <source>301@.S0</source>
- </field>
- </section>
- <section type="Head" level="4" height="5">
- <groupby>DTCONS</groupby>
- <field border="2" type="Rettangolo" width="110" height="2.5" pattern="1" />
- <field x="1" type="Stringa" width="50" pattern="1">
- <source>302@.S0</source>
- </field>
- <field border="2" x="50.87" type="Linea" height="2.45" pattern="1" />
- <field x="51.5" type="Testo" width="15" pattern="1" text="KM. PARTENZA:" />
- <field border="2" x="86.75" type="Linea" height="2.45" pattern="1" />
- <field x="87.5" type="Testo" width="15" pattern="1" text="ORA PARTENZA:" />
- <field x="111" type="Array" width="25" height="1.5" pattern="1">
+ <section type="Head" level="2" height="10" page_break="1">
+ <groupby>DTCONS+CODITI</groupby>
+ <field x="85.5" y="0.31" type="Array" width="25" height="1.5" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>167.GGCONS</source>
<list>
@@ -67,35 +37,59 @@
<li Value="Domenica" Code="7" />
</list>
</field>
- <field x="1" y="1" type="Testo" width="7" pattern="1" text="TARGA" />
- <field x="8" y="1" type="Stringa" width="10" pattern="1">
- <source>167.CODMEZ</source>
+ <field x="0.62" y="0.37" type="Numero" align="right" width="10" height="1.5" pattern="1">
+ <font face="Courier New" bold="1" size="14" />
+ <source>167.CODITI</source>
</field>
- <field x="51.5" y="1" type="Testo" width="15" pattern="1" text="KM. ARRIVO:" />
- <field x="87.5" y="1" type="Testo" width="15" pattern="1" text="ORA ARRIVO:" />
- <field x="111" y="1.5" type="Data" width="16" height="1.5" pattern="1">
+ <field x="11.5" y="0.37" type="Stringa" width="50" height="1.5" pattern="1">
+ <font face="Courier New" bold="1" size="14" />
+ <source>300@.S0</source>
+ </field>
+ <field x="0.62" y="2.24" type="Stringa" width="10" height="1.5" pattern="1">
+ <font face="Courier New" bold="1" size="14" />
+ <source>167.CODAUT</source>
+ </field>
+ <field x="11.5" y="2.24" type="Stringa" width="50" height="1.5" pattern="1">
+ <font face="Courier New" bold="1" size="14" />
+ <source>301@.S0</source>
+ </field>
+ <field x="85.5" y="2.31" type="Data" width="16" height="1.5" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>DTCONS</source>
</field>
- <field border="2" y="3" type="Rettangolo" width="135" height="2" pattern="1" />
- <field border="2" x="6.5" y="3" type="Linea" height="1.95" pattern="1" />
- <field border="2" x="15" y="3" type="Linea" height="1.95" pattern="1" />
- <field border="2" x="50.87" y="3" type="Linea" height="1.95" pattern="1" />
- <field border="2" x="86.75" y="3" type="Linea" height="1.95" pattern="1" />
- <field x="87.12" y="3" type="Testo" align="center" width="13" pattern="1" text="MODALITA'" />
- <field border="2" x="100.75" y="3" type="Linea" height="1.95" pattern="1" />
- <field x="101" y="3" type="Testo" align="center" width="9" pattern="1" text="GG." />
- <field border="2" x="110" y="3" type="Linea" height="1.95" pattern="1" />
- <field x="111" y="3" type="Testo" width="10" height="1.5" pattern="1" text="BOLLE CONS." />
- <field border="2" x="123" y="3" type="Linea" height="1.95" pattern="1" />
- <field x="124.5" y="3" type="Testo" width="10" pattern="1" text="PROSSIMA" />
- <field x="1.12" y="3.25" type="Testo" align="right" width="5" pattern="1" text="FERM." />
- <field x="8.12" y="3.25" type="Testo" align="right" width="6.5" pattern="1" text="CODICE" />
- <field x="15.62" y="3.25" type="Testo" width="25" pattern="1" text="RAGIONE SOCIALE CLIENTE " />
- <field x="51" y="3.5" type="Testo" width="25" pattern="1" text="LOCALITA'" />
- <field x="87.12" y="3.75" type="Testo" align="center" width="13" pattern="1" text="PASSAGGIO" />
- <field x="101" y="4" type="Testo" align="center" width="9" pattern="1" text="CHIUS." />
- <field x="124.5" y="4" type="Testo" width="10.5" pattern="1" text="CONSEGNA" />
+ <field border="2" x="0.5" y="4.56" type="Rettangolo" width="110" height="2.5" pattern="1" />
+ <field border="2" x="51.37" y="4.56" type="Linea" height="2.45" pattern="1" />
+ <field x="52" y="4.56" type="Testo" width="15" pattern="1" text="KM. PARTENZA:" />
+ <field border="2" x="87.25" y="4.56" type="Linea" height="2.45" pattern="1" />
+ <field x="88" y="4.56" type="Testo" width="15" pattern="1" text="ORA PARTENZA:" />
+ <field x="1.5" y="4.81" type="Stringa" width="50" pattern="1">
+ <source>302@.S0</source>
+ </field>
+ <field x="1.5" y="5.81" type="Testo" width="7" pattern="1" text="TARGA" />
+ <field x="8.5" y="5.81" type="Stringa" width="40" pattern="1">
+ <source>167.CODMEZ</source>
+ </field>
+ <field x="52" y="5.81" type="Testo" width="15" pattern="1" text="KM. ARRIVO:" />
+ <field x="88" y="5.81" type="Testo" width="15" pattern="1" text="ORA ARRIVO:" />
+ <field border="2" x="0.5" y="8.06" type="Rettangolo" width="135" height="2" pattern="1" />
+ <field border="2" x="7" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="8.62" y="8.06" type="Testo" align="right" width="6.5" pattern="1" text="CODICE" />
+ <field border="2" x="15.5" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="16.12" y="8.06" type="Testo" width="25" pattern="1" text="RAGIONE SOCIALE CLIENTE " />
+ <field border="2" x="51.37" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field border="2" x="87.25" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="87.62" y="8.06" type="Testo" align="center" width="13" pattern="1" text="MODALITA'" />
+ <field border="2" x="101.25" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="101.5" y="8.06" type="Testo" align="center" width="9" pattern="1" text="GG." />
+ <field border="2" x="110.5" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="111" y="8.06" type="Testo" width="12" height="1.5" pattern="1" text="BOLLE CONS." />
+ <field border="2" x="123.5" y="8.06" type="Linea" height="1.95" pattern="1" />
+ <field x="124.5" y="8.06" type="Testo" width="10" pattern="1" text="PROSSIMA" />
+ <field x="1.62" y="8.31" type="Testo" align="right" width="5" pattern="1" text="FERM." />
+ <field x="51.5" y="8.56" type="Testo" width="25" pattern="1" text="LOCALITA'" />
+ <field x="87.62" y="8.81" type="Testo" align="center" width="13" pattern="1" text="PASSAGGIO" />
+ <field x="101.5" y="8.81" type="Testo" align="center" width="9" pattern="1" text="CHIUS." />
+ <field x="124.5" y="9.06" type="Testo" width="10.5" pattern="1" text="CONSEGNA" />
</section>
<section type="Body">
<field y="197" type="Numero" align="right" width="3" pattern="1">
@@ -103,31 +97,31 @@
</field>
</section>
<section type="Body" level="1">
- <field border="2" x="110" y="-0.07" type="Linea" height="3" pattern="1" />
- <field border="2" x="123" y="-0.07" type="Linea" height="3" pattern="1" />
- <field border="2" x="134.9" y="-0.07" type="Linea" height="3" pattern="1" />
- <field border="2" type="Linea" height="3" pattern="1" />
- <field border="2" x="6.5" type="Linea" height="3" pattern="1" />
- <field border="2" x="15" type="Linea" height="3" pattern="1" />
- <field border="2" x="50.87" type="Linea" height="3" pattern="1" />
- <field border="2" x="86.75" type="Linea" height="3" pattern="1" />
- <field border="2" x="100.75" type="Linea" height="3" pattern="1" />
- <field x="111" type="Stringa" width="10" pattern="1">
+ <field border="2" x="110.5" y="-0.07" type="Linea" height="3" pattern="1" />
+ <field border="2" x="123.5" y="-0.07" type="Linea" height="3" pattern="1" />
+ <field border="2" x="135.4" y="-0.07" type="Linea" height="3" pattern="1" />
+ <field border="2" x="0.5" type="Linea" height="3" pattern="1" />
+ <field border="2" x="7" type="Linea" height="3" pattern="1" />
+ <field border="2" x="15.5" type="Linea" height="3" pattern="1" />
+ <field border="2" x="51.37" type="Linea" height="3" pattern="1" />
+ <field border="2" x="87.25" type="Linea" height="3" pattern="1" />
+ <field border="2" x="101.25" type="Linea" height="3" pattern="1" />
+ <field x="111.5" type="Stringa" width="10" pattern="1">
<source>167.CODNUM</source>
</field>
- <field x="1" y="1" type="Numero" align="right" width="5" pattern="1">
+ <field x="1.5" y="1" type="Numero" align="right" width="5" pattern="1">
<source>167.ORDFER</source>
</field>
- <field x="7.5" y="1" type="Numero" align="right" width="6" pattern="1">
+ <field x="8" y="1" type="Numero" align="right" width="6" pattern="1">
<source>167.CODCF</source>
</field>
- <field x="15.5" y="1" type="Stringa" width="35" pattern="1">
+ <field x="16" y="1" type="Stringa" width="35" pattern="1">
<source>303@.RAGSOC</source>
</field>
- <field x="51" y="1" type="Stringa" width="35" pattern="1">
+ <field x="51.5" y="1" type="Stringa" width="35" pattern="1">
<source>IF(304@.CODINDSP= "0" ;303@.LOCALITACF;305@.LOCALITA)</source>
</field>
- <field x="87.5" y="1" type="Array" align="center" width="12.5" pattern="1">
+ <field x="88" y="1" type="Array" align="center" width="12.5" pattern="1">
<source>167.MODPASS</source>
<list>
<li Value="ENTRAMBI" Code=" " />
@@ -136,24 +130,22 @@
<li Value="RITIRO" Code="R" />
</list>
</field>
- <field x="124" y="1" type="Stringa" width="10" pattern="1">
+ <field x="124.5" y="1" type="Stringa" width="10" pattern="1">
<source>#NEXTCONS</source>
</field>
- <field x="111" y="1.5" type="Numero" align="right" width="10" pattern="1" hide_zero="1">
+ <field x="111.5" y="1.5" type="Numero" align="right" width="10" pattern="1" hide_zero="1">
<source>167.NDOC</source>
</field>
- <field x="51" y="2" type="Stringa" width="35" pattern="1">
+ <field x="51.5" y="2" type="Stringa" width="35" pattern="1">
<source>IF(304@.CODINDSP= "0";303@.INDCF;305@.INDIR)</source>
</field>
- <field border="2" y="3" type="Linea" width="135" height="0" pattern="1" />
+ <field border="2" x="0.5" y="3" type="Linea" width="135" height="0" pattern="1" />
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2" />
- <section type="Foot" level="3" />
- <section type="Foot" level="4" height="1" page_break="1" />
<sql>USE 167 KEY 2
-SELECT BETWEEN (CODITI, #FROM_COD_ITI, #TO_COD_ITI)
+SELECT BETWEEN (CODITI, #FROM_COD_ITI, #TO_COD_ITI)  BETWEEN (CODAUT, #FROM_COD_AUT,#TO_COD_AUT)  BETWEEN(CODCF,#FROM_CODCF,#TO_CODCF)
JOIN ITI ALIAS 300 INTO CODTAB==CODITI
JOIN AUT TO 167 ALIAS 301 INTO CODTAB==CODAUT
JOIN MEZ TO 167 ALIAS 302 INTO CODTAB==CODMEZ
diff --git a/lv/lv2300a.uml b/lv/lv2300a.uml
index 96166b06b..957fa7bdb 100755
--- a/lv/lv2300a.uml
+++ b/lv/lv2300a.uml
@@ -6,14 +6,39 @@ ENDPAGE
PAGE "Stampa Planning per Itinerario" -1 -1 40 5
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 76 3
BEGIN
- PROMPT 1 1 "@bParametri di Stampa"
+ PROMPT 1 1 "@bParametri Data"
+END
+
+DATE F_DATA_FROM
+BEGIN
+ PROMPT 2 2 "Dal "
+ FIELD #FROM_DATA
+ GROUP 1
+ CHECKTYPE REQUIRED
+ FLAGS "A"
+END
+
+DATE F_DATA_TO
+BEGIN
+ PROMPT 25 2 "Al "
+ FIELD #TO_DATA
+ FLAGS "A"
+ GROUP 2
+ CHECKTYPE REQUIRED
+ VALITATE DATE_CMP_FUNC >= F_DATA_FROM
+ WARNING "La data finale deve essere successiva a quella iniziale"
+END
+
+GROUPBOX DLG_NULL 76 4
+BEGIN
+ PROMPT 1 4 "@bParametri Itinerario"
END
NUMBER F_COD_ITI_FROM 3
BEGIN
- PROMPT 2 2 "Da Itinerario"
+ PROMPT 2 5 "Da Itinerario"
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_COD_ITI_FROM
@@ -21,19 +46,19 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_ITI_FROM CODTAB
OUTPUT F_DES_ITI_FROM S0
- CHECKTYPE REQUIRED
+ CHECKTYPE SEARCH
FIELD #FROM_COD_ITI
END
STRING F_DES_ITI_FROM 50
BEGIN
- PROMPT 25 2 ""
+ PROMPT 25 5 ""
FLAGS "D"
END
NUMBER F_COD_ITI_TO 3
BEGIN
- PROMPT 2 3 "A Itinerario "
+ PROMPT 2 6 "A Itinerario "
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_COD_ITI_TO
@@ -41,35 +66,108 @@ BEGIN
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_ITI_TO CODTAB
OUTPUT F_DES_ITI_TO S0
- CHECKTYPE REQUIRED
+ CHECKTYPE SEARCH
FIELD #TO_COD_ITI
END
STRING F_DES_ITI_TO 50
BEGIN
- PROMPT 25 3 ""
+ PROMPT 25 6 ""
FLAGS "D"
END
-DATE F_DATA_DAL
+GROUPBOX DLG_NULL 76 4
BEGIN
- PROMPT 2 4 "Dal "
- FIELD #FROM_DATA
- GROUP 1
- CHECKTYPE REQUIRED
- FLAGS "A"
+ PROMPT 1 8 "@bParametri Autista"
END
-DATE F_DATA_AL
+STRING F_COD_AUT_FROM 6
BEGIN
- PROMPT 25 4 "Al "
- FIELD #TO_DATA
- FLAGS "A"
- GROUP 2
- CHECKTYPE REQUIRED
- VALITATE DATE_CMP_FUNC >= F_DATA_DAL
- WARNING "La data finale deve essere successiva a quella iniziale"
+ PROMPT 2 9 "Da Autista "
+ FLAGS "U"
+ USE &AUT
+ INPUT CODTAB F_COD_AUT_FROM
+ DISPLAY "Codice" CODTAB
+ DISPLAY "Descrizione@50" S0
+ OUTPUT F_COD_AUT_FROM CODTAB
+ OUTPUT F_DES_AUT_FROM S0
+ CHECKTYPE SEARCH
+ FIELD #FROM_COD_AUT
+END
+
+STRING F_DES_AUT_FROM 50
+BEGIN
+ PROMPT 25 9 ""
+ FLAGS "D"
+END
+
+STRING F_COD_AUT_TO 6
+BEGIN
+ PROMPT 2 10 "Ad Autista "
+ FLAGS "U"
+ USE &AUT
+ INPUT CODTAB F_COD_AUT_TO
+ DISPLAY "Codice" CODTAB
+ DISPLAY "Descrizione@50" S0
+ OUTPUT F_COD_AUT_TO CODTAB
+ OUTPUT F_DES_AUT_TO S0
+ CHECKTYPE SEARCH
+ FIELD #TO_COD_AUT
+END
+
+STRING F_DES_AUT_TO 50
+BEGIN
+ PROMPT 25 10 ""
+ FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 76 4
+BEGIN
+ PROMPT 1 12 "@bParametri Cliente"
+END
+
+NUMBER F_CODCF_FROM 6
+BEGIN
+ PROMPT 2 13 "Da Cliente "
+ FLAGS "U"
+ USE LF_CLIFO KEY 1
+ INPUT TIPOCF "C"
+ INPUT CODCF F_CODCF_FROM
+ DISPLAY "Codice " CODCF
+ DISPLAY "Ragione sociale@50" RAGSOC
+ OUTPUT F_CODCF_FROM CODCF
+ OUTPUT F_RAGSOCCF_FROM RAGSOC
+ CHECKTYPE NORMAL
+ FIELD #FROM_CODCF
+END
+
+STRING F_RAGSOCCF_FROM 50
+BEGIN
+ PROMPT 25 13 ""
+ FLAGS "D"
+END
+
+NUMBER F_CODCF_TO 6
+BEGIN
+ PROMPT 2 14 "A Cliente "
+ FLAGS "U"
+ USE LF_CLIFO KEY 1
+ INPUT TIPOCF "C"
+ INPUT CODCF F_CODCF_TO
+ DISPLAY "Codice " CODCF
+ DISPLAY "Ragione sociale@50" RAGSOC
+ OUTPUT F_CODCF_TO CODCF
+ OUTPUT F_RAGSOCCF_TO RAGSOC
+ CHECKTYPE NORMAL
+ FIELD #TO_CODCF
+END
+
+STRING F_RAGSOCCF_TO 50
+BEGIN
+ PROMPT 25 14 ""
+ FLAGS "D"
END
ENDPAGE
+
ENDMASK