campo-sirio/ca/ca1600a.uml

#include "ca1600a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_PRINT 10 2
BEGIN 
  PROMPT -12 -11 ""
END  

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

ENDPAGE

PAGE "Stampa commesse" 0 0 0 -2

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 2 1 "@bDa commessa"
END

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 2 7 "@bA commessa"
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 2 13 "@bParametri"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 3 14 "Anno "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DADATA D0
  OUTPUT F_ADATA D1
  CHECKTYPE NORMAL
  FLAGS "RZ"
  MESSAGE EMPTY ENABLE,F_DADATA|ENABLE,F_ADATA
  MESSAGE CLEAR,F_DADATA|CLEAR,F_ADATA
  ADD NONE
END 

DATE F_DADATA
BEGIN
  PROMPT 17 14 "Da data "
END

DATE F_ADATA
BEGIN
  PROMPT 40 14 "A data "
END

STRING F_REPORT 20
BEGIN
  PROMPT 2 -1 "Report alternativo  "
  RSELECT "ca1600a"
  CHECKTYPE NORMAL
END
 

ENDPAGE

ENDMASK