diff --git a/lv/lvtbfrq.uml b/lv/lvtbfrq.uml index 34c737df8..ccc4cf210 100755 --- a/lv/lvtbfrq.uml +++ b/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 - - USE &FRQ SELECT COD = "FRQ" + KEY 1 + + USE &FRQ KEY 1 INPUT CODTAB F_COD_FRQ - DISPLAY "Cod.Freq.Cons." CODTAB - DISPLAY "Descr.Freq.Cons.@35" S0 - + DISPLAY "Codice" CODTAB + 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 diff --git a/lv/lvtbmps.uml b/lv/lvtbmps.uml index c66b4fafe..a55cb5353 100755 --- a/lv/lvtbmps.uml +++ b/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 diff --git a/lv/lvtbtsp.uml b/lv/lvtbtsp.uml index 4aa91e9df..06fbaa1ea 100755 --- a/lv/lvtbtsp.uml +++ b/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 " - HELP "Inserire la descrizione del tipo di sospensione" + PROMPT 2 5 "Descrizione " 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