Sintoma

Ao fazer o Encerramento de Custo de um processo com pedido e classificação contábil não bate o valor

da diferença do custo com o do Encerramento Proporcionamento

Solução

Ao preencher a varável da EKKN passar a chave completa desta tabela

Informações Complementares

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

Nota Número 08387 Data: 08/05/2009 Hora: 13:52:44

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

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

Nota Número              : 08387

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00097

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ENCERRAMENTO DE CUSTO ERRADO COM PEDIDO COM CLASSIFICAÇÃO CONTÁBIL

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

Palavras Chave:

ENCERRAMENTO - CUSTO - CLASSIFICAÇÃO - CONTÁBIL

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

Objetos da nota:

REPS /PWS/MZYCI010F03

REPS /PWS/MZYCI010X01

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

Modificações efetuadas em REPS /PWS/MZYCI010F03

...

        SELECT SINGLE konts konth FROM t030

              INTO (itab_itens_contas-konts, itab_itens_contas-konth )

              WHERE ktopl = /pws/zycbt007-plcontas

                AND ktosl = 'UMB'.

      ENDIF.

    ENDIF.

    MODIFY itab_itens_contas.

  ENDLOOP.

  FREE itab_ekkn.

  IF NOT itab_zycit003_custo[] IS INITIAL.

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

    SELECT ebeln ebelp vproz prctr kostl kokrs fistl fipos

* << Fim da exclusão

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

    SELECT ebeln ebelp zekkn vproz prctr kostl kokrs fistl fipos

* << Fim da inclusão

           aufnr ps_psp_pnr sakto

           anln1 anln2 nplnr aufpl aplzl

           FROM ekkn

           INTO TABLE itab_ekkn

           FOR ALL ENTRIES IN itab_zycit003_custo

           WHERE ebeln = itab_zycit003_custo-ebeln

             AND ebelp = itab_zycit003_custo-ebelp.

  ENDIF.

  IF NOT itab_ekkn[] IS INITIAL.

    SELECT anln1 anln2 gsber FROM anlz INTO TABLE itab_anlz

...

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

Modificações efetuadas em REPS /PWS/MZYCI010X01

...

      konth   TYPE t030-konth.

DATA: END  OF itab_itens_contas.

DATA: BEGIN OF itab_zycit003_custo OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit003.

DATA: netprt TYPE /pws/zycil816 .

DATA:  mark.

DATA: END OF itab_zycit003_custo.

DATA: BEGIN OF itab_ekkn OCCURS 0.

DATA: ebeln      TYPE ekkn-ebeln,

      ebelp      TYPE ekkn-ebelp,

* >> Início da inclusão:

      zekkn      TYPE ekkn-zekkn,

* << Fim da inclusão

      vproz      TYPE ekkn-vproz,

      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,

      sakto      TYPE ekkn-sakto,

      anln1      TYPE ekkn-anln1,

...