CE PLUS - Nota 002765
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 27/12/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:43:37
Descrição da Nota: VINCULAÇÃO - 1º "/N", FECHE A EDIÇÃO DA VINCULAÇÃO.(APAREÇA EXBINDO)
Sintoma
1-) foi criada uma captação de DP
2-) Ao vincular uma fatura na captação, sendo na primeira F-30 dei um /n para simular um erro.
3-) Sem sair da transação apenas mudei a data da vinculação / liquidação e ao entrar na F-30 dei um
/n novamente para simular um erro.
4-) No histórico contábil aparecem dois registros para a fatura e o saldo zerado.
5-) Ao entrar na vinculação modificar existem dois registros em duas datas diferente e então ao
excluir as duas vinculações que não foram concluídas o programa duplica o valor saldo á vincular e
valor á pagar.
Solução
Ajuste na vinculação para que ao 1º "/n", feche a edição da vinculação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02765 Data: 27/12/2006 Hora: 14:49:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02765
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - 1º "/N", FECHE A EDIÇÃO DA VINCULAÇÃO.(APAREÇA EXBINDO)
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - 1º "/N", FECHE A EDIÇÃO DA VINCULAÇÃO.(APAREÇA EXBINDO)
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
IF v_slliq IS INITIAL.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 4.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
v_status_s = 0.
* << Fim da inclusão
EXIT.
ENDIF.
IF v_slliq GT 0.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
IF itab_zycbt005-vlme_p GT itab_zycbt030-vlslliq
AND wa_zycbt007-liq_trans EQ 'T'.
EXIT.
ENDIF.
...
...
ENDIF.
MODIFY itab_zycbt030.
ENDIF.
PERFORM desmembra_cliente.
IF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 4.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
v_status_s = 0.
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
PERFORM desmembra_ace.
IF sy-subrc NE 0.
v_subrc = 4.
EXIT.
ENDIF.
PERFORM baixa_cliente_ace.
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
IF v_slliq IS INITIAL.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 4.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP2
v_status_s = 0.
* << Fim da inclusão
EXIT.
ENDIF.
IF v_slliq GT 0.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
IF itab_zycbt005-vlme_p GT itab_zycbt030-vlslliq
AND wa_zycbt007-liq_trans EQ 'T'.
EXIT.
ENDIF.
...
...
itab_zycbt030-v_belnr = itab_zycbt030-belnr.
ELSE.
itab_zycbt030-v_belnr = itab_zycbt030-belnr6.
PERFORM encontra_conta.
ENDIF.
MODIFY itab_zycbt030.
ENDIF.
PERFORM desmembra_cliente.
IF sy-subrc NE 0.
v_subrc = 4.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP2
v_status_s = 0.
* << Fim da inclusão
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 4.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP2
v_status_s = 0.
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
...