Sintoma

Não esta levando o número da Nota Fiscal corretamente nas Notas Fiscais de Remessa e Complementar

Solução

Executar a verificação de NF-e para realizar o tratamento do número da Nota na Mensagem

Informações Complementares

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

Nota Número 07557 Data: 11/11/2008 Hora: 13:37:57

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

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

Nota Número              : 07557

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00073

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ADEQUAÇÃO DO NUMERO DA NFE NAS MENSAGENS DA NF DE REMESSA E COMPLEMENTAR

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

Palavras Chave:

MENSAGEM - NFE - NUMERO - NOTA

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016TOP

REPS /PWS/MZYCI029F01

REPS /PWS/MZYCI029TOP

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

                              ebelp = itab_zycit044-ebelp.

      READ TABLE itab_zycit041_aux

                      WITH KEY nrseq = itab_zycit042_auxre-nrseqnf.

      IF sy-subrc = 0.

  READ TABLE itab_j1bnfdoc WITH KEY docnum = itab_zycit042_auxre-docnum.

        IF sy-subrc = 0.

          MOVE itab_j1bnfdoc-nfnum  TO v_nfnum2.

          MOVE itab_j1bnfdoc-series TO v_series.

          MOVE itab_j1bnfdoc-docdat TO v_pstdat.

          PERFORM formata_data.

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

        CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

          EXPORTING

            docnum        = itab_zycit042_auxre-docnum

         IMPORTING

           nfnum         = v_nfnum2

           series        = v_series.

* << Fim da inclusão

          it_zycee006-indice = v_idm .

          CONCATENATE v_nfnum2 '-' v_series INTO v_nf.

          CONCATENATE text-059 v_nf '-'

                      text-060 v_data2

          INTO it_zycee006-msg SEPARATED BY space.

          APPEND it_zycee006.

          v_idm = v_idm + 1.

        ENDIF.

      ENDIF.

    ENDIF.

...

...

                   WITH KEY nrseq = itab_zycit001_msg-nrseq.

    READ TABLE itab_zycit041_aux

                    WITH KEY nrseq = itab_zycit042_auxre-nrseqnf.

    IF sy-subrc = 0.

      READ TABLE itab_j1bnfdoc WITH KEY docnum = /pws/zycie042-docnum.

      IF sy-subrc = 0.

        MOVE itab_j1bnfdoc-nfnum  TO v_nfnum2.

        MOVE itab_j1bnfdoc-series TO v_series.

        MOVE itab_j1bnfdoc-docdat TO v_pstdat.

        PERFORM formata_data.

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

        CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

          EXPORTING

            docnum        = /pws/zycie042-docnum

         IMPORTING

           nfnum         = v_nfnum2

           series        = v_series.

* << Fim da inclusão

        it_zycee006-indice = v_idm .

        CONCATENATE v_nfnum2 '-' v_series INTO v_nf.

        CONCATENATE text-059 v_nf '-'

                    text-060 v_data2

        INTO it_zycee006-msg SEPARATED BY space.

        APPEND it_zycee006.

        v_idm = v_idm + 1.

      ENDIF.

    ENDIF.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016TOP

...

  v_ntabela     LIKE /pws/zycbt013-tabela,

  v_itmnum      LIKE j_1bnflin-itmnum,

  v_fb08_ok,

  v_vlreal LIKE /pws/zycit053-vlreal,

  v_tabix  LIKE sy-tabix,

  v_tabix2  LIKE sy-tabix,

  v_tabix3  LIKE sy-tabix,

  v_tabix4  LIKE sy-tabix,

  v_nfsuc,

  v_msg1(50) TYPE c,

* >> Início da exclusão:

  v_nfnum2      LIKE j_1bnfdoc-nfnum,

  v_series      LIKE j_1bnfdoc-series,

* << Fim da exclusão

