新增文章

文章标题分类内容

-- K3 
------------------------------------------------------------------------------------------------------------------------
-- 查询：会计分录序时簿

select 
   
       a1.FDate, a1.FYear, a1.FPeriod, a1.FGroupID, a1.FNumber
      ,a2.FVoucherID,a2.FEntryID + 1 FSeq ,a2.FDetailID 
      ,a3.F2
   
    from t_Voucher       a1
    join t_VoucherEntry  a2 on a1.FVoucherID = a2.FVoucherID
    join t_itemdetail    a3 on a3.FDetailID  = a2.FDetailID
    
    where a1.FDate between '2008-01-02'  -- 开始日期
                       and '2018-01-03'  -- 截止日期

and a3.F2 = 238
   
   order by a1.FYear, a1.FPeriod, a1.FGroupID, a1.FNumber ,a2.FEntryID

------------------------------------------------------------------------------------------------------------------------
-- 查询：部门
   
   select FItemID,FNumber,FName,FItemClassID  from t_item where FItemClassid=2 and FItemID in ( 238,239 )

------------------------------------------------------------------------------------------------------------------------
-- 更改：会计分录序时簿：部门 改成 新值

update a3 set F2 = 239  -- 部门：新值
   
    from t_Voucher       a1
    join t_VoucherEntry  a2 on a1.FVoucherID = a2.FVoucherID
    join t_itemdetail    a3 on a3.FDetailID  = a2.FDetailID
    
    where a1.FDate between '2008-01-02'  -- 开始日期
                       and '2018-01-03'  -- 截止日期

and a3.F2 = 238  -- 部门：旧值

------------------------------------------------------------------------------------------------------------------------
-- 更正：凭证录入.核算项目
   
      update a2 set FItemID = a1.F2
      
      from t_itemdetail   a1
      join t_itemdetailv  a2 on a1.FDetailID = a2.FDetailID 
      
      where a2.FItemClassID = 2  -- 部门
        and a1.F2 != 0
        and a1.F2 != a2.FItemID
      
------------------------------------------------------------------------------------------------------------------------
-- 查看：凭证录入.核算项目
   
      select a1.FDetailID ,a1.F2 ,a2.FItemClassID ,a2.FItemID   
      
      from t_itemdetail   a1
      join t_itemdetailv  a2 on a1.FDetailID = a2.FDetailID 
      
      where a2.FItemClassID = 2  -- 部门
        and a1.F2 != 0
        and a1.F2 != a2.FItemID
      
------------------------------------------------------------------------------------------------------------------------