//
// cg3300a.uml
//

#include "cg3300a.h"

PAGE "" -1 -1 65 19

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_MODO_STAMPA  25
BEGIN
  PROMPT 2 3 "Destinazione"
  HELP "Abilita stampe di controllo"
  ITEM "1|Stampa su modulo"
    MESSAGE DISABLE,F_TRONC|DISABLE,F_ARROT|HIDE,F_STAMPA_TUTTI
    MESSAGE SHOW,F_TIPO_STAMPA
//    MESSAGE HIDE,F_TIPO_STAMPA2|SHOW,F_TIPO_STAMPA
  ITEM "2|Stampa di controllo"
    MESSAGE ENABLE,F_TRONC|ENABLE,F_ARROT|SHOW,F_STAMPA_TUTTI|"X",F_STAMPA_TUTTI
    MESSAGE SHOW,F_TIPO_STAMPA
//    MESSAGE HIDE,F_TIPO_STAMPA2|SHOW,F_TIPO_STAMPA
//  ITEM "3|Stampa su disco"
//    MESSAGE DISABLE,F_TRONC|DISABLE,F_ARROT|HIDE,F_STAMPA_TUTTI
//    MESSAGE HIDE,F_TIPO_STAMPA|SHOW,F_TIPO_STAMPA2
END

RADIOBUTTON F_TIPO_STAMPA 28
BEGIN
  PROMPT 31 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|Modulo 101 (clienti)"
  MESSAGE HIDE,F_ANNO_PREC
  ITEM "4|Modulo 102 (fornitori)"
  MESSAGE HIDE,F_ANNO_PREC
END

//RADIOBUTTON F_TIPO_STAMPA2 28
//BEGIN
//  PROMPT 31 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
//  FLAGS "H"
//END

BOOLEAN F_ORDINA_DESC
BEGIN
  PROMPT 2 8  "Ordina per descrizione"
  HELP "Ordina la stampa per descrizione, altrimenti per codice"
END

BOOLEAN F_STAMPA_TUTTI
BEGIN
  PROMPT 2 9  "Stampa tutti i clienti/fornitori movimentati"
  HELP "Se disabilitato stampa solo i clienti/fornitori che vanno in allegati"
  FLAGS "H"
END

BOOLEAN F_TRONC
BEGIN
  PROMPT 2 10 "Importi non troncati "
  HELP "Indicare se si desidera eliminare gli zeri delle migliaia"
END

BOOLEAN F_ARROT
BEGIN
  PROMPT 2 11 "Importi non arrotondati "
  HELP "Indicare se si desidera che vengano arrotondati gli importi"
END

BOOLEAN F_ANNO_PREC 
BEGIN
  PROMPT 31 10 "Estratto anno precedente "
  HELP "Indicare se si desidera solo il saldo dell'anno precedente"
END

BOOLEAN F_ATTIVITA 
BEGIN
  PROMPT 31 11 "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 1 13 "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 13 "Ricalcola "
  HELP "Se attivato ricalcola ogni ditta prima di stampare"
END

STRING F_DA_DITTA 5
BEGIN
  PROMPT 1 14 "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 22 14 "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 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK