Sintoma

Desenvolvimento Adicional Parâmetro FKART.

Solução

Desenvolvimento Adicional Parâmetro FKART.

Informações Complementares

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

Nota Número 05497 Data: 19/12/2007 Hora: 10:53:53

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

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

Nota Número              : 05497

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00026

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

Referência às notas relacionadas:

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

05442  - 00001 - 7.0    - 00003  - BUSCA CONTA PARAMETRIZADA NA VKOA

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

ALTERAÇÃO FUNÇÃO /PWS/ZYCE_BUSCA_CONTA_VKOA, ADICIONADO PARÂMETRO FKART

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

Palavras Chave:

FUNÇÃO /PWS/ZYCE_BUSCA_CONTA_VKOA PARÂMETRO FKART

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

Objetos da nota:

FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA

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

Modificações efetuadas em FUNC /PWS/ZYCE_BUSCA_CONTA_VKOA

FUNCTION /pws/zyce_busca_conta_vkoa.

Parâmetros Importação:

* >> Início da exclusão:

AUART             TYPE        TVAK-AUART

* << Fim da exclusão

* >> Início da inclusão:

AUART             TYPE        TVAK-AUART    OPTIONAL

FKART             TYPE        TVFK-FKART    OPTIONAL

* << Fim da inclusão

BUKRS             TYPE        T001-BUKRS

MATNR             TYPE        MARA-MATNR

WERKS             TYPE        T001W-WERKS

KUNNR             TYPE        KNA1-KUNNR

VKORG             TYPE        TVKO-VKORG

VTWEG             TYPE        TVTW-VTWEG

SPART             TYPE        TSPA-SPART

KSCHL             TYPE        T685A-KSCHL

Texto Fonte:

  DATA: v_mtpos_mara LIKE   mara-mtpos_mara,

        v_ktopl      LIKE   t001-ktopl,

        v_fkart      LIKE   tvak-fkarv,

        v_kalsmc     LIKE   tvfk-kalsmc,

        v_kalsm      LIKE   t683v-kalsm,

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

        v_kvsl1      LIKE   t683s-kvsl1.

* << Fim da exclusão

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

        v_kvsl1      LIKE   t683s-kvsl1,

        v_kalvg      LIKE   tvfk-kalvg.

* << Fim da inclusão

  TABLES: dd03l.

  DATA:

        itab_where LIKE abapsource OCCURS 100 WITH HEADER LINE,

        BEGIN OF itab_knvv OCCURS 0,

         bzirk LIKE knvv-bzirk,

         vkbur LIKE knvv-vkbur,

         vkgrp LIKE knvv-vkgrp,

         kdgrp LIKE knvv-kdgrp,

         kalks LIKE knvv-kalks,

         ktgrd LIKE knvv-ktgrd,

        END OF itab_knvv,

        BEGIN OF itab_mvke OCCURS 0,

         versg      LIKE   mvke-versg,

         kondm      LIKE   mvke-kondm,

         bonus      LIKE   mvke-bonus,

         ktgrm      LIKE   mvke-ktgrm,

         mtpos      LIKE   mvke-mtpos,

         provg      LIKE   mvke-provg,

        END OF itab_mvke,

        BEGIN OF itab_tvak OCCURS 0,

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

         kalvg     LIKE  tvak-kalvg,

* << Fim da exclusão

         fkarv     LIKE  tvak-fkarv,

         fkara     LIKE  tvak-fkara,

         lfarv     LIKE  tvak-lfarv,

        END OF itab_tvak,

        BEGIN OF itab_t683s OCCURS 0,

         zaehk     LIKE  t683s-zaehk,

         kschl     LIKE  t683s-kschl,

        END OF itab_t683s,

        BEGIN OF itab_t682i OCCURS 0,

         kolnr     LIKE  t682i-kolnr,

...

...

    INTO TABLE itab_mvke

    WHERE matnr = matnr

      AND vkorg = vkorg

      AND vtweg = vtweg.

  SELECT SINGLE mtpos_mara FROM mara

    INTO v_mtpos_mara

    WHERE matnr = matnr.

  SELECT SINGLE ktopl FROM t001

    INTO v_ktopl

    WHERE bukrs = bukrs.

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

  SELECT kalvg fkarv fkara lfarv FROM tvak

* << Fim da exclusão

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

  IF NOT fkart IS INITIAL.

    v_fkart = fkart.

  ELSE.

    SELECT fkarv fkara lfarv FROM tvak

* << Fim da inclusão

    INTO TABLE itab_tvak

    WHERE auart = auart.

  READ TABLE itab_tvak INDEX 1.

  IF NOT itab_tvak-lfarv IS INITIAL.

    v_fkart = itab_tvak-fkarv.

  ELSE.

    v_fkart = itab_tvak-fkara.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

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

  SELECT SINGLE kalsmc FROM tvfk

    INTO v_kalsmc

* << Fim da exclusão

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

  SELECT SINGLE kalsmc kalvg FROM tvfk

    INTO (v_kalsmc, v_kalvg)

* << Fim da inclusão

    WHERE fkart = v_fkart.

  READ TABLE itab_knvv INDEX 1.

  SELECT SINGLE kalsm FROM t683v

    INTO v_kalsm

    WHERE vkorg = vkorg

      AND vtweg = vtweg

      AND spart = spart

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

      AND kalvg = itab_tvak-kalvg

* << Fim da exclusão

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

      AND kalvg = v_kalvg

* << Fim da inclusão

      AND kalks = itab_knvv-kalks.

  SELECT SINGLE kvsl1 FROM t683s

    INTO v_kvsl1

    WHERE kvewe = 'A'

      AND kappl = 'V'

      AND kalsm = v_kalsm

      AND kschl = kschl.                                    "#EC *

  SELECT zaehk kschl FROM t683s

    INTO TABLE itab_t683s

    WHERE kvewe EQ 'C'

...