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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Stampa Planning per Itinerario


git-svn-id: svn://10.65.10.50/trunk@17274 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
sperego 2008-09-18 15:04:45 +00:00
parent 4c0cd5471c
commit e03d875bea
4 changed files with 75 additions and 30 deletions

28
lv/lv2300.cpp

@ -61,20 +61,22 @@ void TStampe_planning_app::main_loop()
{
TStampe_planning_app app;
while (_msk->run() != K_QUIT)
// Costruisce il nome del report in base alla riga di comando
TFilename rep;
if (argc() > 2)
{
TReport_book book;
TReport rep;
TFilename report_name("lv2300a");
report_name.ext("rep");
book.add(rep);
if (book.pages() > 0)
{
book.print_or_preview();
}
rep = argv(2);
rep.ext("rep");
}
TReport r;
bool ok = r.load(rep); // Controlla l'effettiva esistenza del report
while (ok)
{
TReport_book b;
ok = b.add(r); // Richiede parametri di stampa in base alla maschera omonima
if (ok)
b.print_or_preview(); // Stampa effettivamente
}
}

4
lv/lv2300a.h

@ -1,4 +1,6 @@
#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_DES_ITI_TO 204
#define F_DATA_DAL 205
#define F_DATA_AL 206

28
lv/lv2300a.rep

@ -54,13 +54,26 @@
<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">
<font face="Courier New" bold="1" size="14" />
<source>167.GGCONS</source>
<list>
<li Value="Luned&#EC;" Code="1" />
<li Value="Marted&#EC;" Code="2" />
<li Value="Mercoled&#EC;" Code="3" />
<li Value="Gioved&#EC;" Code="4" />
<li Value="Venerd&#EC;" Code="5" />
<li Value="Sabato" Code="6" />
<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>
<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="119" y="1.5" type="Data" width="16" height="1.5" pattern="1">
<field x="111" y="1.5" type="Data" width="16" height="1.5" pattern="1">
<font face="Courier New" bold="1" size="14" />
<source>DTCONS</source>
</field>
@ -70,7 +83,7 @@
<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="2" pattern="1" />
<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="12" height="1.5" pattern="1" text="BOLLE CONS." />
@ -79,7 +92,7 @@
<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="35" pattern="1" text="LOCALITA'" />
<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="123.5" y="4" type="Testo" width="10.5" pattern="1" text="CONSEGNA" />
@ -99,6 +112,9 @@
<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">
<source>167.CODNUM</source>
</field>
<field x="1" y="1" type="Numero" align="right" width="5" pattern="1">
<source>167.ORDFER</source>
</field>
@ -120,6 +136,12 @@
<li Value="RITIRO" Code="R" />
</list>
</field>
<field x="124" 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">
<source>167.NDOC</source>
</field>
<field x="51" y="2" type="Stringa" width="35" pattern="1">
<source>IF(304@.CODINDSP= "0";303@.INDCF;305@.INDIR)</source>
</field>

45
lv/lv2300a.uml

@ -8,21 +8,21 @@ PAGE "Stampa Planning per Itinerario" -1 -1 40 5
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 1 "@b Parametri di Stampa"
PROMPT 1 1 "@bParametri di Stampa"
END
STRING F_COD_ITI_FROM 3
NUMBER F_COD_ITI_FROM 3
BEGIN
PROMPT 2 2 "Da itinerario"
FLAGS "U"
USE &ITI KEY 1
PROMPT 2 2 "Da Itinerario"
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_COD_ITI_FROM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_ITI_FROM CODTAB
OUTPUT F_DES_ITI_FROM S0
CHECKTYPE SEARCH
FIELD #FROM
CHECKTYPE REQUIRED
FIELD #FROM_COD_ITI
END
STRING F_DES_ITI_FROM 50
@ -31,18 +31,18 @@ BEGIN
FLAGS "D"
END
STRING F_COD_ITI_TO 3
NUMBER F_COD_ITI_TO 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
USE &ITI KEY 1
PROMPT 2 3 "A Itinerario "
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_COD_ITI_TO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_ITI_TO CODTAB
OUTPUT F_DES_ITI_TO S0
CHECKTYPE SEARCH
FIELD #TO
CHECKTYPE REQUIRED
FIELD #TO_COD_ITI
END
STRING F_DES_ITI_TO 50
@ -51,5 +51,24 @@ BEGIN
FLAGS "D"
END
DATE F_DATA_DAL
BEGIN
PROMPT 2 4 "Dal "
FIELD #FROM_DATA
GROUP 1
CHECKTYPE REQUIRED
FLAGS "A"
END
DATE F_DATA_AL
BEGIN
PROMPT 25 4 "Al "
FIELD #TO_DATA
GROUP 2
CHECKTYPE REQUIRED
VALITATE DATE_CMP_FUNC >= F_DATA_DAL
WARNING "La data finale deve essere successiva a quella iniziale"
END
ENDPAGE
ENDMASK