CE PLUS - Nota 002585
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 04/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:45:17
Descrição da Nota: VALORES DE COMISSÃO DE AGENTE REAL E CONTABILIZADO (EMBARQUE X COMISSÃO)
Sintoma
Ao se contabilizar uma Comissão de Agente com valores iguais aos do embarque, o programa de Embarque
apresentava uma mensagem de divergência entre valores contabilizado e de comissão no Embarque. Além
disso, após contabilizarmos uma comissão provisionada, o campo "Valor Total Final" do programa de
Comissão de Agente perdia o seu valor.
Solução
Corrigir a comparação de valores de Comissão de Agente no Embarque e soma de valores na Comissão de
Agente.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02585 Data: 04/12/2006 Hora: 16:39:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02585
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00625 - 00001 - 6.0 - 00022 - DIVERGÊNCIA NO VALOR DA COMISSÃO CONTABILIZADA E DO EMBARQUE
02322 - 00002 - 6.0 - 00025 - COMPARAÇÃO DE VALORES DE COMISSÃO DE AGENTE E TOTAL DE EMBARQUE
----------------------------------------------------------------------------------------------------
VALORES DE COMISSÃO DE AGENTE REAL E CONTABILIZADO (EMBARQUE X COMISSÃO)
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMISSÃO; EMBARQUE; CONTABILIZADO; REAL; AGENTE; COMISSÃO; VALORES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE017F01
REPS /PWS/SAPMZYCE003
REPS /PWS/SAPMZYCE017
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
itab_zycbt017-vldesp = itab_zycbt017-vldesp -
( v_vldesp - wa_zycee313-vlme_out ).
ENDIF.
MODIFY itab_zycbt017 INDEX v_lines.
ENDFORM.
FORM consistencia_embarque.
DATA: v_vlcom_cont TYPE /pws/zycet010-vlcomis,
v_vlcom_real TYPE /pws/zycet010-vlcomis,
v_vlfob TYPE /pws/zycet008-vlme_f.
CHECK sy-tcode EQ c_transacao_a.
* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE
CLEAR: v_vlcom_cont,
v_vlcom_real,
v_vlfob.
* << Fim da inclusão
LOOP AT itab_zycet008.
READ TABLE itab_zycet156 WITH KEY bukrs = /pws/zycee001-bukrs
codigo = itab_zycet008-codigo.
IF sy-subrc NE 0.
READ TABLE itab_zycet156 WITH KEY codigo = itab_zycet008-codigo.
ENDIF.
CHECK sy-subrc EQ 0.
CASE itab_zycet156-proccond.
WHEN 'FOB'.
ADD itab_zycet008-vlme_f TO v_vlfob.
WHEN 'COM'.
ADD itab_zycet008-vlme_f TO v_vlcom_real.
ENDCASE.
ENDLOOP.
IF wa_status_cab-comag CA 'BC'.
IF itab_zycet037-comis_provisao EQ '0'.
* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE
LOOP AT itab_zycet013.
ADD itab_zycet013-vlme TO v_vlcom_cont.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE
LOOP AT itab_zycet010.
ADD itab_zycet010-vlcomis TO v_vlcom_cont.
* << Fim da inclusão
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE
LOOP AT itab_zycet010.
ADD itab_zycet010-vlcomis TO v_vlcom_cont.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE
LOOP AT itab_zycet013.
ADD itab_zycet013-vlme TO v_vlcom_cont.
* << Fim da inclusão
ENDLOOP.
ENDIF.
IF v_vlcom_real NE v_vlcom_cont.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'E'
txtnr = 268
zeile = 'CONT_COM_AG'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017F01
FORM carrega_dados.
CLEAR: v_codigo,
* >> Início da inclusão: FORM CARREGA_DADOS
v_vlcomis,
v_vlcomis_p,
* << Fim da inclusão
v_vlcomis.
READ TABLE itab_zycet010 INDEX 1.
READ TABLE itab_zycet013 INDEX 1.
CLEAR v_j1bbranch.
v_j1bbranch = itab_zycet010-j_1bbranch.
CLEAR: v_kostl.
v_kostl = wa_zycet260-kostl.
IF NOT itab_zycet010-kostl IS INITIAL.
v_kostl = itab_zycet010-kostl.
ENDIF.
...
IMPORTING
/pws/zycee313 = /pws/zycee313
wa_zycee313_prov = wa_zycee313_prov
wa_zycee313_real = wa_zycee313_real
TABLES
itab_zycet008 = itab_zycet008.
v_vlcomis_p = wa_zycee313_prov-vlme_com.
v_vlcomis = /pws/zycee313-vlme_com.
READ TABLE itab_zycet008 INDEX 1.
v_waers = itab_zycet008-waers.
* >> Início da exclusão: FORM CARREGA_DADOS
IF NOT v_autom IS INITIAL.
CLEAR v_vlcomis_p.
CLEAR v_vlcomis.
v_vlcomis_p = wa_zycee313_prov-vlme_com.
v_vlcomis = /pws/zycee313-vlme_com.
READ TABLE itab_zycet008 INDEX 1.
v_waers = itab_zycet008-waers.
ENDIF.
* << Fim da exclusão
IF /pws/zycee001-parvw IS INITIAL.
MOVE wa_zycet037-tpcomissao TO /pws/zycee001-parvw.
ENDIF.
* >> Início da exclusão: FORM CARREGA_DADOS
IF NOT itab_zycet010-belnr IS INITIAL OR
NOT itab_zycet013-belnr IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
IF NOT itab_zycet010-belnr IS INITIAL.
* << Fim da inclusão
CLEAR v_vlcomis.
LOOP AT itab_zycet010.
ADD itab_zycet010-vlcomis TO v_vlcomis.
ENDLOOP.
READ TABLE itab_zycet010 INDEX 1.
* >> Início da inclusão: FORM CARREGA_DADOS
ELSEIF NOT itab_zycet013-belnr IS INITIAL.
CLEAR v_vlcomis.
LOOP AT itab_zycet013.
ADD itab_zycet013-vlme TO v_vlcomis.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF wa_zycet037-comis_provisao NE '1' OR sy-tcode = '/PWS/ZYCE017_E'.
PERFORM item_comissao.
ELSE.
PERFORM atualiza_provisao.
ENDIF.
LOOP AT itab_zycet013 WHERE status = 'C' AND
vlme = space.
ENDLOOP.
IF sy-subrc = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE003
* >> Não houve alterações relevantes neste include <<
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE017
* >> Não houve alterações relevantes neste include <<