#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