Sintoma

Ao criar uma despesa de importação/financeiro, ao salvar o campo Centro de Custo não está sendo

preenchido na chave 40 da F-63, mas o mesmo deveria ser preenchido, pois está parametrizado na

transação OKB9 para a conta contábil o centro de custo default nos lançamentos. O erro ocorre quando

eu parametrizo o campo Centro de custo como obrigatório na OBC4, onde ao tentar salvar a despesa, o

programa nem salva.

Solução

Se não for informado o centro de custo no programa de despesa, o programa irá buscar no R/3 a

parametrização (caso exista) na tabela TKA3A para a conta contábil a ser processada.

Informações Complementares

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

Nota Número 00833 Data: 08/02/2006 Hora: 15:28:38

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

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

Nota Número              : 00833

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00100

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESPESA DE IMPORTAÇÃO - CENTRO DE CUSTO PARAMETRIZADO NA OKB9

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

Palavras Chave:

DESPESA IMPORTAÇÃO CENTRO CUSTO PARAMETRIZADO OKB9

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

Objetos da nota:

FUNC /PWS/ZYCA_TRANSACAO_F_63P

REPS /PWS/MZYCB105F01

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63P

...

      ENDIF.

      IF NOT t_dados-aufnr IS INITIAL.

        PERFORM bdc_field USING 'COBL-AUFNR' t_dados-aufnr.

      ENDIF.

      READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL' chave = 'D'.

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

      IF sy-subrc <> 0.

* << Fim da exclusão

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

      IF sy-subrc <> 0 AND NOT

         t_dados-d_kostl IS INITIAL.

* << Fim da inclusão

        PERFORM bdc_field  USING:

             'COBL-KOSTL' t_dados-d_kostl.

      ENDIF.

      READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL' chave = 'D'.

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

      IF sy-subrc <> 0.

* << Fim da exclusão

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

      IF sy-subrc <> 0 AND NOT

         t_dados-d_kostl IS INITIAL.

* << Fim da inclusão

        PERFORM bdc_field  USING:

             'COBL-KOSTL' t_dados-d_kostl.

      ENDIF.

      READ TABLE itab_oculto WITH KEY campo =

                                          'COBL-PS_PSP_PNR' chave = 'D'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB105F01

...

  PERFORM verify_null_field USING /pws/zycbe118-vlme

                                  'VLME'

                                  text-052.

  itab_zycbe033-wrbtr  = /pws/zycbe118-vlme.

  itab_zycbe033-d_gsber = /pws/zycbe118-gsber.

* >> Início da exclusão: FORM CONTABILIZA_F-63

  IF itab_zycbe033-d_kostl IS INITIAL.

* << Fim da exclusão

* >> Início da inclusão: FORM CONTABILIZA_F-63

  IF /pws/zycbe118-kostl IS INITIAL.

    SELECT SINGLE kostl

           FROM tka3a

           INTO itab_zycbe033-d_kostl

           WHERE bukrs EQ itab_zycbe033-bukrs AND

                 kstar EQ itab_zycbe033-d_newko.

    itab_zycbe033-d_kostl = itab_zycbe033-c_kostl.

  ELSE.

    itab_zycbe033-d_kostl = /pws/zycbe118-kostl.

    itab_zycbe033-c_kostl = /pws/zycbe118-kostl.

  ENDIF.

* << Fim da inclusão

  itab_zycbe033-d_prctr = /pws/zycbe118-prctr.

  itab_zycbe033-d_fipos = /pws/zycbe118-fipos.

* >> Início da exclusão: FORM CONTABILIZA_F-63

  itab_zycbe033-c_kostl = /pws/zycbe118-kostl.

* << Fim da exclusão

  itab_zycbe033-c_prctr = /pws/zycbe118-prctr.

  itab_zycbe033-c_fipos = /pws/zycbe118-fipos.

  itab_zycbe033-c_gsber = /pws/zycbe118-gsber.

  itab_zycbe033-brnch   = /pws/zycbe118-j_1bbranch.

  CLEAR:   itab_zyglt100.

...