CE PLUS - Nota 002767
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/12/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 12:47:34
Descrição da Nota: AJUSTE PARA OS VALORES EXIBIDOS NO CAMPO CONTA BANCÁRIA
Sintoma
O campo conta bancária na DI na pasta pagamento, ao preencher o fornecedor está levando a conta mais
um hífen. É necessário tratativa para verificar se existe Chave de controle de bancos para ter o
hífen.
Solução
Foi criado tratativa para verificar se existe Chave de controle de bancos, apenas se existir
concatenar com o N° da Conta.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02767 Data: 27/12/2006 Hora: 15:05:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02767
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE PARA OS VALORES EXIBIDOS NO CAMPO CONTA BANCÁRIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORM LOAD_BANCO, LFBK-BKONT, S_PGCC
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
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.
* >> Início da inclusão: FORM LOAD_BANCO
IF NOT lfbk-bkont IS INITIAL.
* << Fim da inclusão
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
ENDIF.
* >> Início da inclusão: FORM LOAD_BANCO
ENDIF.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
bankl = p_bankl AND
bankn = p_bankn AND
banks = p_banks 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.
* >> Início da inclusão: FORM LOAD_BANCO
IF NOT lfbk-bkont IS INITIAL.
* << Fim da inclusão
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
* >> Início da inclusão: FORM LOAD_BANCO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSEIF v_dit = 'N'.
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+4(11).
s_pgcc = lfbk-bankn.
* >> Início da inclusão: FORM LOAD_BANCO
IF NOT lfbk-bkont IS INITIAL.
* << Fim da inclusão
CONCATENATE s_pgcc '-' lfbk-bkont+1(1) INTO s_pgcc.
* >> Início da inclusão: FORM LOAD_BANCO
ENDIF.
* << Fim da inclusão
s_pgnom = lfbk-koinh.
ENDIF.
ENDIF.
ENDFORM.
FORM load_blag.
CLEAR: s_agen.
...