Sintoma

Necessário ajustes em programa para atender a geração da nota fiscal eletrônica via SAP.

Solução

Criado alguns campos e tratamento ao fazer NF.

Informações Complementares

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

Nota Número 06573 Data: 16/05/2008 Hora: 10:01:51

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

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

Nota Número              : 06573

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00047

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

Referência às notas relacionadas:

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

01927  - 00001 - 6.0    - 00024  - PROGRAMA DE NF ESTÁ CONSUMINDO MUITA MEMÓRIA. PROBLEMAS DE PERFOR

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

AJUSTES PARA ATENDER A GERAÇÃO DA NOTA FISCAL ELETRÔNICA VIA SAP

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

Palavras Chave:

GERAÇÃO DA NOTA FISCAL ELETRÔNICA - SAP - NF - CAMPOS

NFE - NF-E

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

Objetos da nota:

DTEL /PWS/ZYCIL864

FUNC /PWS/ZYCI_BUSCA_NFNUM

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016I01

REPS /PWS/MZYCI016O01

REPS /PWS/MZYCI016X01

REPS /PWS/MZYCI017F02

REPS /PWS/MZYCI017I01

REPS /PWS/MZYCI017O01

REPS /PWS/MZYCI029F01

REPS /PWS/MZYCI029O01

REPS /PWS/ZYCIR005

SHLD /PWS/ZYCIA633

TABD /PWS/ZYCIE041

TABD /PWS/ZYCIE041A

TABD /PWS/ZYCIE042

TABD /PWS/ZYCIE043

TABD /PWS/ZYCIE043A

TABD /PWS/ZYCIE044

TABD /PWS/ZYCIE265

TABD /PWS/ZYCIT041

TABD /PWS/ZYCIT042

TABD /PWS/ZYCIT043

TABD /PWS/ZYCIT044

TABD /PWS/ZYCIT265

******Aplicar  nota 6587 após essa nota, para adequação de unicode.**************

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

Modificações efetuadas em DTEL /PWS/ZYCIL864

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

Elemento de dados incluído: /PWS/ZYCIL864

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (14 caracteres), idioma: PT

"Nº nota fiscal"

Categoria de dados: Domínio

Domínio: NUM9

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (5 caracteres), idioma: PT

"Nº NF"

Comprimento máximo do denominador médio: 15

Denominador médio incluído (7 caracteres), idioma: PT

"Nº nota"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (7 caracteres), idioma: PT

"Nº nota"

Comprimento máximo do título: 09

Título incluído (5 caracteres), idioma: PT

"Nº NF"

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

Modificações efetuadas em FUNC /PWS/ZYCI_BUSCA_NFNUM

*Criada a função

*Características

Grupo de funções     /PWS/ZYCIGF2

Texto breve          CI - Busca do NFNUM

(X) Módulo de função normal

    (X) Início Imediato

*Parâmetros de importação :

Nome parâmetro      atributo  tipo referência         transf.valor

DOCNUM              LIKE      /PWS/ZYCIT042-DOCNUM         X

*Parâmetros de exportação :

Nome parâmetro      atributo  tipo referência

NFNUM              LIKE  /PWS/ZYCIT042-NFNUM

SERIES              LIKE  /PWS/ZYCIT042-SERIES

SUBSER              LIKE  /PWS/ZYCIT042-SUBSER

NFE

*Texto fonte:

FUNCTION /pws/zyci_busca_nfnum.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  IMPORTING

*"     VALUE(DOCNUM) LIKE  /PWS/ZYCIT042-DOCNUM

*"  EXPORTING

*"     REFERENCE(NFNUM) LIKE  /PWS/ZYCIT042-NFNUM

*"     REFERENCE(SERIES) LIKE  /PWS/ZYCIT042-SERIES

*"     REFERENCE(SUBSER) LIKE  /PWS/ZYCIT042-SUBSER

*"     REFERENCE(NFE)

*"----------------------------------------------------------------------

  TABLES: j_1bnfdoc.

  DATA:  t_fields(50)       OCCURS 0 WITH HEADER LINE,

         t_fields2(50)       OCCURS 0 WITH HEADER LINE,

         t_where(50)        OCCURS 0 WITH HEADER LINE.

  CONSTANTS c_x VALUE 'X'.

  IF NOT docnum IS INITIAL.

    CLEAR j_1bnfdoc.

    SELECT SINGLE * FROM j_1bnfdoc

       WHERE docnum = docnum.

