//
// cg3300c.uml
//

#include "cg3300a.h"

PAGE "Stampa su disco" -1 -1 65 16

DATE F_DATA_STAMPA
BEGIN
  PROMPT 2 1 "Data "  
  HELP "Data in cui effettuare la stampa"
  FLAGS "A"
END

NUMBER F_ANNO_STAMPA 4
BEGIN
  PROMPT 30 1 "Anno di stampa "  
  HELP "Anno di cui effettuare la stampa"
  FLAGS "A"
END

RADIOBUTTON F_TIPO_STAMPA2 20
BEGIN
  PROMPT 2 3 "Tipo di stampa   "
  HELP "Indicare arhcivio da stampare"
  ITEM "1|Clienti"
  MESSAGE SHOW,F_ANNO_PREC
  ITEM "2|Fornitori"
  MESSAGE SHOW,F_ANNO_PREC
  ITEM "3|Entrambi"
  MESSAGE HIDE,F_ANNO_PREC
END

BOOLEAN F_ORDINA_DESC
BEGIN
  PROMPT 30 4 "Ordina per descrizione"
  HELP "Ordina la stampa per descrizione, altrimenti per codice"
END

BOOLEAN F_ANNO_PREC 
BEGIN
  PROMPT 30 5 "Estratto anno precedente "
  HELP "Indicare se stampare solo il saldo dell'anno precedente"
END

BOOLEAN F_ATTIVITA 
BEGIN
  PROMPT 30 6 "Elenco distinto per attivita'"
  HELP "Indicare se stampare un elenco diviso per attivita'"
END

STRING F_RICERCA_ATT 5
BEGIN
  PROMPT 2 9 "Seleziona codice di attivita' "
  HELP "Stampa solo le ditte che hanno questa attivita'"
  USE %AIS
  INPUT CODTAB F_RICERCA_ATT
  DISPLAY "Codice" CODTAB
  DISPLAY "Attivita'@40" S0
  OUTPUT F_RICERCA_ATT CODTAB
END

BOOLEAN F_RICALCOLA 
BEGIN
  PROMPT 46 9 "Ricalcola "
  HELP "Indicare se ricalcolare ogni ditta prima di stampare"
END

STRING F_DA_DITTA 5
BEGIN
  PROMPT 2 11 "Da ditta "
  HELP "Ditta di partenza della stampa. vuoto = prima"
  FLAGS "R"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_DA_DITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_DA_DITTA CODDITTA 
END

STRING F_A_DITTA 5
BEGIN
  PROMPT 23 11 "A  ditta "
  HELP "Ultima ditta da stampare. vuoto = ultima"
  FLAGS "R"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_A_DITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_A_DITTA CODDITTA 
  VALIDATE F_A_DITTA >= F_DA_DITTA
END

BUTTON DLG_OK 9 3
BEGIN
  PROMPT -12 13 ""
END

BUTTON DLG_CANCEL 9 3
BEGIN
  PROMPT -22 13 ""
END

ENDPAGE

ENDMASK