58 lines
673 B
Plaintext
58 lines
673 B
Plaintext
|
#include "cg3900a.h"
|
||
|
|
|
||
|
|
PAGE "Elenco Clienti/Fornitori" -1 -1 70 5
|
||
|
|
|
||
|
|
LIST F_TIPO 1 10
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "Tipo "
|
||
|
|
ITEM "C|Clienti"
|
||
|
|
ITEM "F|Fornitori"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 23 1 "Anno "
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_NAME 128 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "File "
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_SELECT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -15 -1 ""
|
||
|
|
PICTURE BMP_FINDREC
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_EDIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -25 -1 ""
|
||
|
|
PICTURE BMP_EDIT
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_PRINT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -35 -1 ""
|
||
|
|
PICTURE BMP_PRINT
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_ELABORA 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -45 -1 ""
|
||
|
|
PICTURE BMP_ELABORA
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -55 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|