CE PLUS - Nota 013304
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 14/11/2013 14:55:30
Data/Hora Última Alteração: 14/11/2013 14:55:30
Descrição da Nota: AO TRANSMITIR PARA O SISCOMEX, QUEBRA AS LINHAS DIGITADAS NA DI
Sintoma
Ao transmitir para o Siscomex, quebra as linhas digitadas na DI, campo especificação, porque estava
lendo apenas 65 caracteres.
Solução
Quebrar a cada 65 caracteres, jogando o restante para uma nova linha.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13304 Data: 08/10/2013 Hora: 15:16:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13304
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00165
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12435 - 00001 - 9.0 - 00001 - RESPEITAR A QUEBRA DE LINHA NO CAMPO ESPECIFICACAO
----------------------------------------------------------------------------------------------------
AO TRANSMITIR PARA O SISCOMEX, QUEBRA AS LINHAS DIGITADAS NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOMEX - ESPECIFICACAO - TRANSMISSÃO - ORIENTADOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
FUNCTION /pws/zyci_transfer_di .
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
DATA: v_char TYPE i ,
v_linha TYPE i .
* << Fim da inclusão
...
...
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc EQ 0.
CLEAR: v_obs, v_i1.
LOOP AT rtexti.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
v_char = strlen( rtexti-tdline ) .
IF v_char GT 65.
it_especificacao-nrseqdi = i_nrseqdi .
it_especificacao-adicao = it_itens_di-adicao.
it_especificacao-ebeln = it_itens_di-ebeln .
it_especificacao-ebelp = it_itens_di-ebelp .
it_especificacao-especific = rtexti-tdline(65) .
APPEND it_especificacao.
it_especificacao-especific = rtexti-tdline+65(65) .
v_char = strlen( it_especificacao-especific ) .
IF v_char GT 0.
APPEND it_especificacao.
ENDIF.
ELSE.
* << Fim da inclusão
MOVE: i_nrseqdi TO it_especificacao-nrseqdi,
it_itens_di-adicao TO it_especificacao-adicao,
rtexti-tdline TO it_especificacao-especific,
it_itens_di-ebeln TO it_especificacao-ebeln,
it_itens_di-ebelp TO it_especificacao-ebelp.
APPEND it_especificacao.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
ENDIF.
* << Fim da inclusão
ENDLOOP.
...
...
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc EQ 0.
CLEAR: v_obs, v_i1.
LOOP AT rtexti.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
v_char = strlen( rtexti-tdline ) .
IF v_char GT 65.
it_especificacao-nrseqdi = i_nrseqdi .
it_especificacao-adicao = it_itens_di-adicao.
it_especificacao-ebeln = it_itens_di-ebeln .
it_especificacao-ebelp = it_itens_di-ebelp .
it_especificacao-especific = rtexti-tdline(65) .
APPEND it_especificacao.
it_especificacao-especific = rtexti-tdline+65(65) .
v_char = strlen( it_especificacao-especific ) .
IF v_char GT 0.
APPEND it_especificacao.
ENDIF.
ELSE.
* << Fim da inclusão
MOVE: i_nrseqdi TO it_especificacao-nrseqdi,
it_itens_di-adicao TO it_especificacao-adicao,
rtexti-tdline TO it_especificacao-especific,
it_itens_di-ebeln TO it_especificacao-ebeln,
it_itens_di-ebelp TO it_especificacao-ebelp.
APPEND it_especificacao.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
ENDIF.
* << Fim da inclusão
ENDLOOP.
...