#include "771290.h"

TOOLBAR "" 0 18 0 4

BUTTON F_BTG_GENERA 21 2
BEGIN
  PROMPT -13 -3 "~Generazione" 
END
                      
BUTTON F_BTG_DETTAGLIO 21 2
BEGIN
  PROMPT -23 -3 "~Dettaglio" 
END

#include <toolbar.h>

ENDPAGE

PAGE "Gestione quadro H" -1 -1 78 18
                  
GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END
                  
NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "GRD"
  USE LF_NDITTE KEY 1
  FIELD LF_QUAH->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 2 2 "Ragione sociale   "
  FLAGS "D"
END                                

NUMBER F_H1ANNO 4
BEGIN
  PROMPT 2 5 "Anno dichiarazione               "
  FIELD LF_QUAH->H1ANNO
  KEY 1
  USE LF_QUAH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (H1ANNO=#F_H1ANNO))
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT H1ANNO F_H1ANNO
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Anno" H1ANNO
  DISPLAY "Ente" H1ENTE
  DISPLAY "Contr.Datore@15" H1DAT
  DISPLAY "Contr.Lavoratore" H1LAV
  OUTPUT F_H1ANNO H1ANNO
  OUTPUT F_ENTE H1ENTE
  OUTPUT F_DAT H1DAT
  OUTPUT F_LAV H1LAV
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "Ente previdenziale"
END

NUMBER F_ENTE 2
BEGIN
  PROMPT 2 8 "e assistenza percettore          " 
  COPY USE F_H1ANNO
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT H1ANNO F_H1ANNO
  INPUT H1ENTE F_ENTE
  COPY DISPLAY F_H1ANNO
  COPY OUTPUT F_H1ANNO
  FIELD LF_QUAH->H1ENTE
  MESSAGE COPY,F_ENTEBIS
  KEY 1
END

NUMBER F_ENTEBIS 2
BEGIN
  PROMPT 2 8 "e assistenza percettore tabella  "
  FLAGS "G"
  USE %ENT KEY 1
  CHECKTYPE FORCED
  INPUT CODTAB F_ENTEBIS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_ENTEBIS CODTAB
  FIELD LF_QUAH->H1ENTE 
  MESSAGE COPY,F_ENTE
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Valore non presente in tabella Enti previdenziali"
  KEY 1
END

STRING F_DESCENTE 60
BEGIN
  PROMPT 2 9 "Descrizione  " 
  FLAGS "D"
END
                       
TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Contributi obbligatori"
END

NUMBER F_DAT 15
BEGIN
  PROMPT 2 12 "a carico del datore di lavoro    "
  FIELD LF_QUAH->H1DAT
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Contributi obbligatori a "
END

NUMBER F_LAV 15
BEGIN
  PROMPT 2 15 "carico del lavoratore dipendente "
  FIELD LF_QUAH->H1LAV
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

ENDMASK