// 774200a.uml - Riporti su dich
#include "774200a.h"

PAGE "MODULO 770 - GENERAZIONE RIPORTI" -1 -1 76 9

GROUPBOX DLG_NULL 75 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 1 "Ditta  "
    FLAGS "RDG"
    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_RAGDITTA 48
BEGIN
    PROMPT 17 1 "Ragione "
    FLAGS "D"
END

NUMBER F_ANNODIC 4
BEGIN
    PROMPT 3 4 "Anno dichiarazione "
    FLAGS "RD"
END

BUTTON DLG_OK 10 2
BEGIN
    PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK