67 lines
1.2 KiB
Plaintext
Executable File
67 lines
1.2 KiB
Plaintext
Executable File
#include "cg5400.h"
|
|
|
|
PAGE "Ripristino stampa indici libro unico" -1 -1 76 9
|
|
|
|
NUMBER F_YEAR 4
|
|
BEGIN
|
|
PROMPT 4 1 "Anno "
|
|
FLAGS "AR"
|
|
CHECKTYPE REQUIRED
|
|
HELP "Anno IVA"
|
|
WARNING "L'anno deve essere specificato"
|
|
END
|
|
|
|
STRING F_REG 3
|
|
BEGIN
|
|
PROMPT 4 3 "Libro unico "
|
|
FLAGS "UZ"
|
|
USE %LBU
|
|
INPUT CODTAB[1,4] F_YEAR
|
|
INPUT CODTAB[5,7] F_REG
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_YEAR CODTAB[1,4]
|
|
OUTPUT F_REG CODTAB[5,7]
|
|
OUTPUT F_DREG S0
|
|
CHECKTYPE REQUIRED
|
|
HELP "Codice del libro unico di cui ripristinare la stampa"
|
|
WARNING "Libro unico assente"
|
|
END
|
|
|
|
STRING F_DREG 50
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
USE %LBU KEY 2
|
|
INPUT S0 F_DREG
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
COPY OUTPUT F_REG
|
|
CHECKTYPE NORMAL
|
|
HELP "Denominazione del libro di cui ripristinare la stampa"
|
|
WARNING "Libro unico assente"
|
|
END
|
|
|
|
LIST F_MESE 10
|
|
BEGIN
|
|
PROMPT 4 5 "Mese "
|
|
FLAGS "M"
|
|
HELP "Mese da cui ripristinare la stampa degli indici"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|