campo-sirio/m770/771200i.uml
alex ba705bffeb 1o Merge della 97.02
git-svn-id: svn://10.65.10.50/trunk@4705 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-06-18 09:52:29 +00:00

113 lines
1.7 KiB
Plaintext
Executable File

#include "771200.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 "~Registra"
FLAGS "D"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_NEWREC 8 2
BEGIN
PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS
FLAGS "D"
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
PICTURE BMP_DELRECDN
FLAGS "D"
END
BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
PICTURE BMP_FINDREC
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -56 -1 "~Annulla"
MESSAGE EXIT,K_ESC
PICTURE BMP_CANCEL
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -66 -1 "~Fine"
MESSAGE EXIT,K_QUIT
PICTURE BMP_QUIT
PICTURE BMP_QUITDN
END
ENDPAGE
PAGE "Base occupazionale" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QAF_CODDITTA
OUTPUT QAF_RAGDITTA RAGSOC
FIELD LF_BASEBIS->CODDITTA
END
STRING QAF_RAGDITTA 50
BEGIN
PROMPT 20 1 ""
FLAGS "DP"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 4 ""
END
NUMBER F_BSE_CONSBASOCC 5
BEGIN
PROMPT 2 5 "Consistenza base occupazionale al 12/06/94 "
FIELD LF_BASEBIS->CONSBASOCC
FLAGS "R"
END
NUMBER F_BSE_LAVDIPCIN 5
BEGIN
PROMPT 2 6 "Lavoratori dipendenti in mobilita' o cassa integrazione al 12/06/94 "
FIELD LF_BASEBIS->LAVDIPCIN
END
DATE F_BSE_DATAINPI
BEGIN
PROMPT 2 7 "Periodo d'imposta dal "
FIELD LF_BASEBIS->PIMPINI
END
DATE F_BSE_DATAFINPI
BEGIN
PROMPT 36 7 " al "
FIELD LF_BASEBIS->PIMPFINE
END
ENDPAGE
ENDMASK