CE PLUS - Nota 010739
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 16/11/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:05:45
Descrição da Nota: LIQUIDAÇÃO - CAMPO LOCAL DE NEGOCIO NO BI INCORRETO
Sintoma
Na liquidação - no batch input o campo local de negocio está com a informação incorreta.
Solução
mudar as rotinas que faz o lançamento de cliente/ fatura para pegar o campo de filial/local de
negocio da tabela 017 e não da 005.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10739 Data: 16/11/2010 Hora: 16:50:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10739
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00048
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04445 - 00001 - 7.0 - 00002 - LIQUIDAÇÃO DE FATURAS
04928 - 00002 - 7.0 - 00003 - LIQUIDAÇÃO DE FATURAS
05516 - 00003 - 7.0 - 00004 - LIQUIDAÇÃO DE FATURAS
06083 - 00004 - 7.0 - 00004 - LIQUIDAÇÃO - ESTORNO PERIODO FECHADO
06380 - 00005 - 7.0 - 00005 - CODE INSPECTOR
06419 - 00006 - 7.0 - 00005 - LIQUIDAÇÃO - LIQ024 - DISPONIBILIZAR VARIÁVEIS NO INCLUDE X01
06604 - 00007 - 7.0 - 00005 - LIQUIDAÇÃO
06816 - 00008 - 7.0 - 00006 - LIQUIDAÇÃO - CAMPO DIVISÃO PROVISÃO DE JUROS
06863 - 00009 - 7.0 - 00006 - LIQUIDAÇÃO COM PERFORMANCE
06894 - 00010 - 7.0 - 00006 - LIQUIDAÇÃO PERFORMANCE - CAMPO SGTXT PARTIDA CRÉDITO
07312 - 00011 - 7.0 - 00006 - LIQUIDAÇÃO - DP - ESTORNO - ERRO CONTA CLIENTE CLEARING
07331 - 00012 - 7.0 - 00007 - LIQUIDAÇÃO PERFORMANCE - CONTRATO E FATURA COM DIVISÃO DIFERENTE
08164 - 00013 - 7.0 - 00008 - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURI
09326 - 00014 - 8.0 - 00001 - NOTA TRADUÇÃO CÂMBIO
09577 - 00015 - 8.0 - 00001 - EXPORTAÇÃO - LIQUIDAÇÃO DE CONTRATO - ESTORNO
09742 - 00016 - 8.0 - 00002 - LIQUIDAÇÃO DE CONTRATO ACC, PROGRAMA BUSCA TAXA INCORRETA
10447 - 00017 - 8.0 - 00004 - LIQUIDAÇÃO - ANO CONTABIL - MENSAGEM DOCUMENTO COMPENSADO INCORR
10667 - 00018 - 8.0 - 00005 - LIQUIDAÇÃO CÂMBIO PRONTO - ERROS CONTABILIZAÇÕES IDA/ESTORNO
10703 - 00019 - 8.0 - 00005 - LIQUIDAÇÃO - ESTORNO - NÃO CARREGA DOCTO. DESM. NO CLEARING CONTR
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - CAMPO LOCAL DE NEGOCIO NO BI INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - CAMPO LOCAL DE NEGOCIO NO BI INCORRETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB004 0100
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB004 0100
****************************************************************************
FAVOR SOLICITAR O ARQUIVO TXT DA TELA ALTERADA: 10739_SAPMZYCB004_0100.TXT
****************************************************************************
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-051.
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
itab_zycbe033-agkon = itab_zycbt006-kunnr.
itab_zycbe033-newbs = '01'.
itab_zycbe033-d_newko = itab_zycbt006-kunnr.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-awtyp = '2'.
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
PERFORM local_negocio.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
if not itab_zycbt017-j_1bbranch is initial.
* << Fim da inclusão
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
* << Fim da inclusão
ENDIF.
...
...
ENDIF.
IF itab_partidas-d_valut IS INITIAL.
itab_partidas-d_valut = sy-datum.
ENDIF.
itab_partidas-zfbdt = itab_zycbt017-dtvencto.
itab_partidas-zterm = itab_zycbt030-zterm.
APPEND itab_partidas.
ENDLOOP.
CHECK NOT itab_partidas[] IS INITIAL.
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
if not itab_zycbt017-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
endif.
* << Fim da inclusão
APPEND itab_zycbe033.
v_tpcontabil = 'E_PERF_CLI'.
PERFORM busca_dados_bi USING itab_zycbe033-bukrs
v_tpcontabil.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02G'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
into itab_zycbe033-dtdocto
where belnr = itab_zycbt030-belnr and
bukrs = itab_zycbt006-bukrs and
gjahr = v_gjahr.
endif.
itab_zycbe033-belnr = itab_zycbt030-belnr.
else.
itab_zycbe033-belnr = itab_zycbt030-belnr_t.
itab_zycbe033-dtdocto = itab_zycbt030-budat_t.
endif.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
if not itab_zycbt017-j_1bbranch is initial.
* << Fim da inclusão
perform verifica_pais_filial using itab_zycbt006-bukrs
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
* << Fim da inclusão
endif.
...
...
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
itab_doctos-belnr = itab_zycbe033-belnr.
itab_doctos-dtdocto = itab_zycbe033-dtdocto.
append itab_doctos.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
if not itab_zycbt017-j_1bbranch is initial.
* << Fim da inclusão
perform verifica_pais_filial using itab_zycbt006-bukrs
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
* << Fim da inclusão
endif.
...
...
into itab_partidas-d_zuonr
separated by space.
endif.
itab_partidas-v_sinal = '-'.
endif.
append itab_partidas.
endloop.
concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
into itab_zycbe033-c_zuonr
separated by space.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
if not itab_zycbt017-j_1bbranch is initial.
* << Fim da inclusão
perform verifica_pais_filial using itab_zycbt006-bukrs
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
* << Fim da inclusão
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
perform verify_null_field
using itab_zycbe033-kursf 'KURSF' text-456.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
if not itab_zycbt006-gsberf is initial.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
else.
itab_zycbe033-d_gsber = itab_zycbt006-gsber.
itab_zycbe033-c_gsber = itab_zycbt006-gsber.
endif.
* >> Início da exclusão: FORM LANCAMENTO_LIQUID_F_02
if not itab_zycbt005-j_1bbranch is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02
if not itab_zycbt017-j_1bbranch is initial.
* << Fim da inclusão
perform verifica_pais_filial using itab_zycbt006-bukrs
* >> Início da exclusão: FORM LANCAMENTO_LIQUID_F_02
itab_zycbt005-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt005-j_1bbranch.
else.
clear wa_t001w.
select single * from t001w into wa_t001w
where werks = itab_zycbt005-werks.
perform verifica_pais_filial using itab_zycbt005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02
itab_zycbt017-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt017-j_1bbranch.
* << Fim da inclusão
endif.
itab_zycbe033-werks = itab_zycbt005-werks.
clear v_vlmext.
loop at itab_zycbt226 into wa_zycbt226
where nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf.
v_vlmext = v_vlmext + wa_zycbt226-sld_exterior.
endloop.
if p_estorno is initial.
...