BAPI_ACC_DOCUMENT_POST无法发布/创建新的会计凭证

1楼-- · 2020-08-21 09:37

数据：l_loop_index类型i。
   数据：l_status_count类型i，
         l_result_count类型TYPE I，
         l_error_flag TYPE c，
         l_status TYPE icon_d，
         l_belnr TYPE belnr_d。

   数据：l_obj_key类型bapiache09-obj_key。
   数据：l_logsys类型bapiache09-obj_sys。

   数据：l_nr_range_nr TYPE inri-nrrangenr，
         l_object TYPE inri-object。

   刷新：gt_check_result，
            gt_post_result。

   清除：l_loop_index，
            g_belnr1，
            g_bukrs，
            g_budat。

   通话功能'FIBL_GET_LOGSYS'
     输入
       ex_logsys = l_logsys。


 *当l_loop_index 如果以前的检查中存在错误，请忽略该记录
   读取表gt_status INTO gw_status
     WITH KEY索引= l_loop_index
               类型='E'。

 *->在文档中发现错误。 添加错误状态消息并
 *忽略记录
   如果sy-subrc = 0。

     循环至gt_status INTO gw_status
       WHERE索引= l_loop_index。
       gw_status-type ='E'。
       gw_status-status = icon_led_red。

       将gw_status附加到gt_check_result。
       将gw_status附加到gt_final_result。
       l_error_flag = gc_x。
     结局。

     如果l_error_flag = gc_x。
       如果g_check是INITIAL。
         g_check = 8。
       万一。
 *继续。
     万一。
   万一。

   刷新：gt_documentheader_p，
            gt_accountgl_p，
            gt_accountreceivable_p，
            gt_accountpayable_p，
            gt_currencyamount_p，
            gt_criteria_p，
            gt_accounttax_p，
            gt_bapiret2_p，
            gt_accountreceivivable_b，
            gt_currencyamount_b，
            gt_accountgl_b，
            gt_accounttax_b，
            gt_bapiret2_b。

 **文件标题
   将gt_documentheader循环到gw_documentheader中。
     " WHERE索引= l_loop_index。

     gw_documentheader_p = gw_documentheader。
     gw_documentheader_p-bus_act ='RFBU'。
     gw_documentheader_p-username = sy-uname。

     如果gw_documentheader_p-doc_type EQ'RV'
     或gw_documentheader_p-doc_type EQ'RC'
     或gw_documentheader_p-doc_type EQ'RR'。


       gw_documentheader_p-obj_type ='ZBKPF'。
       gw_documentheader_p-obj_key = gw_documentheader_p-ac_doc_no。
       gw_documentheader_p-obj_sys = l_logsys。

     ELSEIF gw_documentheader_p-doc_type EQ'RE'
     或gw_documentheader_p-doc_type EQ'KI'
     或gw_documentheader_p-doc_type EQ'ZP'。

       gw_documentheader_p-ac_doc_no =空格。
 * gw_documentheader_p-doc_status ='4'。
       gw_documentheader_p-obj_type ='ZBKPF'。  "'BKPFF'。
 *
 *
       l_belnr = gw_documentheader_p-ac_doc_no + 1。
       合并l_belnr
                   gw_documentheader_p-comp_code
                   gw_documentheader_p-fisc_year

                   INTO gw_documentheader_p-obj_key。
 * gw_documentheader_p-obj_key ='l'。
 ** gw_documentheader_p-obj_key = gw_documentheader-ref_doc_no。  "'$'。" gw_documentheader_p-ac_doc_no。
       gw_documentheader_p-obj_sys = l_logsys。

     万一。
     将gw_documentheader_p附加到gt_documentheader_p。

   结局。

 ** GL
   将gt_accountgl循环到INTO gw_accountgl。" WHERE索引= l_loop_index。
     gw_accountgl_p = gw_accountgl。
     将gw_accountgl_p附加到gt_accountgl_p。
   结局。

 ** AR
   将gt_accountreceivable循环到INTO gw_accountreceivable。
     "其中的索引= l_loop_index。
     gw_accountreceivable_p = gw_accountreceivable。
     将gw_accountreceivable_p附加到gt_accountreceivable_p。
   结局。

 ** AP
   将gt_accountpayable循环到INTO gw_accountpayable。
     " WHERE索引= l_loop_index。
     gw_accountpayable_p = gw_accountpayable。
     附加gw_accountpayable_p至gt_accountpayable_p。
   结局。

 **货币-过帐金额
   将gt_currencyamount循环到INTO gw_currencyamount。
     " WHERE索引= l_loop_index。
     gw_currencyamount_p = gw_currencyamount。
     APPEND gw_currencyamount_p到gt_currencyamount_p。
   结局。

 **标准-利润细分
   环环gt_criteria并进入gw_criteria。" WHERE索引= l_loop_index。
     gw_criteria_p = gw_criteria。
     附加gw_criteria_p至gt_criteria_p。
   结局。

 **账户税
   环转到gt_accounttax，然后输入到gw_accounttax。"，WHERE索引= l_loop_index。
     gw_accounttax_p = gw_accounttax。
     附加gw_accounttax_p至gt_accounttax_p。
   结局。

 ***过帐文件
 *清除l_obj_key。
 *如果l_loop_index> 1。
 * CONCATENATE'Refer'（t11）g_bukrs g_belnr1 INTO
 * gw_documentheader_p-header_txt由空格分隔。
 *    万一。

   刷新gt_bapiret2_p。
   通话功能'BAPI_ACC_DOCUMENT_CHECK'
     出口
       documentheader = gw_documentheader_p
     桌子
       accountgl = gt_accountgl_p
       应收帐款= gt_accountreceivable_p
       应付款= gt_accountpayable_p
       accounttax = gt_accounttax_p
       currencyamount = gt_currencyamount_p
       return = gt_bapiret2_p。

   如果gt_bapiret2_p不是INITIAL。
     通话功能'BAPI_ACC_DOCUMENT_POST'
       出口
         documentheader = gw_documentheader_p
       输入
         obj_key = l_obj_key
       桌子
         accountgl = gt_accountgl_p
         应收帐款= gt_accountreceivable_p
         应付款= gt_accountpayable_p
         accounttax = gt_accounttax_p
         currencyamount = gt_currencyamount_p
         return = gt_bapiret2_p。

     如果l_obj_key ='$'。
 *循环至gt_bapiret2_p INTO gw_bapiret2_p
 * WHERE类型='A'或类型='E'或类型='X'。
       l_status = icon_led_red。
 *        出口。
 * ENDLOOP。

     其他。
       等待最多10秒。

       通话功能'BAPI_TRANSACTION_COMMIT'
         出口
           等待= gc_x。

 *提交工作并等待。

 *取消冻结发票凭证
 *仅在没有错误的情况下取消阻止
       UNASSIGN 。
       在gt_bsik分配处循环播放。
          -zlspr =空间。
       结局。
       从表gt_bsik更新bsik。
       提交工作。

       gw_check_result-belnr = l_obj_key + 0（10）。

       清除l_status_count。
       描述表gt_bapiret2_p行l_result_count。

       l_status = icon_led_green。

     万一。



   ENDIF。