#include "ba9b00.h"

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

ENDPAGE

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

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

STRING S_DA 2
BEGIN
  PROMPT 2 4 "Da "
  USE MAG SELECT CODTAB[4,5]!=""
	INPUT CODTAB[4,5] S_DA
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT S_DA CODTAB[4,5]
  FLAGS "UPA"
END

STRING S_A 2
BEGIN
  PROMPT 2 6 "A  "
  COPY USE S_DA
	INPUT CODTAB[4,5] S_A
  COPY DISPLAY S_DA
  OUTPUT S_A CODTAB[4,5]
  FLAGS "UPA"
  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