campo-sirio/m770/771290a.uml

#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 "Quadro H" -1 -1 78 18
                  
GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END
                  
NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 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 17 1 "Ragione "
  FLAGS "D"
END                                

NUMBER F_H1ANNO 4
BEGIN
  PROMPT 52 3 "Anno dichiarazione "
  FIELD LF_QUAH->H1ANNO
  KEY 1
  USE LF_QUAH 
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA SELECT
  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 assistenza percettore" 
END
      
NUMBER F_ENTE 2
BEGIN
  PROMPT 2 8 ""     
  USE LF_QUAH
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT H1ANNO F_H1ANNO SELECT
  INPUT H1ENTE F_ENTE
  COPY DISPLAY F_H1ANNO
  COPY OUTPUT F_H1ANNO
  FIELD LF_QUAH->H1ENTE
  MESSAGE COPY,F_ENTEBIS
  KEY 1   
  FLAGS "Z"
	END

NUMBER F_ENTEBIS 2
BEGIN
  PROMPT 2 8 ""
  FLAGS "GZ"
  USE %ENT 
  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 7 8 "" 
  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