campo-sirio/ha/ha2200a.uml

#include "ha2200a.h"

TOOLBAR "" 0 -2 0 2

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

TOOLBAR "" 0 0 0 2
#include <elabar.h>
ENDPAGE

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

DATE F_DATAINI
BEGIN
  PROMPT 1 0 "Data iniziale "
  HELP "Data di inizio per trasferimento documenti"
END

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

BOOLEAN F_DEFINITIVO
BEGIN
	PROMPT 35 0 "Trasferimento definitivo"
END

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

SPREADSHEET F_SHEETDOC 78 
BEGIN
   PROMPT 1 2 "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