CE PLUS - Nota 000625

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.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

COMISSÃO DE AGENTE CONTABILIZADA NO EMBARQUE

CAMPO DIVISÃO OCULTO NA CONTABILIZAÇÃO DA COMISSÃO DE AGENTE

CAMPO VALOR DA COMISSÃO DE AGENTE DESABILITADO NA TELA

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.

...