// 77stqd.uml - Stampa quadro D
#include "77stqd.h" 
PAGE "Stampa quadro D" -1 -1 60 9

GROUPBOX DLG_NULL 59 4
BEGIN
    PROMPT 1 0 ""
END

TEXT DLG_NULL 
BEGIN
  PROMPT 2 1 "Stampa "
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 8 1 ""
    FLAGS "GRD"
    KEY 1
    CHECKTYPE REQUIRED             
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    DISPLAY "Codice" CODDITTA
    DISPLAY "Ragione sociale @50" RAGSOC
    OUTPUT F_RAGDITTA RAGSOC
END

STRING F_TEXT 50
BEGIN
  PROMPT 8 2 ""
  FLAGS "DG"
END

STRING F_RAGDITTA 50
BEGIN
    PROMPT 8 2 ""
    FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 5 "Anno dichiarazione   "   
  FLAGS "D"
END

BOOLEAN F_MODULASER
BEGIN
  PROMPT 40 5 " Modulaser "
END

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
 PROMPT -22 -1 ""  
END

ENDPAGE

ENDMASK