--物料对应表按【4】号店为标准写入新店物料对应记录
declare
@wlmx_name nvarchar(50),@kmwh_name nvarchar(50),@bmgs_name nvarchar(20),
@grwh_name nvarchar(20),
@wlmxdy_wlmx integer,@wlmxdy_ztid nvarchar(20),@wlmxdy_ckindex integer,@wlmxdy_kmindex integer,
@wlmxdy_bmindex integer,@wlmxdy_grindex integer,@wlmxdy_khindex integer,@wlmxdy_gysindex integer

declare rs cursor for 

    select b.wlmx_name,wlmxdy_ztid,a.wlmxdy_ckindex,d.kmwh_name,e.bmgs_name,f.grwh_name
	from base_wlmxdy a 
	left join Base_WLMX b on a.wlmxdy_wlmx=b.Table_Index
	left join Base_CKWH c on a.wlmxdy_ckindex=c.Table_Index 
	left join Base_KMWH d on a.wlmxdy_kmindex=d.Table_Index
	left join Base_BMGS e on a.wlmxdy_bmindex=e.Table_Index
	left join Base_GRWH f on a.wlmxdy_grindex=f.Table_Index
	where wlmxdy_ztid='804' 
  
open rs
fetch next from rs into @wlmx_name,@wlmxdy_ztid,@wlmxdy_ckindex,@kmwh_name,@bmgs_name,@grwh_name
while (@@FETCH_STATUS=0)
begin
  set @wlmxdy_wlmx=ISNULL((select Table_Index from Base_WLMX where wlmx_visible=1 and wlmx_name=@wlmx_name and wlmx_sid='18' ),0);
  set @wlmxdy_kmindex=ISNULL((select Table_Index from Base_KMWH where kmwh_visible=1 and kmwh_ztid='817' and kmwh_name=@kmwh_name),0);
  set @wlmxdy_bmindex=ISNULL((select Table_Index from Base_BMGS where bmgs_ztid='817' and bmgs_name=@bmgs_name),0);
  set @wlmxdy_grindex=ISNULL((select Table_Index from Base_GRWH where grwh_ztid='817' and grwh_name=@grwh_name),0);
  
  
  if not exists(select * from Base_WLMXDY where wlmxdy_wlmx=@wlmxdy_wlmx and wlmxdy_ztid='817' and wlmxdy_ckindex=@wlmxdy_ckindex and 
               wlmxdy_kmindex=@wlmxdy_kmindex and wlmxdy_bmindex=@wlmxdy_bmindex and wlmxdy_grindex=@wlmxdy_grindex)
  begin
    insert into Base_WLMXDY (wlmxdy_wlmx,wlmxdy_ztid,wlmxdy_ckindex,wlmxdy_kmindex,wlmxdy_bmindex,wlmxdy_grindex,wlmxdy_khindex,wlmxdy_gysindex) 
    values(@wlmxdy_wlmx,'817',@wlmxdy_ckindex,@wlmxdy_kmindex,@wlmxdy_bmindex,@wlmxdy_grindex,0,0)
  end
  fetch next from rs into @wlmx_name,@wlmxdy_ztid,@wlmxdy_ckindex,@kmwh_name,@bmgs_name,@grwh_name
end
close rs    
DEALLOCATE rs