campo-sirio/db/db0100a.uml

114 lines
1.7 KiB
Plaintext
Raw Normal View History

#include "db0100a.h"
TOOLBAR "" 0 19 0 0
BUTTON DLG_SELECT 10 2
BEGIN
PROMPT -16 -11 "~Selezione"
MESSAGE EXIT,K_ENTER
PICTURE BMP_SELECT
END
BUTTON DLG_NEWREC 10 2
BEGIN
PROMPT -26 -11 "~Nuovo"
MESSAGE EXIT,K_INS
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -36 -11 "~Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
PICTURE BMP_DELRECDN
END
BUTTON F_COPY 10 2
BEGIN
PROMPT -46 -11 "~Copia"
END
BUTTON F_EXPLODE 10 2
BEGIN
PROMPT -56 -11 "E~splodi"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -66 -11 "~Fine"
MESSAGE EXIT,K_QUIT
PICTURE BMP_QUIT
PICTURE BMP_QUITDN
END
ENDPAGE
PAGE "Distinta base" -1 -1 80 20
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "Distinta"
END
STRING F_CODICE 20
BEGIN
PROMPT 2 2 "Cerca "
FLAGS "GU"
USE LF_DIST
JOIN LF_ANAMAG INTO CODART==CODDIST
INPUT CODDIST F_CODICE
DISPLAY "Codice@20" CODDIST
DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
OUTPUT F_CODICE CODDIST
CHECKTYPE REQUIRED
FIELD CODDIST
END
STRING F_CODICEQ 20
BEGIN
PROMPT 47 2 "Codice "
FIELD CODDIST
KEY 1
USE LF_ANAMAG
JOIN LF_UMART INTO CODART=CODART NRIGA=1
INPUT CODART F_CODICEQ
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODICEQ CODART
CHECKTYPE REQUIRED
ADD RUN ve2 -3
MESSAGE COPY,F_CODICE
FLAGS "U"
END
NUMBER F_SORT 1
BEGIN
PROMPT 2 3 "Ordinamento "
USE ORD
INPUT CODTAB F_SORT
DISPLAY "Codice ordinamento" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_SORT CODTAB
OUTPUT F_SORTDESC S0
CHECKTYPE NORMAL
FLAGS "U"
MESSAGE EMPTY "Immissione",F_SORTDESC
END
STRING F_SORTDESC 50
BEGIN
PROMPT 24 3 ""
FLAGS "D"
END
TREE F_TREE -3 -1
BEGIN
PROMPT 0 5 ""
END
ENDPAGE
ENDMASK