* Tratamento para nota fiscal eletrônica

    clear nfe.

    SELECT SINGLE * FROM dd03l

      WHERE tabname = 'J_1BNFDOC' AND

            fieldname = 'NFE'.

    IF sy-subrc = 0 AND

      NOT j_1bnfdoc-nftype IS INITIAL.

      CLEAR t_where.

      REFRESH t_where.

      t_where = 'nftype = j_1bnfdoc-NFTYPE and nfe = C_X.'.

      APPEND t_where.

      CLEAR t_fields.

      REFRESH t_fields.

      t_fields = 'NFENUM SERIES SUBSER'.

      APPEND t_fields.

      CLEAR t_fields2.

      REFRESH t_fields2.

      t_fields2 = '(NFNUM,SERIES,SUBSER)'.

      APPEND t_fields2.

      SELECT SINGLE (t_fields)

      FROM j_1bnfdoc

      INTO (t_fields2)

      WHERE (t_where).

      IF sy-subrc = 0.

        nfe = 'X'.

      ENDIF.

    ENDIF.

    IF nfe IS INITIAL.

      SELECT SINGLE nfnum series subser

        FROM j_1bnfdoc

        INTO (j_1bnfdoc-nfnum,j_1bnfdoc-series,j_1bnfdoc-SUBSER)

        WHERE docnum = docnum.

      IF sy-subrc EQ 0.

        nfnum  = j_1bnfdoc-nfnum.

        series = j_1bnfdoc-series.

        subser = J_1bnfdoc-SUBSER.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFUNCTION.

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

FUNCTION /pws/zyci_transacao_j1b1n.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

  TABLES: dd02l.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

  TABLES: dd02l,

          dd03l,

          j_1baa.

* << Fim da inclusão

...

...

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

  DATA:  t_fields(50)       OCCURS 0 WITH HEADER LINE,

         t_where(50)        OCCURS 0 WITH HEADER LINE.

  DATA v_nfe.

  CONSTANTS C_X VALUE 'X'.

* << Fim da inclusão

...

...

    PERFORM trata_campo_obrigatorio TABLES t_dados

                                           t_campos

                                           itab_oculto

                                    USING  v_string.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

    CLEAR v_nfe.

    SELECT SINGLE * FROM dd03l

      WHERE tabname = 'J_1BAA' AND

            fieldname = 'NFE'.

    IF sy-subrc = 0.

      clear t_where.

      refresh t_where.

      T_WHERE = 'nftype = t_dados-nftype and nfe = C_X.'.

      APPEND t_where.

      SELECT SINGLE * FROM j_1baa

      WHERE (t_where).

      IF sy-subrc = 0.

        v_nfe = 'X'.

      ENDIF.

    ENDIF.

* << Fim da inclusão

    WRITE: t_dados-bukrs    TO  v_bukrs,

...

...

    READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.

    IF sy-subrc <> 0 AND v_refer NE '0004'.

      PERFORM bdc_campo USING:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-NFNUM'         t_dados-nfnum,

* << Fim da exclusão

             'J_1BDYDOC-SERIES'        t_dados-series,

             'J_1BDYDOC-SUBSER'        t_dados-subser,

             'J_1BDYDOC-DOCDAT'        v_data_doc,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-PSTDAT'        v_data_pst,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

             'J_1BDYDOC-PSTDAT'        v_data_pst.

     if v_nfe = 'X'.

      PERFORM bdc_campo USING:

                'J_1BDYDOC-NFENUM'         t_dados-nfnum,

                  'BDC_OKCODE'              '=TAB5'.

    ELSE.

      PERFORM bdc_campo USING:

                'J_1BDYDOC-NFNUM'         t_dados-nfnum,

* << Fim da inclusão

             'BDC_OKCODE'              '=TAB5'.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

    ENDIF.

* << Fim da inclusão

    ELSE.

      PERFORM bdc_campo  USING:

             'J_1BDYDOC-DOCDAT'        v_data_doc,

             'J_1BDYDOC-PSTDAT'        v_data_pst,

             'BDC_OKCODE'              '=TAB5'.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2UXX

*********Isso será criado sozinho ao criar o módulo de função **********************

