CE PLUS - Nota 006529
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 07/05/2008 00:00:00
Data/Hora Última Alteração: 04/03/2010 14:08:22
Descrição da Nota: ASSOCIAÇÃO - DOCUMENTO DE PAGAMENTO
Sintoma
O programa de associação não está atualizando o campo belnr_p da tabela /pws/zycbt119 corretamente.
Solução
Ajustado para que o programa jogue o documento de desmembramento da fatura no belnr_p.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06529 Data: 07/05/2008 Hora: 18:13:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06529
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00046
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO - DOCUMENTO DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO - DOCUMENTO DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
fassoc = 'X'
WHERE nrseq = /pws/zycbe112-nrseq.
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 ' '.
* >> Início da inclusão: FORM GRAVA_ASSOC_FINAN
READ TABLE itab_zycbt131 WITH KEY
nrseq_pgfat = itab_zycbt108-nrseq_pgfat.
* << Fim da inclusão
IF itab_zycbt108-slfat EQ 0.
UPDATE /pws/zycbt119 SET slpgfat = itab_zycbt108-slfat
* >> Início da exclusão: FORM GRAVA_ASSOC_FINAN
belnr_p = itab_zycbt108-belnr_lq
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_FINAN
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
* >> Início da exclusão: FORM GRAVA_ASSOC_FINAN
belnr_p = itab_zycbt108-belnr_lq
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_FINAN
belnr_p = itab_zycbt131-belnr_as
* << 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.
...
...
CALL CUSTOMER-FUNCTION '001'
IMPORTING
v_subrc = v_trans.
IF ( /pws/zyglt009-contpa = 'Y' AND /pws/zycbe117-codint = 'IM'
) OR
( /pws/zyglt009-contpa = 'Y' AND /pws/zycbe117-codint = 'ES'
AND v_trans IS INITIAL ) OR
itab_zycbt108-slfat = 0.
itab_zycbt108-belnr_lq = itab_zycbt032-belnr.
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_TABELAS
ELSEIF v_tpdoc NE 'A' AND itab_zycbt108-slfat = 0.
itab_zycbt108-belnr_lq = itab_zycbt032-belnr.
* << Fim da exclusão
ENDIF.
itab_zycbt108-codmodul = 'I'.
itab_zycbt108-nrcorresp = itab_zycbt131-nrseq.
itab_zycbt108-tpdoc = v_tpdoc.
IF itab_zycbt108-slfat EQ 0.
itab_zycbt108-fassoc = 'X'.
ENDIF.
MODIFY itab_zycbt108.
ENDLOOP.
itab_zycbt131-status = 'C'.
...