campo-sirio/m770/77tbent.uml
guy c846ab1358 CU 2016
git-svn-id: svn://10.65.10.50/branches/R_10_00@23178 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-02-25 11:33:25 +00:00

104 lines
1.3 KiB
Plaintext
Executable File

#include "77tbent.h"
TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Enti previdenziali" 0 2 0 0
STRING F_CODENTE 8
BEGIN
PROMPT 4 1 "Codice Ente "
FIELD CODTAB
HELP "Inserire il codice dell'Ente"
USE %ENT
CHECKTYPE REQUIRED
INPUT CODTAB F_CODENTE
DISPLAY "Cod.Ente" CODTAB
DISPLAY "Denominazione@60" S0
OUTPUT F_CODENTE CODTAB
OUTPUT F_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_DESCR 60
BEGIN
PROMPT 4 2 "Denominazione "
FIELD S0
HELP "Inserire la descrizione dell'Ente"
WARNING "Manca la denominazione"
CHECKTYPE REQUIRED
KEY 2
END
STRING F_COCU 1
BEGIN
PROMPT 4 4 "Codice C.U. "
FIELS S6
CHECKTYPE REQUIRED
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 24 4 "2=ENPAM; 4=ENPAPI; A=Altro"
END
STRING F_COFI 16
BEGIN
PROMPT 4 5 "Codice Fiscale "
FIELS S5
FLAGS "U"
CHECKTYPE REQUIRED
END
SPREADSHEET F_CODICI 80 -1
BEGIN
PROMPT 1 7 ""
ITEM "Ditta"
ITEM "Ragione Sociale@50"
ITEM "Codice previdenziale@16"
END
ENDPAGE
ENDMASK
PAGE "Dati" -1 -1 60 5
NUMBER 101 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "D"
END
STRING 102 50
BEGIN
PROMPT 7 2 ""
FLAGS "D"
END
STRING 103 16
BEGIN
PROMPT 1 3 "Codice presso ente previdenziale "
FLAGS "U"
END
ENDPAGE
TOOLBAR "" 0 0 0 0
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 2 1 ""
END
ENDPAGE
ENDMASK