#include "ba9b00.h"

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

ENDPAGE

PAGE "Riga Selezione cliente/fornitore" -1 -1 78 19

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

NUMBER S_DA 6
BEGIN
  PROMPT 2 4 "Da "
  USE LF_CLIFO 
  INPUT TIPOCF S_TIPOCF SELECT
  INPUT CODCF S_DA
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT S_DA CODCF
  FLAGS "Z"
END

NUMBER S_A 6
BEGIN
  PROMPT 2 6 "A  "
  COPY USE S_DA
  INPUT TIPOCF S_TIPOCF SELECT
  INPUT CODCF S_A
  COPY DISPLAY S_DA
  OUTPUT S_A CODCF
  NUM_EXPR (#S_A=="")||(#S_A>=#S_DA)
  WARNING "Il limite superiore deve essere maggiore di quello inferiore"
  FLAGS "Z"
END

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

LISTBOX S_TIPOCF 9
BEGIN 
  PROMPT 2 12 ""
  FLAGS "HGD"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END


ENDPAGE 

ENDMASK