Sintoma

Quando faço o recebimento Físico / Fiscal visualizando o batch input aparece na tela da FB02 uma

inconsistência em função do ano fiscal americano ser 2007.

Quando faço o recebimento fechado, sem visualizar o batch input processa corretamente.

Solução

Incluida a função para pegar o exercicio correto.

Informações Complementares

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

Nota Número 02072 Data: 11/09/2006 Hora: 08:52:07

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

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

Nota Número              : 02072

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RECEBIMENTO VISIVEL APRESENTA ERRO NA FB-02

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

Palavras Chave:

RECBIMENTO - VISIVEL - ERRO - EXERCICIO

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

  CLEAR itab_contas.

ENDFORM.

FORM fill_date_f_51_docs_miro.

  DATA v_awkey LIKE bkpf-awkey.

  PERFORM clear_date_batch.

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

  data: v_ano   type t001b-frye1,

        v_gjahr type t001b-frye1.

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = /PWS/ZYCIE041-BUKRS

            v_date  = wa_nf-dt_mr1m

       importing

            v_year  = v_ano.

  if sy-subrc  eq  0.

    v_gjahr  = v_ano.

  else.

    v_gjahr = sy-datlo+0(4).

  endif.

* << Fim da inclusão

  SELECT SINGLE * FROM rbkp WHERE belnr = wa_nf-belnr_mr1m

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

                              AND gjahr = wa_nf-dt_mr1m(4).

* << Fim da exclusão

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

                              AND gjahr = v_gjahr.

* << Fim da inclusão

  CLEAR wa_zycbt011.

  SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

        WHERE codeven = '006IC'

          AND codmod  = 'D'.

  v_belnr_miro = rbkp-stblg.

...

...

  itab_zycbe033-bktxt   = v_bktxt.

  itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.

  itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt.

  itab_zycbe033-xblnr   = v_xblnr.

  APPEND itab_zycbe033.

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

  CONCATENATE wa_nf-belnr_mr1m rbkp-budat(4) INTO v_awkey.

* << Fim da exclusão

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

  CONCATENATE wa_nf-belnr_mr1m v_gjahr INTO v_awkey.

* << Fim da inclusão

  SELECT SINGLE * FROM bkpf WHERE awtyp EQ 'RMRP'

                              AND awkey EQ v_awkey.

  itab_zycbt036-mandt  = sy-mandt.

  itab_zycbt036-tcode  = 'F-51'.

  itab_zycbt036-tabela = '/PWS/ZYCIT044'.

...

...

  itab_zycbt036-belnr  = bkpf-belnr.

  itab_zycbt036-awkey  = v_awkey.

  APPEND itab_zycbt036.

  CLEAR: itab_zycbt036, rbkp, bkpf.

  SELECT SINGLE * FROM rbkp WHERE belnr = v_belnr_miro

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

                              AND gjahr = sy-datlo(4).

* << Fim da exclusão

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

                              AND gjahr = v_gjahr.

* << Fim da inclusão

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

  CONCATENATE v_belnr_miro rbkp-budat(4) INTO v_awkey.

* << Fim da exclusão

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

  CONCATENATE v_belnr_miro v_gjahr INTO v_awkey.

* << Fim da inclusão

  SELECT SINGLE * FROM bkpf WHERE awtyp EQ 'RMRP'

                              AND awkey EQ v_awkey.

  itab_zycbt036-mandt  = sy-mandt.

  itab_zycbt036-tcode  = 'F-51'.

  itab_zycbt036-tabela = '/PWS/ZYCIT044'.

...

...

  SELECT buzei bschl FROM bseg INTO TABLE itab_atrib

         WHERE bukrs = p_bukrs

           AND belnr = p_belnr

           AND gjahr = sy-datlo+0(4).

  SORT itab_atrib BY buzei.

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

  data: v_ano   type t001b-frye1,

        v_gjahr like t001b-frye1.

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = p_bukrs

            v_date  = sy-datlo

       importing

            v_year  = v_ano.

  if sy-subrc  eq  0.

    v_gjahr  = v_ano.

  else.

    v_gjahr = sy-datlo+0(4).

  endif.

* << Fim da inclusão

  IF NOT itab_zycbt035[] IS INITIAL.

    PERFORM fill_bdc USING: 'X' 'SAPMF05L'      '0100',

                            ' ' 'BDC_CURSOR'    'RF05L-GJAHR',

                            ' ' 'RF05L-BELNR'   p_belnr,

                            ' ' 'RF05L-BUKRS'   p_bukrs,

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

                            ' ' 'RF05L-GJAHR'   sy-datlo+0(4),

* << Fim da exclusão

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

                            ' ' 'RF05L-GJAHR'   v_gjahr,

* << Fim da inclusão

                            ' ' 'BDC_OKCODE'    '/00'.

  ENDIF.

  LOOP AT itab_zycbt035.

    LOOP AT itab_atrib.

      CONCATENATE 'RF05L-ANZDT' '(' itab_atrib-buzei ')'

...