CE PLUS - Nota 007250
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 03/09/2008 00:00:00
Data/Hora Última Alteração: 11/03/2010 10:09:31
Descrição da Nota: CAPTAÇÃO - HISTÓRICO CONTÁBIL - SALDO VINCULAÇÃO/LIQUIDAÇÃO DESATUALIZAD
Sintoma
No programa de captação, entramos pelo botão liquidação e efetuamos a mesma. Voltando a captação,
alterando algum dado e salvando, o saldo a pagar fica incorreto.
Solução
Após voltar do programa de liquidação ou de vinculação efetuar a seleção da tabela /pws/zycbt001,
para que atualize todos os dados que foram alterados nesses programas.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07250 Data: 03/09/2008 Hora: 16:58:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07250
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00063
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - HISTÓRICO CONTÁBIL - SALDO VINCULAÇÃO/LIQUIDAÇÃO DESATUALIZAD
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO HISTÓRICO CONTÁBIL SALDO VINCULAÇÃO/LIQUIDAÇÃO DESATUALIZADO
/PWS/ZYCBT001-SLPAGAR /PWS/ZYCBE001-SLPAGAR SLPAGAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
WHEN 'N'.
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
ENDCASE.
LEAVE TO TRANSACTION c_transacao_c.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
MESSAGE i299 WITH text-185."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
MESSAGE i299 WITH text-185. "#EC *
* << Fim da inclusão
ENDIF.
WHEN 'AEND'.
PERFORM lock_record.
PERFORM change_status.
okcode_old = okcode.
CLEAR okcode.
WHEN 'DESP'.
IF v_status_s = '1' OR
v_status_s IS INITIAL.
v_status_s200 = '1'.
...
...
ENDIF.
IF v_answer = 'J'.
PERFORM save_changes.
PERFORM verify_tpcontr.
ELSEIF v_answer = 'N'.
MOVE wa_zycbt001 TO /pws/zycbe001.
PERFORM verify_tpcontr.
ENDIF.
WHEN 'VINC'.
PERFORM call_zycb009_c.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = /pws/zycbe001-nrseqc.
wa_zycbt001 = /pws/zycbt001 = wa_zycbe001 =
wa_zycbt001_pre = /pws/zycbe001.
* << Fim da inclusão
WHEN 'CARTA'.
PERFORM trata_carta.
WHEN 'ENCE'.
PERFORM encerramento.
WHEN 'ANL_ENC'.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe001-bukrs.
CASE /pws/zycbt007-fprovisao.
WHEN 'C'.
IF /pws/zycbe001-tpcontr(01) EQ 'P' OR
...
...
wa_zycbt091 = /pws/zycbe091.
CALL SCREEN '0500'.
ENDIF.
ENDIF.
ENDIF.
WHEN 'MODO'.
PERFORM modo_batch_input.
CLEAR okcode.
WHEN 'LIQ'.
PERFORM call_zycb004_2.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
SELECT SINGLE * FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = /pws/zycbe001-nrseqc.
wa_zycbt001 = /pws/zycbt001 = wa_zycbe001 =
wa_zycbt001_pre = /pws/zycbe001.
* << Fim da inclusão
WHEN 'CALCJUR'.
CALL SCREEN '0004' STARTING AT 2 2.
WHEN 'HIST'.
PERFORM historico_contabil.
WHEN 'DEVDP'.
PERFORM devolucao_down_payment.
WHEN 'BOL'.
PERFORM emite_boleto.
WHEN 'INFO'.
CALL FUNCTION 'POPUP_DISPLAY_TEXT'
...
...
/pws/zycbe004-tpcontr = /pws/zycbe001-tpcontr .
/pws/zycbe004-bconegoc = /pws/zycbe001-bconegoc.
/pws/zycbe004-bcofinan = /pws/zycbe001-bcofinan.
/pws/zycbe004-bukrs = /pws/zycbe001-bukrs.
/pws/zycbe004-gsber = /pws/zycbe001-gsber.
/pws/zycbe004-werks = /pws/zycbe001-werks.
/pws/zycbe004-j_1bbranch = /pws/zycbe001-j_1bbranch.
v_status_s200 = '1'.
CLEAR v_altdesp.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0200
MESSAGE i299 WITH text-230."#EC *
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
MESSAGE i299 WITH text-230. "#EC *
* << Fim da inclusão
ENDIF.
WHEN 'DELE'.
CLEAR: v_erro_bi,
/pws/zycbt031.
SELECT SINGLE * FROM /pws/zycbt031
WHERE nrcorresp EQ /pws/zycbe004-nrseqc
AND tpdesp EQ /pws/zycbe004-tpdesp
AND nrparc EQ /pws/zycbe004-nrparc
AND dtincl EQ /pws/zycbe004-dtincl
AND mdcorresp EQ 'ED'.
...