campo-sirio/ha/ha2100a.uml

#include "ha2100a.h"

TOOLBAR "" 0 -5 0 4

STRING 30 70 50
  BEGIN
  FLAGS "G"
  PROMPT 10 -5 "Profilo "
  PSELECT
END

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

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

ENDPAGE

PAGE "Esselunga: generazione file Privat" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "GDF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Rag.Soc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
   PROMPT 1 3 "@bParametri"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 4 "Documenti dal "
  HELP "Data di inizio per trasferimento documenti"
END

DATE F_DATAFIN
BEGIN
  PROMPT 30 4 "al "
  HELP "Data di fine per trasferimento documenti"
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "Data di fine non valida"
  FLAGS "A"
END

LISTBOX F_DIPENDENZA 10
BEGIN
	PROMPT 2 5 "Dipendenza "
	ITEM "D|Milano"
	ITEM "U|Firenze"
END

BOOLEAN F_DEFINITIVO
BEGIN
	PROMPT 2 6 "Trasferimento definitivo"
END

BOOLEAN F_FORZATURA
BEGIN
	PROMPT 35 6 "Includere documenti gi<67> trasferiti"
END

SPREADSHEET F_SHEETDOC 78 10
BEGIN
   PROMPT 1 8 "Scelta documenti"
   ITEM "Cod. num."
   ITEM "Descrizione num.@50"
END

ENDPAGE
ENDMASK

PAGE "Scelta documenti" -1 -1 75 10

STRING F_S_CODNUM 4
BEGIN
  PROMPT 2 1 "Cod. num. "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_S_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_CODNUM CODTAB
  OUTPUT F_S_DESNUM S0
  CHECKTYPE REQUIRED
END

STRING F_S_DESNUM 50
BEGIN
   PROMPT 20 1 ""
   HELP "Descrizione numerazione"
   USE %NUM KEY 2
   INPUT S0 F_S_DESNUM
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_S_CODNUM
END

BUTTON DLG_OK 9 2
BEGIN
 PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN 
 PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN 
 PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK