Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Aggiornamento tabelle Modalità di Passaggio,Frequenza Consegne e Tipi di Sospensione


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

lv/lvtbfrq.uml

@@ -7,7 +7,7 @@ ENDPAGE
 
 PAGE "Frequenza Consegne" 0 2 0 0
 
-GROUPBOX DLG_NULL 80 15 
+GROUPBOX DLG_NULL 60 7
 BEGIN
   PROMPT 1 1 "@b Frequenza Consegne"
 END
@@ -17,65 +17,65 @@ BEGIN
   PROMPT 2 3 ""
   ITEM "FRQ|FRQ"
   FLAGS "H"
-  FIELD COD
   KEY 1
+  FIELD COD
 END  
 
 STRING F_COD_FRQ 2
 BEGIN
-  PROMPT 2 5 "Cod.Frequenza Consegna  "
+  PROMPT 2 3 "Codice     "
   FLAGS "BU"
-  FIELD CODTAB
   KEY 1
-  
+  FIELD CODTAB
-  USE FRQ 
+    
+  USE &FRQ SELECT COD = "FRQ"
   INPUT CODTAB F_COD_FRQ
   DISPLAY "Cod.Freq.Cons." CODTAB
   DISPLAY "Descr.Freq.Cons.@35" S0
-  DISPLAY "Ritardo" I0
+  
-  DISPLAY "Intervallo" I1
-  DISPLAY "Max Cons." I2
-  DISPLAY "Usa Ult.Cons" B0
   OUTPUT F_COD_FRQ CODTAB
   OUTPUT F_DES_FRQ S0
-  OUTPUT F_RITARDO I0
+  
-  OUTPUT F_INT_CONS I1
-  OUTPUT F_MAX_CONS I2
-  OUTPUT F_USA_CONS B0
   CHECKTYPE REQUIRED
 END
 
 STRING F_DES_FRQ 35
 BEGIN
-  PROMPT 2 7 "Descr.Frequenza Consegna"
+  PROMPT 2 5 "Descrizione"
   FIELD S0
   KEY 2
   CHECKTYPE REQUIRED
 END
 
+GROUPBOX DLG_NULL 60 10 
+BEGIN
+  PROMPT 1 9 "@b Dettaglio Frequenza"
+END
+
 NUMBER F_RITARDO 3 0
 BEGIN
-  PROMPT 2 9 "Ritardo"
+  PROMPT 2 11 "Ritardo                            "
   FIELD I0
+  GROUP 2
 END
 
 NUMBER F_INT_CONS 3 0    
 BEGIN
-  PROMPT 15 9 "Intervallo"
+  PROMPT 2 13 "Intervallo                         "
   FIELD I1
   CHECKTYPE REQUIRED
 END
 
 NUMBER F_MAX_CONS 2 0
 BEGIN
-  PROMPT 30 9 "Max Consegne Mese"
+  PROMPT 2 15 "Numero Massimo di Consegne per Mese"
   FIELD I2
 END
 
 BOOLEAN F_USA_CONS
 BEGIN
   FIELD B0
-  PROMPT 2 11 "Usa Ultima Consegna"
+  PROMPT 2 17 "Usa Ultima Consegna"
 END
 
 ENDPAGE

lv/lvtbmps.uml

@@ -28,8 +28,7 @@ BEGIN
   KEY 1
   FIELD CODTAB
     
-  USE LF_TABMOD SELECT COD = "MPS"
+  USE &MPS SELECT COD = "MPS"
-  INPUT COD F_COD
   INPUT CODTAB F_COD_MPS
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione @35" S0

lv/lvtbtsp.uml

@@ -6,15 +6,14 @@ ENDPAGE
 
 PAGE "Tipi di Sospensione" 0 2 0 0
 
-GROUPBOX DLG_NULL 80 10 
+GROUPBOX DLG_NULL 60 7
 BEGIN
   PROMPT 1 1 "@b Tipi di Sospensione"
-  FLAGS "R"
 END
 
 LIST F_COD 3
 BEGIN
-  PROMPT 2 2 ""
+  PROMPT 2 3 ""
   ITEM "TSP|TSP"
   FLAGS "H"
   FIELD COD
@@ -24,13 +23,13 @@ END
  
 STRING F_COD_TIPO_SOSP 2
 BEGIN
-  PROMPT 2 3 "Codice Tipo Sospensione"
+  PROMPT 2 3 "Codice                "
   HELP "Inserire il codice del tipo di sospensione"
   FIELD CODTAB
   FLAGS "R"
   KEY 1
   
-  USE LF_TABMOD
+  USE &TSP SELECT COD = "TSP"
   INPUT CODTAB F_COD_TIPO_SOSP
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@35" S0
@@ -42,7 +41,7 @@ END
 
 STRING F_DES_TIPO_SOSP 35
 BEGIN
-  PROMPT 2 4 "Descrizione            "
+  PROMPT 2 5 "Descrizione           " 
   HELP "Inserire la descrizione del tipo di sospensione"
   FIELD S0
   KEY 2
@@ -50,24 +49,32 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+GROUPBOX DLG_NULL 60 7 
+BEGIN
+  PROMPT 1 9 "@b Dettaglio Tipi di Sospensione"
+END
+
 BOOLEAN F_CONT_SOSP 
 BEGIN
-  PROMPT 2 5 "Conteggio Sospensioni  "
+  PROMPT 2 11 "Conteggio Sospensioni  "
   FIELD B0
 END
 
-LIST F_MOD_PASS 1 20
+STRING F_MOD_PASS 1
 BEGIN
-  PROMPT 2 6 "Modalità di Passaggio  "
+  PROMPT 2 13 "Modalità di Passaggio "
-  FIELD S1[35,2]
+  FLAGS "U"
-  ITEM "C|Consegna"
+  FIELD S1[0,1]
-  ITEM "R|Ritiro"
+    
-  ITEM "T|Consegna + Ritiro"
+  USE &MPS KEY 1 SELECT COD="MPS"
+  INPUT CODTAB F_MOD_PASS
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @35" S0
   
+  OUTPUT F_MOD_PASS CODTAB
   
+  CHECKTYPE NORMAL
 END
-
-
  
 ENDPAGE