campo-sirio/lv/lvtbfrq.uml

#include "lvtbfrq.h"

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


PAGE "Frequenza Consegne" -1 -1 78 10

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@b Frequenza Consegne"
END

NUMBER F_COD_FRQ 2
BEGIN
  PROMPT 2 2 "Codice "
  HELP "Inserire il codice frequenza"
  FLAGS "ZBU"
  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 15 2 ""
  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 76 3 
BEGIN
  PROMPT 1 4 "@bDettaglio Frequenza"
END

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

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

GROUPBOX DLG_NULL 76 3 
BEGIN
  PROMPT 1 7 "@bParametri per la generazione del giro"
END

NUMBER F_MAX_CONS 2 0
BEGIN
  PROMPT 2 8 "Numero massimo di consegne per mese "
  FIELD I2
END

BOOLEAN F_USA_CONS
BEGIN
  FIELD B0
  PROMPT 50 8 "Usa Ultima Consegna"
END

ENDPAGE
ENDMASK