Sintoma

DI - para processos em que há faturas com valor comercial e sem valor comercial, o sistema acaba

calculando variação cambial para as duas faturas na declaração de importação, gerando uma diferença

no clearing contábil.

Solução

não considerar itens com fatura livre de débito para cálculo de variação cambial.

Informações Complementares

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

Nota Número 02886 Data: 15/01/2007 Hora: 16:29:16

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

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

Nota Número              : 02886

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00149

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VARIAÇÃO CAMBIAL DA DI EM ITENS COM FATURA LIVRE DE DÉBITO

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

Palavras Chave:

VARIAÇÃO CAMBIAL - FATURA LIVRE DE DÉBITO - DIFERENÇA NO CLEARING

FATURA COM VALOR COMERCIAL - SEM VALOR COMERCIAL

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

Objetos da nota:

REPS /PWS/LZYCIGF2F01

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI023F03

REPT /PWS/SAPLZYCIGF2

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

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

...

              e_faus1     = p_string

         EXCEPTIONS

              customizing = 1

              OTHERS      = 2.

  ELSE.

    CLEAR p_string.

  ENDIF.

ENDFORM.

FORM entrar_nova_data CHANGING value(p_resposta)

                               value(p_novadata).

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

  CALL FUNCTION 'POPUP_TO_GET_ONE_VALUE'

* << Fim da exclusão

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

  DATA: v_data_ TYPE d.

  WHILE v_data_ IS INITIAL OR

        v_data_ EQ '00000000'.

    IF sy-index > 1.

      MESSAGE i061(/pws/zycim) WITH text-048.

    ENDIF.

    CALL FUNCTION 'TR_POPUP_INPUT_DATE'

* << Fim da inclusão

       EXPORTING

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

            textline1      = text-010

            textline2      = text-011

            titel          = text-012

            valuelength    = 10

* << Fim da exclusão

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

              iv_title               = text-012

              iv_description1        = text-010

              iv_description2        = text-011

              iv_date                = v_data_

* << Fim da inclusão

       IMPORTING

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

            answer         = p_resposta

            value1         = p_novadata

* << Fim da exclusão

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

              ev_date                = v_data_

* << Fim da inclusão

       EXCEPTIONS

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

            titel_too_long = 1

            OTHERS         = 2.

* << Fim da exclusão

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

              action_aborted_by_user = 1

              value_not_changed      = 2

              OTHERS                 = 3.

    WRITE v_data_ TO p_novadata.

  ENDWHILE.

* << Fim da inclusão

ENDFORM.

FORM trata_string_credito TABLES   p_t_dados STRUCTURE /pws/zycbe033

                                   p_t_campo STRUCTURE /pws/zycbt034

                                   p_itab_oculto LIKE itab_oculto[]

                          USING    value(p_string).

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+6(1) = '+'.

    IF p_t_dados-zterm = space.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

                      space.

      ENDIF.

      APPEND itab_matuse_aux.

      CLEAR itab_matuse_aux.

    ENDIF.

  ENDLOOP.

  CLEAR v_tntgew.

  LOOP AT itab_zycit003.

    v_tntgew = v_tntgew + itab_zycit003-ntgew.

  ENDLOOP.

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

  IF itab_zycit263[] IS INITIAL.

    SELECT *

      FROM /pws/zycit263

      INTO TABLE itab_zycit263

      FOR ALL ENTRIES IN itab_zycit006

      WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_zycit100.

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

    read table itab_zycit263 with key ebeln = itab_zycit100-ebeln

                                      ebelp = itab_zycit100-ebelp.

    clear itab_zycit006.

    read table itab_zycit006

                  with key nrseq_pgfat = itab_zycit263-nrseq_pgfat.

    check not itab_zycit006-BELNR_P is initial.

* << Fim da inclusão

    CLEAR: itab_matuse, itab_matuse_aux.

...

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

Modificações efetuadas em REPT /PWS/SAPLZYCIGF2

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 048

Texto: (40 caracteres)

"Obrigatório informar data de lançamento."

Comprimento máximo: 40