#include "771295.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Gestione dettaglio 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 "FRD"
  USE LF_NDITTE KEY 1
  FIELD LF_DETH->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_ANNO 4
BEGIN
  PROMPT 2 4 "Anno dichiarazione    "
  FIELD LF_DETH->ANNO
  KEY 1
  USE LF_DETH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (ANNO=#F_ANNO) && (ENTE=#F_ENTE))
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNO
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Anno" ANNO
  DISPLAY "Ente@33" ENTE
  DISPLAY "Data versamento" DATAVERS
  DISPLAY "Numero versamento" NUMVERS
  OUTPUT F_ANNO ANNO
  OUTPUT F_ENTE ENTE
  OUTPUT F_DATAVERS DATAVERS
  OUTPUT F_NUMVERS NUMVERS   
  FLAGS "R"
END

NUMBER F_ENTE 2
BEGIN
  PROMPT 2 5 "Ente                  "
  COPY USE F_ANNO    
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNO
  INPUT ENTE F_ENTE
  COPY DISPLAY F_ANNO
  COPY OUTPUT F_ANNO 
  FIELD LF_DETH->ENTE
  VALIDATE NOT_EMPTY_FUNC
  FLAGS "G"
  KEY 1
END

STRING F_DESCRENTE 60
BEGIN
  PROMPT 2 6 "Descrizione "
  FLAGS "D"
END
            
DATE F_DATAVERS
BEGIN
  PROMPT 2 7 "Data versamento       "
  COPY USE F_ANNO
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNO
  INPUT ENTE F_ENTE
  INPUT DATAVERS F_DATAVERS
  COPY DISPLAY F_ANNO
  COPY OUTPUT F_ANNO
  FIELD LF_DETH->DATAVERS
  KEY 1
END

NUMBER F_NUMVERS 5
BEGIN
  PROMPT 2 8 "Numero versamento     "
  COPY USE F_ANNO
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  INPUT ANNO F_ANNO
  INPUT ENTE F_ENTE
  INPUT DATAVERS F_DATAVERS
  INPUT NUMVERS F_NUMVERS
  COPY DISPLAY F_ANNO
  COPY OUTPUT F_ANNO
  FIELD LF_DETH->NUMVERS           
  FLAGS "R"
  KEY 1
END

NUMBER F_NREGINOTA 7
BEGIN
  PROMPT 2 10 "N.ro registr. I nota             "
  FLAGS "R"
  FIELD LF_DETH->NREGINOTA
END

NUMBER F_IMPVERS 15
BEGIN
  PROMPT 2 11 "Importo versato                  "
  PICTURE "."
  FLAGS "R"
  FIELD LF_DETH->IMPVERS
END
                        
TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "Contributi obbligatori"
END

NUMBER F_CONTRDAT 15
BEGIN
  PROMPT 2 13 "a carico del datore di lavoro    "
  FIELD LF_DETH->CONTRDAT
  PICTURE "."
  FLAGS "R"
END

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

NUMBER F_CONTRLAV 15
BEGIN
  PROMPT 2 15 "carico del lavoratore dipendente "
  FIELD LF_DETH->CONTRLAV
  PICTURE "."
  FLAGS "R"
END

ENDPAGE

ENDMASK

