Sintoma

Só realizar conversão de BRL para os itens com Drawback no RE.

Solução

Desenvolvimento para buscar a Moeda do campo /PWS/ZYCIT282-WAERS_I

Informações Complementares

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

Nota Número 08660 Data: 09/07/2009 Hora: 14:05:40

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

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

Nota Número              : 08660

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00104

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CONVERTER VALORES DE ITENS COM DRAWBACK NO RE

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

Palavras Chave:

CONVERTER VALORES DE ITENS COM DRAWBACK NO RE

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

Objetos da nota:

REPS /PWS/LZYCEGF6F01

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

Modificações efetuadas em REPS /PWS/LZYCEGF6F01

...

       NOT itab_zyglt100-formulario IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

              (itab_zyglt100-programa)

              TABLES itab_zycet118_aux1

                     it_zycet092

               USING v_limite.

    ENDIF.

  ENDIF.

ENDFORM.

FORM agrupa_zycet119.

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

  DATA: v_docdat LIKE itab_j1bnfdoc-docdat.

* << Fim da exclusão

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

  DATA: v_docdat LIKE itab_j1bnfdoc-docdat,

        v_moeda  TYPE tcurr-fcurr.

* << Fim da inclusão

  CLEAR itab_zycet119a.

  itab_zycet119a-nrseqre  = wa_zycet116-nrseqre.

  itab_zycet119a-codnrseq = itab_zycet092a-codnrseq.

  READ TABLE itab_zycit244 WITH KEY nrseqd = itab_zycit282a-nrseqd.

  IF sy-subrc = 0.

    itab_zycet119a-nrato = itab_zycit244-nratoc.

    itab_zycet119a-tipo  = itab_zycit244-tipo.

    READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycit244-lifnr.

    IF sy-subrc = 0.

      itab_zycet119a-stcd1 = itab_lfa1-stcd1.

      itab_zycet119a-regio = itab_lfa1-regio.

    ENDIF.

  ENDIF.

  IF itab_zycit244-tipo EQ text-015.

    CHECK itab_zycet092a-fkimg GE itab_zycit282a-qtd_mexp.

    itab_zycet119a-ncm = itab_zycit282a-j_1bnbmimp.

    READ TABLE itab_j1bnfdoc WITH KEY docnum = itab_zycit282a-docnumimp.

    IF sy-subrc = 0 AND NOT itab_j1bnfdoc-pstdat IS INITIAL.

      v_docdat = itab_j1bnfdoc-pstdat - 1.

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

      IF NOT itab_zycit282a-waers_i IS INITIAL.

        v_moeda = itab_zycit282a-waers_i.

      ELSE.

        v_moeda = 'BRL'.

      ENDIF.

* << Fim da inclusão

      PERFORM busca_taxa USING itab_zycit282a-vlt_mimp

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

                               'BRL'

* << Fim da exclusão

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

                               v_moeda

* << Fim da inclusão

                               itab_zycet002a-waers

                               'G'

                               v_docdat

...