campo-sirio/cg/cg1100a.uml

#include "cg1100.h"

PAGE "" -1 -1 70 18               

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
END

DATE F_DATA_STAMPA
BEGIN
  PROMPT 2 4 "Data di stampa  "
  HELP "Data da riportare sui fogli"
  FLAGS "A"
END

RADIOBUTTON F_SCELTA_STAMPA 50
BEGIN
  PROMPT 2 6 "Tipo di stampa   "
  HELP "Scegliere il tipo di stampa desiderata"
  ITEM "1|Completa per IV direttiva"
  ITEM "2|Conti riclassificati per IV direttiva"
  ITEM "3|Conti non collegati per IV direttiva" 
  ITEM "4|Completa per analisi di bilancio"
  ITEM "5|Conti riclassificati per  analisi di bilancio"
  ITEM "6|Conti non collegati per analisi di bilancio"
END

BOOLEAN F_SALTO_PAGINA 
BEGIN
  PROMPT 3 14 "Salto pagina per cambio gruppo "
  HELP "Indicare se si desidera un salto pagina ogni volta che cambia il gruppo"
END

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

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

ENDPAGE

ENDMASK