CE PLUS - Nota 007244

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 03/09/2008 00:00:00

Data/Hora Última Alteração: 23/02/2011 09:17:24

Descrição da Nota: VERIF. SE NFE APROVADA ANTES DE CRIAR FISCAL DE REMESSA E COMPLEMENTAR

Sintoma

Incluida verificação da nota fiscal eletrônica para não permitir que sejam criadas notas de remessa

ou complementar antes que a nota fiscal global esteja aprovada.

 

 

Solução

Incluida verificação da nota fiscal eletrônica para não permitir que sejam criadas notas de remessa

ou complementar antes que a nota fiscal global esteja aprovada.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

CORREÇÃO DO BATCH INPUT PARA NOTA FISCAL ELETRÔNICA

DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA

VERIFICAÇÃO PREENCHIMENTO DO NUMERO DA NF-E PARA CRIAR NOTA DE REMESSA

Informações Complementares

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

Nota Número 07244 Data: 03/09/2008 Hora: 14:09:22

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

 

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

Nota Número              : 07244

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00063

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

Referência às notas relacionadas:

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

 

07164  - 00003 - 7.0    - 00006  - CORREÇÃO DO BATCH INPUT PARA NOTA FISCAL ELETRÔNICA

07194  - 00001 - 7.0    - 00006  - VERIFICAÇÃO PREENCHIMENTO DO NUMERO DA NF-E PARA CRIAR NOTA DE RE

07276  - 00002 - 7.0    - 00006  - DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA

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

VERIF. SE NFE APROVADA ANTES DE CRIAR FISCAL DE REMESSA E COMPLEMENTAR

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

Palavras Chave:

NOTA - FISCAL - REMESSA - COMPLEMENTAR - ELETRÔNICA - NFE - APROVADA

/PWS/SAPMZYCI016 - NFE - NF-E

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016I01

REPT /PWS/SAPMZYCI016

 

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

 

...

 

FORM chama_nfc_mult.

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

  DATA:  t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFE',

         t_fields2(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.

  FIELD-SYMBOLS: <docsta> TYPE ANY,

                 <nfe> TYPE ANY.

* << Fim da inclusão

...

 

...

 

        SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycie041-nrseq.

        IF sy-tcode = '/PWS/ZYCI016_E'.

          CALL TRANSACTION '/PWS/ZYCI029_E'

          AND SKIP FIRST SCREEN.

        ELSE.

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

          SELECT SINGLE * FROM j_1bnfdoc

                   WHERE docnum EQ /pws/zycie041a-docnum.

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

            IF <docsta> NE 1 AND

               NOT <nfe> IS INITIAL.

              MESSAGE i015 WITH text-108.

              EXIT.

            ENDIF.

          ENDIF.

* << Fim da inclusão

          CALL TRANSACTION '/PWS/ZYCI029_L'

          AND SKIP FIRST SCREEN.

        ENDIF.

      ELSE.

        MESSAGE i015 WITH text-052.

      ENDIF.

    ELSE.

      IF sy-tcode = '/PWS/ZYCI016_E'.

        MESSAGE s015 WITH text-062.

      ELSE.

        MOVE /pws/zycie041 TO /pws/zycie041a.

        GET CURSOR FIELD v_campo VALUE v_valor.

        IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.

          /pws/zycie041a-docnum = v_valor.

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

          SELECT SINGLE * FROM j_1bnfdoc

                   WHERE docnum EQ /pws/zycie041a-docnum.

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

            IF <docsta> NE 1 AND

               NOT <nfe> IS INITIAL.

              MESSAGE i015 WITH text-108.

              EXIT.

            ENDIF.

          ENDIF.

* << Fim da inclusão

          EXPORT /pws/zycie041a

            TO MEMORY ID 'IP016A'.

          CALL TRANSACTION '/PWS/ZYCI029_C'.

        ELSE.

          MESSAGE i015 WITH text-052.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

 

...

 

MODULE user_command_0100 INPUT.

 

* >> Início da inclusão: MODULE USER_COMMAND_0100

  DATA: t_docstat(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.

  FIELD-SYMBOLS: <docsta> TYPE ANY.

* << Fim da inclusão

...

 

...

            SELECT SINGLE * FROM j_1bnfdoc

              WHERE docnum = v_valor.

            IF itab_zycit041-statusp_mr1m = 'C'.

              MESSAGE i061 WITH text-050 ' ' v_valor text-051.

            ELSEIF j_1bnfdoc-nfnum EQ '0' AND

               NOT v_valor = '9999999999' AND

               NOT v_valor = '8888888888'

               AND v_nfee EQ '0'.

              MESSAGE i061 WITH text-061.

            ELSE.

* >> Início da inclusão: MODULE USER_COMMAND_0100

              IF dd03l-fieldname = 'NFE' AND

                NOT j_1bnfdoc-nftype IS INITIAL.

                ASSIGN: (t_docstat) TO <docsta>.

                IF <docsta> NE 1 AND

                   NOT <nfe> IS INITIAL.

                  MESSAGE i015 WITH text-108.

                  EXIT.

                ENDIF.

              ENDIF.

* << Fim da inclusão

              PERFORM nfiscal_remessa.

            ENDIF.

          ELSE.

            MESSAGE i015 WITH text-052 text-053.

          ENDIF.

        WHEN 'NFC'.

 

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI016

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 108

 

Texto: (19 caracteres)

"NFE not authorized!"

 

Comprimento máximo: 25

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 108

 

Texto: (19 caracteres)

"NFE não autorizada!"

 

Comprimento máximo: 25