Hi Comunitty.
I have a exit in vf01 process ,this exit update data in BSEG table.
But in Production envoirement 13 records dont be updated in table BSEG but others be updated correctly.
What can be happening? Few suggestions?
code is:
*&---------------------------------------------------------------------*
*& Form U929
*&---------------------------------------------------------------------*
FORM u929.
*** Inclusão Ronaldo Alves 27/09/2013.
TYPES:BEGIN OF ty_vbrk,
fkart TYPE vbrk-fkart,
vtweg TYPE vbrk-vtweg,
END OF ty_vbrk.
DATA:t_vbrk TYPE TABLE OF ty_vbrk,
w_vbrk LIKE LINE OF t_vbrk.
*** Fim.
DATA: v_hkont TYPE bseg-hkont,
lv_hkont TYPE bseg-hkont.
*Comentado por Ronaldo Alves em 27/09/2013.
* DATA lc_auart_regra TYPE vbak-auart.
IF bseg-koart EQ 'D'.
***Inclusão Ronaldo Alves 27/09/2013.
SELECT SINGLE fkart
vtweg
FROM vbrk
INTO w_vbrk
WHERE vbeln = bseg-vbeln.
IF sy-subrc = 0.
SELECT SINGLE hkont
FROM zsdt008
INTO v_hkont
WHERE fkart = w_vbrk-fkart
AND vtweg = w_vbrk-vtweg.
IF sy-subrc <> 0.
SELECT SINGLE hkont
FROM zsdt008
INTO v_hkont
WHERE fkart = w_vbrk-fkart
AND vtweg = space.
ENDIF.
ELSE.
FIELD-SYMBOLS <fs> TYPE VBRK.
ASSIGN ('(SAPMV60A)VBRK') TO <fs>.
IF <fs> IS ASSIGNED .
w_vbrk-fkart = <fs>-fkart.
w_vbrk-vtweg = <fs>-vtweg.
SELECT SINGLE hkont
FROM zsdt008
INTO v_hkont
WHERE fkart = w_vbrk-fkart
AND vtweg = w_vbrk-vtweg.
IF sy-subrc <> 0.
SELECT SINGLE hkont
FROM zsdt008
INTO v_hkont
WHERE fkart = w_vbrk-fkart
AND vtweg = space.
ENDIF.
ENDIF.
ENDIF.
***Fim.
IF sy-subrc EQ 0.
SELECT SINGLE saknr INTO lv_hkont
FROM skb1
WHERE bukrs = bseg-bukrs
AND saknr = v_hkont
AND mitkz = 'D'.
IF sy-subrc NE 0.
MESSAGE e139(zfi) WITH v_hkont.
ELSE.
bseg-hkont = v_hkont.
ENDIF.
ENDIF.
ENDIF.
* ENDIF.
ENDFORM. "u929
Thanks.