* >> Início da inclusão:

  v_nfnum2      LIKE /pws/zycie044-nfnum,

  v_series      LIKE /pws/zycie044-series,

* << Fim da inclusão

  v_pstdat      LIKE j_1bnfdoc-pstdat,

  v_nfglobal    LIKE /pws/zycit041-nfglobal,

  line          LIKE tc_itens_nfr-lines,

  v_status_nfc,

  v_taxa_desp   LIKE /pws/zycit174-txconver,

  v_embarca     LIKE /pws/zycit001-embarca,

  v_message   TYPE c,

  v_dia(2)    TYPE c,

  v_mes(2)    TYPE c,

  v_ano(4)    TYPE c,

  v_data2(10) TYPE c,

* >> Início da exclusão:

  v_nf(10),

* << Fim da exclusão

* >> Início da inclusão:

  v_nf(12),

* << Fim da inclusão

  v_bktxt LIKE bkpf-bktxt,

  v_zuonr LIKE bseg-zuonr,

  v_forn  LIKE /pws/zycit001-lifnr,

  v_sgtxt LIKE bseg-sgtxt,

  vaux_belnr LIKE rbkp-belnr,

  v_apaga,

  v_subrc     TYPE sy-subrc,

  v_urf2(1)   TYPE c,

  v_dir        LIKE rlgrap-filename   ,

  v_arquivo    TYPE string,

...

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

  LOOP AT itab_zycit001.

    READ TABLE itab_zycit042 WITH KEY

      nrseq = itab_zycit001-nrseq.

    IF sy-subrc = 0.

      READ TABLE itab_j1bnfdoc WITH KEY docnum = itab_zycit042-docnum.

      IF sy-subrc = 0.

        MOVE itab_j1bnfdoc-nfnum  TO v_nfnum2.

        MOVE itab_j1bnfdoc-series TO v_series.

        MOVE itab_j1bnfdoc-docdat TO v_pstdat.

        PERFORM formata_data.

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

        CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

          EXPORTING

            docnum        = itab_zycit042-docnum

         IMPORTING

           nfnum         = v_nfnum2

           series        = v_series.

* << Fim da inclusão

        it_zycee006-indice = v_cont .

        CONCATENATE v_nfnum2 '-' v_series INTO v_nf.

        CONCATENATE text-030 text-020 v_nf '-'

                    text-021 v_data2

        INTO it_zycee006-msg SEPARATED BY space.

        APPEND it_zycee006.

        v_cont = v_cont + 1.

      ENDIF.

    ENDIF.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCI029TOP

...

      v_tabix      LIKE   sy-tabix,

      v_vlreal     LIKE   /pws/zycit053-vlreal,

      v_campo(30),

      v_valor      LIKE   /pws/zycie264-nrseqc,

      v_cfop(7)    TYPE c,

      v_dia(2)     TYPE c,

      v_mes(2)     TYPE c,

      v_ano(4)     TYPE c,

      v_data2(10)  TYPE c,

      v_codaux LIKE /pws/zycbt012-codaux,

* >> Início da exclusão:

      v_nfnum2     LIKE j_1bnfdoc-nfnum,

      v_series     LIKE j_1bnfdoc-series,

      v_nf(10),

* << Fim da exclusão

* >> Início da inclusão:

      v_nfnum2     LIKE /pws/zycie044-nfnum,

      v_series     LIKE /pws/zycie044-series,

      v_nf(12),

* << Fim da inclusão

      v_pstdat      LIKE j_1bnfdoc-pstdat,

      v_nrseqc_aux  LIKE /pws/zycie264-nrseqc,

      v_change_nrseq,

      v_itmnum      LIKE j_1bnflin-itmnum,

      v_codeven     LIKE /pws/zycbt011-codeven,

      v_trans(4)    TYPE c,

      erro_bi,

      v_flag_nrseq,

      v_import,

      v_pis         LIKE /pws/zycie265-vldp_pis,

...