Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 09/01/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 14:42:56
Descrição da Nota: DIVERGÊNCIA NO VALOR DA COMISSÃO CONTABILIZADA E DO EMBARQUE
Sintoma
Após a contabilização de uma Comissão de Agente, ao alterar o valor da Comissão na Pasta de Resumo
para Documentos, o valor da Comissão é trazido errado.
Solução
Após a contabilização da Comissão, será trazido sempre o valor contabilizado. Caso esse valor seja
diferente no Embarque, é exibida uma mensagem no Embarque para alertar o usuário.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00625 Data: 09/01/2006 Hora: 13:57:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00625
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00095
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00443 - 00001 - 6.0 - 00022 - CAMPO DIVISÃO OCULTO NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE
00512 - 00002 - 6.0 - 00021 - COMISSÃO DE AGENTE CONTABILIZADA NO EMBARQUE
00592 - 00003 - 6.0 - 00022 - CAMPO VALOR DA COMISSÃO DE AGENTE DESABILITADO NA TELA
----------------------------------------------------------------------------------------------------
DIVERGÊNCIA NO VALOR DA COMISSÃO CONTABILIZADA E DO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO EMBARQUE COMISSÃO DE AGENTE CONTABILIZADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU NA/PWS/ZYCEM268
MESS /PWS/ZYCEM268
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003F02
REPS /PWS/MZYCE017F01
REPS /PWS/MZYCE017O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM268
Criar a mensagem auto-explicativa 268 na Classe de Mensagens /PWS/ZYCEM:
"Valor contabilizado da Comissão difere do valor real da Comissão."
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
PERFORM atualiza_rateio_itens.
PERFORM monta_tabela_status_cab.
PERFORM monta_tabela_status_ite.
PERFORM atualiza_status_embarque.
PERFORM consistencia_itens USING p_exclui.
* >> Início da inclusão: FORM ATUALIZA_DADOS_PW_NO_EMBARQUE
PERFORM consistencia_embarque.
* << Fim da inclusão
PERFORM busca_local_de_negocio USING space
CHANGING v_branch.
CLEAR itab_zycet145.
READ TABLE itab_zycet145 WITH KEY bukrs = /pws/zycee001-bukrs
branch = v_branch.
...
...
itab_zycbt017-vldesp = itab_zycbt017-vldesp -
( v_vldesp - wa_zycee313-vlme_out ).
ENDIF.
MODIFY itab_zycbt017 INDEX v_lines.
ENDFORM.
* >> Início da inclusão:
FORM consistencia_embarque.
DATA: v_vlcom_cont TYPE /pws/zycet010-vlcomis,
v_vlcom_real TYPE /pws/zycet010-vlcomis.
CHECK sy-tcode EQ c_transacao_a.
IF wa_status_cab-comag CA 'BC'.
IF itab_zycet037-comis_provisao EQ '0'.
LOOP AT itab_zycet013.
ADD itab_zycet013-vlme TO v_vlcom_cont.
ENDLOOP.
ELSE.
LOOP AT itab_zycet010.
ADD itab_zycet010-vlcomis TO v_vlcom_cont.
ENDLOOP.
ENDIF.
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.
CHECK itab_zycet156-proccond EQ 'COM'.
ADD itab_zycet008-vlme_f TO v_vlcom_real.
ENDLOOP.
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.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
IF itab_zycet156-proccond EQ 'FOB'.
IF screen-group2 NA '0'.
screen-input = '0'.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM LOOP_AT_SCREEN_TC
IF itab_zycet156-proccond EQ 'COM'.
IF wa_status_cab-comag CA 'BC'.
screen-input = '0'.
ENDIF.
ENDIF.
* << Fim da exclusão
IF tc_resumo-current_line GT tc_resumo-lines.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE017F01
FORM carrega_dados.
CLEAR: v_codigo,
v_vlcomis.
READ TABLE itab_zycet010 INDEX 1.
* >> Início da inclusão: FORM CARREGA_DADOS
READ TABLE itab_zycet013 INDEX 1.
* << Fim da inclusão
CLEAR v_j1bbranch.
v_j1bbranch = itab_zycet010-j_1bbranch.
CLEAR: v_kostl.
v_kostl = wa_zycet260-kostl.
IF NOT itab_zycet010-kostl IS INITIAL.
...
...
READ TABLE itab_zycet008 INDEX 1.
v_waers = itab_zycet008-waers.
ENDIF.
IF /pws/zycee001-parvw IS INITIAL.
MOVE wa_zycet037-tpcomissao TO /pws/zycee001-parvw.
* >> Início da inclusão: FORM CARREGA_DADOS
ENDIF.
IF NOT itab_zycet010-belnr IS INITIAL OR
NOT itab_zycet013-belnr IS INITIAL.
clear v_vlcomis.
LOOP AT itab_zycet010.
ADD itab_zycet010-vlcomis TO v_vlcomis.
ENDLOOP.
READ TABLE itab_zycet010 INDEX 1.
* << 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.
...