#include "ba9b00.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>

ENDPAGE

PAGE "Riga Selezione Agente" -1 -1 78 19

STRING S_DESCR 25
BEGIN
  PROMPT 2 2 "Campo"
  FLAGS "D"
END

STRING S_DA 5
BEGIN
  PROMPT 2 4 "Da "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE S_DA
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@70" RAGSOC
  OUTPUT S_DA CODAGE
END

STRING S_A 5
BEGIN
  PROMPT 2 6 "A  "
  FLAGS "UZ"
  COPY USE S_DA
  INPUT CODAGE S_A
  COPY DISPLAY S_DA
  OUTPUT S_A CODAGE
  STR_EXPR (#S_A=="")||(#S_A>=#S_DA)
  WARNING "Il limite superiore deve essere maggiore di quello inferiore"
END

STRING S_FIELD 25
BEGIN
  PROMPT 2 8 "Nome campo"
  FLAGS "D"
END

ENDPAGE 

ENDMASK