campo-sirio/cg/cg3300a.uml

#include "cg3300a.h"

PAGE "" -1 -1 65 19

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

NUMBER F_ANNO_STAMPA 4
BEGIN
  PROMPT 30 1 "Anno di stampa "  
  HELP "Anno di cui stampare gli allegati"
  FLAGS "A"
END

RADIOBUTTON F_MODO_STAMPA  25
BEGIN
  PROMPT 2 3 "Destinazione"
  HELP "Indicare funzione della stampa"
  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 "Indicare 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 allegato"
  FLAGS "H"
END

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

BOOLEAN F_ARROT
BEGIN
  PROMPT 2 11 "Importi non arrotondati "
  HELP "Indicare se gli importi devono essere arrotondati"
END

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

BOOLEAN F_ATTIVITA 
BEGIN
  PROMPT 31 11 "Elenco distinto per attivita'"
  HELP "Indicare se stampare un elenco diviso per attivita'"
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 "Indicare se ricalcolare ogni ditta prima di stampare"
END

STRING F_DA_DITTA 5
BEGIN
  PROMPT 1 14 "Da ditta "
  HELP "Ditta di partenza della stampa: vuoto = inizio archivio"
  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 "Ultima ditta da stampare: vuoto = fine archivio"
  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 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK