campo-sirio/cg/cg0400b.uml

#include "cg0400.h"

PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 2 1 "Ditta "
    FLAGS "ZFR"
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    DISPLAY "Ditta" CODDITTA
    DISPLAY "Ragione sociale@50" RAGSOC
    OUTPUT F_CODDITTA CODDITTA
    OUTPUT F_RAGSOC RAGSOC 
    CHECKTYPE REQUIRED
    WARNING "Ditta assente"
END

STRING F_RAGSOC 50
BEGIN
    PROMPT 17 1 "Rag.Soc."
    USE LF_NDITTE KEY 2
    INPUT RAGSOC F_RAGSOC
    DISPLAY "Ragione Sociale@50" RAGSOC
    DISPLAY "Codice" CODDITTA
    COPY OUTPUT F_CODDITTA
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 2 4 "Data stampa    "
  HELP "Data in cui viene effettuata la stampa"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 6 "Anno riepilogo "
  FLAGS "A"
  VALIDATE FIXLEN_FUNC 4
  CHECKTYPE REQUIRED
END

LISTBOX F_MESE 9
BEGIN
  PROMPT 2 7 "Mese riepilogo "
  FLAGS "AM"
END

BOOLEAN F_STAMPA 
BEGIN
  PROMPT 2 9 "Stampa progressivi da inizio anno "
END

/*
BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
END
*/

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

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

ENDPAGE

ENDMASK