CE PLUS - Nota 004030
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 25/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:51:28
Descrição da Nota: CAPTAÇÃO - DP - ITENS ORDEM PAGAMENTO - VALOR ZERO
Sintoma
Ao efetuar uma captação de DP, não pode ser permitido gravar item de ordem da pagamento com valor
zero, pois gera erro nos processos posteriores(vinculação, liquidação)
Solução
Ao inserir os itens da ordem de pagamento no contrato, verificar se o mesmo tem valor maior que
zero.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04030 Data: 25/06/2007 Hora: 10:41:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04030
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03292 - 00001 - 6.0 - 00026 - CAPTAÇÃO - DP - PONTO DE EXIT F-29 E CONSITÊNCIA ORDEM
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - DP - ITENS ORDEM PAGAMENTO - VALOR ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - DP - ITENS ORDEM PAGAMENTO - VALOR ZERO
VBAP-NETWR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
IN PROGRAM (itab_zyglt100-programa).
ELSE.
READ TABLE wa_zycbt221 WITH KEY ordem = /pws/zycbe221-ordem.
IF sy-subrc NE 0.
CLEAR: wa_zycbt221, itab_zycbt221.
SELECT vbeln posnr netwr waerk gsber prctr pstyv
INTO TABLE itab_vbap
FROM vbap
WHERE vbeln EQ /pws/zycbe221-ordem.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM VERIFICA_ORDEM
LOOP AT itab_vbap.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ORDEM
LOOP AT itab_vbap where netwr > 0.
* << Fim da inclusão
v_idx = sy-tabix.
SELECT SINGLE tipo INTO /pws/zycbt222-tipo
FROM /pws/zycbt222
WHERE tipo EQ itab_vbap-pstyv.
IF sy-subrc NE 0.
v_tipo = 1.
v_ordem = itab_vbap-vbeln.
DELETE itab_vbap INDEX v_idx.
ELSE.
IF itab_vbap-waerk NE /pws/zycbe001-waers.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT itab_vbap[] IS INITIAL.
SELECT vbeln posnr kunnr INTO TABLE itab_vbpa
FROM vbpa
FOR ALL ENTRIES IN itab_vbap
WHERE vbeln EQ itab_vbap-vbeln
AND parvw EQ 'RG'.
* >> Início da exclusão: FORM VERIFICA_ORDEM
LOOP AT itab_vbap.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ORDEM
LOOP AT itab_vbap where netwr > 0.
* << Fim da inclusão
READ TABLE itab_vbpa WITH KEY vbeln = itab_vbap-vbeln.
IF sy-subrc NE 0.
itab_vbpa-kunnr = ' '.
ENDIF.
IF itab_vbpa-kunnr NE /pws/zycbe001-kunnr.
v_pagador = 1.
v_ordem = itab_vbap-vbeln.
ELSE.
MOVE: itab_vbap-vbeln TO wa_zycbt221-ordem,
itab_vbpa-kunnr TO wa_zycbt221-pagador,
...