campo-sirio/src/cg/cg4b00a.uml

#include "cg4b00a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_PRINT 2 2
BEGIN
  PROMPT 1 1 "Stampa"
  PICTURE BMP_PRINT
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 1 1 "Imposta"
  PICTURE BMP_SETPRINT
END

BUTTON DLG_EDIT 2 2
BEGIN
  PROMPT 1 1 "~Edit"
  PICTURE BMP_EDIT
END

#include <helpbar.h>

ENDPAGE

PAGE "Stampa" -1 -1 62 5

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 15 1 "Ragione "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Anno      "
  FLAGS "AP"
  CHECKTYPE REQUIRED
END

LIST F_DAMESE 20
BEGIN
  PROMPT 2 5 "Da mese   "
	ITEM "13|13a liquid."
  FLAGS "MP"
	MESSAGE COPY,F_AMESE
END

LIST F_AMESE 20
BEGIN
  PROMPT 35 5 " A mese   "
	ITEM "13|13a liquid."
  FLAGS "MP"
	WARINIG "Il mese di inizio non pu<70> essere successico al mese di fine"
	VALIDATE F_DAMESE<=F_AMESE
END


DATE F_DADATA
BEGIN
  PROMPT 2 7 "Da:   data  registrazione "
END

DATE F_ADATA
BEGIN
  PROMPT 2 9 " A:  data registrazione   "
	WARINIG "La data di inizio non pu<70> essere successico alla data di fine"
	VALIDATE DATE_CMP_FUNC >= F_>ADATA
END

STRING F_REPORT 256 50
BEGIN
  PROMPT 2 -3 "Tipo di stampa  "
  RSELECT "cg4b00a"
  CHECKTYPE NORMAL
END

STRING DLG_PROFILE 256 50
BEGIN
  PROMPT 2 -1 "Profilo         "
  PSELECT
END

ENDPAGE

ENDMASK