campo-sirio/at/at4600a.uml

#include "at4600a.h"

TOOLBAR "" 0 20 0 2

BUTTON F_STAMPA 20 2
BEGIN
   PROMPT -14 -11 "Conferma e ~Stampa"
   MESSAGE EXIT,F_STAMPA
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -24 -11 ""
   MESSAGE EXIT,K_ENTER
END

BUTTON F_AZZERA 9 2
BEGIN
   PROMPT -34 -11 "A~zzera"
   MESSAGE EXIT,F_AZZERA
END

BUTTON DLG_QUIT 9 2
BEGIN
   PROMPT -44 -11 ""
END

ENDPAGE

PAGE "Spostamento convocazioni" -1 -1 78 20

GROUPBOX DLG_NULL 77 8
BEGIN
   PROMPT 1 1 "Convocazioni da spostare"
END

DATE F_DATAINI
BEGIN
   PROMPT 2 2 "Data iniziale  "
   CHECKTYPE REQUIRED
END

DATE F_DATAFIN
BEGIN
   PROMPT 2 3 "Data finale    "
   CHECKTYPE REQUIRED
   VALIDATE DATE_CMP_FUNC >= F_DATAINI
   WARNING "La data finale non puo' essere inferiore alla iniziale"
END

STRING F_PUNTO 4
BEGIN
   PROMPT 2 4 "Punto prelievo "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_PUNTO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_PUNTO CODTAB
   OUTPUT F_D_PUNTO S0
   CHECTYPE NORMAL
END

STRING F_D_PUNTO 50
BEGIN
   PROMPT 25 4 ""
   FLAGS "D"
END

STRING F_TIPO 2
BEGIN
   PROMPT 2 5 "Tipo donazione "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_TIPO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_TIPO CODTAB
   OUTPUT F_D_TIPO S0
   CHECKTYPE NORMAL
END

STRING F_D_TIPO 25
BEGIN
   PROMPT 23 5 ""
   FLAGS "D"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 6 "Sezione        "
  FLAGS "U"
  USE LF_SEZIONI
  INPUT CODSEZ F_CODSEZ
  INPUT CODSOT F_CODSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  OUTPUT F_CODSEZ CODSEZ
  OUTPUT F_DENSEZ DENSEZ
  OUTPUT F_CODSOT CODSOT
  OUTPUT F_DENSOT DENSOT
  CHECKTYPE SEARCH
  HELP "Codice sezione da convocare"
  ADD MASK batbsez
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 23 6 ""
  FLAGS "U"
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_DENSEZ
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  COPY OUTPUT F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Denominazione sezione da convocare"
  ADD MASK batbsez
END

STRING F_CODSOT 2
BEGIN
  PROMPT 2 7 "Sottogruppo    "
  COPY ALL F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Codice sottogruppo da convocare"
  ADD MASK batbsez
END

STRING F_DENSOT 25
BEGIN        	
  PROMPT 23 7 ""
  FLAGS "U"
  COPY USE F_DENSEZ
  INPUT DENSEZ F_DENSEZ
  INPUT DENSOT F_DENSOT
  COPY DISPLAY F_DENSEZ
  COPY OUTPUT F_DENSEZ
  CHECKTYPE NORMAL
  HELP "Sottogruppo da convocare"
  ADD MASK batbsez
END

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 10 "Periodo su cui distribuire le convocazioni"
END

DATE F_SPOSTADAL
BEGIN
   PROMPT 2 11 "Data iniziale  "
   CHECKTYPE REQUIRED
   VALIDATE DATE_CMP_FUNC > F_DATAFIN
   WARNING "Non e' possibile effettuare spostamenti a date inferiori"
END

DATE F_SPOSTAAL
BEGIN
   PROMPT 2 12 "Data finale    "
   CHECKTYPE REQUIRED
   VALIDATE DATE_CMP_FUNC >= F_SPOSTADAL
   WARNING "La data finale dello spostamento non puo' essere inferiore all'iniziale"
END

NUMBER F_SPOSTATI 4
BEGIN
   PROMPT 50 11 "Numero spostati "
   FLAGS "D"
END

NUMBER F_NONSPOSTATI 4
BEGIN
   PROMPT 50 12 "Non spostati    "
   FLAGS "D"
END

TEXT DLG_NULL
BEGIN
   PROMPT 2 14 "I soggetti non spostati sono quelli che hanno una convocazione corrispondente"
END

TEXT DLG_NULL
BEGIN
   PROMPT 2 15 "alle selezioni fatte, ma che non appartengono alla sezione/sottogruppo scelta "
END

ENDPAGE
ENDMASK