vfp 有没有人帮翻译一下是什么意思
sele fcpqmxset filt to 标志='T'
go bott
l_c=厂
sele 0
use \\sw_svr\user\main\ck\dbf\dh\dhcl inde \\sw_svr\user\main\ck\dbf\dh\dhcl.idx share
sele 0
use \\sw_svr\user\main\ck\dbf\dh\fcch alia fcch SHARE
set inde to \\sw_svr\user\main\ck\dbf\dh\fcch.idx
sele dyall
set exac off
go top
do while .not.eof()
l_lb=left(材料编号,3)
l_ch=仓号
sele fcch
seek l_c+l_ch+l_lb
if .not.eof()
l_qxk=去向库
sele dyall
repl 去向库 with l_qxk
endif
sele dhcl
SEEK dyall.订单号+dyall.成品编号+dyall.材料编号
IF !EOF()
locate for 订单号=dyall.订单号.AND.成品编号=dyall.成品编号.AND.材料编号=dyall.材料编号.AND.ddx=dyall.ddx next 10
if !found()
appe blan
repl 订单号 with dyall.订单号,成品编号 with dyall.成品编号,材料编号 with dyall.材料编号,ddx with dyall.ddx
endif
else
appe blan
repl 订单号 with dyall.订单号,成品编号 with dyall.成品编号,材料编号 with dyall.材料编号,ddx with dyall.ddx
endif
REPL 未领出数量 WITH 未领出数量-dyall.数量,日期 with date()
sele dyall
skip
enddo
use in dhcl
sele fcch &&\\Sw_svr\user\MAIN\CK\DBF\DH\fcch
use
sele 0
zyfile='zy'+str(year(date()),4)+righ(str(mont(date())+100,3),2)+'.dbf'
err_=0
on error err_=error()
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&zyfile ALIA zyall
on error
IF err_<>0 &&!FILE('\\sw_svr\user\main\ck\DBF\DH\mxfc\&zyfile')
USE \\sw_svr\user\main\ck\DBF\DH\LCMX share
COPY TO \\sw_svr\user\main\ck\DBF\DH\mxfc\&zyfile type foxplus
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&zyfile ALIA zyall
ENDIF
set exac on
SELE DYALL
*DELE ALL FOR !仓号$'036 020 02O 063 05R 023 09A 02T 0DI 05G 076'
inde on 仓号+订单号+成品编号+材料编号+去向库 to sys(2023)+'\dyall2'
total on 仓号+订单号+成品编号+材料编号+去向库 to sys(2023)+'\dysl10'
dele all
set order to 0
appe from sys(2023)+'\dysl10'
repl ALL 日期 with date()+1
INDE ON 去向库+材料编号+仓号 to sys(2023)+'\ghclbh'
DIME SLVA(16)
slva(1)='20'
slva(2)='23'
slva(3)='2O'
slva(4)='9A'
slva(5)='5R'
slva(6)='63'
slva(7)='2T'
slva(8)='5G'
slva(9)='DI'
slva(10)='76'
slva(11)='5M'
slva(12)='DK'
slva(13)='79'
slva(14)='77'
slva(15)='5J'
slva(16)='36'
*!* FOR i=1 to 16
*!* total on 去向库+材料编号 to sys(2023)+'\tot'+slva(i) for 仓号='0'+slva(i)
*!* endfor
total on 仓号+材料编号+去向库 to sys(2023)+'\tot' &&+slva(i) for 仓号='0'+slva(i)
sele 0
use bh_ch share
set order to bh
sele dyall
scan
sele bh_ch
seek dyall.材料编号
if eof()
appe blan
repl 编号 with dyall.材料编号
endif
repl 来源库 with dyall.仓号
sele dyall
endscan
use in bh_ch
sele dyall
set ORDER TO 0
sele dydetail
copy stru to sys(2023)+'\dyd'
sele 0
use sys(2023)+'\dyd' excl
*!* dyd=date()
*!* dyd=righ(str(year(dyd)*10000+mont(dyd)*100+day(dyd)),6)
*!* dyd=sys(2023)+'\dy'-dyd
*!* sele 0
*!* err_=0
*!* on error err_=error()
*!* sele 0
*!* use &dyd alia dyd excl
*!* on error
*!* if err_<>0
*!* sele dydetail
*!* copy stru to &dyd
*!* sele 0
*!* use &dyd alia dyd
*!* endif
inde on 单号 to sys(2023)+'\dyddh'
*!* dele all
SELE DYDETAIL
DELE ALL
inde on 材料编号 to sys(2023)+'\dydetail'
do while .t.
sele dyall
go top
if eof()
exit
else
d_ch=仓号
d_qxk=去向库
DHT=' '
DO CASE
CASE d_ch='0DK'
DHT='A'
CASE d_ch='036'
DHT='B'
CASE d_ch='120'
DHT='C'
CASE D_CH='123'
DHT='O'
CASE d_ch='079'
DHT='F'
CASE d_ch='077'
DHT='G'
CASE d_ch='12O'
DHT='H'
CASE d_ch='163'
DHT='J'
CASE d_ch='05J'
DHT='K'
CASE d_ch='15R'
DHT='L'
CASE D_CH='02T'
DHT='9'
CASE D_CH='09A'
DHT='8'
CASE D_CH='0DI'
DHT='D'
CASE D_CH='05G'
DHT='E'
CASE D_CH='076'
DHT='M'
case d_ch='15M'
dht='N'
ENDCA
SELE 0 &&取单号
TDBF=righ(d_ch,2)-left(dtoc(date()),4)-RIGH(STR(MONT(date())+100),2)-'.DBF'
IF !FILE('\\sw_svr\user\main\ck\DBF\DH\mxfc\&TDBF')
MDBF=righ(d_ch,2)-left(dtoc(date()),4)-RIGH(STR(MONt(date())-1+100),2)-'.DBF'
IF !FILE('\\sw_svr\user\main\ck\DBF\DH\mxfc\&MDBF')
DHT=DHT+'10001'
ELSE
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&MDBF
GO BOTT
DHT=DHT+RIGH(STR(VAL(RIGH(单号,5))+100001),5)
ENDIF
ELSE
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&TDBF
IF EOF()
MDBF=righ(d_ch,2)-left(dtoc(date()),4)-RIGH(STR(MONt(DATE())-1+100),2)-'.DBF'
IF !FILE('\\sw_svr\user\main\ck\DBF\DH\mxfc\&MDBF')
DHT=DHT+'10001'
ELSE
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&MDBF
GO BOTT
DHT=DHT+RIGH(STR(VAL(RIGH(单号,5))+100001),5)
ENDIF
ELSE
GO BOTT
DHT=DHT+RIGH(STR(VAL(RIGH(单号,5))+100001),5)
ENDIF
ENDIF
USE
sele 0
IF !FILE('\\sw_svr\user\main\ck\DBF\DH\mxfc\&TDBF')
USE \\sw_svr\user\main\ck\DBF\DH\LCMX
COPY STRU TO \\sw_svr\user\main\ck\DBF\DH\mxfc\&TDBF
ENDIF
USE \\sw_svr\user\main\ck\DBF\DH\mxfc\&TDBF ALIA mx
sele dydetail
dele all
set inde to
APPE FROM dbf('DYALL') FOR 仓号=d_ch.and.去向库=d_qxk &&.and.工号=l_gh
GO TOP
l_row=0
DO WHILE .NOT.EOF()
if l_row>=13
l_row=0
DHT=left(DHT,1)+RIGH(STR(VAL(RIGH(DHT,5))+100001),5)
ENDIF
REPL 单号 with dht
l_row=l_row+1
sele dydetail
skip
ENDDO
SELE DYDETAIL &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\DYDETAIL
inde on 单号+材料编号 to sys(2023)+'\dylssss'
go top
DO WHILE .NOT.EOF()
l_ddh=订单号
l_cpbh=成品编号
l_cpmc=成品名称
l_lb=拉别
l_clbh=材料编号
l_clmc=材料名称
l_sl=数量
l_dw=单位
l_dh=单号
sele mx &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\mx
appe blan
repl 订单号 with l_ddh,成品编号 with l_cpbh,成品名称 with l_cpmc,材料编号 with l_clbh,;
材料名称 with l_clmc,拉别 with l_lb,好的数量 with l_sl,日期 with date()+1,来源库 with d_ch,;
去向库 with d_qxk,单号 with l_dh
sele zyall
appe blan
repl 订单号 with l_ddh,成品编号 with l_cpbh,成品名称 with l_cpmc,材料编号 with l_clbh,;
材料名称 with l_clmc,拉别 with l_lb,好的数量 with l_sl,日期 with date()+1,来源库 with d_ch,;
去向库 with d_qxk,单号 with l_dh
sele dydetail &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\dydetail
skip
ENDDO
sele mx
use
sele dyd
appe from dbf('dydetail')
sele dyall
dele all for 仓号=d_ch.and.去向库=d_qxk &&.and.工号=l_gh
endif
enddo
sele 0
use sys(2023)+'\ddpq' &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\ddpq
report form ddpq preview
use
l_hz='T'
sele 0
use sys(2023)+'\tot' &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\tot
inde on 仓号+材料编号 tag 材料编号
set orde to 材料编号
repo form zcmx preview
l_hz='F'
sele dyd &&\\Sw_svr\user\PLAN\PRGW\PQ_FC\dyd
*!* inde on 材料编号 tag 材料编号
*!* set orde to 材料编号
inde on 仓号+订单号+材料编号 tag clbh
set orde to clbh
repo form zcmx preview
*repo form xzyd preview
*sele dyd
use in tot
use in dyd
*!* if messagebox('是否进行材料打印？',4+32,'系统提示')=6
*!* report form cxdy TO PRIN
*!* endif
*!* use
*!* FOR i=1 to 16
*!* sele 0
*!* use sys(2023)+'\tot'+slva(i)
*!* go top
*!* if !eof()
*!* report form gh_bh TO PRIN
*!* endif
*!* use
*!* endfor
rele slva
sele zyall
use
thisform.refresh
thisform.pageframe1.activepage=2
