Sintoma

Ajuste para não tentar atualizar data da nota fiscal eletrônica.

Solução

Ajuste para não tentar atualizar data da nota fiscal eletrônica.

Informações Complementares

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

Nota Número 07530 Data: 05/11/2008 Hora: 11:47:45

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

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

Nota Número              : 07530

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00072

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

Referência às notas relacionadas:

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

06852  - 00001 - 7.0    - 00006  - O RECEBIMENTO FÍSICO NÃO ESTA GERANDO O DOCUMENTO CONTABIL NO SAT

07037  - 00002 - 7.0    - 00006  - DESENVOLVIMENTO FUNÇÕES PARA ESTORNO DE NF NO PWCE POR FORA DO SI

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

AJUSTE PARA NÃO TENTAR ATUALIZAR DATA DA NOTA FISCAL ELETRÔNICA.

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

Palavras Chave:

ATUALIZAR - DATA - NOTA - FISCAL - ELETRÔNICA  - RECEBIMENTO

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017X01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

    SELECT SINGLE * FROM j_1bnfdoc

             WHERE docnum EQ /pws/zycie043-docnum.

  ENDIF.

  SELECT SINGLE * FROM dd03l

    WHERE tabname = 'J_1BNFDOC' AND

          fieldname = 'NFE'.

  IF sy-subrc = 0 AND

    NOT j_1bnfdoc-nftype IS INITIAL.

    ASSIGN: (t_fields2) TO <docsta>,

            (t_fields)  TO <nfe>.

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

    IF NOT <nfe> IS INITIAL.

      v_flagnfe = 'X'.

    ENDIF.

* << Fim da inclusão

    IF <docsta> NE 1 AND

       NOT <nfe> IS INITIAL.

      MESSAGE i015 WITH text-112.

      EXIT.

    ENDIF.

  ENDIF.

  itab_zycie033-cpochv  = v_chave.

  IF /pws/zycie001-modalidade EQ '99'

  OR t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.

    itab_zycie033-bldat = sy-datlo.

...

...

  CLEAR: v_mr1m_ok, v_mb01_ok, v_f_51_ok.

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

  CLEAR: v_flagnfe.

* << Fim da inclusão

  CLEAR v_lfsnr.

  IF v_existe_nfr NE 'S'.

    SELECT MAX( lfsnr ) INTO (v_lfsnr) FROM /pws/zycit041

      WHERE nrseq EQ   wa_nf-nrseq.

  ELSEIF v_existe_nfr EQ 'S'.

    SELECT MAX( lfsnr ) INTO (v_lfsnr) FROM /pws/zycit043

      WHERE nrseq EQ   wa_nf-nrseq.

  ENDIF.

  IF v_lfsnr IS INITIAL.

    CONCATENATE wa_nf-nrseq  '/' '01' INTO wa_nf-lfsnr.

...

...

  IF v_lock NE 'X'.

    PERFORM trata_mr1m.

    IF v_mr1m_ok EQ 'S' AND v_resposta EQ 'S'.

      PERFORM trata_mb01.

      PERFORM unlock_fornecedor2.

      IF v_mb01_ok EQ 'S'.

        v_sdep = 'X'.

        PERFORM trata_f_51.

        IF v_f_51_ok EQ 'S'.

          PERFORM congelamov_saldo_ato.

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

          IF v_flagnfe EQ 'X'.

            CLEAR wa_global.

            SELECT SINGLE * FROM /pws/zycit041

              INTO wa_global

              WHERE nrseq    = wa_nf-nrseq

                AND nfglobal = wa_nf-nfglobal

                AND docnum   = wa_nf-docnumnfg

                AND cancel EQ space.

            IF v_existe_nfr EQ 'S'.

              IF wa_global-statusp_j1b2 NE 'C'.

                wa_global-statusp_j1b2 = 'C'.

                UPDATE /pws/zycit041

                            SET statusp_j1b2 = wa_global-statusp_j1b2

                          WHERE nrseq        = wa_global-nrseq

                            AND nfglobal     = wa_global-nfglobal

                            AND docnum       = wa_global-docnum.

              ENDIF.

            ELSE.

              MOVE-CORRESPONDING wa_nf TO /pws/zycie041.

              MODIFY /pws/zycit041 FROM /pws/zycie041.

            ENDIF.

          ELSE.

* << Fim da inclusão

          IF /pws/zycie001-modalidade NE '99' AND

            t001-land1 NE 'AR' AND t001-land1 NE 'CL'.

            PERFORM fill_date_j1b2.

            PERFORM fill_date_j1b2_global.

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

            ENDIF.

* << Fim da inclusão

          ENDIF.

        ELSE.

          MOVE wa_nf TO wa_nf_aux.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017X01

...

* >> Início da inclusão:

DATA:  v_flagnfe TYPE c .

* << Fim da inclusão

DATA: END OF COMMON PART.