Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Allineamento lay-out standard per le tabelle Modalità di Passaggio, Frequenza Consegne e Tipi di Sospensione


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

lv/lvtbfrq.uml

@@ -7,7 +7,7 @@ ENDPAGE
 
 PAGE "Frequenza Consegne" 0 2 0 0
 
-GROUPBOX DLG_NULL 60 7
+GROUPBOX DLG_NULL 80 7
 BEGIN
   PROMPT 1 1 "@b Frequenza Consegne"
 END
@@ -24,30 +24,45 @@ END
 STRING F_COD_FRQ 2
 BEGIN
   PROMPT 2 3 "Codice     "
+  HELP "Inserire il codice frequenza"
   FLAGS "BU"
-  KEY 1
   FIELD CODTAB
-    
+  KEY 1
-  USE &FRQ SELECT COD = "FRQ"
+      
+  USE &FRQ KEY 1
   INPUT CODTAB F_COD_FRQ
-  DISPLAY "Cod.Freq.Cons." CODTAB
+  DISPLAY "Codice" CODTAB
-  DISPLAY "Descr.Freq.Cons.@35" S0
+  DISPLAY "Descrizione @50" S0
-  
+  DISPLAY "Ritardo" I0
+  DISPLAY "Intervallo" I1
+  DISPLAY "Nr.Max Cons. Mese" I2
+  DISPLAY "Usa Ultima Cons." B0
   OUTPUT F_COD_FRQ CODTAB
   OUTPUT F_DES_FRQ S0
   
   CHECKTYPE REQUIRED
 END
 
-STRING F_DES_FRQ 35
+STRING F_DES_FRQ 50
 BEGIN
   PROMPT 2 5 "Descrizione"
   FIELD S0
   KEY 2
+  
+  USE &FRQ KEY 2
+  INPUT S0 F_DES_FRQ
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Ritardo" I0
+  DISPLAY "Intervallo" I1
+  DISPLAY "Nr.Max Cons. Mese" I2
+  DISPLAY "Usa Ultima Cons." B0
+  COPY OUTPUT F_COD_FRQ
+  
   CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 60 10 
+GROUPBOX DLG_NULL 80 10 
 BEGIN
   PROMPT 1 9 "@b Dettaglio Frequenza"
 END

lv/lvtbmps.uml

@@ -6,10 +6,9 @@ ENDPAGE
 
 PAGE "Modalità di Passaggio" -1 -1 78 10
 
-GROUPBOX DLG_NULL 60 7
+GROUPBOX DLG_NULL 80 7
 BEGIN
   PROMPT 1 1 "@b Modalità di Passaggio"
-  FLAGS "R"
 END
 
 LIST F_COD 3
@@ -24,30 +23,41 @@ END
 STRING F_COD_MPS 1
 BEGIN
   PROMPT 2 3 "Codice     "
+  HELP "Inserire il codice modalità di passaggio"
   FLAGS "BU"
-  KEY 1
   FIELD CODTAB
+  KEY 1
     
-  USE &MPS SELECT COD = "MPS"
+  USE &MPS KEY 1 SELECT COD = "MPS"
   INPUT CODTAB F_COD_MPS
   DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione @35" S0
+  DISPLAY "Descrizione @50" S0
-  
+  DISPLAY "Consegna" B0
+  DISPLAY "Ritiro" B1
   OUTPUT F_COD_MPS CODTAB
   OUTPUT F_DES_MPS S0
   
   CHECKTYPE REQUIRED
 END
 
-STRING F_DES_MPS 35
+STRING F_DES_MPS 50
 BEGIN
   PROMPT 2 5 "Descrizione"
   FIELD S0
   KEY 2
+  
+  USE &MPS KEY 2 SELECT COD = "MPS"
+  INPUT S0 F_DES_MPS
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Consegna" B0
+  DISPLAY "Ritiro" B1
+  COPY OUTPUT F_COD_MPS
+  
   CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 60 6
+GROUPBOX DLG_NULL 80 6
 BEGIN
   PROMPT 1 9 "@b Dettaglio Modalità di Passaggio"
 END

lv/lvtbtsp.uml

@@ -6,39 +6,48 @@ ENDPAGE
 
 PAGE "Tipi di Sospensione" 0 2 0 0
 
-GROUPBOX DLG_NULL 70 7
+GROUPBOX DLG_NULL 80 7
 BEGIN
   PROMPT 1 1 "@b Tipi di Sospensione"
 END
  
 STRING F_COD_TIPO_SOSP 2
 BEGIN
-  PROMPT 2 3 "Codice                "
+  PROMPT 2 3 "Codice               "
   HELP "Inserire il codice del tipo di sospensione"
   FIELD CODTAB
   KEY 1
   
-  USE &TSP SELECT COD = "TSP"
+  USE &TSP KEY 1
   INPUT CODTAB F_COD_TIPO_SOSP
   DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@35" S0
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Conteggio Sospensioni" B0
+  DISPLAY "Modalità di Passaggio" S1
   OUTPUT F_COD_TIPO_SOSP CODTAB
   OUTPUT F_DES_TIPO_SOSP S0
     
   CHECKTYPE REQUIRED        
 END
 
-STRING F_DES_TIPO_SOSP 35
+STRING F_DES_TIPO_SOSP 50
 BEGIN
-  PROMPT 2 5 "Descrizione           " 
+  PROMPT 2 5 "Descrizione          " 
-  HELP "Inserire la descrizione del tipo di sospensione"
   FIELD S0
   KEY 2
   
+  USE &TSP KEY 2
+  INPUT S0 F_DES_TIPO_SOSP
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Conteggio Sospensioni" B0
+  DISPLAY "Modalità di Passaggio" S1
+  COPY OUTPUT F_COD_TIPO_SOSP
+  
   CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 70 7 
+GROUPBOX DLG_NULL 80 7 
 BEGIN
   PROMPT 1 9 "@b Dettaglio Tipi di Sospensione"
 END
@@ -51,10 +60,10 @@ END
 
 STRING F_MOD_PASS 1
 BEGIN
-  PROMPT 2 13 "Modalità di Passaggio "
+  PROMPT 2 13 "Modalità di Passaggio"
   FIELD S1
     
-  USE &MPS SELECT COD="MPS"
+  USE &MPS 
   INPUT CODTAB F_MOD_PASS
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione @35" S0
@@ -65,9 +74,9 @@ BEGIN
   CHECKTYPE SEARCH
 END
 
-STRING F_DES_MOD_PASS 35
+STRING F_DES_MOD_PASS 50
 BEGIN
-  PROMPT 30 13 ""
+  PROMPT 28 13 ""
   FLAGS "D"
 END