campo-sirio/mg/mg1200.uml

#include "mg1200.h"

PAGE "Ricostruzione Saldi" -1 -1 36 4

DATE F_DATA
BEGIN
  FLAGS "HDA"
  PROMPT 1 1 "Anno attuale"
  MESSAGE "0",F_ANNOES
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 1 1 "Codice esercizio "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Esercizio@20" CODTAB
  DISPLAY "Dal@20" D0
  DISPLAY "Al@20" D1
  OUTPUT F_ANNOES CODTAB
  CHECKTYPE REQUIRED
  FLAGS "Z"
END

BUTTON DLG_ELABORA 14 2
BEGIN
  PROMPT -12 -1 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

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


ENDPAGE
ENDMASK