Sintoma

Encerramento de custos - No batch input do encerramento de custos, o sistema está tentando passar o

campo COBL-WERKS, que não existe na tela. O sistema deve verificar status de campo por grupo/conta

contábil.

Solução

Verificar campo COBL-WERKS antes de preenchê-lo.

Informações Complementares

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

Nota Número 04090 Data: 03/07/2007 Hora: 15:14:23

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

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

Nota Número              : 04090

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

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

01635  - 00001 - 6.0    - 00024  - AO SALVAR A DI NÃO ESTÁ SENDO GERADA A COMPENSAÇÃO DA VARIAÇÃO CA

03047  - 00002 - 6.0    - 00026  - ESTA NOTA CRIA A FUNÇÃO DE RECLASSIFICAÇÃO DE IA

03053  - 00003 - 6.0    - 00026  - NO BI DO ENCERRAMENTO DE CUSTOS ERRO NO CAMPO COBL-WERKS

03954  - 00004 - 7.0    - 00002  - TRATAMENTO PARA CONTA BLOQUEADA NA RECLASSIFICAÇÃO DE IA

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

LANÇAR O CENTRO DE CUSTO NA RECLASSIFICAÇÃO DE IA.

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

Palavras Chave:

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

Objetos da nota:

FUNC /PWS/ZYCI_RECLASSIFICACAO_IA

FUNC /PWS/ZYCI_TRANSACAO_F_05

REPS /PWS/LZYCIGF2F01

REPS /PWS/LZYCIGF2TOP

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

Modificações efetuadas em FUNC /PWS/ZYCI_RECLASSIFICACAO_IA

...

    WHERE nrseqdi EQ t_zycit100-nrseqdi.

  IF /pws/zycie085-nrdi IS INITIAL OR /pws/zycie085-dtreg IS INITIAL.

    RAISE dados_di_inicial.

  ENDIF.

  IF NOT t_zycit003[] IS INITIAL.

    SELECT *

      FROM /pws/zycit094

      INTO TABLE itab_zycit094

      FOR ALL ENTRIES IN t_zycit003

      WHERE nrseq = t_zycit003-nrseq.

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

    CLEAR: itab_ekkn.

    REFRESH: itab_ekkn.

    SELECT ebeln ebelp prctr kostl kokrs fistl fipos aufnr ps_psp_pnr

           FROM ekkn

           INTO TABLE itab_ekkn

           FOR ALL ENTRIES IN t_zycit003

           WHERE ebeln = t_zycit003-ebeln

            AND ebelp = t_zycit003-ebelp.

* << Fim da inclusão

  ENDIF.

  READ TABLE itab_zycit094 INDEX 1.

  SELECT *

    FROM /pws/zycit006

    INTO TABLE itab_zycit006

    WHERE nrseqce   EQ itab_zycit094-nrseqce

      AND tpfatura  NE '11'

      AND eliminado EQ space.

  SELECT SINGLE *

      FROM /pws/zycit093

...

...

  ENDLOOP.

  IF itab_zycit263[] IS INITIAL AND NOT itab_zycit006[] IS INITIAL.

    SELECT *

      FROM /pws/zycit263

      INTO TABLE itab_zycit263

      FOR ALL ENTRIES IN itab_zycit006

      WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat.

  ENDIF.

  LOOP AT t_zycit100.

    READ TABLE itab_zycit263 WITH KEY ebeln = t_zycit100-ebeln

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

                                      ebelp = t_zycit100-ebelp.

    CLEAR: itab_ekkn.

    READ TABLE itab_ekkn WITH KEY ebeln = t_zycit100-ebeln

* << Fim da inclusão

                                      ebelp = t_zycit100-ebelp.

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

    itab_di-kostl = itab_ekkn-kostl.

* << Fim da inclusão

    CLEAR itab_zycit006.

    READ TABLE itab_zycit006

                  WITH KEY nrseq_pgfat = itab_zycit263-nrseq_pgfat.

    CHECK NOT itab_zycit006-belnr_p IS INITIAL.

    CLEAR: itab_matuse, itab_matuse_aux.

    READ TABLE itab_matuse WITH KEY ebeln = t_zycit100-ebeln

...

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_05

...

                                       v_invisible

                                       v_input

                                       v_output.

          IF v_invisible = 0 AND v_input = 1 AND v_output = 1.

            IF NOT t_contas-d_gsber IS INITIAL.

              PERFORM bdc_field USING 'COBL-GSBER'  t_contas-d_gsber.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

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

      READ TABLE itab_oculto WITH KEY campo = 'COBL-KOSTL'

                                      chave = v_chave.

      IF sy-subrc <> 0.

        IF t_contas-bschl = 40

        OR t_contas-bschl = 50.

          PERFORM bdc_field USING 'COBL-KOSTL' t_contas-d_kostl.

        ELSE.

          PERFORM define_campo TABLES t_telas

                               USING  'COBL-KOSTL'

                                      'SAPLKACB'

                                      '0002'

                               CHANGING

                                      v_invisible

                                      v_input

                                      v_output.

          IF v_invisible = 0 AND v_input = 1 AND v_output = 1.

            PERFORM bdc_field USING 'COBL-KOSTL'  t_contas-d_kostl.

          ENDIF.

        ENDIF.

      ENDIF.

