Sintoma

Quando é criada uma NF com uma categoria de nota para determinado centro que não está parametrizada,

o batch imput pára somente na J1B1N solicitando a categoria de nota fiscal. Deveria aparecer uma

mensagem de aviso ANTES de entrar no batch imput, ( mensagem declarando que não existe registro no

parametro /pws/zycit033 ou na /pws/zycit018), não deixando entrar no batch imput. Seguem os prints

das telas

Solução

Verificar anteriormente se não esta parametrizado a categoria com um centro não cadastrado para

apresentar mensagem antes de iniciar o Batch Input

Informações Complementares

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

Nota Número 08994 Data: 11/09/2009 Hora: 11:27:18

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

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

Nota Número              : 08994

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00114

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CATEGORIA DE NF SEM CENTRO PARAMETRIZADO ESTA PARANDO BATCH INPUT

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

Palavras Chave:

NOTA - FISCAL -  NF - CENTRO - NÃO - PARAMETRIZADO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

REPS /PWS/LZYCIGF2F01

REPS /PWS/MZYCI016F01

REPT /PWS/SAPLZYCIGF2

REPT /PWS/SAPMZYCI016

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

...

                   'J_1BDYDOC-BRGEW'     v_brgew,

     'J_1BDYDOC-GEWEI'         t_dados-gewei,

                    'BDC_OKCODE'       '=TAB1'.

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING:

  'BDC_OKCODE'       '=ADIT'.

    CLEAR v_cont.

    DESCRIBE TABLE t_itens LINES v_lines.

    LOOP AT t_itens.

* >> Início da inclusão:

    PERFORM trata_campo_itens_obrigatorio TABLES t_itens

                                                 t_campos

                                          USING  v_string.

* << Fim da inclusão

      MOVE sy-tabix TO v_tabix.

      v_cont = v_cont + 1.

      PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.

      WRITE:

            t_itens-netoth CURRENCY t_itens-waers TO  v_netoth,

            t_itens-netins CURRENCY t_itens-waers TO  v_netins,

            t_itens-netfre CURRENCY t_itens-waers TO v_netfre,

            t_itens-netpr TO  v_netpr,

            t_itens-menge UNIT t_itens-meins TO v_menge.

      CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

...

* >> Início da inclusão:

form trata_campo_itens_obrigatorio

                             tables p_t_itens  structure /pws/zycee007

                                    p_t_campos structure /pws/zycet004

                                    USING  value(p_string).

  DATA: v_string(80) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+58(1) = '+'.

    IF p_t_itens-ITMTYP = space.

      CLEAR p_t_campos.

      READ TABLE p_t_campos WITH KEY campo = 'J_1BDYLIN-ITMTYP'.

      IF sy-subrc <> 0.

        p_t_campos-mandt = p_t_itens-mandt.

        p_t_campos-campo = 'J_1BDYLIN-ITMTYP'.

        p_t_campos-descricao = text-058.

        APPEND p_t_campos.

        RAISE campo_em_branco.

      ELSE.

        IF ( p_t_campos-conteudo = space ).

          RAISE campo_em_branco.

        ELSE.

          MOVE p_t_campos-conteudo TO p_t_itens-ITMTYP.

          MODIFY p_t_itens TRANSPORTING itmtyp.

          DELETE p_t_campos INDEX sy-tabix.

          CLEAR p_t_campos.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

FORM convert_cfop.

  CALL FUNCTION 'CONVERSION_EXIT_CFOBR_OUTPUT'

       EXPORTING

            input  = itab_zycit033-cfop

       IMPORTING

            output = v_cfop.

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

  PERFORM verify_null_field USING v_cfop

                                  'CFOP'

                                  text-115.

* << Fim da inclusão

ENDFORM.

...

...

           v_libera IS INITIAL ).

          PERFORM congela_despesa.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSE.

    READ TABLE it_zycet005 WITH KEY  tcode  = text-065

                                     tabela = text-014

                       cpochv = /pws/zycie041-nfglobal

                                          tpmsg  = 'E'.

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

    IF sy-subrc EQ 0.

* << Fim da exclusão

      LOOP AT it_zycet004.

        MESSAGE i019 WITH it_zycet004-descricao.

      ENDLOOP.

      it_erro-nrseq  = itab_zycit042-nrseq.

      it_erro-branch = itab_zycit042-j_1bbranch.

      it_erro-msg    = it_zycet005-msg.

      APPEND it_erro.

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

    ENDIF.

* << Fim da exclusão

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPT /PWS/SAPLZYCIGF2

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 058

Texto: (23 caracteres)

"Categ. registro do item"

Comprimento máximo: 25

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

Modificações efetuadas em REPT /PWS/SAPMZYCI016

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 115

Texto: (4 caracteres)

"CFOP"

Comprimento máximo: 50