Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/08/2014 15:21:36
Data/Hora Última Alteração: 05/08/2014 15:21:36
Descrição da Nota: SELEÇÃO DAS INFORMAÇÕES PARA EXIBIÇÃO NA PASTA PAGAMENTO
Sintoma
O programa deveria buscar os dados de conta e banco na tabela de parametro /pws/zycit256 porém está
buscando diretamente no cadastro do fornecedor e sem considerar o país.
Solução
Ajustado programa para verificar se o fornecedor informado na pasta pagamentos é o mesmo informado
na tabela de parametros /pws/zycit256, caso positivo as informações de conta serão preenchida de
acondo com esta tabela, caso contrario irá buscar as informações no cadastro do fornecedor.
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14124 Data: 05/08/2014 Hora: 09:46:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14124
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00173
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11728 - 00001 - 8.0 - 00009 - DI - /PWS/SAPMZYCI023 - AJUSTAR A LÓGICA DOS CAMPOS DATAS
----------------------------------------------------------------------------------------------------
SELEÇÃO DAS INFORMAÇÕES PARA EXIBIÇÃO NA PASTA PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - EXIBIÇÃO - PASTA - PAGAMENTO - INFORMAÇÃO - CONTA
/PWS/SAPMZYCI023 - PARAMETRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0141
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0141
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0141
process before output.
module: load_typeview,
set_screen_padrao,
screen_lines.
* >> Início da inclusão:
module load_banco.
* << Fim da inclusão
loop at itab_zycit095 with control tc_pag.
module: fill_struct95,
set_screen_lines.
endloop.
module exit_tela.
process after input.
field: /pws/zycie095a-lifnr module load_banc on request.
loop at itab_zycit095.
module modi_data95.
endloop.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_banco USING p_lifnr p_tipo p_bankl p_bankn p_banks.
* >> Início da exclusão: FORM LOAD_BANCO
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).
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.
s_pgbks = s_pgban.
s_pgbkl = lfbk-bankl.
s_pgbkn = lfbk-bankn.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_BANCO
PERFORM propoe_banco.
IF p_lifnr IS INITIAL .
PERFORM atualiza_banco USING p_lifnr space
p_bankl p_bankn
p_banks.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM propoe_banco.
* >> Início da exclusão: FORM PROPOE_BANCO
IF /pws/zycie085-tpdi EQ 'S'.
IF sy-tcode = '/PWS/ZYCI023_I' AND /pws/zycie095a-lifnr IS INITIAL.
* << Fim da exclusão
READ TABLE itab_zycit001 INDEX 1.
* >> Início da exclusão: FORM PROPOE_BANCO
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256
WHERE nrdespadu EQ itab_zycit001-nrdespadu.
IF sy-subrc = 0.
/pws/zycie095a-lifnr = /pws/zycit256-lifnr.
/pws/zycie095-bankl = /pws/zycit256-bankl.
/pws/zycie095-bankn = /pws/zycit256-bankn.
s_pgnom = /pws/zycit256-descdesp.
ENDIF.
ENDIF.
ELSEIF sy-tcode = '/PWS/ZYCI023_G' AND sy-ucomm = 'REFR'.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256
WHERE nrdespadu EQ itab_zycit001-nrdespadu.
IF sy-subrc = 0.
/pws/zycie095a-lifnr = /pws/zycit256-lifnr.
/pws/zycie095-bankl = /pws/zycit256-bankl.
/pws/zycie095-bankn = /pws/zycit256-bankn.
s_pgnom = /pws/zycit256-descdesp.
ENDIF.
ENDIF.
ENDIF.
ELSEIF /pws/zycie085-tpdi EQ 'N'.
IF sy-tcode = '/PWS/ZYCI023_C' AND /pws/zycie095a-lifnr IS INITIAL.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM PROPOE_BANCO
IF sy-subrc EQ 0.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256
WHERE nrdespadu EQ itab_zycit001-nrdespadu.
IF sy-subrc = 0.
* >> Início da inclusão: FORM PROPOE_BANCO
IF ( sy-tcode = '/PWS/ZYCI023_C' AND
/pws/zycie095a-lifnr IS INITIAL ) OR
( sy-tcode = '/PWS/ZYCI023_A' AND sy-ucomm = 'REFR'
AND /pws/zycie095a-lifnr IS INITIAL ).
* << Fim da inclusão
LOOP AT itab_zycit095.
itab_zycit095-lifnr = /pws/zycit256-lifnr.
itab_zycit095-bankl = /pws/zycit256-bankl.
itab_zycit095-bankn = /pws/zycit256-bankn.
MODIFY itab_zycit095 INDEX sy-tabix.
ENDLOOP.
* >> Início da exclusão: FORM PROPOE_BANCO
IF sy-subrc NE 0.
* << Fim da exclusão
/pws/zycie095a-lifnr = /pws/zycit256-lifnr.
* >> Início da inclusão: FORM PROPOE_BANCO
ENDIF.
IF /pws/zycie095a-lifnr EQ /pws/zycit256-lifnr.
s_pgnom = /pws/zycit256-descdesp.
* << Fim da inclusão
s_pgag1 = strlen( /pws/zycit256-bankn ).
s_pgag2 = s_pgag1 - 1.
IF NOT /pws/zycit256-bankn IS INITIAL.
CONCATENATE /pws/zycit256-bankn+0(s_pgag2)
/pws/zycit256-bankn+s_pgag2(1)
'-' INTO s_pgcc.
ENDIF.
s_pgban = /pws/zycit256-bankl+0(3).
s_pgage = /pws/zycit256-bankl+4(11).
* >> Início da exclusão: FORM PROPOE_BANCO
ENDIF.
s_pgnom = /pws/zycit256-descdesp.
ENDIF.
ENDIF.
ELSEIF sy-tcode = '/PWS/ZYCI023_A' AND sy-ucomm = 'REFR'
AND /pws/zycie095a-lifnr IS INITIAL.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit256 INTO /pws/zycit256
WHERE nrdespadu EQ itab_zycit001-nrdespadu.
IF sy-subrc = 0.
LOOP AT itab_zycit095.
itab_zycit095-lifnr = /pws/zycit256-lifnr.
itab_zycit095-bankl = /pws/zycit256-bankl.
itab_zycit095-bankn = /pws/zycit256-bankn.
MODIFY itab_zycit095 INDEX sy-tabix.
ENDLOOP.
s_pgnom = /pws/zycit256-descdesp.
s_pgag1 = strlen( /pws/zycit256-bankn ).
s_pgag2 = s_pgag1 - 1.
IF NOT /pws/zycit256-bankn IS INITIAL.
CONCATENATE /pws/zycit256-bankn+0(s_pgag2)
/pws/zycit256-bankn+s_pgag2(1)
'-' INTO s_pgcc.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM PROPOE_BANCO
/pws/zycie095a-bankl = /pws/zycit256-bankl.
/pws/zycie095a-bankn = /pws/zycit256-bankn.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie001-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
READ TABLE itab_zycit049 WITH KEY tpdesp = /pws/zycit000-cod_sisc.
IF sy-subrc EQ 0 AND itab_zycit049-vldp NE s_wsisco AND v_dit EQ 'N'.
IF NOT /pws/zycie085-dttax IS INITIAL AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
MODULE load_banc INPUT.
IF /pws/zycie095a-lifnr IS INITIAL.
PERFORM clean_banco.
ELSE.
* >> Início da exclusão: MODULE LOAD_BANC
PERFORM load_banco USING /pws/zycie095a-lifnr space
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_BANC
PERFORM atualiza_banco USING /pws/zycie095a-lifnr space
* << Fim da inclusão
/pws/zycie095a-bankl /pws/zycie095a-bankn
/pws/zycie095a-banks.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
IF sy-dynnr NE '0142'.
MOVE: itab_zycit095-receita TO /pws/zycie095-receita,
itab_zycit095-valor TO /pws/zycie095-valor.
IF NOT /pws/zycie095-receita IS INITIAL.
PERFORM load_receita.
ENDIF.
ENDIF.
ELSE.
IF sy-dynnr EQ '0142'.
MOVE itab_zycit095 TO /pws/zycie095.
* >> Início da inclusão: MODULE FILL_STRUCT95
/pws/zycie095a-lifnr = /pws/zycie095-lifnr.
* << Fim da inclusão
PERFORM fill_banco USING /pws/zycie095a-lifnr.
ENDIF.
ENDIF.
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE load_banco OUTPUT.
PERFORM: load_banco USING /pws/zycie095a-lifnr space
/pws/zycie095a-bankl
/pws/zycie095a-bankn
/pws/zycie095a-banks.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
* >> Início da inclusão:
FORM atualiza_banco USING p_lifnr
p_space
p_bankl
p_bankn
p_banks.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr AND
BANKS = t001-land1 and
bvtyp = /pws/zycie085-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM lfbk WHERE lifnr = p_lifnr
and BANKS = t001-land1.
ENDIF.
IF sy-subrc = 0.
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.
s_pgbks = s_pgban.
s_pgbkl = lfbk-bankl.
s_pgbkn = lfbk-bankn.
ENDIF.
ENDFORM.
* << Fim da inclusão