109 lines
2.1 KiB
Plaintext
Executable File
109 lines
2.1 KiB
Plaintext
Executable File
//
|
|
// 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
|
|
|