CE PLUS - Nota 003565
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 27/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:39:19
Descrição da Nota: REMOVE HIFEN PARA PASSAR O NUMERO DA CONTA E DIGITO PARA O SISCOMEX
Sintoma
Na pasta pagamento da DI a conta bancária do CE está correta, mas na transmissão para o siscomex
está carregando sem o dígito.
Solução
Ajustado o programa para passar o numero da conta e o digito sem o hifen.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03565 Data: 27/04/2007 Hora: 09:48:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03565
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02837 - 00001 - 6.0 - 00026 - ALTERAÇÃO NO CAMPO CONTA DO FORNECEDOR NA PASTA PAGAMENTOS
----------------------------------------------------------------------------------------------------
REMOVE HIFEN PARA PASSAR O NUMERO DA CONTA E DIGITO PARA O SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANSMISSÃO - DI - SISCOMEX - NUMERO - CONTA - DIGITO
/PWS/ZYCI_TRANSFER_DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
...
WHERE nrseq EQ it_cabecalho_di-nrbl.
SELECT * FROM /pws/zycit096 INTO TABLE it_armazens_di
FOR ALL ENTRIES IN it_cabecalho_di
WHERE nrseqdi EQ it_cabecalho_di-nrseqdi.
SELECT * FROM /pws/zycit095 INTO TABLE it_deb_cta_di
FOR ALL ENTRIES IN it_cabecalho_di
WHERE nrseqdi EQ it_cabecalho_di-nrseqdi.
READ TABLE it_deb_cta_di.
SELECT SINGLE * FROM lfbk INTO lfbk
WHERE lifnr EQ it_deb_cta_di-lifnr.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
v_banco = lfbk-bankn.
REPLACE '-' WITH ' ' INTO v_banco.
CONDENSE v_banco NO-GAPS.
CONCATENATE v_banco
lfbk-bkont+1(1)
INTO v_banco.
* << Fim da inclusão
LOOP AT it_deb_cta_di WHERE lifnr EQ lfbk-lifnr AND
nrseqdi EQ it_cabecalho_di-nrseqdi.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SEARCH lfbk-bankn FOR '-'.
IF sy-subrc = 0.
v_banco = lfbk-bankn(sy-fdpos).
MOVE v_banco TO lfbk-bankn.
ENDIF.
MOVE lfbk-bankn TO it_deb_cta_di-bankn.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
MOVE v_banco TO it_deb_cta_di-bankn.
* << Fim da inclusão
CONCATENATE lfbk-bankl(3)
lfbk-bankl+3(4)
INTO it_deb_cta_di-bankl.
MODIFY it_deb_cta_di.
ENDLOOP.
SELECT * FROM /pws/zycit093 INTO TABLE it_bl_di
FOR ALL ENTRIES IN it_cabecalho_di
WHERE nrseqce EQ it_cabecalho_di-nrbl.
ENDIF.
READ TABLE it_bl_di INDEX 1.
...