CE PLUS - Nota 004709
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 13/09/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 16:59:52
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - ESTORNO COM LIQUIDAÇÃO EM ANDAMENTO
Sintoma
Ao estornar duas ordens ao mesmo tempo (sendo que a ordem possui liquidação em andamento), está
dando erro no clearing da liquidação em andamento da 1ª ordem estornada.
Solução
O comando foi substituido para que a funcao at last seja feita de outro modo.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04709 Data: 13/09/2007 Hora: 14:48:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04709
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - ESTORNO COM LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - ESTORNO COM LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011,
wa_zycbt030 TYPE t_s_zycbt030,
wa_zycbt225 TYPE t_s_zycbt225,
wa_zycbt209 TYPE t_s_zycbt209,
v_codeven TYPE /pws/zycbt011-codeven,
v_chvoper(3) TYPE c,
v_titulo(40) TYPE c,
v_tot_liqand TYPE wrbtr,
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
v_count TYPE i,
v_total TYPE i,
* << Fim da inclusão
v_ult(1) TYPE c.
CHECK <fs_op>-tipo_op = 'E'.
CHECK NOT <fs_op>-belnr_desmliqand IS INITIAL.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
PERFORM verifica_campo_vazio USING <fs_op>-dtlancto
'DTLANCTO'
'Data de Lançamento'(004).
...
...
PERFORM preenche_campos_contab_exc
USING
<fs_op>-bukrs
v_chvoper
v_codeven
space
<fs_op>
wa_fat
CHANGING
wa_zycbe033.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
clear: v_count, v_total.
LOOP AT itab_zycbt225 INTO wa_zycbt225
WHERE nrseq = <fs_op>-nrseq.
v_total = v_total + 1.
ENDLOOP.
* << Fim da inclusão
LOOP AT itab_zycbt225 INTO wa_zycbt225
WHERE nrseq = <fs_op>-nrseq.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
v_count = v_count + 1.
* << Fim da inclusão
CLEAR wa_zycbt036.
wa_zycbt036-tcode = 'F-30'.
wa_zycbt036-cpochv = wa_zycbe033-cpochv.
wa_zycbt036-tabela = '/PWS/ZYCBT226'.
wa_zycbt036-belnr = p_belnr_est_f02.
...
...
ENDIF.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_titulo
'-'
<fs_op>-nrseq
space
'061'.
CLEAR v_ult.
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
IF v_count = v_total.
* << Fim da inclusão
* >> Início da exclusão: FORM ESTORNO_LIQ_AND
AT LAST.
* << Fim da exclusão
v_ult = 'X'.
* >> Início da exclusão: FORM ESTORNO_LIQ_AND
ENDAT.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_LIQ_AND
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_S'
EXPORTING
v_modo = v_modo_bi
...