campo-sirio/m770/771200i.uml
nik 899cf84309 Correzioni immissione
git-svn-id: svn://10.65.10.50/trunk@3177 c028cbd2-c16b-5b4b-a496-9718f37d4682
1996-07-10 08:41:25 +00:00

103 lines
1.5 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
END
BUTTON DLG_NEWREC 8 2
BEGIN
PROMPT -26 -1 "~Nuovo"
MESSAGE EXIT,K_INS
FLAGS "D"
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL
FLAGS "D"
END
BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro A" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QAF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GR"
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 "D"
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