CE PLUS - Nota 006918
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 04/07/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:59:57
Descrição da Nota: ASSOCIAÇÃO DE FATURAS - PARCIAL - CAMPO /PWS/ZYCBT119-BELNR_P
Sintoma
Ao efetuar uma associação parcial de faturas, o campo /pws/zycbt119-belnr_p(fatura associada) esta
sendo atualizado com valor incorreto, deveria atualizar com o documento que esta com saldo e esta
atualizando com o documento do clearing.
Solução
Atualizar com o documento do saldo da fatura, /pws/zycbt108-belnr_lq
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06918 Data: 04/07/2008 Hora: 16:40:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06918
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06529 - 00001 - 7.0 - 00005 - ASSOCIAÇÃO - DOCUMENTO DE PAGAMENTO
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO DE FATURAS - PARCIAL - CAMPO /PWS/ZYCBT119-BELNR_P
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO DE FATURAS - PARCIAL - CAMPO /PWS/ZYCBT119-BELNR_P
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
LOOP AT itab_zycbt108 WHERE belnr_lq NE ' '.
READ TABLE itab_zycbt131 WITH KEY
nrseq_pgfat = itab_zycbt108-nrseq_pgfat.
IF itab_zycbt108-slfat EQ 0.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt131-belnr_as
dtpagto = sy-datum
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ELSE.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
* >> Início da exclusão: FORM GRAVA_ASSOC_FINAN
belnr_p = itab_zycbt131-belnr_as
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_FINAN
belnr_p = itab_zycbt108-belnr_lq
* << Fim da inclusão
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ENDIF.
ENDLOOP.
ELSE.
MODIFY /pws/zycbt131 FROM TABLE itab_zycbt131.
CLEAR v_erro_estorno.
ENDIF.
CLEAR v_ind_mudanca.
IF NOT v_ind_delecao IS INITIAL.
CLEAR v_ind_delecao.
...
...
LOOP AT itab_zycmt020.
UPDATE /pws/zycmt020 SET saldo = itab_zycmt020-saldo
WHERE nrseq = itab_zycmt020-nrseq
AND codmod = itab_zycmt020-codmod
AND ebeln = itab_zycmt020-ebeln
AND ebelp = itab_zycmt020-ebelp.
ENDLOOP.
LOOP AT itab_zycbt108 WHERE belnr_lq NE ' '.
IF itab_zycbt108-slfat EQ 0.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
* >> Início da exclusão: FORM GRAVA_ASSOC_PGANT
belnr_p = itab_zycbt108-belnr_lq
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGANT
belnr_p = itab_zycbt131-belnr_as
* << Fim da inclusão
dtpagto = sy-datum
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ELSE.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ENDIF.
ENDLOOP.
ELSE.
MODIFY /pws/zycbt131 FROM TABLE itab_zycbt131.
...
...
LOOP AT itab_zycmt020.
UPDATE /pws/zycmt020 SET saldo = itab_zycmt020-saldo
WHERE nrseq = itab_zycmt020-nrseq
AND codmod = itab_zycmt020-codmod
AND ebeln = itab_zycmt020-ebeln
AND ebelp = itab_zycmt020-ebelp.
ENDLOOP.
LOOP AT itab_zycbt108 WHERE belnr_lq NE ' '.
IF itab_zycbt108-slfat EQ 0.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
* >> Início da exclusão: FORM GRAVA_ASSOC_PGFAT
belnr_p = itab_zycbt108-belnr_lq
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGFAT
belnr_p = itab_zycbt131-belnr_as
* << Fim da inclusão
dtpagto = sy-datum
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ELSE.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
WHERE nrseq = itab_zycbt108-nrseq_pgfat.
ENDIF.
ENDLOOP.
ELSE.
MODIFY /pws/zycbt131 FROM TABLE itab_zycbt131.
...