abap 创建dr会计凭证

在ABAP中创建DR（借方）会计凭证可以通过使用AC_DOCUMENT方法来实现。以下是一个简单的示例代码：

DATA: lo_doc TYPE REF TO if_ac_document,
      lo_item TYPE REF TO if_ac_doc_item.

CREATE OBJECT lo_doc.

lo_doc->set_document_type( 'DR' ).  " 设置凭证类型

lo_item = lo_doc->add_item( ).  " 添加会计凭证行项目
lo_item->set_account( '1000' ).  " 设置借方科目
lo_item->set_amount( 100.00 ).  " 设置金额

lo_item = lo_doc->add_item( ).  " 添加会计凭证行项目
lo_item->set_account( '2000' ).  " 设置贷方科目
lo_item->set_amount( -100.00 ).  " 设置金额，贷方金额为负数

lo_doc->post( ).  " 提交凭证

IF lo_doc->has_error( ).
  " 处理创建凭证时的错误信息
  DATA(lt_errors) = lo_doc->get_errors( ).
  LOOP AT lt_errors INTO DATA(ls_error).
    WRITE: / ls_error-message.
  ENDLOOP.
ELSE.
  " 创建凭证成功
  WRITE: '凭证创建成功！'.
ENDIF.

以上示例代码创建了一个DR（借方）会计凭证，包含两个行项目，一个借方科目和一个贷方科目，金额分别为100.00和-100.00。通过调用`lo_doc->post( )`方法提交凭证，`IF lo_doc->has_error( )`可以判断是否创建凭证时出现错误，`lo_doc->get_errors( )`可以获取具体的错误信息。