Need urgent help on Special function 8..not working custom program to NACE

Question

Hi gurus,
We wrote one custom program for billing automation(VF01)...scenario is like this....
once PGI is issued system has to create billing document automatically in background using the delivery number.....
we wrote program like this....
DATA:   IT_BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
FORM DELIVERY_OUTPUT USING RC US_SCREEN.
DATA V_VBELN LIKE MKPF-XBLNR.
DATA V_DELIVERY LIKE V_VBELN.
DATA:V_MBLNR LIKE LIKP-VBELN.
DATA OBJKY(10).
DATA: VAR(15).
RC = 1.
DATA:   IT_MESSAGES LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
GET PARAMETER ID 'VL' FIELD V_MBLNR.
CONCATENATE V_MBLNR '%' INTO VAR.
SELECT SINGLE OBJKY FROM  NAST INTO OBJKY WHERE OBJKY LIKE VAR.
CHECK SY-SUBRC EQ 0.
V_MBLNR = NAST-OBJKY+0(10).
SELECT SINGLE XBLNR FROM MKPF INTO V_VBELN WHERE XBLNR = V_MBLNR.
V_DELIVERY = V_VBELN.
     PERFORM F_DYNPRO USING :
     'X' 'SAPMV60A' '0102',
     ' ' 'BDC_CURSOR' 'KOMFK-VBELN(01)',
     ' ' 'KOMFK-VBELN(01)' V_DELIVERY,
     ' ' 'BDC_OKCODE' '/00'.
     PERFORM F_DYNPRO USING :
     'X' 'SAPMV60A' '0104',
     ' ' 'BDC_OKCODE' '=SICH'.
     CALL TRANSACTION 'VF01' USING IT_BDCDATA MODE 'N'
          MESSAGES INTO IT_MESSAGES.
DATA MSG_LOG LIKE MSG_LOG.
DATA MSG_TEXT LIKE MSG_TEXT.
CLEAR:MSG_LOG,MSG_TEXT.
LOOP AT IT_MESSAGES.
  MSG_LOG-MSGID = IT_MESSAGES-MSGID.
  MSG_LOG-MSGNO = IT_MESSAGES-MSGNR.
  MSG_LOG-MSGTY = IT_MESSAGES-MSGTYP.
CALL FUNCTION 'MESSAGE_TEXTS_READ'
EXPORTING
   MSG_LOG_IMP           = MSG_LOG
IMPORTING
   MSG_TEXT_EXP          = MSG_TEXT.
IF MSG_LOG-MSGTY EQ 'S'.
  MESSAGE S398(00) WITH MSG_TEXT-MSGTX.
RETCODE = '0'.
ELSEIF MSG_LOG-MSGTY EQ 'I'.
  MESSAGE I398(00) WITH MSG_TEXT-MSGTX.
RETCODE = '0'.
ELSEIF MSG_LOG-MSGTY EQ 'E'.
  MESSAGE E398(00) WITH MSG_TEXT-MSGTX.
RETCODE = '4'.
ENDIF.
ENDLOOP.
ENDFORM.
FORM F_DYNPRO USING P_DYNBEGIN P_NAME P_VALUE.
  IF P_DYNBEGIN EQ 'X'.
    MOVE : P_NAME TO IT_BDCDATA-PROGRAM,
           P_VALUE TO IT_BDCDATA-DYNPRO,
           'X' TO IT_BDCDATA-DYNBEGIN.
  ELSE.
    MOVE: P_NAME TO IT_BDCDATA-FNAM,
          P_VALUE TO IT_BDCDATA-FVAL,
          ' ' TO IT_BDCDATA-DYNBEGIN.
  ENDIF.
  APPEND IT_BDCDATA.
ENDFORM.        
when we assign this program to NACE  for output type <b>V2</b> , this program not creating billing documents....
Guide us to resolve this issue....

Answer 1

Hi Hari,
I think that the logic needs to be build up in the DISP part of the Search help exit.
What you can do is also get the Plant in the search help as an export parameter.
Then in the Return Tab you can check if the plant = 'AA', delete the data.
e.g.
      LOOP AT record_tab.
        IF RECORD_TAB-STRING+22(2) = '90'.
          DELETE record_tab INDEX sy-tabix.
        ENDIF.
      ENDLOOP.
Hope this helps.
Regards,
Himanshu
Message was edited by:
        Himanshu Aggarwal