#include "at4400a.h"

PAGE "Stampa convocazioni per punto di prelievo" -1 -1 78 20

GROUPBOX DLG_NULL 77 12
BEGIN
   PROMPT 1 1 "Opzioni per la stampa convocazioni"
END

DATE F_DATAINI
BEGIN
   PROMPT 2 2 "Data iniziale  "
END

DATE F_DATAFIN
BEGIN
   PROMPT 2 3 "Data finale    "
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
   VALIDATE NOT_EMPTY_FUNC
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

BOOLEAN F_AGGIORNA
BEGIN
   PROMPT 2 9 "Aggiorna campo convocazione stampata"
END

LISTBOX F_ORDINA 12
BEGIN
  PROMPT 2 11 "Ordinamento    "
  FLAGS "U"
  ITEM "A|Alfabetico"
  ITEM "C|CAP"
END

GROUPBOX DLG_NULL 77 4
BEGIN
        PROMPT 1 15 "Stampa"
END

BUTTON F_ELENCO 9 2
BEGIN
        PROMPT -14 16 "Elenco"
        MESSAGE EXIT,F_ELENCO
END

BUTTON F_ETICHETTE 9 2
BEGIN
        PROMPT -24 16 "Etichette"
        MESSAGE EXIT,F_ETICHETTE
END

BUTTON F_CARTOLINE 9 2
BEGIN
        PROMPT -34 16 "Cartoline"
        MESSAGE EXIT,F_CARTOLINE
END

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

ENDPAGE
ENDMASK