CE PLUS - Nota 008355
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 29/04/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:49:33
Descrição da Nota: ASSOCIAÇÃO PAGAMENTO ANTECIPADO IMPORTAÇÃO
Sintoma
O Programa da Associação de Pagamento Antecipado estava zerando o Saldo dos Itens quando ocorria
erro na Contabilização.
Solução
O Saldo do Item só deve ser atualizado quando a Contabilização ocorre com sucesso.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08355 Data: 29/04/2009 Hora: 14:58:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08355
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00096
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01988 - 00001 - 6.0 - 00024 - ASSOCIAÇÃO DE FATURAS - DA RATEIO POR ITEM DOC. COMPRA
04588 - 00002 - 7.0 - 00002 - ASSOCIAÇÃO DE FATURAS - ATUALIZAÇÃO INCORRETA DATA E DOCTO DE ASS
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO PAGAMENTO ANTECIPADO IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO PAGAMENTO ANTECIPADO IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
SELECT zuonr FROM bseg
UP TO 1 ROWS
INTO v_zuonr_fi
WHERE bukrs EQ /pws/zycbe117-bukrs
AND belnr EQ itab_zycbt036-belnr
AND gjahr EQ v_gjahr
AND augbl EQ ' '
AND koart EQ 'K'
AND bschl EQ '29'.
ENDSELECT.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PGANT
LOOP AT itab_zycmt020.
itab_zycmt020-vlassoc = itab_zycmt020-saldo.
itab_zycmt020-saldo = space.
MODIFY itab_zycmt020.
ENDLOOP.
* << Fim da exclusão
v_ok = 'X'.
EXIT.
ENDIF.
itab_zycbe033-xblnr = /pws/zycbe117-nrseq.
CONCATENATE /pws/zycbe117-nrseq 'A' INTO itab_zycbe033-d_zuonr.
v_zuonr_fi = itab_zycbe033-d_zuonr.
itab_zycbe033-c_zuonr = /pws/zycbe117-nrseq.
IF /pws/zycbe112-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
...
...
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
WHERE belnr EQ itab_zycbt108-belnr
AND nrseq_pgfat EQ itab_zycbt108-nrseq_pgfat.
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 ).
/pws/zycbe117-slpgant = v_saldo_pa.
ENDIF.
* >> Início da inclusão: FORM F51_PGANT_MOEDAS_IGUAIS
loop at itab_zycmt020.
itab_zycmt020-vlassoc = itab_zycmt020-saldo.
itab_zycmt020-saldo = space.
modify itab_zycmt020.
endloop.
* << Fim da inclusão
PERFORM atualiza_dados_processos.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
v_ok = ' '.
ENDIF.
ELSE.
IF ( /pws/zyglt009-contpa = 'Y' AND /pws/zycbe117-codint = 'IM' )
...
...
tabela = '/PWS/ZYCBT108'
cpochv = v_chave
tpmsg = 'S'.
IF sy-subrc = 0.
v_ok = 'X'.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg.
itab_zycbt131-belnr_as = itab_zycbt032-belnr.
MODIFY itab_zycbt131 TRANSPORTING belnr_as
WHERE belnr EQ itab_zycbt108-belnr
AND nrseq_pgfat EQ itab_zycbt108-nrseq_pgfat.
* >> Início da inclusão: FORM F51_PGANT_MOEDAS_DIF
loop at itab_zycmt020.
itab_zycmt020-vlassoc = itab_zycmt020-saldo.
itab_zycmt020-saldo = space.
modify itab_zycmt020.
endloop.
* << Fim da inclusão
PERFORM atualiza_dados_processos.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015(/pws/zycmm) WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
v_ok = ' '.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
...