CE PLUS - Nota 004153
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:47:10
Descrição da Nota: DI NACIONALIZAÇÃO BANCO/AGÊNCIA/CONTA
Sintoma
Na DI de nacionalização (Regime 16) quando preencho o código do banco na pasta "pagamentos" não
grava na tabela /pws/zycit095 as informações referentes a banco/agência/conta no banco.
Solução
Na DI de nacionalização (Regime 16) quando preencho o código do banco na pasta "pagamentos" não
grava na tabela /pws/zycit095 as informações referentes a banco/agência/conta no banco.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04153 Data: 11/07/2007 Hora: 14:37:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04153
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03673 - 00001 - 7.0 - 00001 - AO TRANSMITIR SISCOMEX, A CONTA ESTÁ INDO SOMENTE COM HÍFEN, SEM
03929 - 00002 - 7.0 - 00002 - ERRO AO TRANSMITIR DADOS DA DI, CAMPO BANCO, PASTA PAGAMENTOS
----------------------------------------------------------------------------------------------------
DI NACIONALIZAÇÃO BANCO/AGÊNCIA/CONTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI NACIONALIZAÇÃO BANCO/AGÊNCIA/CONTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
s_pgag1 = strlen( /pws/zycie095a-bankn ).
s_pgag2 = s_pgag1 - 1.
IF NOT /pws/zycie095a-bankn IS INITIAL.
CONCATENATE /pws/zycie095a-bankn+0(s_pgag2)
/pws/zycie095a-bankn+s_pgag2(1)
'-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
ENDIF.
ELSEIF /pws/zycie085-tpdi EQ 'N'.
PERFORM load_banco USING p_lifnr 'X'
* >> Início da exclusão: FORM FILL_BANCO
/pws/zycie095a-bankl
/pws/zycie095a-bankn
/pws/zycie095a-banks.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_BANCO
s_pgban s_pgage /pws/zycie095-banks.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM taxa_converte USING p_waers
p_data
CHANGING p_taxa.
CLEAR: p_taxa, v_msgfre.
DATA: v_moeda LIKE tcurc-/pws/codmo,
v_msgd(10),
v_linhas TYPE i.
IF p_waers EQ wa_zycbt007-waersb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
s_pgban = lfbk-bankl+0(03).
IF /pws/zycit000-nbanco IS INITIAL.
/pws/zycit000-nbanco = 3.
ENDIF.
s_pgage = lfbk-bankl+/pws/zycit000-nbanco.
s_pgcc = lfbk-bankn.
IF NOT lfbk-bkont+1(1) IS INITIAL.
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
s_pgnom = lfbk-koinh.
* >> Início da inclusão: FORM LOAD_BANCO
s_pgbks = s_pgban.
s_pgbkl = lfbk-bankl.
s_pgbkn = lfbk-bankn.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM load_blag.
CLEAR: s_agen.
SELECT SINGLE stcd1 FROM lfa1 INTO s_agen WHERE
lifnr = /pws/zycie093-agente.
IF sy-subrc EQ 0 AND NOT s_agen IS INITIAL.
CONCATENATE s_agen+0(2) '.' s_agen+2(3) '.'
s_agen+5(3) '/' s_agen+8(4) '-'
s_agen+12(2) INTO s_agen.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDMODULE.
MODULE load_sewa INPUT.
PERFORM load_sewa.
ENDMODULE.
MODULE load_sevl INPUT.
PERFORM load_sevl.
ENDMODULE.
MODULE modi_data95 INPUT.
IF ( v_tipo NE '3' AND v_tipo NE '4' ) OR v_dit = 'S'.
IF sy-dynnr NE '0142'.
* >> Início da inclusão: MODULE MODI_DATA95
perform: load_banco using /pws/zycie095a-lifnr space
/pws/zycie095a-bankl
/pws/zycie095a-bankn
/pws/zycie095a-banks.
* << Fim da inclusão
PERFORM fill_pagto USING /pws/zycie095a-lifnr.
IF sy-dynnr EQ '0141'.
MODIFY itab_zycit095 INDEX tc_pag-current_line.
ELSEIF sy-dynnr EQ '0240'.
MODIFY itab_zycit095 INDEX tc_spag-current_line.
ENDIF.
IF sy-subrc NE 0 AND v_erro IS INITIAL.
APPEND itab_zycit095.
ENDIF.
ENDIF.
...