campo-sirio/at/at0100b.uml

#include "at0100b.h"

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

PAGE "Genera donazioni" 0 2 0 0

NUMBER F_QUANTEGEN 3
BEGIN
   PROMPT 2 2 "Numero donazioni da generare "
   HELP "Numero donazioni da generare"
END

RADIOBUTTON F_COMEGEN 17
BEGIN
   PROMPT 2 3 "Modalita' "
   ITEM "A|Automatica"
   MESSAGE ENABLE,F_FINOALGEN
   MESSAGE DISABLE,F_DONGEN
   ITEM "M|Manuale"
   MESSAGE ENABLE,F_DONGEN
   MESSAGE DISABLE,F_FINOALGEN
   HELP "Modalita' di generazione: automatica o manuale (inserire solo le date)"
END

DATE F_FINOALGEN
BEGIN
   PROMTP 2 7 "Fino al    "
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data ultima donazione da generare"
END

STRING F_TIPOGEN 2
BEGIN
   PROMPT 2 8 "Tipo don.  "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_TIPOGEN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_TIPOGEN CODTAB
   OUTPUT F_D_TIPOGEN S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice tipo donazione non presente"
   HELP "Tipo donazione"
END

STRING F_D_TIPOGEN 25
BEGIN
  PROMPT 20 8 ""
  FLAGS "D"
END

STRING F_LUOGOGEN 4
BEGIN
   PROMPT 2 9 "Punto prel."
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_LUOGOGEN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_LUOGOGEN CODTAB
   OUTPUT F_D_LUOGOGEN S0
   CHECKTYPE NORMAL
   WARNING "Codice punto di prelievo non presente"
   HELP "Punto di prelievo"
END

STRING F_D_LUOGOGEN 50 25
BEGIN
  PROMPT 20 9 ""
  FLAGS "D"
END

BUTTON F_ESEGUIGEN 21 2
BEGIN
   PROMPT 2 11 "Esegui generazione"
END

SPREADSHEET F_DONGEN 29 18
BEGIN
   PROMPT 50 2 ""
   ITEM "Data@10"
   ITEM "Tipo"
   ITEM "Punto"
END

ENDPAGE

ENDMASK

PAGE "Riga donazione" -1 -1 60 12

DATE F_G_DATA
BEGIN
   PROMPT 2 2 "Data "
END

STRING F_G_TIPO 2
BEGIN
   PROMPT 2 3 "Tipo "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_G_TIPO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_G_TIPO CODTAB
   OUTPUT F_G_D_TIPO S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice tipo donazione non presente"
   HELP "Tipo donazione"
END

STRING F_G_LUOGO 4
BEGIN
   PROMPT 2 5 "Punto prelievo  "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_G_LUOGO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_G_LUOGO CODTAB
   OUTPUT F_G_D_LUOGO S0
   CHECKTYPE NORMAL
   WARNING "Codice punto di prelievo non presente"
   HELP "Punto di prelievo"
END

STRING F_G_D_TIPO 25
BEGIN
  PROMPT 30 4 ""
  FLAGS "D"
END

STRING F_G_D_LUOGO 50 25
BEGIN
  PROMPT 30 5 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK