CE PLUS - Nota 010451
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 30/07/2010 00:00:00
Data/Hora Última Alteração: 17/09/2010 17:06:09
Descrição da Nota: REMESSA COM ORIGEM -NÃO ESTA PERMITINDO CRIAR CLIENTE/FORNECEDOR RZ.ESP.
Sintoma
Ao criar uma remessa com origem de um documento com Crédito ou Débito em Fornecedor ou Cliente Razão
Especial, a Remessa não consegue seguir corretamente, pois não esta preparada para este cenário.
Solução
Ajustar consistência das chaves de lançamento permitidas na criação da Remessa com origem,
parametrizadas na /PWS/ZYCAT027 e barrar remessas que seriam criadas a partir de partidas da BSEG
com razão especial.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10451 Data: 30/07/2010 Hora: 15:06:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10451
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00032
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
06671 - 00001 - REPATRIAÇÃO DE REMESSA
06982 - 00002 - REMESSA COM ORIGEM - DESCONSIDERAR PARTIDA CONTA RAZÃO-CHV.LANCTO. OK
----------------------------------------------------------------------------------------------------
REMESSA COM ORIGEM -NÃO ESTA PERMITINDO CRIAR CLIENTE/FORNECEDOR RZ.ESP.
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA COM ORIGEM NÃO ESTA PERMITINDO CRIAR CLIENTE/FORNECEDOR RZ.ESP.
RAZÃO ESPECIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
UP TO 1 ROWS
INTO wa_bkpf
WHERE awkey = wa_vbfa-vbeln. "#EC CI_NOFIRST
ENDSELECT.
IF sy-subrc = 0.
SELECT * FROM /pws/zycat027 INTO TABLE itab_zycat027
WHERE shkzg = 'D'. "#EC CI_NOFIRST
IF sy-subrc = 0.
LOOP AT itab_zycat027.
r_bschl-sign = 'I'.
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
r_bschl-option = 'EQ'.
r_bschl-low = itab_zycat027-bschl.
* << Fim da inclusão
APPEND r_bschl.
ENDLOOP.
SELECT * FROM bseg INTO TABLE itab_bseg
WHERE belnr = wa_bkpf-belnr
AND bukrs = wa_bkpf-bukrs
AND gjahr = wa_bkpf-gjahr
AND bschl IN r_bschl
AND koart = 'D'
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
AND augbl = space.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
and augbl = space
and umskz = space.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
PERFORM cria_remessa TABLES itab_bseg
USING wa_bkpf.
PERFORM imprime_relatorio_remessas.
ELSE.
MESSAGE w061 WITH text-125 wa_bkpf-belnr text-133.
ENDIF.
ELSE.
MESSAGE w061 WITH text-126.
...
...
WHERE belnr = bkpf-belnr
AND bukrs = bkpf-bukrs
AND gjahr = bkpf-gjahr.
IF sy-subrc = 0.
SELECT *
FROM /pws/zycat027
INTO TABLE itab_zycat027. "#EC CI_NOWHERE
IF sy-subrc = 0.
LOOP AT itab_zycat027.
r_bschl-sign = 'I'.
* >> Início da exclusão: FORM CRIAR_REMESSA_DOC
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_DOC
r_bschl-option = 'EQ'.
r_bschl-low = itab_zycat027-bschl.
* << Fim da inclusão
APPEND r_bschl.
ENDLOOP.
SELECT * FROM bseg INTO TABLE itab_bseg
WHERE belnr = wa_bkpf-belnr
AND bukrs = wa_bkpf-bukrs
AND gjahr = wa_bkpf-gjahr
AND augbl = space
* >> Início da exclusão: FORM CRIAR_REMESSA_DOC
AND bschl IN r_bschl.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_DOC
and bschl in r_bschl
and umskz = space.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
PERFORM cria_remessa TABLES itab_bseg
USING wa_bkpf.
ELSE.
MESSAGE w061 WITH text-125 wa_bkpf-belnr text-133.
ENDIF.
ELSE.
MESSAGE w061 WITH text-126.
ENDIF.
...
...
INTO wa_bkpf
WHERE gjahr = wa_rbkp-gjahr
AND awkey = v_docmiro. "#EC CI_NOFIRST
ENDSELECT.
IF sy-subrc = 0.
SELECT * FROM /pws/zycat027 INTO TABLE itab_zycat027
WHERE shkzg = 'C'. "#EC CI_NOFIRST
IF sy-subrc = 0.
LOOP AT itab_zycat027.
r_bschl-sign = 'I'.
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
r_bschl-option = 'BT'.
r_bschl-high = itab_zycat027-bschl.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
r_bschl-option = 'EQ'.
r_bschl-low = itab_zycat027-bschl.
* << Fim da inclusão
APPEND r_bschl.
ENDLOOP.
SELECT * FROM bseg INTO TABLE itab_bseg
WHERE belnr = wa_bkpf-belnr
AND bukrs = wa_bkpf-bukrs
AND gjahr = wa_bkpf-gjahr
AND bschl IN r_bschl
AND koart = 'K'
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
AND augbl = space.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
and augbl = space
and umskz = space.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
PERFORM cria_remessa TABLES itab_bseg
USING wa_bkpf.
ELSE.
MESSAGE w061 WITH text-125 wa_bkpf-belnr text-133.
ENDIF.
ELSE.
MESSAGE w061 WITH text-126.
ENDIF.
...