Code: Alles auswählen.
...
* Kundeneigene Felder
IF panlage2 IS NOT INITIAL.
gs_vbap-anlage = panlage2.
ENDIF.
*Anreuzleiste für die Kundenerweiterung
DO 27 TIMES.
CONCATENATE kreuzleiste 'X' INTO kreuzleiste." SEPARATED BY space.
ENDDO.
*Erweiterung für die VBAP auffüllen
wa_extensionin-structure = 'BAPE_VBAP'.
CLEAR: valuepart1.
CONCATENATE
gs_vbap-vbeln gs_vbap-posnr gs_vbap-anlage gs_vbap-herkunft gs_vbap-nwnr gs_vbap-processtype
gs_vbap-wdplantordertype gs_vbap-zstatus gs_vbap-abrechnungsant [hervorheben]gs_vbap-zservloc[/hervorheben] gs_vbap-weighing_type
gs_vbap-treatment gs_vbap-lgtyp gs_vbap-lgpla gs_vbap-zabfall
gs_vbap-zzbehbox gs_vbap-zzbehbox_zu gs_vbap-zzbehbox_auf gs_vbap-zzgebaeude gs_vbap-zzgeb_verschl
gs_vbap-zzgeb_offen gs_vbap-zzgeb_garage gs_vbap-zzgeb_sonst gs_vbap-zzgeb_sonst_text gs_vbap-zzaufkl_voll
gs_vbap-zzgruen gs_vbap-zzschl_ja gs_vbap-zzschl_nein gs_vbap-zzhaft gs_vbap-zzbemerk gs_vbap-zzanztrepp
gs_vbap-zzcarport gs_vbap-zzbemer_beh gs_vbap-zzkey gs_vbap-zzanfallstnr
INTO valuepart1 RESPECTING BLANKS.
wa_extensionin-valuepart1 = valuepart1.
APPEND wa_extensionin TO ta_extensionin.
"Füllen der Ankreuzleiste für die Kundenerweiterung
wa_extensionin-structure = 'BAPE_VBAPX'.
CONCATENATE
"Füllen der Ankreuzleiste für die Kundenerweiterung
gs_vbap-vbeln gs_vbap-posnr
kreuzleiste "27 Kreuze für die Updates
INTO valuepart1 RESPECTING BLANKS.
wa_extensionin-valuepart1 = valuepart1.
APPEND wa_extensionin TO ta_extensionin.
...
CALL FUNCTION 'BAPI_CUSTOMERCONTRACT_CHANGE'
EXPORTING
salesdocument = gs_vbap-vbeln
contract_header_in = gs_header
contract_header_inx = gs_headerx
* SIMULATION =
* BEHAVE_WHEN_ERROR = ' '
* INT_NUMBER_ASSIGNMENT = ' '
* LOGIC_SWITCH =
* NO_STATUS_BUF_INIT = ' '
TABLES
return = gt_return
contract_item_in = gt_pos
contract_item_inx = gt_posx
* PARTNERS =
* PARTNERCHANGES =
* PARTNERADDRESSES =
* CONDITIONS_IN =
* CONDITIONS_INX =
* CONTRACT_CFGS_REF =
* CONTRACT_CFGS_INST =
* CONTRACT_CFGS_PART_OF =
* CONTRACT_CFGS_VALUE =
* CONTRACT_CFGS_BLOB =
* CONTRACT_CFGS_VK =
* CONTRACT_CFGS_REFINST =
* CONTRACT_TEXT =
* CONTRACT_DATA_IN =
* CONTRACT_DATA_INX =
* CONTRACT_KEYS =
extensionin = ta_extensionin
...
Das Feld hat in der Struktur VBAPKOZX gefehlt.