160 lines
3.5 KiB
Plaintext
Executable File
160 lines
3.5 KiB
Plaintext
Executable File
//
|
|
// 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
|
|
|