#include "hatbcel.h"

PAGE "Configurazione Clienti Esselunga" -1 -1 78 10

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bCliente"
END

STRING F_CODCLI 6
BEGIN
  PROMPT 2 2 "Cliente "
  USE &CEL
  JOIN LF_CLIFO INTO TIPOCF=="C" CODCF==CODTAB
  FIELD CODTAB
  KEY 1
  INPUT CODTAB F_CODCLI
  DISPLAY "Cliente" CODTAB
  DISPLAY "Ragione sociale" LF_CLIFO->RAGSOC
  DISPLAY "Invio" B0
  DISPLAY "Cod.Esselunga" I0
  DISPLAY "Dipendenza" S1
  OUTPUT F_CODCLI CODTAB
  OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_CODCLI1 6
BEGIN
  PROMPT 2 2 "Cliente " 
  FIELD CODTAB
  FLAGS "H"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCLI1
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale" RAGSOC
  OUTPUT F_CODCLI1 CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODCLI
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 2 ""
  FLAGS "D"
END

BOOLEAN F_INVIO 
BEGIN
	PROMPT 2 5 "Invio abilitato"
	FIELD B0
END

NUMBER F_CODESSELUNGA 3
BEGIN
	PROMPT 2 6 "Cod. esselunga " 
	FIELD I0
END

LISTBOX F_DIPENDENZA 10
BEGIN
	PROMPT 2 7 "Dipendenza"
	ITEM "D|Milano"
	ITEM "U|Firenze"
	FIELD S1
END

ENDPAGE

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

ENDMASK