101 lines
1.7 KiB
Plaintext
101 lines
1.7 KiB
Plaintext
|
#include "cg5400.h"
|
||
|
|
|
||
|
|
PAGE "Ripristino stampa registri" -1 -1 78 11
|
||
|
|
|
||
|
|
NUMBER F_FIRM 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 1 "Ditta "
|
||
|
|
FLAGS "RF"
|
||
|
|
USE LF_NDITTE
|
||
|
|
INPUT CODDITTA F_FIRM
|
||
|
|
DISPLAY "Codice" CODDITTA
|
||
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||
|
|
OUTPUT F_FIRM CODDITTA
|
||
|
|
OUTPUT F_DFIRM RAGSOC
|
||
|
|
WARNING "Ditta assente"
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
MESSAGE DIRTY,F_REG
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DFIRM 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 22 1 ""
|
||
|
|
USE LF_NDITTE KEY 2
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
INPUT RAGSOC F_DFIRM
|
||
|
|
DISPLAY "Ragione sociale @60" RAGSOC
|
||
|
|
DISPLAY "Codice" CODDITTA
|
||
|
|
COPY OUTPUT F_FIRM
|
||
|
|
WARNING "Ditta assente"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_YEAR 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 3 "Anno "
|
||
|
|
FLAGS "AR"
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "L'anno deve essere specificato"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_REG 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 5 "Registro "
|
||
|
|
FLAGS "UZ"
|
||
|
|
USE REG SELECT I0<6
|
||
|
|
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
|
||
|
|
DISPLAY "Tipo" I0
|
||
|
|
OUTPUT F_YEAR CODTAB[1,4]
|
||
|
|
OUTPUT F_REG CODTAB[5,7]
|
||
|
|
OUTPUT F_DREG S0
|
||
|
|
OUTPUT F_TIPO I0
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Registro assente"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DREG 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 22 5 ""
|
||
|
|
USE REG KEY 2 SELECT I0<6
|
||
|
|
INPUT S0 F_DREG
|
||
|
|
DISPLAY "Descrizione @50" S0
|
||
|
|
DISPLAY "Anno" CODTAB[1,4]
|
||
|
|
DISPLAY "Codice" CODTAB[5,7]
|
||
|
|
DISPLAY "Tipo" I0
|
||
|
|
COPY OUTPUT F_REG
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
WARNING "Registro assente"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_TIPO 15
|
||
|
|
BEGIN
|
||
|
|
FLAGS "HG"
|
||
|
|
ITEM "1|Vendite" MESSAGE HIDE,F_DAY
|
||
|
|
ITEM "2|Vendite" MESSAGE HIDE,F_DAY
|
||
|
|
ITEM "3|Riepilogativo" MESSAGE HIDE,F_DAY
|
||
|
|
ITEM "5|Giornale" MESSAGE SHOW,F_DAY
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_MESE 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 6 "Mese "
|
||
|
|
FLAGS "M"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_DAY 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 7 "Giorno "
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
TOOLBAR "topbar" 0 0 0 2
|
||
|
|
#include <stdbar.h>
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|