VinceCoder
5/17/2019 - 8:19 AM

FM: Set BP profile INITIAL (Batch Input in FM)

Batch input per pulizia dati BP prima del processing di aggiornamento

FM Set BP profile INITIAL
content_copyfile_download
CALL FUNCTION Z_BP_SET_PROFILE_INITIAL.


FUNCTION z_bp_set_profile_initial.
*"----------------------------------------------------------------------
*"*"Interfaccia locale:
*"----------------------------------------------------------------------
  REFRESH bdcdata.

  PERFORM bdc_dynpro      USING 'SAPLBUS_LOCATOR' '3000'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=SCREEN_1110_CHG_ROLE'.
  PERFORM bdc_field       USING 'BUS_LOCA_SRCH01-SEARCH_TYPE'
                                '1'.
  PERFORM bdc_field       USING 'BUS_LOCA_SRCH01-SEARCH_ID'
                                '4'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'BUS_JOEL_MAIN-PARTNER_ROLE'.
  PERFORM bdc_field       USING 'BUS_JOEL_MAIN-PARTNER_ROLE'
                                '000000'.
  PERFORM bdc_field       USING 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                                '000001'.
  PERFORM bdc_dynpro      USING 'SAPLBUS_LOCATOR' '3000'.
  PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=BUS_MAIN_BACK'.
  PERFORM bdc_field       USING 'BUS_LOCA_SRCH01-SEARCH_TYPE'
                                '1'.
  PERFORM bdc_field       USING 'BUS_LOCA_SRCH01-SEARCH_ID'
                                '4'.
  PERFORM bdc_field       USING 'BUS_JOEL_MAIN-PARTNER_ROLE'
                                '000000'.
  PERFORM bdc_field       USING 'BUS_JOEL_MAIN-PARTNER_TIMEDEP'
                                '000001'.
  PERFORM bdc_field       USING 'BDC_CURSOR'
                                'BUS000FLDS-TITLE_MEDI'.
  PERFORM bdc_transaction USING 'BP'.


ENDFUNCTION.

FORM bdc_transaction USING tcode.


  CALL TRANSACTION tcode WITH AUTHORITY-CHECK USING bdcdata
                   MODE   'N'
                   UPDATE 'S'
                   MESSAGES INTO messtab.

  REFRESH bdcdata.

ENDFORM.

*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
  CLEAR bdcdata.
  bdcdata-program  = program.
  bdcdata-dynpro   = dynpro.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
ENDFORM.

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
  IF fval <> '/'.
    CLEAR bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    APPEND bdcdata.
  ENDIF.
ENDFORM.