campo-sirio/ca/ca1600a.uml

#include "ca1600a.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Stampa commesse" 0 2 0 0

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
  CHECKTYPE NORMAL
  FLAGS "RZ"
  ADD NONE
END 

DATE F_DADATA
BEGIN
  PROMPT 17 14 "Da data inizio "
END

DATE F_ADATA
BEGIN
  PROMPT 48 14 "A data fine "
END

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

ENDMASK