#include "776500.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Prospetto dati generali" -1 -1 78 18

#define	ABICAB	1
#define	GSERIE	2

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "RD"
  USE LF_NDITTE KEY 1
  FIELD LF_BASE->CODDITTA
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_RAGSOC RAGSOC  
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"      
END

TEXT 96
BEGIN
  PROMPT 2 13 "Numero serie "
  GROUP GSERIE
END

TEXT 97
BEGIN
  PROMPT 2 13 "Codice ABI "
  GROUP ABI_CAB
END

TEXT 98
BEGIN
  PROMPT 46 13 "Numero quietanza "
  GROUP GSERIE
END

TEXT 99
BEGIN
  PROMPT 46 13 "Codice CAB "
  GROUP ABI_CAB
END

DATE F_DATAVERS 
BEGIN
  PROMPT 2 7 "Data versamento "
  FIELD LF_BASE->DATAVERS
  FLAGS "A"  
END

RADIOBUTTON F_LUOVERS  25
BEGIN
  PROMPT 2 8 "Luogo versamento "  
  ITEM "C|Concessione"
  ITEM "T|Tesoreria"
  FIELD LF_BASE->LUOVERS
END

RADIOBUTTON F_TIPOVERS 26 
BEGIN
  PROMPT 46 7 "Tipo versamento      "
  ITEM "B|Delega bancaria"               
  MESSAGE SHOW,97|SHOW,99|SHOW,F_ABI|SHOW,F_CAB|HIDE,96|HIDE,98|HIDE,F_SERIE|HIDE,F_NUMERO
  ITEM "D|Distinta"
  MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB
  MESSAGE ENABLE,F_SERIE
  ITEM "C|C/C Postale"                   
  MESSAGE SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|HIDE,F_ABI|HIDE,F_CAB
  MESSAGE CLEAR,F_SERIE|DISABLE,F_SERIE
  FIELD LF_BASE->TIPOVERS
END

NUMBER F_ABI 5
BEGIN
  PROMPT 18 13 ""
  FIELD LF_BASE->SERIE  
  FLAGS "Z"
  GROUP ABI_CAB
END                             

NUMBER F_CAB 5
BEGIN
  PROMPT 63 13 ""
  FIELD LF_BASE->NUMERO[1,5]
  FLAGS "Z"  
  GROUP ABI_CAB
END

NUMBER F_PROGBANCA 6
BEGIN          
  PROMPT 69 13 ""
  FLAGS "Z"
  FIELD LF_BASE->NUMERO[6,11]
  GROUP ABI_CAB
END

STRING F_SERIE 5
BEGIN
  PROMPT 18 13 ""
  FIELD LF_BASE->SERIE              
  GROUP GSERIE
END                             

STRING F_NUMERO 11
BEGIN
  PROMPT 63 13 ""
  FIELD LF_BASE->NUMERO
  GROUP GSERIE
END

GROUPBOX DLG_NULL 78 11
BEGIN
  PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
END

ENDPAGE

ENDMASK