Sintoma

Exceção gerada ao criar Registro de Exportação.

Solução

Correção na recuperação do sequencial do embarque.

Informações Complementares

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

Nota Número 05105 Data: 29/10/2007 Hora: 16:49:18

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

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

Nota Número              : 05105

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

04914  - 00001 - 7.0    - 00003  - ALTERAÇÃO NA FUNÇÃO AGRUPA ORDENS EM RE

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

CORREÇÃO CONVERSÃO DE MONTANTE NO AGRUPAMENTO DE OV

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

Palavras Chave:

AGRUPAMENTO MONTANTE AGRUPAMENTO OV

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

Objetos da nota:

FUNC /PWS/ZYCE_AGRUPA_OV_RE

REPS /PWS/LZYCEGF6F01

REPS /PWS/LZYCEGF6TOP

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

Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_OV_RE

...

      ENDIF.

    ENDLOOP.

    DELETE ADJACENT DUPLICATES FROM itab_docfat COMPARING vbeln_vf.

    IF NOT itab_docfat[] IS INITIAL.

      SELECT vbeln fkdat FROM vbrk INTO TABLE  itab_vbrk

        FOR ALL ENTRIES IN itab_docfat

        WHERE vbeln = itab_docfat-vbeln_vf.

    ENDIF.

      PERFORM busca_moeda_americana

             USING

* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                  /pws/zycee001-bukrs

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                  itab_zycet002-bukrs

* << Fim da inclusão

             CHANGING

                  v_waersa.

      PERFORM busca_taxa_cambio_valor_dse

            USING

* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                 /pws/zycee001-bukrs

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                  itab_zycet002-bukrs

* << Fim da inclusão

            CHANGING

                 v_kurst_dse.

      PERFORM busca_data_conversao

            USING

* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                 /pws/zycee001-bukrs

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE

                  itab_zycet002-bukrs

* << Fim da inclusão

            CHANGING

                 v_vbrk-fkdat.

    LOOP AT itab_zycet118_aux1.

      v_index = sy-tabix.

      itab_zycet118_aux1-preuni = itab_zycet118_aux1-netpr /

                                  itab_zycet118_aux1-fkimg.

      itab_zycet118_aux1-preunifob = itab_zycet118_aux1-vfob /

                                     itab_zycet118_aux1-fkimg.

      READ TABLE itab_vbrk WITH KEY vbeln_vf =

                                     itab_zycet118_aux1-vbeln_vf.

...

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

Modificações efetuadas em REPS /PWS/LZYCEGF6F01

...

ENDFORM.

FORM busca_data_conversao

     USING

       p_bukrs       TYPE /pws/zycee001-bukrs

     CHANGING

       p_vbrk-fkdat  TYPE vbrk-fkdat.

  SELECT SINGLE fkdat

      FROM vbrk

      INTO p_vbrk-fkdat

      WHERE bukrs = p_bukrs.

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

  IF p_vbrk-fkdat IS INITIAL.

    MOVE: p_likp-wadat TO p_vbrk-fkdat.

  ENDIF.

  IF p_likp-wadat IS INITIAL.

    MOVE: p_vbkd-prsdt TO p_vbrk-fkdat.

  ENDIF.

* << Fim da exclusão

ENDFORM.

FORM seleciona_dados_nvre USING tipo.

  READ TABLE itab_zycet002a INDEX 1.

  SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282a

    FOR ALL ENTRIES IN itab_zycet118a

    WHERE   vbeln_va EQ itab_zycet118a-vbeln_va AND

            aupos    EQ itab_zycet118a-aupos    AND

            vbeln_vl EQ itab_zycet118a-vbeln_vl AND

            posnl    EQ itab_zycet118a-posnl    AND

            nrseqexp EQ itab_zycet002a-nrseq.

...

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

Modificações efetuadas em REPS /PWS/LZYCEGF6TOP

...

        v_comissao   LIKE /pws/zycet008-vlme,

        v_nrseq      LIKE /pws/zycet001-nrseq,

        v_index1     LIKE sy-tabix,

        v_qtd(18)    TYPE c,

        v_qtfki(17)  TYPE c,

        v_volum(15)  TYPE c,

        v_taxa       LIKE tcurr-ukurs,

        v_waersa     TYPE /pws/zycbt007-waersa,

        v_kurst_dse  TYPE /pws/zycet312-kurst_dse,

        v_vbrk-fkdat TYPE vbrk-fkdat,

* >> Início da exclusão:

        p_likp-wadat TYPE likp-wadat,

        p_vbkd-prsdt TYPE vbkd-prsdt,

* << Fim da exclusão

        itemdesc     TYPE p DECIMALS 4,

        itemdesp     TYPE p DECIMALS 4,

        itemfre      TYPE p DECIMALS 4,

        itemseg      TYPE p DECIMALS 4,

        itemacre     TYPE p DECIMALS 4,

        itemcomi     TYPE p DECIMALS 4,

        itemdesc_t   TYPE p DECIMALS 4,

        itemdesp_t   TYPE p DECIMALS 4,

        itemfre_t    TYPE p DECIMALS 4,

        itemseg_t    TYPE p DECIMALS 4,

...