Sintoma

Ao efetuar o desmembramento de conta corrente ME, na saída de pagamento com ordem de pagamento, esta

tentando preencher o campo centro(werks), mas o mesmo não esta na tela e ocorre erro na F-30.

Solução

Tratar o campo werks (centro) no preenchimento da itab_oculto.

Informações Complementares

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

Nota Número 04503 Data: 23/08/2007 Hora: 14:03:58

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

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

Nota Número              : 04503

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00009

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

SAÍDA DE PAGAMENTO X ORDEM DE PAGAMENTO - F-30CAMPO WERKS(CENTRO)

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

Palavras Chave:

SAÍDA DE PAGAMENTO X ORDEM DE PAGAMENTO F-30 CAMPO WERKS(CENTRO)

VALORES MANTIDOS NO EXTERIOR TRATA_STRING ITAB_OCULTO

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

Objetos da nota:

REPS /PWS/LZYGLGF2F01

REPT /PWS/SAPLZYGLGF2

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

Modificações efetuadas em REPS /PWS/LZYGLGF2F01

...

  ELSEIF v_string+12(1) = '-'.

    p_itab_oculto-campo = 'BSEG-POSN2'.

    p_itab_oculto-chave = 'D'.

    APPEND p_itab_oculto.

  ENDIF.

  IF v_string+5(1) = '-' OR v_string+5(1) = '.'.

    p_itab_oculto-campo = 'BSEG-BUPLA'.

    p_itab_oculto-chave = 'D'.

    APPEND p_itab_oculto.

  ENDIF.

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

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

    IF p_t_dados-werks = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'COBL-WERKS'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_dados-mandt.

        p_t_campo-campo = 'COBL-WERKS'.

        p_t_campo-descricao = text-049.

        APPEND p_t_campo.

        RAISE campo_em_branco.

      ELSE.

        IF ( p_t_campo-conteudo = space ).

          RAISE campo_em_branco.

        ELSE.

          MOVE p_t_campo-conteudo TO p_t_dados-WERKS.

          MODIFY p_t_dados TRANSPORTING WERKS.

          DELETE p_t_campo INDEX sy-tabix.

          CLEAR p_t_campo.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF v_string+25(1) = '-'.

    p_itab_oculto-campo = 'COBL-WERKS'.

    p_itab_oculto-chave = 'D'.

    APPEND p_itab_oculto.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM trata_string_debito2 TABLES   p_t_dados STRUCTURE /pws/zycbe033

                                  p_t_campo STRUCTURE /pws/zycbt034

                                  p_itab_oculto LIKE itab_oculto2[]

                         USING    value(p_string)

                                  value(p_conta).

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

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

...

...

        ELSE.

          MOVE p_t_campo-conteudo TO p_t_dados-posn2.

          MODIFY p_t_dados TRANSPORTING posn2.

          DELETE p_t_campo INDEX sy-tabix.

          CLEAR p_t_campo.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF v_string+12(1) = '-'.

    p_itab_oculto-campo = 'BSEG-POSN2'.

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

    p_itab_oculto-chave = 'C'.

    APPEND p_itab_oculto.

  ENDIF.

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

    IF p_t_dados-werks = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'COBL-WERKS'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_dados-mandt.

        p_t_campo-campo = 'COBL-WERKS'.

        p_t_campo-descricao = text-049.

        APPEND p_t_campo.

        RAISE campo_em_branco.

      ELSE.

        IF ( p_t_campo-conteudo = space ).

          RAISE campo_em_branco.

        ELSE.

          MOVE p_t_campo-conteudo TO p_t_dados-WERKS.

          MODIFY p_t_dados TRANSPORTING WERKS.

          DELETE p_t_campo INDEX sy-tabix.

          CLEAR p_t_campo.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF v_string+25(1) = '-'.

    p_itab_oculto-campo = 'COBL-WERKS'.

* << Fim da inclusão

    p_itab_oculto-chave = 'C'.

    APPEND p_itab_oculto.

  ENDIF.

ENDFORM.

FORM  call_transaction TABLES   p_itab_msg   LIKE itab_msg[]

                                p_itab_bdc   STRUCTURE bdcdata

                                p_t_zycbt032 STRUCTURE /pws/zycbt032

                                p_t_dados    STRUCTURE /pws/zycbe033

                       USING    value(p_tcode)

                                value(p_mode)

...

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

Modificações efetuadas em REPT /PWS/SAPLZYGLGF2

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 049

Texto: (6 caracteres)

"Centro"

Comprimento máximo: 6