Sintoma

Necessário alterar o preenchimento da preenchimento da primeira linha de mensagem no Batch-Input da

Nota Fiscal Complementar.

Solução

Preenchimento de mensagem de Notas Fiscais complementares

Informações Complementares

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

Nota Número 01385 Data: 23/05/2006 Hora: 09:39:15

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

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

Nota Número              : 01385

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00114

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

Referência às notas relacionadas:

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

01162  - 00001 - 6.0    - 00023  - NOTA DE VARIAÇÃO CAMBIAL COM REFERENCIA

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

PREENCHIMENTO DE MENSAGEM DE NOTAS FISCAIS COMPLEMENTARES

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

Palavras Chave:

NOTAS FISCAIS COMPLEMENTARES MENSAGEM

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

Objetos da nota:

FUNC /PWS/ZYCE_TRANSACAO_J1B1N

FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C

REPS /PWS/ZYCER007

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N

...

    v_netbase(16)    TYPE c,

    v_cont           TYPE n,

    v_cont1          TYPE i,

    v_text(16)       TYPE c,

    v_text_aux(16)   TYPE c.

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

  DATA BEGIN OF itab_j1bnfftx OCCURS 0.

          INCLUDE STRUCTURE j_1bnfftx.

  DATA END OF itab_j1bnfftx.

* << Fim da inclusão

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'J1B1N'.

    IF ( t_dados-docdat = space ).

      t_campos-mandt = t_dados-mandt.

      t_campos-campo = 'J_1BDYDOC-DOCDAT'.

...

...

           'BDC_OKCODE'            '/00'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING:

           'BDC_OKCODE'            '=TAB4'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

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

    SELECT *

     FROM j_1bnfftx

     INTO TABLE itab_j1bnfftx

      WHERE docnum = t_dados-docnum.

* << Fim da inclusão

    CLEAR v_cont.

    CLEAR v_campo.

    DESCRIBE TABLE t_message LINES v_cont.

    LOOP AT t_message.

      CONCATENATE v_campo t_message-msg INTO v_campo.

      IF sy-tabix <> v_cont.

        CONCATENATE v_campo ' / ' INTO v_campo.

      ENDIF.

    ENDLOOP.

    PERFORM bdc_campo USING:

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

            'J_1BDYFTX-MESSAGE(01)' v_campo,

            'BDC_OKCODE'   '=LKML'.

* << Fim da exclusão

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

            'J_1BDYFTX-MESSAGE(01)' t_dados-observat,

            'J_1BDYFTX-MESSAGE(02)' v_campo.

    CLEAR v_cont.

    v_cont = 2.

    LOOP AT itab_j1bnfftx.

      ADD 1 TO v_cont.

      CHECK NOT itab_j1bnfftx-message IS INITIAL.

      PERFORM bdc_campo USING:

                        'J_1BDYFTX-MESSAGE (v_cont)'

                        itab_j1bnfftx-message.

    ENDLOOP.

    PERFORM bdc_campo USING: 'BDC_OKCODE'   '=LKML'.

* << Fim da inclusão

    PERFORM bdc_tela USING 'SAPLJ1BB2' '4100'.

    PERFORM bdc_campo USING:

           'J_1BDYREF-SELKZ(01)'     'X',

           'BDC_OKCODE'              '=COLK'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_J1B1N_C

...

    endloop.

    PERFORM bdc_field USING: 'BDC_OKCODE'            '=TAB4'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    CLEAR v_cont.

    CLEAR v_campo.

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

    DESCRIBE TABLE t_message LINES v_cont.

    select * from J_1BNFFTX into table itab_J_1BNFFTX

* << Fim da exclusão

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

    SELECT *

     FROM j_1bnfftx

     INTO TABLE itab_j_1bnfftx

* << Fim da inclusão

      where docnum = t_dados-docnum.

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

    clear v_cont_aux.

    describe table itab_J_1BNFFTX lines  v_cont_aux.

* << Fim da exclusão

    LOOP AT t_message.

      clear v_campo1.

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

      ADD 1 TO v_cont_aux.

      concatenate 'J_1BDYFTX-MESSAGE(' v_cont_aux ')' INTO v_campo1.

      if v_cont_aux = '1'.

        CONCATENATE t_message-msg ' ' t_message-docnum INTO v_campo.

* << Fim da exclusão

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

      ADD 1 TO v_cont.

      CONCATENATE 'J_1BDYFTX-MESSAGE(' v_cont ')' INTO v_campo1.

      IF v_cont = '1'.

* << Fim da inclusão

        PERFORM bdc_campo USING:

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

              v_campo1  v_campo .

* << Fim da exclusão

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

              v_campo1 t_message-msg.

* << Fim da inclusão

      elseif sy-tabix = v_cont.

        CONCATENATE t_message-msg ' ' t_message-docnum INTO v_campo.

        PERFORM bdc_campo USING:

              v_campo1  v_campo .

      endif.

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

    ENDLOOP.

    LOOP AT itab_j_1bnfftx.

      ADD 1 TO v_cont.

      CLEAR v_campo1.

      CONCATENATE 'J_1BDYFTX-MESSAGE(' v_cont ')' INTO v_campo1.

      PERFORM bdc_campo USING:

                        v_campo1 itab_j_1bnfftx-message.

* << Fim da inclusão

    ENDLOOP.

    PERFORM bdc_campo USING:

            'BDC_OKCODE'   '=LKML'.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '4100'.

    clear v_cont_aux.

...

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

Modificações efetuadas em REPS /PWS/ZYCER007

...

  ENDIF.

  it_zycee005-waers = 'BRL'.

  IF it_zycet035-flagfunc IS INITIAL AND

     it_zycet035-nfcref   IS INITIAL.

    it_zycee005-tcode = text-050.

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

    it_zycee005-maktx = text-055.

* << Fim da exclusão

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

    it_zycee005-maktx = it_zycee005-observat = text-055.

* << Fim da inclusão

    it_zycee005-matorg = text-056.

    it_zycee005-taxtyp = text-063.

    it_zycee005-taxtyp2 = text-061.

  ELSE.

    it_zycee005-tcode = text-097.

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

    it_zycee005-maktx = it_zycet035-txtdesc.

* << Fim da exclusão

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

    it_zycee005-maktx = it_zycee005-observat = it_zycet035-txtdesc.

* << Fim da inclusão

    it_zycee005-matorg = it_zycet035-origmat.

    it_zycee005-matuse2 = it_zycet035-utilmat.

    it_zycee005-taxtyp = it_zycet035-tpcod1.

    it_zycee005-taxtyp2 = it_zycet035-tpcod2.

  ENDIF.

...

...

    REFRESH it_zycee006.

    READ TABLE it_relat_aux2 WITH KEY nrseq  = it_emitenf-nrseq

                                      branch = it_emitenf-branch

                                      docnum = it_emitenf-docnum.

    IF sy-subrc EQ 0.

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

      MOVE: text-117          TO it_zycee006-msg,

* << Fim da exclusão

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

      MOVE: it_zycee005-observat TO it_zycee006-msg,

* << Fim da inclusão

            it_emitenf-nrseq  TO it_zycee006-nrseq,

            it_emitenf-docnum TO it_zycee006-docnum,

            it_emitenf-branch TO it_zycee006-branch.

      ADD 1 TO v_index2.

      it_zycee006-indice = v_index2.

...