CE PLUS - Nota 003719
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 18/05/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:50:03
Descrição da Nota: ASSOCIAÇÃO - BATCH INPUT CAMPO LOCAL DE NEGÓCIO
Sintoma
O campo local de negócio não está sendo enviado no batch input quando fazemos uma associação.
Solução
O campo local de negócios foi mapeado para que seja utilizado no desmembramento do contrato no
programa de associação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03719 Data: 18/05/2007 Hora: 17:47:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03719
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01988 - 00001 - 6.0 - 00024 - ASSOCIAÇÃO DE FATURAS - DA RATEIO POR ITEM DOC. COMPRA
02166 - 00002 - 6.0 - 00025 - ASSOCIAÇÃO DE FATURAS - ANO FISCAL - CHAVE REFERÊNCIA F-51
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO - BATCH INPUT CAMPO LOCAL DE NEGÓCIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO - BATCH INPUT CAMPO LOCAL DE NEGÓCIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_51IM
FUNC /PWS/ZYCM_TRANSACAO_F_51N
FUNC /PWS/ZYCM_TRANSACAO_F_51O
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51IM
...
into t_dados-budat.
endif.
perform bdc_screen using 'SAPMF05A' '0122'.
perform bdc_field using:
'BKPF-BLDAT' v_bldat,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' v_bukrs,
'BKPF-BUDAT' v_budat,
'BKPF-MONAT' v_budat+3(2),
'BKPF-WAERS' t_dados-waers,
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51IM
'BKPF-BRNCH' t_dados-brnch,
* << Fim da inclusão
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
'BDC_OKCODE' '=SL'.
select single selps from t021r
into v_xpos
where event = 'SL-AG'
and feldn = 'BELNR'.
add 1 to v_xpos.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51N
...
ENDIF.
ENDIF.
IF t_dados-agums IS INITIAL OR
v_zfbdt EQ 'X'.
IF NOT v_dtvencto_char = '00.00.0000' AND
NOT v_dtvencto_char = ' . . '.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_dtvencto_char.
ENDIF.
ENDIF.
PERFORM bdc_field USING: 'BSEG-WRBTR' v_wrbtr.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-c_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-c_zuonr.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'
chave = v_chv.
IF sy-subrc <> 0 AND
NOT t_dados-c_gsber IS INITIAL AND
/pws/zycbt007-fdivisao IS INITIAL.
...
...
v_tela.
PERFORM bdc_screen USING 'SAPMF05A' v_tela.
WRITE: t_dados-d_valut TO v_data_val_char,
t_zycbe035-wrbtr1 TO v_wrbtr CURRENCY t_dados-waers.
IF ( t_dados-agums IS INITIAL OR v_zfbdt EQ 'X' ) AND
NOT v_dtvencto_char = '00.00.0000' AND
NOT v_dtvencto_char = ' . . '.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_dtvencto_char.
ENDIF.
PERFORM bdc_field USING 'BSEG-WRBTR' v_wrbtr.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-d_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-d_zuonr.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'
chave = v_chv.
IF sy-subrc <> 0 AND
NOT t_dados-c_gsber IS INITIAL AND
/pws/zycbt007-fdivisao IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51O
...
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
ENDIF.
PERFORM bdc_screen USING 'SAPMF05A' '0122'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_bldat,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' v_bukrs,
'BKPF-BUDAT' v_budat,
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51O
'BKPF-BRNCH' t_dados-brnch,
* << Fim da inclusão
'BKPF-MONAT' v_monat+1(2),
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
'BDC_OKCODE' '=SL'.
IF NOT t_dados-xblnr IS INITIAL.
PERFORM bdc_field USING 'BKPF-XBLNR' t_dados-xblnr.
ENDIF.
IF v_op = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
itab_zycbe033-d_kostl = /pws/zycbe112-kostl.
itab_zycbe033-c_prctr = /pws/zycbe112-prctr.
itab_zycbe033-d_prctr = /pws/zycbe112-prctr.
itab_zycbe033-d_fictr = /pws/zycbe112-fictr.
itab_zycbe033-c_fictr = /pws/zycbe112-fictr.
itab_zycbe033-d_fipos = /pws/zycbe112-fipos.
itab_zycbe033-c_fipos = /pws/zycbe112-fipos.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido USING 'FI'.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FINANCIAMENTO
itab_zycbe033-brnch = /pws/zycbe112-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe112-werks
/pws/zycbe112-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-c_kostl = /pws/zycbt119-kostl.
itab_zycbe033-d_kostl = /pws/zycbt119-kostl.
itab_zycbe033-c_prctr = /pws/zycbt119-prctr.
itab_zycbe033-d_prctr = /pws/zycbt119-prctr.
itab_zycbe033-c_fipos = /pws/zycbt119-fipos.
itab_zycbe033-d_fipos = /pws/zycbt119-fipos.
itab_zycbe033-c_fictr = /pws/zycbt119-fictr.
itab_zycbe033-d_fictr = /pws/zycbt119-fictr.
itab_zycbe033-zterm = /pws/zycbt119-zterm.
itab_zycbe033-zfbdt = /pws/zycbt119-dtvencto.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FATURA
itab_zycbe033-brnch = /pws/zycbt119-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbt119-werks
/pws/zycbt119-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-d_kostl = /pws/zycbe112-kostl.
itab_zycbe033-c_prctr = /pws/zycbe112-prctr.
itab_zycbe033-d_prctr = /pws/zycbe112-prctr.
itab_zycbe033-d_fictr = /pws/zycbe112-fictr.
itab_zycbe033-c_fictr = /pws/zycbe112-fictr.
itab_zycbe033-d_fipos = /pws/zycbe112-fipos.
itab_zycbe033-c_fipos = /pws/zycbe112-fipos.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido_estorno USING 'FI'.
ENDIF.
* >> Início da inclusão: FORM RECLASSIFICA_FINANCIAMENTO
itab_zycbe033-brnch = /pws/zycbe112-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe112-werks
/pws/zycbe112-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
text-021.
itab_zycbe033-bukrs = itab_zycbt108-bukrs.
itab_zycbe033-waers = itab_zycbt108-waers.
itab_zycbe033-waersb = wa_zycbt007-waersb.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = itab_zycbt108-gsber.
itab_zycbe033-d_gsber = itab_zycbt108-gsber.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_IGUAIS
itab_zycbe033-brnch = /pws/zycbe112-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe112-werks
/pws/zycbe112-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-020.
ELSEIF v_variacao LT 0.
itab_zycbe033-c_newko = itab_zyglt316-konth.
itab_zycbe033-newbs = '50'.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-022.
ENDIF.
* >> Início da inclusão: FORM F51_FINANC_MOEDAS_DIF
itab_zycbe033-brnch = /pws/zycbe112-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe112-werks
/pws/zycbe112-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-d_gsber = /pws/zycbt119-gsber.
itab_zycbe033-c_kostl = /pws/zycbt119-kostl.
itab_zycbe033-d_kostl = /pws/zycbt119-kostl.
itab_zycbe033-c_prctr = /pws/zycbt119-prctr.
itab_zycbe033-d_prctr = /pws/zycbt119-prctr.
itab_zycbe033-c_fipos = /pws/zycbt119-fipos.
itab_zycbe033-d_fipos = /pws/zycbt119-fipos.
itab_zycbe033-c_fictr = /pws/zycbt119-fictr.
itab_zycbe033-d_fictr = /pws/zycbt119-fictr.
itab_zycbe033-zterm = /pws/zycbt119-zterm.
* >> Início da inclusão: FORM RECLASSIFICA_FATURA
itab_zycbe033-brnch = /pws/zycbt119-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbt119-werks
/pws/zycbt119-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-c_prctr = /pws/zycbe117-prctr.
itab_zycbe033-d_prctr = /pws/zycbe117-prctr.
itab_zycbe033-c_fipos = /pws/zycbe117-fipos.
itab_zycbe033-d_fipos = /pws/zycbe117-fipos.
itab_zycbe033-c_fictr = /pws/zycbe117-fictr.
itab_zycbe033-d_fictr = /pws/zycbe117-fictr.
itab_zycbe033-zfbdt = /pws/zycbe117-dtvencto.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido USING 'PA'.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PGANT
itab_zycbe033-brnch = /pws/zycbe117-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe117-werks
/pws/zycbe117-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-d_kostl = /pws/zycbe117-kostl.
itab_zycbe033-c_prctr = /pws/zycbe117-prctr.
itab_zycbe033-d_prctr = /pws/zycbe117-prctr.
itab_zycbe033-c_fipos = /pws/zycbe117-fipos.
itab_zycbe033-d_fipos = /pws/zycbe117-fipos.
itab_zycbe033-c_fictr = /pws/zycbe117-fictr.
itab_zycbe033-d_fictr = /pws/zycbe117-fictr.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido_estorno USING 'PA'.
ENDIF.
* >> Início da inclusão: FORM RECLASSIFICA_PGTOANT
itab_zycbe033-brnch = /pws/zycbe117-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe117-werks
/pws/zycbe117-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
'BUKRS'
text-021.
itab_zycbe033-bukrs = itab_zycbt108-bukrs.
itab_zycbe033-waers = itab_zycbt108-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = itab_zycbt108-gsber.
itab_zycbe033-d_gsber = itab_zycbt108-gsber.
* >> Início da inclusão: FORM F51_PGANT_MOEDAS_IGUAIS
itab_zycbe033-brnch = /pws/zycbe117-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe117-werks
/pws/zycbe117-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-020.
ELSEIF v_variacao LT 0.
itab_zycbe033-c_newko = itab_zyglt316-konth.
itab_zycbe033-newbs = '50'.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-022.
ENDIF.
* >> Início da inclusão: FORM F51_PGANT_MOEDAS_DIF
itab_zycbe033-brnch = itab_zycbt108-j_1bbranch.
PERFORM verifica_local_negocio USING itab_zycbt108-werks
itab_zycbt108-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-c_prctr = /pws/zycbe119-prctr.
itab_zycbe033-d_prctr = /pws/zycbe119-prctr.
itab_zycbe033-c_fipos = /pws/zycbe119-fipos.
itab_zycbe033-d_fipos = /pws/zycbe119-fipos.
itab_zycbe033-c_fictr = /pws/zycbe119-fictr.
itab_zycbe033-d_fictr = /pws/zycbe119-fictr.
itab_zycbe033-zfbdt = /pws/zycbe119-dtvencto.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido USING 'PG'.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PGFAT
itab_zycbe033-brnch = /pws/zycbe119-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe119-werks
/pws/zycbe119-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
itab_zycbe033-waers = /pws/zycbe119-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = /pws/zycbe119-gsber.
itab_zycbe033-d_gsber = /pws/zycbe119-gsber.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM rateio_itens_pedido_estorno USING 'PG'.
ENDIF.
* >> Início da inclusão: FORM RECLASSIFICA_PGTOFAT
itab_zycbe033-brnch = /pws/zycbe119-j_1bbranch.
PERFORM verifica_local_negocio USING /pws/zycbe119-werks
/pws/zycbe119-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
'BUKRS'
text-021.
itab_zycbe033-bukrs = itab_zycbt108-bukrs.
itab_zycbe033-waers = itab_zycbt108-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = itab_zycbt108-gsber.
itab_zycbe033-d_gsber = itab_zycbt108-gsber.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_IGUAIS
itab_zycbe033-brnch = itab_zycbt108-j_1bbranch.
PERFORM verifica_local_negocio USING itab_zycbt108-werks
itab_zycbt108-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-020.
ELSEIF v_variacao LT 0.
itab_zycbe033-c_newko = itab_zyglt316-konth.
itab_zycbe033-newbs = '50'.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'NEWKO'
text-022.
ENDIF.
* >> Início da inclusão: FORM F51_PGFAT_MOEDAS_DIF
itab_zycbe033-brnch = itab_zycbt108-j_1bbranch.
PERFORM verifica_local_negocio USING itab_zycbt108-werks
itab_zycbt108-bukrs
CHANGING itab_zycbe033-brnch.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
...
...
year = p_gjahr
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
IF sy-subrc NE 0 OR v_gjahr IS INITIAL.
p_gjahr = p_data(4).
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM verifica_pais_filial USING p_bukrs
CHANGING p_brnch.
CONSTANTS:
c_br TYPE adrc-country VALUE 'BR',
c_tw TYPE adrc-country VALUE 'TW'.
DATA:
v_country TYPE adrc-country,
v_adrnr TYPE j_1bbranch-adrnr.
SELECT SINGLE adrnr FROM j_1bbranch INTO v_adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
SELECT SINGLE country FROM adrc INTO v_country
WHERE addrnumber = v_adrnr.
IF sy-subrc EQ 0 AND
v_country NE c_br AND
v_country NE c_tw.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_local_negocio USING p_werks
p_bukrs
CHANGING p_brnch.
IF p_brnch IS INITIAL.
SELECT SINGLE j_1bbranch FROM t001w INTO p_brnch
WHERE werks = p_werks.
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING p_bukrs
p_brnch.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão