Patch level :10.0

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


git-svn-id: svn://10.65.10.50/trunk@17274 c028cbd2-c16b-5b4b-a496-9718f37d4682

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;
+    rep = argv(2);
-    TReport rep; 
+    rep.ext("rep");
-    
-    TFilename report_name("lv2300a");
-    
-		report_name.ext("rep");
-
-    book.add(rep);
-		if (book.pages() > 0)
-    {
-			  book.print_or_preview();
   }
+  
+  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
   }
 }
 

lv/lv2300a.h

@@ -2,3 +2,5 @@
 #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 

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>

lv/lv2300a.uml

@@ -11,18 +11,18 @@ BEGIN
   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"
+  PROMPT 2 2 "Da Itinerario"
-  FLAGS "U"  
+  FLAGS "UZ"  
-  USE &ITI KEY 1
+  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
+  CHECKTYPE REQUIRED
-  FIELD #FROM
+  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 "
+  PROMPT 2 3 "A Itinerario "
-  FLAGS "U"  
+  FLAGS "UZ"  
-  USE &ITI KEY 1
+  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
+  CHECKTYPE REQUIRED
-  FIELD #TO
+  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