CE PLUS - Nota 013553
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 07/07/2014 15:56:25
Data/Hora Última Alteração: 07/07/2014 15:56:25
Descrição da Nota: REMESSA FINANCEIRA, ORIGEM ORDEM DE VENDA
Sintoma
Existe uma ordem de Venda que o documento contábil foi estornado, e criado um novo documento.
porém ao criar uma remessa de Ordem de Venda com origem. o sistema esta buscando o documento
que foi estornado dessa ordem ao invés do novo documento. E com isso esta dando a mensagem
que o "documento contábil xxxxx, não contém partidas em aberto".
Solução
a Remessa irá verificar todos os documentos contábeis referente a Ordem de Venda informada,
e encontrando o Documento Não Compensado, será Gerada a Remessa para este documento.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13553 Data: 20/12/2013 Hora: 15:00:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13553
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00168
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05637 - 00001 - 7.0 - 00004 - REMESSA - CRIAÇÃO PONTO DE EXIT REM007
06982 - 00002 - 7.0 - 00006 - REMESSA COM ORIGEM - DESCONSIDERAR PARTIDA CONTA RAZÃO-CHV.LANCTO
10451 - 00003 - 8.0 - 00004 - REMESSA COM ORIGEM -NÃO ESTA PERMITINDO CRIAR CLIENTE/FORNECEDOR
11290 - 00004 - 8.0 - 00008 - REMESSA - CHAVE LANÇAMENTO
----------------------------------------------------------------------------------------------------
REMESSA FINANCEIRA, ORIGEM ORDEM DE VENDA
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA FINANCEIRA, ORIGEM ORDEM DE VENDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109I01
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109X01
REPT /PWS/SAPMZYCA109
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109I01
...
USING v_sy_subrc.
IF v_sy_subrc NE 0.
LEAVE TO SCREEN '0100'.
ELSE.
MESSAGE i061 WITH text-175 v_sequencial
text-132.
LEAVE TO SCREEN '0002'.
ENDIF.
ELSEIF v_ordem = 'X'.
/pws/zycbe124-criacao = 'O'.
* >> Início da exclusão: MODULE USER_COMMAND_0002
PERFORM criar_remessa_ordem.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0002
perform criar_remessa_ordem_2.
* << Fim da inclusão
ELSEIF v_doc = 'X'.
/pws/zycbe124-criacao = 'D'.
PERFORM criar_remessa_doc.
ELSEIF v_revisao = 'X'.
/pws/zycbe124-criacao = 'R'.
PERFORM criar_remessa_revisao.
ENDIF.
ENDCASE.
ENDMODULE.
MODULE seta_parametros INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
append itab_siscoserv.
call function '/PWS/ZYGL_CARREGA_SISCOSERV'
exporting
tipo_origem = 'RM'
exibir_tela = 'X'
importing
existe_ras_rvs = v_ras_rvs
tables
itab_origem = itab_siscoserv.
endform.
* >> Início da inclusão:
form criar_remessa_ordem_2.
data: v_remessa_ok(1) type c.
clear: v_remessa_ok.
if not vbfa-vbelv is initial.
clear: itab_vbfa.
refresh: itab_vbfa.
select *
from vbfa
into table itab_vbfa
where vbelv = vbfa-vbelv
and ( vbtyp_n = 'M' or vbtyp_n = 'P' ).
if sy-subrc = 0.
perform carrega_bschl.
loop at itab_vbfa.
clear: wa_bkpf,
itab_bseg.
refresh: itab_bseg.
select *
from bkpf
up to 1 rows
into wa_bkpf
where awkey = itab_vbfa-vbeln. "#EC CI_NOFIRST
endselect.
if sy-subrc = 0.
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'
and augbl = space
and umskz = space.
if sy-subrc = 0.
v_remessa_ok = 'X'.
perform cria_remessa tables itab_bseg
using wa_bkpf.
endif.
endif.
endloop.
if v_remessa_ok = 'X'.
perform imprime_relatorio_remessas.
else.
message i061 with text-126 text-200 text-133 text-192.
endif.
else.
message w061 with text-121 vbfa-vbelv text-122.
endif.
endif.
leave to screen '0002'.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109X01
...
data: begin of itab_zycbt141_aud occurs 0.
include structure /pws/zycbt141.
data: end of itab_zycbt141_aud.
data: begin of itab_zyglt209_aud occurs 0.
include structure /pws/zyglt209.
data: end of itab_zyglt209_aud.
data: v_dedfat(1) type c,
v_tpimp_aux type /pws/zycat025-tpimp.
data: v_grava_imp(1) type c.
data: wa_bseg type bseg.
* >> Início da inclusão:
data: begin of itab_vbfa occurs 0.
include structure vbfa.
data: end of itab_vbfa.
* << Fim da inclusão
data: end of common part.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA109
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 200
Texto: (2 caracteres)
"or"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 200
Texto: (2 caracteres)
"ou"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 200
Texto: (1 caracteres)
"o"
Comprimento máximo: 2