Soll zu einem VMI-Avis eine Bestellbestätigung mit einem externen Typ, zu dem es keinen internen Typ gibt, angelegt werden, so wird beim Anlegen der Default-Typ vermutet, z. B. ein LA.
/GIB/CL_DCV_PO_CONFIRM_CREATOR METHOD confirmation_create. ... ENDLOOP. *#7420 lf_ibtyp = get_ibtyp( if_ebtyp ). IF lf_ibtyp IS INITIAL. MESSAGE e664(vl) WITH if_ebtyp INTO lf_dummy. mr_msg->sy_set( ). ENDIF. *##7420 IF mr_msg->has_error( ) = space. "6166 ***7420 lf_ibtyp = get_ibtyp( if_ebtyp ). CALL FUNCTION 'ME_CONFIRMATION_MAINTAIN_AVIS' ... METHOD confirmation_delete. ... lf_ibtyp = get_ibtyp( ls_ekes-ebtyp ). *#7420 IF lf_ibtyp IS INITIAL. MESSAGE e664(vl) WITH ls_ekes-ebtyp INTO lf_dummy. mr_msg->sy_set( ). ELSE. *##7420 CALL FUNCTION 'ME_CONFIRMATION_MAINTAIN_AVIS' ... LOOP AT lt_wuebs INTO ls_wuebs. MOVE-CORRESPONDING ls_wuebs TO syst. mr_msg->sy_set( ). ENDLOOP. ENDIF. "7420 ... /GIB/CL_DCV_PO_VD_CONFIRMATION METHOD create_order_confirmation. ... lf_ibtyp = /gib/cl_dcv_po_confirm_creator=>get_ibtyp( <ls_data>-ebtyp ). *#7420 IF lf_ibtyp IS INITIAL. MESSAGE e664(vl) WITH <ls_data>-ebtyp INTO lf_dummy. mr_msg->sy_set( ). ELSE. *##7420 CALL FUNCTION 'ME_CONFIRMATION_MAINTAIN_AVIS' ... LOOP AT lt_wuebs INTO ls_wuebs. MOVE-CORRESPONDING ls_wuebs TO syst. mr_msg->sy_set( ). ENDLOOP. ENDIF. "7420 ... METHOD change_order_confirmation. ... lf_ibtyp = /gib/cl_dcv_po_confirm_creator=>get_ibtyp( <ls_data>-ebtyp ). *#7420 IF lf_ibtyp IS INITIAL. MESSAGE e664(vl) WITH <ls_data>-ebtyp INTO lf_dummy. mr_msg->sy_set( ). ELSE. *##7420 CALL FUNCTION 'ME_CONFIRMATION_MAINTAIN_AVIS' ... LOOP AT lt_wuebs INTO ls_wuebs. MOVE-CORRESPONDING ls_wuebs TO syst. mr_msg->sy_set( ). ENDLOOP. ENDIF. "7420 IF mr_msg->has_error( ) = 'X'. ...