**************(o número atribuído será dado pelo sistema  **********************

...

* >> Início da inclusão:

INCLUDE /PWS/LZYCIGF2U44.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

  READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit042-ebeln

                                      ebelp = itab_zycit042-ebelp.

  IF sy-subrc EQ 0.

    MOVE: itab_matuse_aux-matnr TO /pws/zycie042-matnr.

  ENDIF.

  IF NOT itab_zycit042-docnum IS INITIAL AND

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

         itab_zycit042-nfnum IS INITIAL  AND

         itab_zycit042-series IS INITIAL.

    SELECT SINGLE * FROM j_1bnfdoc

      WHERE docnum = itab_zycit042-docnum.

    IF sy-subrc EQ 0.

      /pws/zycie042-nfnum  = j_1bnfdoc-nfnum.

      /pws/zycie042-series = j_1bnfdoc-series.

* << Fim da exclusão

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

         itab_zycit042-nfnum IS INITIAL.

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_zycit042-docnum

     IMPORTING

       nfnum         = /pws/zycie042-nfnum

       series        = /pws/zycie042-series

       subser        = /pws/zycie042-subser

              .

    IF NOT /pws/zycie042-nfnum IS INITIAL.

* << Fim da inclusão

      UPDATE /pws/zycit042 SET nfnum = /pws/zycie042-nfnum

                          series = /pws/zycie042-series

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

                          subser = /pws/zycie042-subser

* << Fim da inclusão

      WHERE nrseq    = /pws/zycie042-nrseq AND

            nrseqnf  = /pws/zycie042-nrseqnf AND

            ebeln    = /pws/zycie042-ebeln AND

            ebelp    = /pws/zycie042-ebelp AND

            nfglobal = /pws/zycie042-nfglobal.

...

...

  READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit044-ebeln

                                      ebelp = itab_zycit044-ebelp.

  IF sy-subrc EQ 0.

    MOVE: itab_matuse_aux-matnr TO /pws/zycie044-matnr.

  ENDIF.

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

  SELECT SINGLE * FROM j_1bnfdoc

     WHERE docnum = itab_zycit044-docnum.

  IF sy-subrc EQ 0.

    /pws/zycie044-nfnum  = j_1bnfdoc-nfnum.

    /pws/zycie044-series = j_1bnfdoc-series.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_zycit044-docnum

     IMPORTING

       nfnum         = /pws/zycie044-nfnum

       series        = /pws/zycie044-series

       subser        = /pws/zycie044-subser

              .

  IF NOT /pws/zycie044-nfnum IS INITIAL.

* << Fim da inclusão

    UPDATE /pws/zycit044 SET nfnum = /pws/zycie044-nfnum

                        series = /pws/zycie044-series

    WHERE nrseq = /pws/zycie044-nrseq AND

          nrseqnf = /pws/zycie044-nrseqnf AND

          ebeln   = /pws/zycie044-ebeln AND

          ebelp   = /pws/zycie044-ebelp AND

          nfglobal = /pws/zycie044-nfglobal AND

          nfremessa = /pws/zycie044-nfremessa.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

...

MODULE atualiza_itab_zycit042 INPUT.

  LOOP AT itab_zycit042 WHERE docnum NE space.

    itab_zycit042-processado = ' '.

    MODIFY itab_zycit042.

    CHECK itab_zycit042-nfnum  IS INITIAL AND

          itab_zycit042-series IS INITIAL AND

          itab_zycit042-subser IS INITIAL.

    itab_zycit042-nfglobal = /pws/zycie041-nfglobal.

    itab_zycit042-processado = space.

* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT042

    SELECT SINGLE * FROM j_1bnfdoc

      WHERE docnum = itab_zycit042-docnum.

    IF sy-subrc EQ 0.

      itab_zycit042-nfnum  = j_1bnfdoc-nfnum.

      itab_zycit042-series = j_1bnfdoc-series.

      itab_zycit042-subser = j_1bnfdoc-subser.

    ENDIF.

    MODIFY itab_zycit042 INDEX sy-tabix.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_zycit042-docnum

     IMPORTING

       nfnum         = itab_zycit042-nfnum

       series        = itab_zycit042-series

       subser        = itab_zycit042-subser.

    MODIFY itab_zycit042.

* << Fim da inclusão

...

...

    itab_zycit044-nrseqnf     = /pws/zycie043-nrseq.

    itab_zycit044-nfglobal  = /pws/zycie043-nfglobal.

    itab_zycit044-nfremessa = /pws/zycie043-nfremessa.

    SELECT SINGLE * FROM j_1bnfdoc

      WHERE docnum = itab_zycit044-docnum.

    IF sy-subrc EQ 0.

* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT044

      itab_zycit044-nfnum  = j_1bnfdoc-nfnum.

      itab_zycit044-series = j_1bnfdoc-series.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_zycit044-docnum

     IMPORTING

       nfnum         = itab_zycit044-nfnum

       series        = itab_zycit044-series

       subser        = itab_zycit044-subser

              .

* << Fim da inclusão

    ENDIF.

    IF /pws/zycie043-nfexterna = 'X'.

      IF itab_zycit044-nfnum IS INITIAL.

        itab_zycit044-nfnum  = wa_zycit048-nfprov.

        itab_zycit044-series = wa_zycit048-series.

      ENDIF.

    ELSE.

      CLEAR: itab_zycit044-nfnum, itab_zycit044-series.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

...

    itab_zycit043_lista-dt_f_51,

    itab_zycit043_lista-dt_f_02,

    itab_zycit043_lista-lfsnr.

* >> Início da exclusão: MODULE CARREGA_ZYCIE043_LISTA

  SELECT SINGLE * FROM j_1bnfdoc

    WHERE docnum = itab_zycit043_lista-docnum.

  IF sy-subrc EQ 0.

    itab_zycit043_lista-nfnum  = j_1bnfdoc-nfnum.

    itab_zycit043_lista-series = j_1bnfdoc-series.

  ENDIF.

* << Fim da exclusão

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

    call function '/PWS/ZYCI_BUSCA_NFNUM'

      exporting

        docnum        = itab_zycit043_lista-docnum

     importing

       nfnum         = itab_zycit043_lista-nfnum

       series        = itab_zycit043_lista-series

.

* << Fim da inclusão

  MOVE: itab_zycit043_lista TO /pws/zycie043a.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

* >> Início da inclusão:

TABLES:   dd03l.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

...

...

* >> Início da inclusão:

  DATA:  t_fields(50)       OCCURS 0 WITH HEADER LINE,

         t_fields2(50)       OCCURS 0 WITH HEADER LINE,

         t_where(50)        OCCURS 0 WITH HEADER LINE.

  DATA v_nfe.

  CONSTANTS C_X VALUE 'X'.

* << Fim da inclusão

DATA: END OF COMMON PART a.

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

        READ TABLE itab_zycet005 WITH KEY  tcode  = 'J1B3'

                                         tabela = 'WA_NF'

                                         cpochv = wa_nf-nrseq

                                         tpmsg  = 'S'.

        IF sy-subrc EQ 0.

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

          SELECT SINGLE * FROM j_1bnfdoc

            WHERE docnum = wa_nf-docnum.

          wa_nf-nfnum  = j_1bnfdoc-nfnum.

          wa_nf-series = j_1bnfdoc-series.

          itab_nf-nfnum  = j_1bnfdoc-nfnum.

          itab_nf-series = j_1bnfdoc-series.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = wa_nf-docnum

     IMPORTING

       nfnum         = wa_nf-nfnum

       series        = wa_nf-series

              .

          itab_nf-nfnum  = wa_nf-nfnum.

          itab_nf-series = wa_nf-series.

* << Fim da inclusão

          MODIFY itab_nf TRANSPORTING nfnum series

                         WHERE nfremessa = /pws/zycie043-nfremessa.

          IF itab_nf-remessa NE 'S'.

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

            /pws/zycie041-nfnum  = j_1bnfdoc-nfnum.

            /pws/zycie041-series = j_1bnfdoc-series.

* << Fim da exclusão

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

            /pws/zycie041-nfnum  = wa_nf-nfnum.

            /pws/zycie041-series = wa_nf-series.

* << Fim da inclusão

            UPDATE /pws/zycit041 SET nfnum    = wa_nf-nfnum

                                series   = wa_nf-series

                                subser   = wa_nf-subser

                          WHERE nrseq    = wa_nf-nrseq

                            AND nfglobal = wa_nf-nfglobal

                            AND docnum   = wa_nf-docnum.

            UPDATE /pws/zycit042 SET nfnum    = wa_nf-nfnum

                                series   = wa_nf-series

                                subser   = wa_nf-subser

                          WHERE nrseq    = wa_nf-nrseq

                            AND nfglobal = wa_nf-nfglobal

                            AND docnum   = wa_nf-docnum."#EC CI_NOFIRST

          ELSE.

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

            /pws/zycie043-nfnum  = j_1bnfdoc-nfnum.

            /pws/zycie043-series = j_1bnfdoc-series.

* << Fim da exclusão

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

            /pws/zycie043-nfnum  = wa_nf-nfnum.

            /pws/zycie043-series = wa_nf-series.

* << Fim da inclusão

            UPDATE /pws/zycit043 SET nfnum     = wa_nf-nfnum

                                 series   = wa_nf-series

                                 subser   = wa_nf-subser

                          WHERE nrseq     = wa_nf-nrseq

                            AND nfglobal  = wa_nf-nfglobal

                            AND nfremessa = wa_nf-nfremessa

                            AND docnum    = wa_nf-docnum.

            UPDATE /pws/zycit044 SET nfnum     = wa_nf-nfnum

                                 series   = wa_nf-series

                                 subser   = wa_nf-subser

...

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

Modificações efetuadas em REPS /PWS/MZYCI017I01

...

    WHEN 'ATUAL'.

      CLEAR v_linha.

      READ TABLE itab_nf WITH KEY marc = 'X'.

      IF sy-subrc EQ 0.

        SET PARAMETER ID 'JEF' FIELD itab_nf-docnum.

        CALL TRANSACTION 'J1B2' AND SKIP FIRST SCREEN.   "#EC CI_CALLTA

* >> Início da exclusão: MODULE USER_COMMAND_0010

        SELECT SINGLE nfnum series subser FROM j_1bnfdoc

               INTO (itab_nf-nfnum,itab_nf-series,itab_nf-subser)

          WHERE docnum = itab_nf-docnum.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_nf-docnum

     IMPORTING

       nfnum         = itab_nf-nfnum

       series        = itab_nf-series

       subser        = itab_nf-subser

              .

* << Fim da inclusão

        MODIFY itab_nf TRANSPORTING nfnum series subser

          WHERE marc EQ 'X'.

        IF itab_nf-remessa NE 'S'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017O01

...

MODULE carrega_zycie043a_lista OUTPUT.

  IF itab_nf-remessa NE 'S'.

    MOVE itab_nf-nfglobal TO itab_nf-nfremessa.

  ENDIF.

  CHECK NOT itab_nf-nfremessa IS INITIAL.

* >> Início da exclusão: MODULE CARREGA_ZYCIE043A_LISTA

  SELECT SINGLE nfnum series subser FROM j_1bnfdoc

         INTO (itab_nf-nfnum,itab_nf-series,itab_nf-subser)

      WHERE docnum = itab_nf-docnum.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_nf-docnum

     IMPORTING

       nfnum         = itab_nf-nfnum

       series        = itab_nf-series

       subser        = itab_nf-subser

              .

* << Fim da inclusão

  MOVE itab_nf TO /pws/zycie043a.

  MODIFY itab_nf INDEX tc_lista_nf-current_line.

  tc_lista_nf-lines = tc_lista_nf-lines + 10.

ENDMODULE.

...

...

MODULE carrega_zycie050_lista OUTPUT.

  CHECK NOT itab_zycit050-nrseq IS INITIAL.

* >> Início da exclusão: MODULE CARREGA_ZYCIE050_LISTA

  SELECT SINGLE nfnum series FROM j_1bnfdoc

    INTO (itab_zycit050-nfnum,itab_zycit050-series)

    WHERE docnum = itab_zycit050-docnum.

* << Fim da exclusão

  MOVE itab_zycit050 TO /pws/zycie050.

  tc_estorno-lines = tc_estorno-lines + 10.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

FORM atualiza_nfnum.

  IF /pws/zycie264-nfexterna NE 'X'.

    LOOP AT itab_zycit265_c

     WHERE NOT docnum IS initial AND

               nfnum  IS initial.

      SELECT SINGLE * FROM j_1bnfdoc

        WHERE docnum = itab_zycit265_c-docnum.

      IF sy-subrc EQ 0.

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

        itab_zycit265_c-nfnum  = j_1bnfdoc-nfnum.

        itab_zycit265_c-series = j_1bnfdoc-series.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_zycit265_c-docnum

     IMPORTING

       nfnum         = itab_zycit265_c-nfnum

       series        = itab_zycit265_c-series

       subser        = itab_zycit265_c-subser

              .

* << Fim da inclusão

      ENDIF.

      MODIFY itab_zycit265_c.

    ENDLOOP.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR005

...

        ort01   LIKE  itab_address-ort01,

        ort02   LIKE  itab_address-ort02,

        land1   LIKE  itab_address-land1,

        regio   LIKE  itab_address-regio,

        stras   LIKE  itab_address-stras,

        pstlz   LIKE  itab_address-pstlz,

        telfx   LIKE  itab_address-teltx,

        cgc     LIKE  v_num_cgc,

        state_insc LIKE

                itab_branch_data-state_insc,

* >> Início da exclusão:

nfnum   LIKE  j_1bnfdoc-nfnum,

* << Fim da exclusão

* >> Início da inclusão:

nfnum   like  /pws/zycie042-nfnum,

* << Fim da inclusão

entrad  LIKE  j_1bnfdoc-entrad,

series  LIKE  j_1bnfdoc-series,

docdat  LIKE  j_1bnfdoc-docdat,

pstdat  LIKE  j_1bnfdoc-pstdat,

cfop    LIKE  j_1bnflin-cfop,

forn1   LIKE  j_1binnad-name1,

endfr   LIKE  j_1binnad-stras,

bairf   LIKE  j_1binnad-ort02,

cepfr   LIKE  j_1binnad-pstlz,

cidfr   LIKE  j_1binnad-ort01,

...

...

        ENDIF.

      ENDIF.

* Dados do Emitente

      itab_dados-docnum = itab_j_1bnfdoc-docnum.

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

      itab_dados-series = itab_j_1bnfdoc-series.

      itab_dados-nfnum  = itab_j_1bnfdoc-nfnum.

* << Fim da exclusão

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

    CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'

      EXPORTING

        docnum        = itab_j_1bnfdoc-docnum

     IMPORTING

       nfnum         = itab_dados-nfnum

       series        = itab_dados-series

              .

* << Fim da inclusão

...

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

Modificações efetuadas em SHLD /PWS/ZYCIA633

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCIA633

DESCRIÇÃO BREVE: CI - Pesquisa de Nota fiscal

Houve alteração nos parâmetros, excluindo, incluindo e modificando posição

PARÂMETROS:

PARAM.    IMP  EXP  POSL  ISEL EXAJ   ELEM. DADOS     MOD   VALOR PROPOSTO

NRSEQDI         X     1    1         /PWS/ZYCIL230     X

TPDI       X          2    2         /PWS/ZYCIL231     X

NRDI                  3    3         /PWS/ZYCIL299

IDENTIFY              4    4         /PWS/ZYGLL089     X

DTUSERC               5    5         DATUM             X

IDENTIFY              4    4         /PWS/ZYGLL089     X

*<<Início Inclusão

NFNUM                 6    6         /PWS/ZYCIL864     X

*<<Fim Exclusão

*<<Início Exclusão

NFNUM                 6    6         /PWS/ZYCIL672     X

*<<Fim Exclusão

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

Modificações efetuadas em TABD /PWS/ZYCIE041

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE041:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE041A

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE041A:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE042

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE042:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

*de:

NFNUM_C      J_1BNFNUMB                 NUMC     6

*para

NFNUM_C      /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE043

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE043

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE043A

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE043A:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE044

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE044:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIE265

Foi alterado o seguinte elemento de dado do campo da estrutura /PWS/ZYCIE265:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIT041

Foi alterado o seguinte elemento de dado do campo da TABELA /PWS/ZYCIT041:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIT042

Foi alterado o seguinte elemento de dado do campo da TABELA /PWS/ZYCIT042:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

*de:

NFNUM_C      J_1BNFNUMB                 NUMC     6

*para

NFNUM_C      /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIT043

Foi alterado o seguinte elemento de dado do campo da TABELA /PWS/ZYCIT043:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIT044

Foi alterado o seguinte elemento de dado do campo da TABELA /PWS/ZYCIT044:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9

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

Modificações efetuadas em TABD /PWS/ZYCIT265

Foi alterado o seguinte elemento de dado do campo da TABELA /PWS/ZYCIT265:

*de:

NFNUM        J_1BNFNUMB                 NUMC     6

*para

NFNUM        /PWS/ZYCIL864              NUMC     9