//
// cg3300c.uml
//

#include "cg3300a.h"

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

DATE F_DATA_STAMPA
BEGIN
  PROMPT 2 1 "Data "  
  HELP "Inserire la data"
  FLAGS "A"
END

NUMBER F_ANNO_STAMPA 4
BEGIN
  PROMPT 30 1 "Anno di stampa "  
  HELP "Inserire l'anno"
  FLAGS "A"
END

RADIOBUTTON F_TIPO_STAMPA2 20
BEGIN
  PROMPT 2 3 "Tipo di stampa   "
  HELP "Scegliere il tipo di stampa desiderata"
  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 si desidera solo il saldo dell'anno precedente"
END

BOOLEAN F_ATTIVITA 
BEGIN
  PROMPT 30 6 "Elenco distinto per attivita'"
  HELP "Indicare se si desidera un elenco diviso per attivita'. Se disabilitato il programma stampa un elenco attribuendo tutto all'attivita' prevalente"
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 "Se attivato ricalcola ogni ditta prima di stampare"
END

STRING F_DA_DITTA 5
BEGIN
  PROMPT 2 11 "Da ditta "
  HELP "Indicare la ditta di partenza della stampa. Se in bianco vuol dire dalla 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 "Indicare l'ultima ditta da stampare. Se in bianco vuol dire fino all'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