649a9819c8
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 282 git-svn-id: svn://10.65.10.50/trunk@8058 c028cbd2-c16b-5b4b-a496-9718f37d4682
171 lines
2.7 KiB
Plaintext
Executable File
171 lines
2.7 KiB
Plaintext
Executable File
#include "db0500a.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
|
|
|
|
STRING DLG_PROFILE 30
|
|
BEGIN
|
|
FLAGS "H"
|
|
PROMPT 1 1 ""
|
|
PSELECT
|
|
END
|
|
|
|
STRING F_CODICE 20
|
|
BEGIN
|
|
PROMPT 2 1 "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
|
|
DEFAULT NONE
|
|
END
|
|
|
|
STRING F_CODICEQ 20
|
|
BEGIN
|
|
PROMPT 2 2 "Articolo "
|
|
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"
|
|
DEFAULT NONE
|
|
END
|
|
|
|
STRING F_DESCR 50 40
|
|
BEGIN
|
|
KEY 2
|
|
PROMPT 34 2 ""
|
|
USE LF_ANAMAG KEY 2
|
|
JOIN LF_UMART INTO CODART=CODART NRIGA=1
|
|
INPUT DESCR F_DESCR
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
OUTPUT F_CODICEQ CODART
|
|
OUTPUT F_CODICE CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
DEFAULT NONE
|
|
END
|
|
|
|
STRING F_VAR_IMPIANTO 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 2 3 "Impianto "
|
|
USE IMP
|
|
INPUT CODTAB F_VAR_IMPIANTO
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_VAR_IMPIANTO CODTAB
|
|
MESSAGE CHECK, F_VAR_LINEA
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
STRING F_VAR_LINEA 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 20 3 "Linea "
|
|
USE LNP
|
|
INPUT CODTAB F_VAR_LINEA
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Impianto" S6
|
|
OUPUT F_VAR_LINEA CODTAB
|
|
OUPUT F_VAR_IMPIANTO S6
|
|
CHECKTYPE FORCED
|
|
END
|
|
|
|
NUMBER F_SORT 1
|
|
BEGIN
|
|
PROMPT 2 4 "Ordinamento "
|
|
USE ORD
|
|
INPUT CODTAB F_SORT
|
|
DISPLAY "Codice ordinamento" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_SORT CODTAB
|
|
OUTPUT F_SORTDESC S0
|
|
CHECKTYPE FORCED
|
|
FLAGS "U"
|
|
MESSAGE EMPTY "Immissione",F_SORTDESC
|
|
DEFAULT NONE
|
|
END
|
|
|
|
STRING F_SORTDESC 50
|
|
BEGIN
|
|
PROMPT 24 4 ""
|
|
FLAGS "D"
|
|
DEFAULT NONE
|
|
END
|
|
|
|
BOOL F_HIDE_GHOST
|
|
BEGIN
|
|
FLAGS "Fh"
|
|
PROMPT 2 5 "Nascondi le distinte virtuali non di produzione"
|
|
DEFAULT NONE
|
|
END
|
|
|
|
TREE F_TREE -3 -1
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|