Sintoma

Embarque com valor de comissão de agente maior que o valor total de embarque: nenhum aviso era

emitido quando essa situação ocorria.

Solução

Implementar consistência para comparação de valores de comissão de agente e total de embarque,

emitindo um aviso de erro caso haja valor de comissão de agente maior.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02322 Data: 26/10/2006 Hora: 11:33:51

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 02322

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

Texto Rápido:

COMPARAÇÃO DE VALORES DE COMISSÃO DE AGENTE E TOTAL DE EMBARQUE

----------------------------------------------------------------------------------------------------

Palavras Chave:

EMBARQUE; TOTAL; AGENTE; COMISSÃO; VALORES; COMPARAÇÃO

----------------------------------------------------------------------------------------------------

Objetos da nota:

DOCU NA/PWS/ZYCEM276

MESS /PWS/ZYCEM276

REPS /PWS/MZYCE003F01

REPS /PWS/SAPMZYCE003

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOCU NA/PWS/ZYCEM276

* >> Não há documentação para a mensagem

----------------------------------------------------------------------------------------------------

Modificações efetuadas em MESS /PWS/ZYCEM276

* >> Incluída mensagem em classe de mensagens /PWS/ZYCEM

Mensagem  Texto Breve                                                      Auto Explicativa?

276       Valor de Comissão de Agente superior ao valor FOB do embarque!         X

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003F01

FORM consistencia_embarque.

  DATA: v_vlcom_cont TYPE /pws/zycet010-vlcomis,

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

        v_vlcom_real TYPE /pws/zycet010-vlcomis.

* << Fim da exclusão

* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE

        v_vlcom_real TYPE /pws/zycet010-vlcomis,

        v_vlfob      TYPE /pws/zycet008-vlme_f.

* << Fim da inclusão

  CHECK sy-tcode EQ c_transacao_a.

* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE

  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.

* << Fim da inclusão

  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.

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

    LOOP AT itab_zycet008.

* << Fim da exclusão

* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE

    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.

* << Fim da inclusão

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

      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.

* << Fim da exclusão

      ENDIF.

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

      CHECK sy-subrc EQ 0.

* << Fim da exclusão

* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE

  IF v_vlcom_real GT v_vlfob.

* << Fim da inclusão

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

      CHECK itab_zycet156-proccond EQ 'COM'.

      ADD itab_zycet008-vlme_f TO v_vlcom_real.

    ENDLOOP.

    IF v_vlcom_real NE v_vlcom_cont.

* << Fim da exclusão

      CALL FUNCTION 'MESSAGE_STORE'

           EXPORTING

                arbgb = '/PWS/ZYCEM'

                msgty = 'E'

* >> Início da exclusão: FORM CONSISTENCIA_EMBARQUE

                txtnr = 268

                zeile = 'CONT_COM_AG'.

    ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM CONSISTENCIA_EMBARQUE

              txtnr = 276

              zeile = 'VAL_COM_AG'.

* << Fim da inclusão

  ENDIF.

ENDFORM.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/SAPMZYCE003

* >> Não houve alterações relevantes neste include <<