campo-sirio/lv/lvtbfrq.uml

#include "lvtbfrq.h"

TOOLBAR "" 0 0 0 2
#include "Relapbar.h"
ENDPAGE


PAGE "Frequenza Consegne" 0 2 0 0

GROUPBOX DLG_NULL 80 7
BEGIN
  PROMPT 1 1 "@b Frequenza Consegne"
END

LIST F_COD 3
BEGIN
  PROMPT 2 3 ""
  ITEM "FRQ|FRQ"
  FLAGS "H"
  KEY 1
  FIELD COD
END  

STRING F_COD_FRQ 2
BEGIN
  PROMPT 2 3 "Codice     "
  HELP "Inserire il codice frequenza"
  FLAGS "BU"
  FIELD CODTAB
  KEY 1
      
  USE &FRQ KEY 1
  INPUT CODTAB F_COD_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
  OUTPUT F_COD_FRQ CODTAB
  OUTPUT F_DES_FRQ S0
  
  CHECKTYPE REQUIRED
END

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 80 10 
BEGIN
  PROMPT 1 9 "@b Dettaglio Frequenza"
END

NUMBER F_RITARDO 3 0
BEGIN
  PROMPT 2 11 "Ritardo                            "
  FIELD I0
  GROUP 2
END

NUMBER F_INT_CONS 3 0    
BEGIN
  PROMPT 2 13 "Intervallo                         "
  FIELD I1
  CHECKTYPE REQUIRED
END

NUMBER F_MAX_CONS 2 0
BEGIN
  PROMPT 2 15 "Numero Massimo di Consegne per Mese"
  FIELD I2
END

BOOLEAN F_USA_CONS
BEGIN
  FIELD B0
  PROMPT 2 17 "Usa Ultima Consegna"
END

ENDPAGE
ENDMASK