104 lines
2.0 KiB
Plaintext
104 lines
2.0 KiB
Plaintext
|
#include "cg3300a.h"
|
||
|
|
|
||
|
|
PAGE "Stampa su disco" -1 -1 65 16
|
||
|
|
|
||
|
|
DATE F_DATA_STAMPA
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 1 "Data "
|
||
|
|
HELP "Data in cui effettuare la stampa"
|
||
|
|
FLAGS "A"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO_STAMPA 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 30 1 "Anno di stampa "
|
||
|
|
HELP "Anno di cui effettuare la stampa"
|
||
|
|
FLAGS "A"
|
||
|
|
END
|
||
|
|
|
||
|
|
RADIOBUTTON F_TIPO_STAMPA2 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 "Tipo di stampa "
|
||
|
|
HELP "Indicare arhcivio da stampare"
|
||
|
|
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 stampare solo il saldo dell'anno precedente"
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_ATTIVITA
|
||
|
|
BEGIN
|
||
|
|
PROMPT 30 6 "Elenco distinto per attivita'"
|
||
|
|
HELP "Indicare se stampare un elenco diviso per attivita'"
|
||
|
|
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 "Indicare se ricalcolare ogni ditta prima di stampare"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DA_DITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 11 "Da ditta "
|
||
|
|
HELP "Ditta di partenza della stampa. vuoto = 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 "Ultima ditta da stampare. vuoto = 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
|