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
This commit is contained in:
sperego 2008-09-23 15:22:01 +00:00
parent e7de748400
commit cd422c64a2
3 changed files with 206 additions and 108 deletions

View File

@ -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
#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

View File

@ -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) &#26;&#26; BETWEEN (CODAUT, #FROM_COD_AUT,#TO_COD_AUT) &#26;&#26; BETWEEN(CODCF,#FROM_CODCF,#TO_CODCF)
JOIN &#26;ITI ALIAS 300 INTO CODTAB==CODITI
JOIN &#26;AUT TO 167 ALIAS 301 INTO CODTAB==CODAUT
JOIN &#26;MEZ TO 167 ALIAS 302 INTO CODTAB==CODMEZ

View File

@ -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