Sintoma

Ajuste para permitir receber nota fiscal eletrônica masrcadas como contingência.

Solução

Ajuste para permitir receber nota fiscal eletrônica marcadas como contingência.

Informações Complementares

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

Nota Número 09531 Data: 08/12/2009 Hora: 15:30:12

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

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

Nota Número              : 09531

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

08903  - 00001 - 7.0    - 00010  - CRIADA MENSAGEM PARAMETRIZAVEL PARA NFE NÃO AUTORIZADA NO RECEBIM

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

TRATAMENTO PARA O FLAG CONTINGÊNCIA NA NOTA FISCAL ELETRÔNICA

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

Palavras Chave:

NOTA - FISCAL - ELETRONICA - CONTIGENCIA - RECEBIMENTO - FLAG

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

FORM fill_date_mr1m.

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

  DATA:  t_fields3(20) TYPE c VALUE 'J_1BNFDOC-CONTING'.

  FIELD-SYMBOLS <conting> TYPE ANY.

* << Fim da inclusão

...

...

    v_chave = wa_nf-nfremessa.

    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>,

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

            (t_fields3) TO  <conting>,

* << Fim da inclusão

            (t_fields)  TO <nfe>.

    IF NOT <nfe> IS INITIAL.

      v_flagnfe = 'X'.

    ENDIF.

    IF <docsta> NE 1 AND

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

       <conting> IS INITIAL AND

* << Fim da inclusão

       NOT <nfe> IS INITIAL.

      CLEAR /pws/zyglt217.

...