* << Fim da inclusão

      READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'

                                      chave = v_chave.

      IF sy-subrc <> 0.

        IF t_contas-bschl = 40

        OR t_contas-bschl = 50.

          PERFORM bdc_field USING 'COBL-PRCTR' t_contas-d_prctr.

        ELSE.

          PERFORM define_campo TABLES t_telas

                               USING  'COBL-PRCTR'

                                      'SAPLKACB'

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

...

  ELSE.

    v_valor_variacao = itab_bsis_aux-dmbtr + ABS( vl_variacao_aux ).

  ENDIF.

  v_diferenca = v_valor_variacao - p_valor.

  IF ( v_diferenca < 1

   AND v_diferenca > -1

   AND v_diferenca NE 0 ).

    p_valor = v_valor_variacao.

  ENDIF.

  itab_contas-tcode  = 'F-51'.

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

  itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.

* << Fim da inclusão

  itab_contas-mandt  = sy-mandt.

  itab_contas-tabela = '/PWS/ZYCIT044'.

  IF v_belnrf05 IS INITIAL.

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

         EXPORTING

              input  = itab_matuse_aux2-hkont

         IMPORTING

              output = v_conta.

    CLEAR itab_cta. REFRESH itab_cta.

    .

...

...

      itab_contas-d_newko = itab_cta-konth.

    ELSE.

      READ TABLE itab_cta INDEX 1.

      itab_contas-bschl  = '40'.

      itab_contas-wrbtr  = abs( vl_variacao ).

      itab_contas-d_newko = itab_cta-konts.

    ENDIF.

    APPEND itab_contas.

    CLEAR itab_contas.

  ENDIF.

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

  itab_contas-c_kostl = itab_contas-d_kostl = itab_di_aux-kostl.

  IF /pws/zycit000-clucro_ia NE space.

    itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.

  ENDIF.

* << Fim da inclusão

  itab_contas-tcode  = 'F-51'.

  itab_contas-mandt  = sy-mandt.

  itab_contas-tabela = '/PWS/ZYCIT044'.

  itab_contas-bschl  = '40'.

  itab_contas-wrbtr  =  p_valor .

  itab_contas-d_newko = itab_bsis_aux-hkont.

  APPEND itab_contas.

  CLEAR itab_contas.

ENDFORM.

...

...

  itab_contas-tabela = '/PWS/ZYCIT044'.

  IF vl_variacao > 0.

    itab_contas-bschl  = '40'.

  ELSEIF vl_variacao < 0.

    itab_contas-bschl  = '50'.

  ELSE .

    v_erro_f05 = 'S'.

  ENDIF.

  v_variadec = vl_variacao.

  itab_contas-wrbtr  = abs( v_variadec ).

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

  itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.

* << Fim da inclusão

  itab_contas-d_newko = itab_bsis_aux-hkont.

  APPEND itab_contas.

  CLEAR itab_contas.

  itab_contas-tcode  = 'F-05'.

  itab_contas-mandt  = sy-mandt.

  itab_contas-tabela = '/PWS/ZYCIT044'.

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

  IF /pws/zycit000-clucro_ia NE space.

    itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.

  ENDIF.

* << Fim da inclusão

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

       EXPORTING

            input  = itab_matuse_aux2-hkont

       IMPORTING

            output = v_conta.

  CLEAR itab_cta. REFRESH itab_cta.

  CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

       EXPORTING

            bukrs           = /pws/zycie085-bukrs

            ktosl           = 'VCI'

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2TOP

...

DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,

      hkont      LIKE bsis-hkont     .

DATA: END OF itab_matuse_aux2 .

DATA: BEGIN OF itab_di OCCURS 0,

        hkont      LIKE bsis-hkont,

        vlseg      LIKE /pws/zycit100-vlseg,

        vlfre      LIKE /pws/zycit100-vlfre,

        vlfob      LIKE /pws/zycit100-vlfob,

        vldi       LIKE /pws/zycit100-vlfob,

        vlfren     LIKE /pws/zycit100-vlfre,

* >> Início da inclusão:

        kostl      type ekkn-kostl,

* << Fim da inclusão

      END OF itab_di .

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_cta OCCURS 0.

        INCLUDE STRUCTURE /pws/zygle316.

DATA: END OF itab_cta.

DATA: BEGIN OF itab_matuse_aux OCCURS 0,

        j_1bmatuse LIKE ekpo-j_1bmatuse,

        hkont      LIKE bsis-hkont     ,

...

...

  DATA: hkont    LIKE bsis-hkont       ,

        dmbtr    LIKE bsis-dmbtr       ,

        wrbtr    LIKE bsis-wrbtr       ,

        belnr    LIKE bsis-belnr       ,

        buzei    LIKE bsis-buzei       ,

        tpfatura LIKE /pws/zycit006-tpfatura.

  DATA: END OF itab_bsis.

  DATA: BEGIN OF itab_zyglt100 OCCURS 10.

          INCLUDE STRUCTURE /pws/zyglt100.

  DATA: END OF itab_zyglt100.

* >> Início da inclusão:

DATA: BEGIN OF itab_ekkn OCCURS 0.

DATA: ebeln      type ekkn-ebeln,

      ebelp      type ekkn-ebelp,

      prctr      type ekkn-prctr,

      kostl      type ekkn-kostl,

      kokrs      type ekkn-kokrs,

      fictr      type ekkn-fistl,

      fipos      type ekkn-fipos,

      aufnr      type ekkn-aufnr,

      ps_psp_pnr type ekkn-ps_psp_pnr.

DATA: END OF itab_ekkn.

* << Fim da inclusão