使用DeepSeek写ABAP代码初体验1

由于有一段时间没有碰abap了，对于有的业务逻辑的取数不知道怎么写方便，故想到了AI。

以下是我提问的引导词。

abap根据条件查出了凭证的借方数据后再查贷方数据，怎么把原先的借方数据也填入内表？

DeepSeek深度考回答如下：

好的，我现在需要解决用户的问题：在ABAP中，根据条件查出了凭证的借方数据后，再查贷方数据，如何将原先的借方数据也填入内表。首先，我需要理解用户的具体场景和需求。

 

用户可能正在处理会计凭证，每个凭证可能有借方和贷方条目。他们可能已经通过某些条件筛选出了借方数据，现在需要找到对应的贷方数据，并将这两部分数据合并到同一个内表中。这可能涉及到关联同一凭证的不同条目，例如通过凭证编号或业务凭证号来匹配借方和贷方。

 

首先，我需要考虑用户可能使用的数据结构。假设他们有一个内表，存储了凭证的各个条目，每个条目有字段如凭证号（BELNR）、公司代码（BUKRS）、会计年度（GJAHR）、借贷标识（SHKZG，借方为S，贷方为H）等。用户可能已经查询了所有借方条目（SHKZG = 'S'），现在需要找到对应的贷方条目（SHKZG = 'H'），并将它们一起放入内表中。

 

接下来，用户的问题是如何在查询贷方数据时，保留原有的借方数据。可能的解决方案是，在查询贷方数据时，通过凭证号等关键字段关联到已有的借方数据，并将贷方数据添加到同一个内表中，或者创建一个新的内表，将两者合并。

 

需要注意以下几点：

1. 如何确保贷方数据与对应的借方数据匹配，可能需要使用凭证号、公司代码、会计年度等作为关键字段。

2. 内表的结构是否包含足够的信息来区分借方和贷方，或者是否需要额外的字段来标识。

3. 是否需要将借方和贷方数据作为两条记录存储在内表中，还是需要合并到同一行中。

 

可能的步骤：

1. 首先查询所有借方数据到内表lt_debit。

2. 然后根据lt_debit中的凭证号等信息，查询对应的贷方数据到lt_credit。

3. 将lt_debit和lt_credit合并到同一个内表lt_result中。

 

或者，用户可能希望在同一循环中处理借方和贷方，例如在读取借方数据时，立即查找对应的贷方数据，并同时插入到内表中。这种情况下，可能需要使用LOOP循环，并在每次处理借方条目时，查找对应的贷方条目，然后将两者添加到内表中。

 

此外，需要注意性能问题，特别是当数据量较大时。如果使用嵌套查询或多次读取内表，可能会导致性能下降。使用高效的查找方法，如排序内表并使用BINARY SEARCH，或者使用哈希表来提高查找速度。

 

可能的ABAP代码结构示例：

- 定义内表结构，包含凭证相关字段。

- 查询借方数据到内表。

- 循环借方数据，查找对应的贷方数据。

- 将借方和贷方数据添加到结果内表。

 

需要检查SY-SUBRC来确认是否找到贷方数据，避免遗漏或错误。同时，处理可能存在的多笔贷方数据情况，但通常一个凭证条目对应一笔借方和一笔贷方。

 

用户可能还希望保留原始借方数据的所有字段，并将贷方的相关字段合并到同一行，或者分别作为两条记录。这取决于后续处理的需求，例如是否需要同时显示借贷双方的信息，或者进行汇总计算。

 

总结，用户需要的是将借方和对应的贷方数据整合到同一内表中，确保数据的完整性和关联性。解决方案需要根据数据结构、关联键以及处理逻辑来设计，同时考虑效率和正确性。

在 ABAP 中，若需根据条件查询凭证的借方数据后关联其对应的贷方数据，并将两者合并到同一内表中，可以按以下步骤实现：

---

步骤说明

