CE PLUS - Nota 003673
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 14/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:41:34
Descrição da Nota: AO TRANSMITIR SISCOMEX, A CONTA ESTÁ INDO SOMENTE COM HÍFEN, SEM DÍGITO.
Sintoma
Ao transmitir para o Siscomex, a conta está indo somente com hífen, sem dígito.
Pasta pagamentos da Di fica com o hifen e mais nada depois.
Solução
Verificar se há dígito antes de concatenar o hífen.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03673 Data: 14/05/2007 Hora: 14:44:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03673
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02767 - 00001 - 6.0 - 00026 - AJUSTE PARA OS VALORES EXIBIDOS NO CAMPO CONTA BANCÁRIA
03565 - 00002 - 7.0 - 00001 - REMOVE HIFEN PARA PASSAR O NUMERO DA CONTA E DIGITO PARA O SISCOM
----------------------------------------------------------------------------------------------------
AO TRANSMITIR SISCOMEX, A CONTA ESTÁ INDO SOMENTE COM HÍFEN, SEM DÍGITO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANSMISSÃO SISCOMEX - CONTA - HÍFEN - DÍGITO
PASTA PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_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.
v_banco = lfbk-bankn.
REPLACE '-' WITH ' ' INTO v_banco.
CONDENSE v_banco NO-GAPS.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
if not lfbk-bkont+1(1) is initial.
* << Fim da inclusão
CONCATENATE v_banco
lfbk-bkont+1(1)
INTO v_banco.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
endif.
* << Fim da inclusão
LOOP AT it_deb_cta_di WHERE lifnr EQ lfbk-lifnr AND
nrseqdi EQ it_cabecalho_di-nrseqdi.
MOVE v_banco TO it_deb_cta_di-bankn.
CONCATENATE lfbk-bankl(3)
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
communication = 7
OTHERS = 8.
IF sy-subrc = 0.
READ TABLE rtexto INDEX 1.
IF sy-subrc = 0.
a_espec = rtexto-tdline.
ENDIF.
ENDIF.
ENDFORM.
FORM load_banco USING p_lifnr p_tipo p_bankl p_bankn p_banks.
* >> Início da exclusão: FORM LOAD_BANCO
IF v_dit = 'S'.
CLEAR: s_pgnom.
IF p_tipo IS INITIAL AND NOT sy-tcode EQ '/PWS/ZYCI023_C'
AND NOT sy-tcode EQ '/PWS/ZYCI023_I'.
CLEAR: s_pgbks, s_pgbkl, s_pgbkn, s_pgage, s_pgcc, s_pgban.
ENDIF.
IF p_bankl IS INITIAL.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bvtyp = /pws/zycie085-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr.
ENDIF.
IF sy-subrc = 0.
s_pgbks = /pws/zycie095a-banks = lfbk-banks.
s_pgbkl = /pws/zycie095a-bankl = lfbk-bankl.
s_pgbkn = /pws/zycie095a-bankn = lfbk-bankn.
s_pgnom = lfbk-koinh.
s_pgcc = lfbk-bankn.
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
ELSEIF p_banks IS INITIAL.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bankl = p_bankl AND
bankn = p_bankn AND
bvtyp = /pws/zycie085-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bankl = p_bankl AND
bankn = p_bankn.
ENDIF.
IF sy-subrc = 0.
s_pgbks = /pws/zycie095a-banks = lfbk-banks.
s_pgbkl = /pws/zycie095a-bankl = lfbk-bankl.
s_pgbkn = /pws/zycie095a-bankn = lfbk-bankn.
s_pgnom = lfbk-koinh.
s_pgcc = lfbk-bankn.
IF NOT lfbk-bkont IS INITIAL.
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bankl = p_bankl AND
bankn = p_bankn AND
banks = p_banks AND
bvtyp = /pws/zycie085-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bankl = p_bankl AND
bankn = p_bankn AND
banks = p_banks.
ENDIF.
IF sy-subrc = 0.
s_pgbks = /pws/zycie095a-banks = lfbk-banks.
s_pgbkl = /pws/zycie095a-bankl = lfbk-bankl.
s_pgbkn = /pws/zycie095a-bankn = lfbk-bankn.
s_pgnom = lfbk-koinh.
s_pgcc = lfbk-bankn.
IF NOT lfbk-bkont IS INITIAL.
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_dit = 'N'.
* << Fim da exclusão
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bvtyp = /pws/zycie085-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr.
ENDIF.
IF sy-subrc = 0.
s_pgban = lfbk-bankl+0(03).
s_pgage = lfbk-bankl+3(11).
s_pgcc = lfbk-bankn.
* >> Início da exclusão: FORM LOAD_BANCO
IF NOT lfbk-bkont IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_BANCO
if not lfbk-bkont+1(1) is initial.
* << Fim da inclusão
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
s_pgnom = lfbk-koinh.
ENDIF.
* >> Início da exclusão: FORM LOAD_BANCO
ENDIF.
* << Fim da exclusão
ENDFORM.
FORM load_blag.
CLEAR: s_agen.
...