Sintoma

Problema na Variação Cambial da DI por não encontrar o exercicio correto.

Solução

Feito tratamento para buscar ano de exercício. Ou seja, Atualizado na Variação da DI para buscar o

ano de exercício.

Informações Complementares

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

Nota Número 02074 Data: 11/09/2006 Hora: 10:00:05

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

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

Nota Número              : 02074

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

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

00521  - 00001 - 6.0    - 00022  - O PRINCIPAL OBJETIVO E EQUALIZAR O AMBIENTE COM RELAÇÃO AO RECL.

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

AO FAZER VARIAÇÃO CAMBIAL ESTÁ LEVANDO ANO DE EXERCÍCIO INCORRETO.

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

Palavras Chave:

VARIAÇÃO CAMBIAL - DI - ANO DE EXERCÍCIO - PERÍODO ABERTO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_51C

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51C

...

    ENDIF.

    PERFORM bdc_screen USING 'SAPMF05A' '0733'.

    PERFORM bdc_field USING:

            'RF05A-FELDN(01)' 'BELNR'            ,

            'RF05A-SEL01(01)'  v_belnrano        .

* >> Início da inclusão:

    v_cont = 0.

* << Fim da inclusão

* >> Início da exclusão:

    v_cont = 1.

* << Fim da exclusão

    LOOP AT t_doc WHERE tcode  = t_dados-tcode

                      AND tabela = t_dados-tabela

                      AND cpochv = t_dados-cpochv

                      AND belnr  <> v_belnr.

      CLEAR v_belnrano.

* >> Início da exclusão:

      IF t_doc-dtdocto IS INITIAL.

* << Fim da exclusão

        CONCATENATE t_doc-belnr v_gjahr  INTO v_belnrano.

* >> Início da exclusão:

      ELSE.

        CONCATENATE t_doc-belnr t_doc-dtdocto+0(4) INTO v_belnrano.

      ENDIF.

* << Fim da exclusão

      v_cont = v_cont + 1.

      CLEAR v_campo.

      CONCATENATE 'RF05A-FELDN(' v_cont ')' INTO v_campo.

      PERFORM bdc_field USING:

           v_campo           'BELNR'            .

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

  DELETE ADJACENT DUPLICATES FROM itab_matuse_aux3 COMPARING hkont.

  LOOP AT itab_zycit006.

    IF NOT itab_matuse_aux3[] IS INITIAL.

      LOOP AT itab_matuse_aux3.

        UNPACK itab_zycit006-belnr_p TO itab_zycit006-belnr_p.

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

        CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

             EXPORTING

                  v_bukrs = /pws/zycie085-bukrs

                  v_date  = itab_zycit006-DT_BELNRP

             IMPORTING

                  v_year  = v_ano.

        IF sy-subrc  EQ  0.

          v_gjahr  = v_ano.

        ELSE.

          v_gjahr = itab_zycit006-dtlanc+0(4).

        ENDIF.

* << Fim da inclusão

        SELECT hkont dmbtr wrbtr belnr buzei

          FROM bsis

           INTO TABLE itab_bsis_aux1

                  WHERE bukrs EQ /pws/zycie085-bukrs       AND

                    hkont     EQ itab_matuse_aux3-hkont     AND

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

                    gjahr     EQ itab_zycit006-dtlanc+0(4) AND

* << Fim da exclusão

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

                gjahr     EQ v_gjahr AND

* << Fim da inclusão

                    belnr     EQ itab_zycit006-belnr_p.

        LOOP AT itab_bsis_aux1.

          MOVE: itab_bsis_aux1-hkont TO itab_bsis-hkont,

                itab_bsis_aux1-buzei TO itab_bsis-buzei,

                itab_bsis_aux1-belnr TO itab_bsis-belnr.

...

...

      itab_zycbt036-tabela = '/PWS/ZYCIT044'.

      itab_zycbt036-cpochv = /pws/zycie085-nrseqdi.

      itab_zycbt036-dtdocto = wa_zycit006-dtlanc.

      UNPACK wa_bsis-belnr TO wa_bsis-belnr.

      itab_zycbt036-belnr  = wa_bsis-belnr.

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

        call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

             exporting

                  v_bukrs = /pws/zycie085-bukrs

                  v_date  = wa_zycit006-dt_belnrp

             importing

                  v_year  = v_ano.

        if sy-subrc  eq  0.

          v_gjahr  = v_ano.

        else.

          v_gjahr = wa_zycit006+0(4).

        endif.

* << Fim da inclusão

      SELECT SINGLE awkey FROM bkpf INTO itab_zycbt036-awkey

                  WHERE belnr = wa_bsis-belnr

                    AND bukrs = wa_zycit006-bukrs

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

                    AND gjahr = wa_zycit006-dtlanc(4).

* << Fim da exclusão

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

                    AND gjahr = v_gjahr.

* << Fim da inclusão

      APPEND itab_zycbt036.

      CLEAR  itab_zycbt036.

    ENDIF.

  ENDLOOP.

  v_belnr = v_belnrf05.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

        v_desp_acr LIKE /pws/zycit049-vldp,

        v_desp_brl LIKE /pws/zycit049-vldp,

        v_evento   LIKE /pws/zyglt321-codeven,

        v_required,

        v_salvo.

* >> Início da inclusão:

  DATA: v_ano TYPE t001b-frye1,

        v_gjahr TYPE bsis-gjahr.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

      itab_zycit006_aux-hkont = itab_matuse_aux-hkont.

      APPEND itab_zycit006_aux.

    ENDLOOP.

  ENDLOOP.

  IF NOT itab_zycit006_aux[] IS INITIAL.

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

    DATA: v_ano TYPE t001b-frye1,

          v_gjahr TYPE bsis-gjahr.

    read table itab_zycit006_aux index 1.

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

         EXPORTING

              v_bukrs = /pws/zycie085-bukrs

              v_date  = itab_zycit006-DT_BELNRP

         IMPORTING

              v_year  = v_ano.

    IF sy-subrc  EQ  0.

      v_gjahr  = v_ano.

    ELSE.

      v_gjahr = itab_zycit006-dtlanc+0(4).

    ENDIF.

* << Fim da inclusão

    SELECT hkont dmbtr wrbtr belnr buzei FROM bsis

       INTO TABLE itab_bsis

              FOR ALL ENTRIES IN itab_zycit006_aux

              WHERE bukrs EQ /pws/zycie085-bukrs       AND

                hkont     EQ itab_zycit006_aux-hkont     AND

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

                gjahr     EQ itab_zycit006_aux-dtlanc+0(4) AND

* << Fim da exclusão

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

                gjahr     EQ v_gjahr AND

* << Fim da inclusão

                belnr     EQ itab_zycit006_aux-belnr_p.

  ENDIF.

  LOOP AT itab_bsis.

    LOOP AT itab_zycit006 WHERE belnr_p = itab_bsis-belnr.

      MOVE itab_zycit006-tpfatura TO itab_bsis-tpfatura.

...