1. 定义内表与工作区
   定义包含凭证关键字段（如凭证号、公司代码、会计年度等）及借贷方数据字段的结构。

   TYPES: BEGIN OF ty_bseg,
            bukrs TYPE bseg-bukrs,      " 公司代码
            belnr TYPE bseg-belnr,      " 凭证号
            gjahr TYPE bseg-gjahr,      " 会计年度
            shkzg TYPE bseg-shkzg,      " 借贷标识（S=借方，H=贷方）
            dmbtr TYPE bseg-dmbtr,      " 金额
            kostl TYPE bseg-kostl,      " 成本中心
            aufnr TYPE bseg-aufnr,      " 订单号
          END OF ty_bseg.
   
   DATA: lt_debit  TYPE TABLE OF ty_bseg,  " 借方数据内表
         lt_credit TYPE TABLE OF ty_bseg,  " 贷方数据内表
         lt_result TYPE TABLE OF ty_bseg.  " 合并后的结果内表

   查询借方数据
   根据条件筛选出所有借方数据（SHKZG = 'S'）。

   SELECT bukrs, belnr, gjahr, shkzg, dmbtr, kostl, aufnr
     FROM bseg
     INTO TABLE lt_debit
     WHERE shkzg = 'S'          " 借方标识
       AND bukrs = p_bukrs      " 示例：公司代码条件
       AND gjahr = p_gjahr.      " 示例：会计年度条件

   提取贷方数据
   遍历借方数据，通过凭证关键字段（BUKRS、BELNR、GJAHR）查找对应的贷方数据（SHKZG = 'H'）。

   LOOP AT lt_debit ASSIGNING FIELD-SYMBOL(<ls_debit>).
     " 将当前借方数据添加到结果表
     APPEND <ls_debit> TO lt_result.
   
     " 查找对应的贷方数据
     READ TABLE lt_credit ASSIGNING FIELD-SYMBOL(<ls_credit>)
       WITH KEY bukrs = <ls_debit>-bukrs
                belnr = <ls_debit>-belnr
                gjahr = <ls_debit>-gjahr
                shkzg = 'H' BINARY SEARCH.  " 假设 lt_credit 已按关键字段排序
   
     IF sy-subrc = 0.
       " 找到贷方数据，添加到结果表
       APPEND <ls_credit> TO lt_result.
     ELSE.
       " 可选：处理贷方数据缺失的情况
       MESSAGE ID 'ZFI' TYPE 'W' NUMBER '001' 
         WITH <ls_debit>-belnr '未找到对应贷方数据'.
     ENDIF.
   ENDLOOP.

   优化查询效率（可选）

   • 预加载贷方数据：若数据量较大，可预先将所有贷方数据查询到 lt_credit 并按关键字段排序，以提高 READ TABLE 效率。

     SELECT bukrs, belnr, gjahr, shkzg, dmbtr, kostl, aufnr
       FROM bseg
       INTO TABLE lt_credit
       WHERE shkzg = 'H'          " 贷方标识
         AND bukrs = p_bukrs
         AND gjahr = p_gjahr.
     SORT lt_credit BY bukrs belnr gjahr.

     使用 FOR ALL ENTRIES：避免多次查询数据库，直接通过借方数据获取关联的贷方数据。

     IF lt_debit IS NOT INITIAL.
       SELECT bukrs, belnr, gjahr, shkzg, dmbtr, kostl, aufnr
         FROM bseg
         INTO TABLE lt_credit
         FOR ALL ENTRIES IN lt_debit
         WHERE bukrs = lt_debit-bukrs
           AND belnr = lt_debit-belnr
           AND gjahr = lt_debit-gjahr
           AND shkzg = 'H'.
     ENDIF.
     SORT lt_credit BY bukrs belnr gjahr.

     1. 合并结果验证
        确保结果内表 lt_result 中每条借方数据后紧跟其对应的贷方数据，或通过凭证号关联两者。

        完整示例代码

        DATA: lt_debit  TYPE TABLE OF ty_bseg,
              lt_credit TYPE TABLE OF ty_bseg,
              lt_result TYPE TABLE OF ty_bseg.
        
        " 1. 查询借方数据
        SELECT bukrs, belnr, gjahr, shkzg, dmbtr, kostl, aufnr
          FROM bseg
          INTO TABLE lt_debit
          WHERE shkzg = 'S'
            AND bukrs = p_bukrs
            AND gjahr = p_gjahr.
        
        " 2. 预加载关联的贷方数据
        IF lt_debit IS NOT INITIAL.
          SELECT bukrs, belnr, gjahr, shkzg, dmbtr, kostl, aufnr
            FROM bseg
            INTO TABLE lt_credit
            FOR ALL ENTRIES IN lt_debit
            WHERE bukrs = lt_debit-bukrs
              AND belnr = lt_debit-belnr
              AND gjahr = lt_debit-gjahr
              AND shkzg = 'H'.
          SORT lt_credit BY bukrs belnr gjahr.
        ENDIF.
        
        " 3. 合并借贷数据到结果表
        LOOP AT lt_debit ASSIGNING FIELD-SYMBOL(<ls_debit>).
          " 添加借方数据
          APPEND <ls_debit> TO lt_result.
        
          " 查找对应的贷方数据
          READ TABLE lt_credit ASSIGNING FIELD-SYMBOL(<ls_credit>)
            WITH KEY bukrs = <ls_debit>-bukrs
                     belnr = <ls_debit>-belnr
                     gjahr = <ls_debit>-gjahr
                     BINARY SEARCH.
        
          IF sy-subrc = 0.
            " 添加贷方数据
            APPEND <ls_credit> TO lt_result.
          ENDIF.
        ENDLOOP.

        关键点说明

        1. 数据结构一致性

           • 确保借贷双方数据使用相同结构，便于合并到同一内表。

        2. 关联键选择

           • 使用唯一标识凭证的关键字段（如 BUKRS + BELNR + GJAHR）确保借贷数据正确匹配。

        3. 性能优化

           • 使用 FOR ALL ENTRIES 减少数据库访问次数。

           • 对贷方数据排序后使用 BINARY SEARCH 提升查找效率。

        4. 异常处理

           • 处理贷方数据缺失的情况（如记录日志或抛出警告）。

        ---

        通过上述方法，可高效将同一凭证的借贷数据合并到内表中，确保数据完整性并满足后续处理需求（如金额核对、凭证展示等）。