#include "at3600a.h"
#include "lf.h"
PAGE "Definizione Stampe" -1 -1 78 20

GROUPBOX DLG_NULL 77 7
BEGIN
   PROMPT 1 0 "Opzioni per la convocazione"
END

DATE F_DATACONV
BEGIN
   PROMPT 2 1 "Data convocazione "
END


STRING F_PUNTO 4
BEGIN
   PROMPT 2 2 "Punto di raccolta "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_PUNTO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_PUNTO CODTAB
   OUTPUT F_D_PUNTO S0
   CHECKTYPE REQUIRED
   WARNING "Codice non presente"
   HELP "Punto di raccolta per la convocazione"
END

STRING F_D_PUNTO 25
BEGIN
  PROMPT 27 2 ""
  FLAGS "D"
END

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

STRING F_D_TIPODON 25
BEGIN
  PROMPT 27 3 ""
  FLAGS "D"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 4 "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 at0700a
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 27 4 ""
  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 at0700a
END

STRING F_CODSOT 2
BEGIN
  PROMPT 2 5 "Sottogruppo       "
  FIELD CODSOT
  COPY ALL F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Codice sottogruppo da convocare"
  //ADD MASK at0700a
END

STRING F_DENSOT 25
BEGIN        	
  PROMPT 27 5 ""
  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 at0700a
END

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

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

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

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

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

ENDPAGE
ENDMASK
