555 lines
13 KiB
Plaintext
Executable File
555 lines
13 KiB
Plaintext
Executable File
#include "cg3200.h"
|
|
|
|
PAGE "Stampa Mastrini" -1 -1 78 20
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 4 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 4 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT 96
|
|
BEGIN
|
|
PROMPT 4 11 "Dalla data competenza"
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 40 11 "Alla data competenza "
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 4 11 "Dalla data operazione "
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 40 11 "Alla data operazione "
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 47 1 "Codice esercizio "
|
|
HELP "Codice esercizio di cui stampare i mastrini"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_ANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
|
|
MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
LIST F_TIPOCF_INI 25
|
|
BEGIN
|
|
PROMPT 4 4 "Ricerca "
|
|
HELP "Indicare il tipo di mastrini da stampare"
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI 3
|
|
BEGIN
|
|
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
END
|
|
|
|
NUMBER F_CONTOINI_CONTO 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
//OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
|
|
//OUTPUT F_DESCRINI_CONTO DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_CONTOINI_CLIENTE 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CLIENTE
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CLIENTE CONTO
|
|
//OUTPUT F_SOTTOCINI_CLIENTE SOTTOCONTO
|
|
//OUTPUT F_DESCRINI_CLIENTE DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
|
|
GROUP 2
|
|
MESSAGE COPY,F_CONTOINI_CONTO
|
|
END
|
|
|
|
NUMBER F_CONTOINI_FORN 3
|
|
BEGIN
|
|
PROMPT 41 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_FORN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_FORN CONTO
|
|
//OUTPUT F_SOTTOCINI_FORN SOTTOCONTO
|
|
//OUTPUT F_DESCRINI_FORN DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCINI_CONTO|DIRTY,F_SOTTOCINI_CLIENTE|DIRTY,F_SOTTOCINI_FORN
|
|
GROUP 3
|
|
MESSAGE COPY,F_CONTOINI_CONTO
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CONTO 6
|
|
BEGIN
|
|
PROMPT 48 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
|
|
//OUTPUT F_DESCRINI_CONTO DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DESCRINI_CONTO 50
|
|
BEGIN
|
|
PROMPT 4 6 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRINI_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCINI_CONTO
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 48 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_CLIFO
|
|
//CHECKTYPE NORMAL
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCINI_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCINI_CLIENTE CODCF
|
|
//OUTPUT F_DESCRINI_CLIENTE RAGSOC
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
FLAGS "R"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_DESCRINI_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 4 6 "Ragione sociale C "
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
FIELD LF_CLIFO->RAGSOC
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRINI_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_CLIENTE
|
|
MESSAGE COPY,F_DESCRINI_CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_FORN 6
|
|
BEGIN
|
|
PROMPT 48 5 ""
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_CLIFO
|
|
//CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCINI_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCINI_FORN CODCF
|
|
//OUTPUT F_DESCRINI_FORN RAGSOC
|
|
FLAGS "R"
|
|
GROUP 3
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
END
|
|
|
|
STRING F_DESCRINI_FORN 50
|
|
BEGIN
|
|
PROMPT 4 6 "Ragione Sociale F "
|
|
HELP "Codice conto da cui iniziare la stampa"
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRINI_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_FORN
|
|
MESSAGE COPY,F_DESCRINI_CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
LIST F_TIPOCF_FINE 25
|
|
BEGIN
|
|
PROMPT 4 7 "Ricerca "
|
|
HELP "Indicare il tipo di mastrini da stamapare"
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE 3
|
|
BEGIN
|
|
PROMPT 4 8 "A Gruppo - Conto - Sottoconto "
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_CONTO 3
|
|
BEGIN
|
|
PROMPT 41 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
//OUTPUT F_DESCRFINE_CONTO DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_CLIENTE 3
|
|
BEGIN
|
|
PROMPT 41 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CLIENTE
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CLIENTE CONTO
|
|
//OUTPUT F_DESCRFINE_CLIENTE DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_CONTOFINE_CONTO
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_FORN 3
|
|
BEGIN
|
|
PROMPT 41 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_FORN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
//OUTPUT F_TIPOCF TMCF
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_FORN CONTO
|
|
//OUTPUT F_DESCRFINE_FORN DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
//WARNING "Conto inesistente o mancante"
|
|
//MESSAGE DIRTY,F_SOTTOCFINE_CONTO|DIRTY,F_SOTTOCFINE_CLIENTE|DIRTY,F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_CONTOFINE_CONTO
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_CONTO 6
|
|
BEGIN
|
|
PROMPT 48 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
|
|
//OUTPUT F_DESCRFINE_CONTO DESCR
|
|
FLAGS "R"
|
|
//CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_DESCRFINE_CONTO 50
|
|
BEGIN
|
|
PROMPT 4 9 "Descrizione "
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_PCON KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRINI_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCFINE_CONTO
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 48 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_CLIFO
|
|
//CHECKTYPE NORMAL
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCFINE_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_CLIENTE CODCF
|
|
//OUTPUT F_DESCRFINE_CLIENTE RAGSOC
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
FLAGS "R"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING F_DESCRFINE_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 4 9 "Ragione sociale "
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
FIELD LF_CLIFO->RAGSOC
|
|
CHECKTYPE NORMAL
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRFINE_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_CLIENTE
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_FORN 6
|
|
BEGIN
|
|
PROMPT 48 8 ""
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_CLIFO
|
|
//CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCFINE_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_FORN CODCF
|
|
//OUTPUT F_DESCRFINE_FORN RAGSOC
|
|
FLAGS "R"
|
|
GROUP 6
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
END
|
|
|
|
STRING F_DESCRFINE_FORN 50
|
|
BEGIN
|
|
PROMPT 4 9 "Ragione Sociale "
|
|
HELP "Codice conto a cui terminare la stampa"
|
|
USE LF_CLIFO KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRFINE_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
GROUP 6
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 26 11 ""
|
|
HELP "Data da cui iniziare la stampa"
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 62 11 ""
|
|
HELP "Data a cui terminare la stampa"
|
|
END
|
|
|
|
BOOLEAN F_STAMPATOTIVA
|
|
BEGIN
|
|
PROMPT 4 12 "Stampa totali documenti IVA"
|
|
HELP "Inidcare se stampare un totale per ogni tipo di doc. IVA"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAPROGRE
|
|
BEGIN
|
|
PROMPT 44 12 "Stampa progressivi attuali"
|
|
HELP "Indicare se stampare dati attuali a fondo pagina"
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 4 13 "Stampa movimenti provvisori"
|
|
HELP "Indicare se stampare movimenti provvisori"
|
|
END
|
|
|
|
LIST F_STAMPANUM 15
|
|
BEGIN
|
|
PROMPT 4 15 "Stampa numerazione "
|
|
HELP "Indicare il tipo di numerazione da stampare"
|
|
ITEM "1|Operazione"
|
|
ITEM "2|Riga giornale"
|
|
ITEM "3|Nessuna"
|
|
END
|
|
|
|
LIST F_TIPOSTAMPA 34
|
|
BEGIN
|
|
PROMPT 4 16 "Tipo stampa "
|
|
HELP "Indicare il tipo di stampa da ottenere"
|
|
ITEM "1|Mastrini movimentati nel periodo"
|
|
ITEM "2|Mastrini con saldi diversi da 0"
|
|
ITEM "3|Completa"
|
|
END
|
|
|
|
|
|
BOOLEAN F_MEMORIZZA
|
|
BEGIN
|
|
PROMPT 4 17 "Memorizza scelte"
|
|
HELP "Indicare se riproporre le scelte effettuate"
|
|
END
|
|
|
|
BUTTON DLG_PRINT 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa Mastrini" -1 -1 60 10
|
|
|
|
LIST F_NUMCARAT 10
|
|
BEGIN
|
|
PROMPT 4 2 "Numero caratteri "
|
|
HELP "Indicare il numero di caratteri del foglio di stampa (larghezza)"
|
|
ITEM "1|132 crt."
|
|
ITEM "2|198 crt."
|
|
END
|
|
|
|
LIST F_FORMATO 23
|
|
BEGIN
|
|
PROMPT 4 4 "Formato modulo di stampa "
|
|
HELP "Indicare l'altezza del modulo di stampa"
|
|
ITEM "66|11 pollici (27,94 cm)"
|
|
ITEM "72|12 pollici (30,48 cm)"
|
|
END
|
|
|
|
LIST F_NUMMAST 10
|
|
BEGIN
|
|
PROMPT 4 6 "Numero mastrini per pagina "
|
|
HELP "Indicare il numero di mastrini contenuti in una pagina"
|
|
ITEM "1|Uno"
|
|
ITEM "2|Due"
|
|
ITEM "3|Continua"
|
|
END
|
|
|
|
BUTTON DLG_PRINT 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 "~Stampa"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|