Sintoma

Não está ocorrendo contabilização de Prestação de Contas em função da virada de ano fiscal

americano.

Não é possivel realizar a contabilização nem através de Shift + F9.

Solução

Atualização do programa de prestação de contas para atender ao calendário americano.

Informações Complementares

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

Nota Número 02041 Data: 04/09/2006 Hora: 15:25:42

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

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

Nota Número              : 02041

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ANO FISCAL NÃO PERMITIDO

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

Palavras Chave:

PRESTAÇÃO DE CONTAS - DOC. COMPENSADO - FATURA - ANO FISCAL

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

Objetos da nota:

DYNP /PWS/SAPMZYCI007                        0300

FUNC /PWS/ZYCI_TRANSACAO_F_43B

REPS /PWS/MZYCI007F01

REPS /PWS/MZYCI007F02

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI007                        0300

Na tela 0300 não estava aparecendo o campo de documento compensdo. Foi aumentado de altura o frame

onde estava o campo /PWS/ZYCIE026-DOCOMP, mas para isso foi preciso jogar os outros frames para

cima.

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B

...

    land1 = v_land1.

    WRITE: t_dados-bukrs TO v_bukrs,

           t_dados-bldat TO v_data_doc_char,

           t_dados-budat TO v_data_lanc_char,

           t_dados-kursf TO v_kursf.

    v_gjahr = t_dados-budat+0(4).

    v_koart = 'K'.

* >> Início da inclusão:

  data v_ano type t001b-frye1.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs = v_bukrs

            v_date  = t_dados-budat

       IMPORTING

            v_year  = v_ano.

  IF sy-subrc  EQ  0.

    v_gjahr  = v_ano.

  ELSE.

    v_gjahr = t_dados-budat+0(4).

  ENDIF.

* << Fim da inclusão

    DATA: v_monat1(2) TYPE n.

    PERFORM period_determine USING t_dados-budat

                                   v_bukrs

                                   v_gjahr

                             CHANGING v_monat1.

    IF NOT v_monat1 IS INITIAL.

      MOVE v_monat1 TO v_monat.

    ELSE.

      v_monat = t_dados-budat+4(2).

    ENDIF.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                          CHANGING v_data_lanc_char

...

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

Modificações efetuadas em REPS /PWS/MZYCI007F01

...

  clear itab_zyglt100 .

  read table itab_zyglt100 with key zexit = 'PRT007'.

  if itab_zyglt100-zexit_ativa is initial.

    clear: v_docpag, v_nradto1.

    if not it_belnr008[] is initial.

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

      DATA v_ano TYPE t001b-frye1.

      read table it_belnr008 index 1.

      CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

           EXPORTING

                v_bukrs = /pws/zycie026-bukrs

                v_date  = it_belnr008-dtaprov

           IMPORTING

                v_year  = v_ano.

      IF sy-subrc  EQ  0.

        v_gjahr  = v_ano.

      ELSE.

        v_gjahr = it_belnr008-dtaprov+0(4).

      ENDIF.

* << Fim da inclusão

      select bukrs lifnr augbl zuonr belnr from bsak into table it_bsak

             for all entries in it_belnr008

             where lifnr = /pws/zycie026-despach

               and bukrs = /pws/zycie026-bukrs

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

               and gjahr = it_belnr008-dtaprov+0(4)

* << Fim da exclusão

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

               AND gjahr = v_gjahr

* << Fim da inclusão

               and ( belnr    = it_belnr008-belnr_i

                     or belnr = it_belnr008-belnr_o

                     or belnr = it_belnr008-belnr_c ).

      if sy-subrc ne 0 .

        v_docpag = 'N'.

...

...

  it_zycbe033-tcode  = text-021.

  it_zycbe033-tabela = text-012.

  CONCATENATE /pws/zycie026-nrseq /pws/zycie026-nradto INTO v_cpochv.

  it_zycbe033-cpochv = v_cpochv.

  it_zycbe033-bldat  = /pws/zycie026-dtdoc.             "Data documento

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

  it_zycbe033-budat = /pws/zycie026-dtlanc. "Data lançamento

* << Fim da exclusão

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

  it_zycbe033-budat = sy-datlo. "Data lançamento

* << Fim da inclusão

  CONCATENATE sy-datlo+6(2) sy-datlo+4(2) sy-datlo(4) INTO v_periodo.

  v_periodo = sy-datlo+4(2).

  it_zycbe033-monat = v_periodo.

  PERFORM verify_null_field USING /pws/zycie026-bukrs 'BUKRS' text-023.

...

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

Modificações efetuadas em REPS /PWS/MZYCI007F02

...

    it_zycbe033-d_sgtxt = it_zycbe033-c_sgtxt = v_sgtxt.

    it_zycbe033-bktxt   = v_bktxt.

    it_zycbe033-xblnr   = /pws/zycie026-refpres..

    IF v_sgtxt IS INITIAL.

      v_sgtxt = v_nradto1.

    ENDIF.

    ENDIF.

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

  DATA v_ano TYPE t001b-frye1.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs = /PWS/ZYCIE026-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).

* << Fim da inclusão

  ENDIF.

  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-datum+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'.

  PERFORM verifica_exit USING 'D'

                       '/PWS/SAPMZYCI007'

                       'PRT002'.

  CLEAR itab_zyglt100 .

...

...

  if v_bukrs is initial.

    move /pws/zycie026-bukrs to v_bukrs.

  endif.

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = /pws/zycie026-bukrs

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

            v_date  = /pws/zycie026-dtacerto

* << Fim da exclusão

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

            v_date  = sy-datlo

* << Fim da inclusão

       importing

            v_year  = v_ano.

  if sy-subrc  eq  0.

    v_gjahr  = v_ano.

  else.

    v_gjahr  = /pws/zycie026-dtacerto+0(4). "Ano

  endif.

...