CE PLUS - Nota 007291
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 10/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:58:56
Descrição da Nota: VINCULAÇÃO - DESVINCULAÇÃO - ATUALIZAÇÃO DE SALDO INCORRETO
Sintoma
Ao efetuar uma desvinculação, baixando o valor vinculado e informando o valor a ser desvinculado, o
sistema contabiliza corretamente, mas não atualiza os saldos corretamente. Erro também ao informar
valor a ser desvinculado, onde se não clicar no botão Estornar, limpa o valor do mesmo.
Solução
Ao informar o valor a ser desvinculado, tem que fechar o campo Valor vinculado. Se o mesmo foi
alterado, não fecha e exibe mensagem para que o usuário retorne o valor vinculado atual. Retirar
consistência de que só carrega o valor a ser desvinculado na tela se clicar no botão estornar, tem
que deixar o valor independente da ação do usuário.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07291 Data: 10/09/2008 Hora: 11:17:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07291
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02667 - 00001 - 6.0 - 00025 - VINCULAÇÃO - /N NA PRIMEIRA CONTABILIZAÇÃO ACC - TRATAMENTO DE TE
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - DESVINCULAÇÃO - ATUALIZAÇÃO DE SALDO INCORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO DESVINCULAÇÃO ATUALIZAÇÃO DE SALDO INCORRETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009O01
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
READ TABLE itab_desvincula
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf .
IF sy-subrc EQ 0.
MOVE: itab_desvincula-vldesvin TO wa_desvincula-vldesvin ,
itab_desvincula-vldesvin TO /pws/zycbe005-vlestorno.
ENDIF.
ENDFORM.
FORM altera_desvincula.
* >> Início da exclusão: FORM ALTERA_DESVINCULA
IF ok_code = 'ESTOR' AND sy-tcode = '/PWS/ZYCB009_A'.
* << Fim da exclusão
MOVE: itab_zycbt005-nrinvoic TO wa_desvincula-nrinvoic,
itab_zycbt005-nrparcf TO wa_desvincula-nrparcf ,
itab_zycbt005-gsberf TO wa_desvincula-gsberf .
READ TABLE itab_desvincula
WITH KEY nrinvoic = wa_desvincula-nrinvoic
nrparcf = wa_desvincula-nrparcf
gsberf = wa_desvincula-gsberf .
IF sy-subrc EQ 0.
IF itab_desvincula-vldesvin NE wa_desvincula-vldesvin.
MODIFY itab_desvincula
FROM wa_desvincula
TRANSPORTING vldesvin
WHERE nrinvoic EQ wa_desvincula-nrinvoic AND
nrparcf EQ wa_desvincula-nrparcf AND
gsberf EQ wa_desvincula-gsberf.
ENDIF.
ELSE.
APPEND wa_desvincula TO itab_desvincula.
* >> Início da exclusão: FORM ALTERA_DESVINCULA
ENDIF.
* << Fim da exclusão
ENDIF.
ENDFORM.
FORM efetua_estorno.
PERFORM verifica_vldesvinc.
CHECK v_executa IS INITIAL.
LOOP AT itab_desvincula WHERE vldesvin GT 0.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_desvincula-nrinvoic
nrparcf = itab_desvincula-nrparcf
gsberf = itab_desvincula-gsberf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSE.
IF itab_zycbt005-nrinvoic IS INITIAL.
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_VINC
ENDIF.
IF sy-tcode = '/PWS/ZYCB009_A'.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE005-VLME_P'.
IF wa_desvincula-vldesvin > 0.
READ TABLE itab_zycbt005_ant WITH KEY
nrinvoic = /pws/zycbe005-nrinvoic
gsberf = /pws/zycbe005-gsberf
nrparcf = /pws/zycbe005-nrparcf.
IF sy-subrc = 0 AND
itab_zycbt005_ant-vlme_p NE /pws/zycbe005-vlme_p.
MESSAGE i061 WITH text-492 /pws/zycbe005-nrinvoic
text-493 text-494.
CLEAR wa_desvincula-vldesvin.
ELSE.
screen-input = 0.
ENDIF.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE trata_tbcontrol OUTPUT.
CLEAR: itab_t320[],
itab_nome_campo[],
v_nome_campo,
v_comp.
IF sy-dynnr EQ '0100' OR
sy-dynnr EQ '0402'.
v_cod_grupo = 'CCO'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 492
Texto: (37 caracteres)
"Valor Vinculado foi alterado. Fatura:"
Comprimento máximo: 37
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 493
Texto: (48 caracteres)
". Favor retornar o valor atual e apenas informar"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 494
Texto: (25 caracteres)
"valor a ser desvinculado."
Comprimento máximo: 25