📄 rkbj.spr
字号:
* *********************************************************
* *
* * 05-01-20 RKBJ.SPR 15:56:10
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (c) 2005 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This program was automatically generated by GENSCRN.
* *
* *********************************************************
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.rborder = SET("READBORDER")
SET READBORDER ON
m.currarea = SELECT()
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("_1fj0y5ner")
DEFINE WINDOW _1fj0y5ner ;
AT 0.000, 0.000 ;
SIZE 30.769,120.000 ;
TITLE "编辑窗口" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,192,192,192)
MOVE WINDOW _1fj0y5ner CENTER
ENDIF
* *********************************************************
* *
* * RKBJ/Windows Setup Code - SECTION 2
* *
* *********************************************************
*
#REGION 1
set talk off
set safe off
use rkjbxxk
inde on 入库单号 to abc
vrkdh=space(4)
vrkrq=ctod(' / / ')
vrkpz=1
vrkmc=space(10)
vrksl=0
vrkr=space(8)
vzdr=space(8)
vqsrq=ctod(' / / ')
vbz=space(200)
a1=.f.
a2=.t.
a3=.f.
cd1=.t.
show gets
* *********************************************************
* *
* * RKBJ/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("_1fj0y5ner")
ACTIVATE WINDOW _1fj0y5ner SAME
ELSE
ACTIVATE WINDOW _1fj0y5ner NOSHOW
ENDIF
@ 6.538,7.200 SAY "入库单号" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,128,128,128)
@ 9.308,7.200 SAY "入库日期" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 6.538,45.600 SAY "入库品种" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 12.077,7.200 SAY "入库名称" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 14.846,7.200 SAY "入库数量" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 9.308,45.600 SAY "入 库 人" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 12.077,45.600 SAY "制 单 人" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 14.846,45.600 SAY "签收日期" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 17.615,7.200 SAY "备 注" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 1.462,33.000 SAY "建业公司入库信息编辑窗口" ;
PICTURE "@I" ;
FONT "华文中宋", 14 ;
STYLE "BIT" ;
COLOR RGB(128,0,0,,,,)
@ 4.385,4.200 TO 27.077,89.600 ;
PEN 4, 8 ;
COLOR RGB(128,0,128,,,,)
@ 6.538,22.000 GET vrkdh ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K 9999" ;
WHEN a2 ;
VALID _1fj0y5nfc()
@ 9.308,22.000 GET vrkrq ;
SIZE 1.000,16.000 ;
DEFAULT { / / } ;
FONT "MS Sans Serif", 8 ;
PICTURE "@KD" ;
WHEN a3
@ 12.077,22.000 GET vrkmc ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 14.846,22.000 GET vrksl ;
SIZE 1.000,16.000 ;
RANGE 0 ;
DEFAULT 0 ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K 999999" ;
WHEN a3
@ 6.462,60.000 GET vrkpz ;
PICTURE "@^ 主板;硬盘;芯片;光驱;显示器;键盘;机箱;音箱;其他" ;
SIZE 1.538,14.167 ;
DEFAULT "主板" ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
WHEN a3
@ 9.308,60.400 GET vrkr ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 12.077,60.400 GET vzdr ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 14.846,60.400 GET vqsrq ;
SIZE 1.000,16.000 ;
DEFAULT { / / } ;
FONT "MS Sans Serif", 8 ;
PICTURE "@KD" ;
WHEN a3
@ 17.615,22.000 EDIT vbz ;
SIZE 7.000,55.000,0.000 ;
PICTURE "@K" ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
SCROLL ;
WHEN a3
@ 19.385,96.000 GET sc ;
PICTURE "@*HN 删除记录" ;
SIZE 1.150,8.222,0.444 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 12 ;
STYLE "B" ;
WHEN a1 ;
VALID _1fj0y5nfr()
@ 10.154,96.000 GET bc ;
PICTURE "@*HN 保存修改" ;
SIZE 1.150,8.222,0.444 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 12 ;
STYLE "B" ;
WHEN a3 ;
VALID _1fj0y5nfs()
@ 14.769,96.000 GET phfq ;
PICTURE "@*HN 放弃保存" ;
SIZE 1.150,8.222,0.444 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 12 ;
STYLE "B" ;
WHEN a3 ;
VALID _1fj0y5nfu()
@ 24.000,96.000 GET phtc ;
PICTURE "@*HT 退出编辑" ;
SIZE 1.150,8.222,0.444 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 12 ;
STYLE "B" ;
WHEN a1 ;
VALID _1fj0y5nfv()
@ 5.538,96.000 GET xg ;
PICTURE "@*HN 修改记录" ;
SIZE 1.150,8.222,0.444 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 12 ;
STYLE "B" ;
WHEN a1 ;
VALID _1fj0y5nfx()
IF NOT WVISIBLE("_1fj0y5ner")
ACTIVATE WINDOW _1fj0y5ner
ENDIF
READ CYCLE
RELEASE WINDOW _1fj0y5ner
SELECT (m.currarea)
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * RKBJ/Windows Supporting Procedures and Functions
* *
* *********************************************************
*
#REGION 1
proc abc
vrkdh=space(4)
vrkrq=ctod(' / / ')
vrkpz=1
vrkmc=space(10)
vrksl=0
vrkr=space(8)
vzdr=space(8)
vqsrq=ctod(' / / ')
vbz=space(300)
retu
* *********************************************************
* *
* * _1FJ0Y5NFC vrkdh VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 13
* * Variable: vrkdh
* * Called By: VALID Clause
* * Object Type: Field
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _1fj0y5nfc && vrkdh VALID
#REGION 1
seek alltrim(vrkdh)
if !found()
vrkdh=space(4)
wait wind'该入库单号对应的记录不存在'
a1=.f.
a2=.t.
a3=.f.
else
vrkrq=入库日期
vrkpz=val(入库品种)
vrkmc=入库名称
vrksl=入库数量
vrkr=入库人
vzdr=制单人
vqsrq=签收日期
vbz=备注
a1=.t.
a2=.f.
a3=.f.
endif
show gets
* *********************************************************
* *
* * _1FJ0Y5NFR sc VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 22
* * Variable: sc
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 2
* *
* *********************************************************
*
FUNCTION _1fj0y5nfr && sc VALID
#REGION 1
dele
pack
do abc
a1=.f.
a2=.t.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y5NFS bc VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 23
* * Variable: bc
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 3
* *
* *********************************************************
*
FUNCTION _1fj0y5nfs && bc VALID
#REGION 1
repl 入库单号 with vrkdh
repl 入库日期 with vrkrq
repl 入库数量 with vrksl
repl 入库名称 with vrkmc
repl 入库品种 with str(vrkpz,1)
repl 入库人 with vrkr
repl 签收日期 with vqsrq
repl 制单人 with vzdr
repl 备注 with vbz
do abc
a1=.f.
a2=.t.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y5NFU phfq VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 24
* * Variable: phfq
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 4
* *
* *********************************************************
*
FUNCTION _1fj0y5nfu && phfq VALID
#REGION 1
do abc
a1=.f.
a2=.t.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y5NFV phtc VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 25
* * Variable: phtc
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 5
* *
* *********************************************************
*
FUNCTION _1fj0y5nfv && phtc VALID
#REGION 1
cd1=.f.
* *********************************************************
* *
* * _1FJ0Y5NFX xg VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKBJ, Record Number: 26
* * Variable: xg
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 6
* *
* *********************************************************
*
FUNCTION _1fj0y5nfx && xg VALID
#REGION 1
a1=.f.
a2=.f.
a3=.t.
show gets⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -