kkgl.prg

企业生产库房管理系统,主要企业的材料进出管理,自动生成报表.

set talk off
clea all
set view to kufahj.vue
do form fm
&&DECLARE INTEGER PlaySound IN winmm.dll STRING,INTEGE,INTEGE
&&=PlaySound("c:\welcom98.wav",0,3)
keyb '{ctrl+f4}'
modi wind screen titl "银山库房管理系统"
clea
sele Minlin
repl ml1 with dtos(date())
store ml1 to password1
store "a1234" to password2
do qcxlcd.mpr
read   event
quit

procedure ppbb
ckdjgcp1=ckdjgcp
set view to kufahj.vue
erase ys8at.dbf
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
 and asc(ckdj.零件编号)<>asc('N0000') and asc(ckdj.零件编号)<>asc('P0000');
 and asc(ckdj.零件编号)<>asc('K0000') and asc(ckdj.零件编号)<>asc('Z0000');
 and asc(ckdj.零件编号)<>asc('W0000') and asc(ckdj.零件编号)<>asc('Y0000');
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgc+'自身消耗'
report form yhz8a.frx envi preview
use
erase ys8at.*
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
 and (asc(ckdj.零件编号)=asc('N0000') OR asc(ckdj.零件编号)=asc('K0000') OR asc(ckdj.零件编号)=asc('Z0000') OR asc(ckdj.零件编号)=asc('W0000'));
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp='    '+ckdjgc+'移用'
report form yhz8a.frx envi preview
set view to kufahj.vue
return

procedure yhppbb
set view to kufahj.vue
erase ys8at.dbf
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where bhmc.零件编号=ckdj.零件编号;
 and asc(ckdj.零件编号)=asc('Y0000') and (ysdd=.t. or ys8a=.t. or ys88=.t. or ys88a=.t. or ys89a=.t. or ys201=.t.);
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgc+'易耗品'
report form yhz8a.frx envi preview
set view to kufahj.vue
return

procedure yhppbb1
set view to kufahj.vue
erase ys8at.dbf
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where bhmc.零件编号=ckdj.零件编号;
 and asc(ckdj.零件编号)=asc('Y0000') and &ckdjgcp1=.t.;
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgc+'易耗品'
report form yhz8a.frx envi preview
set view to kufahj.vue
return

procedure ppbb3
set view to kufahj.vue
erase ys8at.dbf
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(rkdj.入库数量) as 入库数量;
 where bhmc.零件编号=rkdj.零件编号 ;
 group by rkdj.零件编号 order by rkdj.零件编号  from bhmc,rkdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
report form yhz8a1.frx envi preview
set view to kufahj.vue
return

&& sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
&& where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
&& and asc(ckdj.零件编号)>=asc('00000') and asc(ckdj.零件编号)<=asc('G0000');
&& group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 

procedure ppbb4
set view to kufahj.vue
erase ys8at.dbf
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(rkdj.入库数量) as 入库数量;
 where bhmc.零件编号=rkdj.零件编号 ;
 group by rkdj.零件编号 order by rkdj.零件编号  from bhmc,rkdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
report form yhz8a1.frx envi preview
set view to kufahj.vue
return

procedure ppbb1
set view to kufahj.vue
erase ys8at.dbf
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
 and (asc(ckdj.零件编号)=asc('&ljbh'));
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
report form yhz8a.frx envi preview
set view to kufahj.vue
return

procedure ppbb2
set view to kufahj.vue
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
ckdjgcp1=ckdjgcp

use
erase ys8at.*
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgc
&&ckdjgcp='  '+ckdjgcp+''
report form yhz8a.frx envi preview
set view to kufahj.vue
return

procedure inbbpp2
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
use
erase ys8at.*
sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
 and (asc(ckdj.零件编号)=asc('&lbh'));
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgcp1
return

procedure ybb
sele ckdj
erase ys*.dbf
&&erase 其它t.*
erase 电源t.*
erase 载波t.*
set order to tag bh1
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
total on 零件编号 to ysddt fields 领料数量 for ysdd=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to ys8at fields 领料数量 for ys8a=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to ys88t fields 领料数量 for ys88=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to ys88at fields 领料数量 for ys88a=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to 网络t fields 领料数量 for 网络=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to ys89at fields 领料数量 for ys89a=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to ys201t fields 领料数量 for ys201=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to 维护t fields 领料数量 for 维护=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to 电源t fields 领料数量 for 电源=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
total on 零件编号 to 载波t fields 领料数量 for 载波=.t. and 领料日期>=ctod(old) and 领料日期<=ctod(cld)
use ys201t
index on 零件编号 tag bh1
use ysddt
index on 零件编号 tag bh2
use ys89at
index on 零件编号 tag bh3
use ys88at
index on 零件编号 tag bh4
use 网络t
index on 零件编号 tag bh5
use ys88t
index on 零件编号 tag bh6
use ys8at
index on 零件编号 tag bh7
use 维护t 
index on 零件编号 tag bh8
use 电源t 
index on 零件编号 tag bh9
use 载波t 
index on 零件编号 tag bh10
set view to bbhj.vue
report form yhz.frx envi preview
set view to kufahj.vue
return

procedure time_data
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
return

procedure ppbbb
ckdjgcp1=ckdjgcp
set view to kufahj.vue
erase ys8at.dbf
mth=month(date())
mthd=month(date())
yy=year(date())
cyy=year(date())
   if mth=01 then
   mth=13
   yy=yy-1
   endif
mth=mth-1
old=str(mth)+"/26"+"/"+str(yy)
cld=str(mthd)+"/25"+"/"+str(cyy)
 sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,sum(ckdj.领料数量) as 领料数量;
 where &ckdjgcp1=.t. and bhmc.零件编号=ckdj.零件编号 and 领料日期>=ctod(old) and 领料日期<=ctod(cld);
and asc(ckdj.零件编号)=asc('P0000');
 group by ckdj.零件编号 order by ckdj.零件编号 from bhmc,ckdj into dbf  ys8at 
use ys8at
index on 零件编号 tag bh7
set rela to ys8at.零件编号 into bhmc addi
ckdjgcp=ckdjgc
report form yhzbc.frx envi preview
set view to kufahj.vue
return
&& and val(right(ckdj.零件编号,4))>=an and val(right(kcb.零件编号,4))<=bn and asc(ckdj.零件编号)=asc('P0000');