【ABAP SAP】开发-BUG修补记录_采购申请打印时品名规格品牌为空

项目场景：

TCODE:自开发程序ZMMF004
采购申请打印
在这里插入图片描述

问题描述

ZMMF004打印的时候，有的采购申请的品名、规格、品牌为空
在这里插入图片描述

原因分析：

1、首先我通过写SQL语句查底表来看这几条采购申请本身有无品名、规格、品牌
SQL语句如下，只需修改where条件即可测试各条数据
eban底表:采购申请

测试1：采购申请号：2500000122

SELECT ZPM,ZGGXH,ZPP
FROM EBAN
WHERE BANFN = '2500000122';

执行结果：
在这里插入图片描述
可看出该条采购申请是本身就没有品名、规格、品牌的值的

测试2：采购申请号：2500000134

SELECT ZPM,ZGGXH,ZPP
FROM EBAN
WHERE BANFN = '2500000134';

执行结果：
在这里插入图片描述
可看出该条采购申请是本身就有品名的值，但没有规格、品牌的值

测试3：采购申请号：2500000136

SELECT ZPM,ZGGXH,ZPP
FROM EBAN
WHERE BANFN = '2500000136';

执行结果：
在这里插入图片描述
可看出该条采购申请对应两个物料号，其中一个物料有品名值，无规格、品牌的值；另一个物料这三个字段都没有值

从上面的测试结果我可以得出，并不是由于程序取数逻辑错误而导致带不出品名、规格、品牌等字段值，而是因为一些采购申请本身就没有填相应的字段值

2、我的首先的思路是，loop循环ALV最终要显现出来的取到数据的内表，一条一条查哪些采购申请的品名、规格、品牌为空，若为空，则再从物料主数据中取然后放到内表中，但这样loop会非常耗费时间，代码实现也要相对注意，所以这个思路out

3、与其loop已取出来数的内表，不如直接从源头select改变取值方式，直接去物料主数据里取

解决方案：

通过上面的原因分析，可采用如下解决方案：也就是原因分析中的第三条
直接取物料对应的物料主数据上的需要的字段信息，并使其显示出来，若采购申请有这三个字段的值也没关系，从物料主数据中取出来的三字段的值会直接覆盖（因为采购申请中的三字段值和物料主数据中的应该是一致的）
所以解决办法也很简单，直接在原先select语句基础上，连一个表mara物料主数据，让直接从mara表中取品名，规格，品牌（前提是mara表中得有这些字段）

mara表：
在这里插入图片描述

修改的语句如下：

SELECT a~banfn,a~bnfpo,a~badat,a~bsart,a~matkl,a~ernam,a~knttp,a~werks,d~name1,a~ekgrp,b~eknam,a~matnr,a~txz01,i~zpm,i~zggxh,i~zpp,a~menge,a~meins,a~lfdat,a~lgort,c~lgobe,a~afnam,a~zjjcd,a~zjhjh,f~maktx,g~wgbez,h~knttxINTO CORRESPONDING FIELDS OF TABLE @gt_alvFROM eban AS aLEFT  OUTER JOIN t024    AS b ON a~ekgrp = b~ekgrpLEFT  OUTER JOIN t023T   AS g ON a~matkl = g~matklLEFT  OUTER JOIN t001L   AS c ON a~werks = c~werks AND a~lgort = c~lgortLEFT  OUTER JOIN t001w   AS d ON a~werks = d~werksLEFT  OUTER JOIN makt    AS f ON a~matnr = f~matnrLEFT  OUTER JOIN zmmt021 AS e ON a~banfn = e~banfnLEFT  OUTER JOIN t163i   AS h ON a~knttp = h~knttp AND h~spras = @sy-languLEFT  OUTER JOIN MARA    AS i on i~matnr = a~matnrWHERE a~bsart IN @s_bsartAND a~werks IN @s_werksAND a~banfn IN @s_banfnAND a~badat IN @s_badatAND a~ernam IN @s_ernamAND a~loekz NE 'X'AND (lv_str)AND (lv_str2).

红框中为修改并添加的语句
在这里插入图片描述
再执行 ZMMF004，效果如下：

