#include "bagn002.h"

PAGE "Selezione Ditta" -1 -1 64 7

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Codice "
  HELP "Inserire il codice della ditta"
  FLAGS "FR"
  USE LF_NDITTE KEY 1
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  KEY 1
	GROUP 1
END


LIST F_TIPO  20
BEGIN
  PROMPT 40 1 ""
  ITEM "0|Ditte"
	MESSAGE ENABLE,1@
  ITEM "1|Dati comuni"
	MESSAGE CLEAR,1@|"0",F_CODDITTA
  ITEM "2|Dati standard"
	MESSAGE CLEAR,1@|"0",F_CODDITTA
	GROUP 2
END


STRING F_RAGSOC 50
BEGIN
  PROMPT 1 3 "Rag. Soc. "
  USE LF_NDITTE KEY 2
  HELP "Inserire la ragione sociale della ditta"
  INPUT RAGSOC F_RAGSOC
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  KEY 2
	GROUP 1
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK