Datafix_for_arinvoice_dist_move

AR发票行的会计分录从一张发票迁移到另一张发票。

现象:美国公司的AR发票号:32001208 少了6条行会计分录。
美国公司的AR发票号:32001220 多了6条行会计分录。
这样AR这边的会计分录不平,无法传输到总帐。AR无法关帐

原因:由于以前用户发现AutoInvoice生成的发票有个Item:100A1256应该在发票32001208中,却实际产生在了发票32001220中,于是做了Datafix,把发票32001220中的6条Item:100A1256行迁移到了发票:32001208中,但是没有迁移相应的会计分录。

分析:
1)AR发票的会计分录存储在表:RA_CUST_TRX_LINE_GL_DIST_ALL,这表记录了发票头ID 和 发票行ID, 原先的Datafix应该是更改了AR发票行表中的发票头ID,别的应该没有改,所以需要找到这6条会计分录行,并更改其发票头ID即可。
2)如果发票已经被核销,那么由于核销表AR_RECEIVABLE_APPLICATIONS_ALL中记录了被核销的发票头ID和发票行ID,因此也可能出现错误。而核销产生的会计分配信息表AR_CASH_BASIS_DISTS_ALL中没有记录发票头ID和发票行ID, 如果两张发票是同一客户的那么也不受影响。

解决:使用Datafix把AR发票号:32001220 多出的6条行会计分录迁移到发票:32001208中。

分析SQL:

--Check 发票头:32001208
SELECT * FROM RA_CUSTOMER_TRX_ALL WHERE trx_number = '32001208'
#返回1条, Customer_trx_id=4597 ,  Org_id =121, Sold_to_customer_id =1212
--Check 发票头:32001220
SELECT * FROM RA_CUSTOMER_TRX_ALL WHERE trx_number = '32001220'
#返回1条, Customer_trx_id=4609 ,  Org_id =121, Sold_to_customer_id =1212
 
获取用户反映缺失会计分录的发票行
Select RCTL.*
From RA_CUSTOMER_TRX_LINES_ALL RCTL,
     RA_CUSTOMER_TRX_ALL RCT
Where RCTL.customer_trx_id = RCT.customer_trx_id
AND RCTL.Line_Number>=26 AND rctl.line_number<=31
And rct.trx_number = '32001208'
And RCT.org_id = 121
返回6行
 
customer_trx_id  CUSTOMER_TRX_LINE_ID
4597             36907
4597             36908
4597             36909
4597             36910
4597             36931
4597             36932
 
还要检查核销表中记录的发票头ID和发票行ID是否正确。也即:核销表中
这6条记录的的customer_trx_id 应该是4597 ,而不应该是4609; 
 
我们用反证法来查一下有没有错误的记录:
Select *
From AR_RECEIVABLE_APPLICATIONS_ALL araa
Where araa.applied_customer_trx_id = 4609
And araa.applied_CUSTOMER_TRX_LINE_ID In
      (369073690836909369103693136932)
#返回结果:无记录,所以不用考虑。
 
--获取用户反映的缺失的会计分录
Select RCTLG.*
From RA_CUST_TRX_LINE_GL_DIST_ALL RCTLG, RA_CUSTOMER_TRX_LINES_ALL RCTL,
     RA_CUSTOMER_TRX_ALL RCT
Where RCTL.customer_trx_line_id = RCTLG.customer_trx_line_id
And RCTL.customer_trx_id = RCT.customer_trx_id
AND RCTL.Line_Number>=26 AND rctl.line_number<=31
And rct.trx_number = '32001208'
And RCT.org_id = 121
#返回6条 , 这6条记录的customer_trx_id 均为4609,需要更改为4597

检查RA_CUST_TRX_LINE_GL_DIST_ALL表上的Trigger
使用Toad工具->Database->Schema Browser->
选择AR用户->RA_CUST_TRX_LINE_GL_DIST_ALL表
有三个Trigger与Update有关:
APPS.AX_RA_CUST_TRX_LINE_GL_ARU2 (更新gl_date时触发)
APPS.AX_RA_CUST_TRX_LINE_GL_ARU1 (更新posting_control_id时触发)
APPS.ra_cust_trx_line_gl_dist_bri(任何字段更新都受影响)
查看其判断逻辑后发现更改customer_trx_id不会引起什么问题,但是ra_cust_trx_line_gl_dist_bri会尝试从上下文环境中获取当前的更改是否由某个并发请求产生,因此需要模拟环境,否则会引起Trigger的不能处理例外,从而导致失败。

登陆美国系统,进入AR,Examine ,得到user_id=1111, resp_id=50317, resp_appl_id=222

--备份:用户已经备份数据

Select RCTLG.CUST_TRX_LINE_GL_DIST_ID
       From RA_CUST_TRX_LINE_GL_DIST_ALL RCTLG, RA_CUSTOMER_TRX_LINES_ALL RCTL,
            RA_CUSTOMER_TRX_ALL RCT
       Where RCTL.customer_trx_line_id = RCTLG.customer_trx_line_id
       And RCTL.customer_trx_id = RCT.customer_trx_id
       And RCTL.Line_Number >= 26
       And rctl.line_number <= 31
       And rct.trx_number = '32001208'
       And RCT.org_id = 121
 
返回:
CUST_TRX_LINE_GL_DIST_ID
58239
57424
57425
57426
57438
58240

执行更改

BEGIN
fnd_global.APPS_INITIALIZE(user_id =>1111 ,resp_id =>50317 ,resp_appl_id =>222 );
 
Update RA_CUST_TRX_LINE_GL_DIST_ALL A
Set A.customer_trx_id = 4597
Where a.org_id = 121
And a.customer_trx_id = 4609
And a.CUST_TRX_LINE_GL_DIST_ID In
      (Select RCTLG.CUST_TRX_LINE_GL_DIST_ID
       From RA_CUST_TRX_LINE_GL_DIST_ALL RCTLG, RA_CUSTOMER_TRX_LINES_ALL RCTL,
            RA_CUSTOMER_TRX_ALL RCT
       Where RCTL.customer_trx_line_id = RCTLG.customer_trx_line_id
       And RCTL.customer_trx_id = RCT.customer_trx_id
       And RCTL.Line_Number >= 26
       And rctl.line_number <= 31
       And rct.trx_number = '32001208'
       And RCT.org_id = 121);
END;

http://blog.retailsolution.cn/archives/2088

原文地址:https://www.cnblogs.com/benio/p/2261179.html