Sintoma

Erro no recebimento Físico / Fiscal nas plantas em função da virada de ano do calendário americano.

O estorno do recebimento também não está sendo realizando, nem mesmo através de Shift + F9.

Solução

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

Informações Complementares

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

Nota Número 02043 Data: 04/09/2006 Hora: 17:02:46

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

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

Nota Número              : 02043

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

00610  - 00001 - 6.0    - 00022  - AO ESTORNAR RECEBIMENTO ACUSA PERÍODO CONTÁBIL FECHADO.

01366  - 00002 - 6.0    - 00023  - AQUI NA JABIL TEMOS O PERÍODO CONTÁBIL DIFERENTE DO UTILIZADO NO

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

ERRO NO RECEBIMENTO FÍSICO / FISCAL

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

Palavras Chave:

RECEBIMENTO - F-51 - FÍSICO - FISCAL

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_51C

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

ENDFORM.

FORM fill_date_f_51.

  DATA: v_nrseq LIKE /pws/zycit001-nrseq.

  CLEAR v_sede.

  e_subrc = '0'.

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

  perform verifica_data_em_aberto.

* << Fim da inclusão

  MOVE itab_itens_nf[] TO itab_itens_nf_aux[].

  CLEAR v_subrc.

  CALL CUSTOMER-FUNCTION '001'

     EXPORTING

        v_parametro       = '01'

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

    APPEND itab_zycbt034.

  ENDIF.

ENDFORM.

FORM documento_contabil_mr1m.

  DATA: v_ano    LIKE  acchd-aworg,

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

        v_ano2 type t001b-frye1,

* << Fim da inclusão

        v_awref  LIKE  acchd-awref,

        v_dialog LIKE boole .

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

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = /pws/zycie041-bukrs

            v_date  = wa_nf-dt_mr1m

       importing

            v_year  = v_ano2.

  if sy-subrc  ne  0.

    v_ano = wa_nf-dt_mr1m+0(4).

  else.

    v_ano = v_ano2.

  endif.

* << Fim da inclusão

  v_dialog = space.

  v_awref  = wa_nf-belnr_mr1m.

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

  v_ano = wa_nf-dt_mr1m+0(4).

* << Fim da exclusão

  FREE itab_documents.

  CLEAR: itab_documents, v_belnr.

  CALL FUNCTION 'AC_DOCUMENT_RECORD'

       EXPORTING

            i_awtyp      = 'RMRP'

FORM verifica_data_em_aberto.

...

 i_bukrs  = wa_nf-bukrs.

  v_contad = /pws/zycbt012-saknr1.

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = i_bukrs

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

            v_date  = wa_nf-dtincl                          "dt_mr1m

* << Fim da exclusão

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

            v_date  = wa_nf-dt_mr1m

* << Fim da inclusão

       importing

            v_year  = v_ano.

  if sy-subrc  eq  0.

    i_gjahr  = v_ano.

  else.

...