生成ccid

生成ccid

l_validation_date       := to_char( SYSDATE, 'YYYY-MM-DD HH24:MI:SS' );
o_account_ccid := fnd_flex_ext.get_ccid( 'SQLGL',
                                         'GL#',
                                         l_chart_of_accounts_id,
                                         l_validation_date,
                                         l_concatenated_segments);

IF l_debug = 'Y' THEN
   cux_debug.log( 'l_concatenated_segments : ' || l_concatenated_segments);
   cux_debug.log( 'x_account_isssue_ccid   : ' || o_account_ccid);
END IF ;
       
 IF nvl(o_account_ccid , -1) = - 1 OR o_account_ccid = 0 THEN   
            o_msg_data      :=
'产生科目' || l_concatenated_segments || '报错:' || SQLCODE || substrb(SQLERRM, 1, 200 );
            o_return_status := fnd_api.g_ret_sts_error;
         
END IF ;