2024/12/12 13：57
承接上文，需要做个纠正，由于采购申请中的那三个字段的值可能和物料主数据中的不一样，所以其实并不能简单的让直接取物料主数据里的值，而忽略过采购申请，所以，还是需要判断：若采购申请中的三个字段的值不为空，则就取采购申请里的，若采购申请里的为空或为初始值，则取物料主数据里的

代码如下：

  SELECT a~banfn,a~bnfpo,a~badat,a~bsart,a~matkl,a~ernam,a~knttp,a~werks,d~name1,a~ekgrp,b~eknam,a~matnr,a~txz01,
*         a~zpm,
*         a~zggxh,
*         a~zpp,CASEWHEN a~zpm is not null and a~zpm is not initial then a~zpmelse i~zpmend as zpm,CASEWHEN a~zggxh is not null and a~zggxh is not initial then a~zggxhelse i~zggxhend as zggxh,CASEWHEN a~zpp is not null and a~zpp is not initial then a~zppelse i~zppend as zpp,a~menge,a~meins,a~lfdat,a~lgort,c~lgobe,a~afnam,a~zjjcd,a~zjhjh,f~maktx,g~wgbez,h~knttxFROM eban AS aLEFT  OUTER JOIN t024    AS b ON a~ekgrp = b~ekgrpLEFT  OUTER JOIN t023T   AS g ON a~matkl = g~matklLEFT  OUTER JOIN t001L   AS c ON a~werks = c~werks AND a~lgort = c~lgortLEFT  OUTER JOIN t001w   AS d ON a~werks = d~werksLEFT  OUTER JOIN makt    AS f ON a~matnr = f~matnrLEFT  OUTER JOIN zmmt021 AS e ON a~banfn = e~banfnLEFT  OUTER JOIN t163i   AS h ON a~knttp = h~knttp AND h~spras = @sy-languLEFT  OUTER JOIN MARA    AS i on i~matnr = a~matnrWHERE a~bsart IN @s_bsartAND a~werks IN @s_werksAND a~banfn IN @s_banfnAND a~badat IN @s_badatAND a~ernam IN @s_ernamAND a~loekz NE 'X'AND (lv_str)AND (lv_str2)INTO CORRESPONDING FIELDS OF TABLE @gt_alv.

另外：对null 和initial做个区分
a~zpm is not null检查字段是否有值；a~zpm is not initial检查字段的值是否不是其“初始”状态；
这里的初始状态应该是说数据库表字段在定义时有无指定默认值，如果数据库表字段在定义时指定了默认值，那么在插入数据时如果没有为该字段赋值，数据库会白动使用指定的默认值;如果数据库表字段没有指定默认值，且在插入数据时没有为其赋值，那么该字段的值将取决于数据库系统的默认行为:字符类型字段会被赋值为空字符(”)
那只有在从采购申请中得来的字段不为空且不是初始值的情况下，就用采购申请里的；若是空或是初始值，就用物料主数据里的
null在数据库中表示一个未知或缺失的值。如果一个字段的值为null，这意味着这个字段没有值，或者说它的值是不确定的。
initial用于表示一个字段或变量的初始状态或默认值

注：
在 ABAP 中，往数据库插入数据时，如果字段未被显式赋值，则插入行为取决于以下几个方面:
1、字段的初始值:
对于 ABAP 内部表或者工作区(Work Area)中的字段，如果未赋值，这些字段会有默认的
初始值，具体如下:
字符型(CHAR, STRING):空字符串 ··
数值型(INT, FLOAT, DEC):e。
日期型(DATE):‘00000000’。
时间型(TIME):‘000000’
布尔型 (X, FLAG):8。
插入数据库时，ABAP 会使用这些默认初始值。
2、数据库字段的默认值
如果数据库表字段在定义时指定了默认值(通过字段的 Defaut 属性设置)，即使 ABAP 程序
没有赋值，该默认值也会被插入。
3、数据库字段是否允许空值:
如果字段在数据库中被定义为允许 NULL值，那么 ABAP 中使用 CLEAR 或未赋值的字段可
能会被视为 NULL，具体取决于数据库接口的设置。
如果字段不允许 NULL值，未赋值字段会使用其默认的初始值插入到数据库中，