campo-sirio/m770/776500a.uml

#include "776500.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 ""
MESSAGE EXIT,K_SAVE 
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
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	G_ABICAB		1
#define	G_DISTINTA	2
#define	G_CC				3

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "RDP"
  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 17 1 "Ragione "
  FLAGS "DP"      
END
   
GROUPBOX DLG_NULL 78 11
BEGIN
  PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
END   
   
TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Numero serie "
  GROUP G_DISTINTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Codice ABI "
  GROUP G_ABICAB
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 13 "Numero quietanza "
  GROUP G_DISTINTA G_CC
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 13 "Codice CAB "
  GROUP G_ABICAB
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 RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@
  ITEM "D|Distinta"
  MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@
  ITEM "C|C/C Postale"                   
  MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@
  FIELD LF_BASE->TIPOVERS
END

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

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

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

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

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

STRING F_CCQUIETANZA 11
BEGIN
  PROMPT 63 13 ""
  FIELD LF_BASE->NUMERO
  GROUP G_CC
END

ENDPAGE

ENDMASK