CE PLUS - Nota 011277
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 28/06/2011 00:00:00
Data/Hora Última Alteração: 29/06/2011 13:27:02
Descrição da Nota: LIQUIDAÇÃO - NÃO CONTABILIZAR COMISSÃO DE AGENTE SE TIVER ERRO NA FATURA
Sintoma
O programa efetuava o lançamento da baixa da comissão mesmo quando ocorria erro no lançamento de
liquidação do cliente e efetuava o lançamento de estorno da comissão mesmo quando o lançamento de
baixa da comissão não havia sido realizado
Solução
Foi incluída no programa de Liquidação a verificação do status dos lançamentos anteriores ao
lançamento da baixa da comissão
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11277 Data: 28/06/2011 Hora: 14:04:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11277
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08239 - 00001 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE
11118 - 00002 - 8.0 - 00007 - COMISSÃO CONTA GRÁFICA
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - NÃO CONTABILIZAR COMISSÃO DE AGENTE SE TIVER ERRO NA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - COMISSÃO AGENTE - NÃO CONTABILIZAR SE TIVER ERRO NA
CONTABILIZAÇÃO DA FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
where nrseqc = v_nrseqc.
endif.
if /pws/zycbe001-fdtlanc is initial.
select single fdtlanc
from /pws/zycbt001
into /pws/zycbe001-fdtlanc
where nrseqc = v_nrseqc.
endif.
endform.
form liquida_comissao_agente.
* >> Início da exclusão: FORM LIQUIDA_COMISSAO_AGENTE
loop at itab_zycbt006 where v_status ne 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
loop at itab_zycbt006 where v_status ne 'E'
and status eq 'C'.
* << Fim da inclusão
clear: itab_selreg,
itab_zycet010,
itab_zycet013.
refresh: itab_zycet010,
itab_zycet013.
select single * from /pws/zycbt017
where nrinvoic eq itab_zycbt006-nrinvoic
and nrparcf eq itab_zycbt006-nrparcf.
select single * from /pws/zycbt037
where parvw eq /pws/zycbt017-parvw. "#EC CI_NOFIRST
...
...
endif.
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
select *
into table itab_zycet010
from /pws/zycet010
where nrseq eq itab_zycbt006-nrinvoic
and ( dtpagto ne ' ' or
dtpagto ne '00000000' ).
loop at itab_zycet010.
* >> Início da inclusão: FORM ESTORNA_COMISSAO
check itab_zycet010-status = 'C' and
not itab_zycet010-belnr_p is initial.
* << Fim da inclusão
move: itab_zycet010-nrseq to itab_selreg-nrchave,
itab_zycbt006-nrseqc to itab_selreg-docto,
itab_zycet010-dtvencto to itab_selreg-dtvencto,
itab_zycet010-vlcomis to itab_selreg-vlme,
itab_zycet010-lifnr to itab_selreg-lifnr,
/pws/zycbt037-codpad to itab_selreg-codp.
v_vlme = itab_zycet010-vlcomis.
append itab_selreg.
perform fill_date6_f22_comissao.
endloop.
...
...
if sy-tabix = 1.
v_vlme = v_vlme + itab_zycet013-vlme .
v_belnr = itab_zycet013-belnr.
else.
if itab_zycet013-belnr = v_belnr.
v_vlme = v_vlme + itab_zycet013-vlme .
endif.
endif.
endloop.
read table itab_zycet013 index 1.
* >> Início da inclusão: FORM ESTORNA_COMISSAO
check itab_zycet013-status = 'C' and
not itab_zycet013-belnr_c is initial.
* << Fim da inclusão
move: itab_zycet013-nrseq to itab_selreg-nrchave,
itab_zycbt006-nrseqc to itab_selreg-docto,
v_vlme to itab_selreg-vlme,
itab_zycet013-lifnr to itab_selreg-lifnr,
/pws/zycbt037-codpad to itab_selreg-codp.
append itab_selreg.
perform fill_date6_f22_comissao.
endif.
endloop.
endform.
...