Sintoma

A parametrização de contas de despesas efetivas da prestação de contas era feita pela /PWS/ZYGL012.

Solução

A nova busca de contas é feita nas parametrizações da transação VKOA

Informações Complementares

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

Nota Número 05504 Data: 20/12/2007 Hora: 10:59:21

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

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

Nota Número              : 05504

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00026

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

Referência às notas relacionadas:

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

05499  - 00001 - 7.0    - 00004  - BUSCA DE CONTAS DE DESPESAS PPC PELA VKOA

05503  - 00002 - 7.0    - 00004  - ALTERAÇÃO FUNÇÃO /PWS/ZYCE_BUSCA_CONTA_VKOA, ADICIONADO PARÂMETRO

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

NOVA BUSCA DE CONTAS PARA DESPESAS EFETIVAS DA PRESTAÇÃO DE CONTAS

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

Palavras Chave:

VKOA PRESTAÇÃO DE CONTAS DPC

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

Objetos da nota:

DOCU DE/PWS/ZYCEL476

DTEL /PWS/ZYCEL716

DTEL /PWS/ZYCEL717

REPS /PWS/MZYCE013F01

TABD /PWS/ZYCEE021

TABD /PWS/ZYCET021

TABU TDDAT

TABU TVDIR

TOBJ /PWS/ZYCET021S

TOBJ /PWS/ZYCEV021V

TRAN /PWS/ZYCET021

VIEW /PWS/ZYCEV021

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

Modificações efetuadas em DOCU DE/PWS/ZYCEL476

Criar documentação para o elemento de dados /PWS/ZYCEL476: Criar um arquivo texto com o conteúdo

abaixo e carregar como arquivo ITF.

/HTEXT

/:OBJECT DOKU

/:NAME /PWS/ZYCEL476

/:ID DE

/:LANGUAGE P

/:FORM S_DOCU_SHOW

/:STYLE S_DOCUS1

/:FIRST-USER PWSCE

/:FIRST-DATE 20 12 2007

/:FIRST-TIME 06 29 29

/:LAST-USER PWSCE

/:LAST-DATE 20 12 2007

/:LAST-TIME 06 29 32

/:TITLE '                                                  '

/:TITLE1 '                '

/:TITLE2 '                '

/MTEXT

U1&DEFINITION&

ASNeste campo, se determina o código de condition das despesas

  provisionadas.

U1&USE&

AS

U1&DEPENDENCIES&

AS

U1&EXAMPLE&

AS

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

Modificações efetuadas em DTEL /PWS/ZYCEL716

Elemento de dados incluído: /PWS/ZYCEL716

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (11 caracteres), idioma: EN

"Account key"

Descrição breve incluída: (19 caracteres), idioma: PT

"GL - Chave de conta"

Categoria de dados: Domínio

Domínio: KVSCHL

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 10

Denominador breve incluído (8 caracteres), idioma: EN

"Acct key"

Denominador breve incluído (10 caracteres), idioma: PT

"Chave cta."

Comprimento máximo do denominador médio: 15

Denominador médio incluído (11 caracteres), idioma: EN

"Account key"

Denominador médio incluído (14 caracteres), idioma: PT

"Chave de conta"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (11 caracteres), idioma: EN

"Account key"

Denominador longo incluído (14 caracteres), idioma: PT

"Chave de conta"

Comprimento máximo do título: 05

Título incluído (5 caracteres), idioma: EN

"ActKy"

Título incluído (5 caracteres), idioma: PT

"ChCta"

-Documentação para o campo: Criar um arquivo texto com o conteúdo abaixo e carregar como arquivo

ITF.

/HTEXT

/:OBJECT DOKU

/:NAME /PWS/ZYCEL716

/:ID DE

/:LANGUAGE P

/:FORM S_DOCU_SHOW

/:STYLE S_DOCUS1

/:FIRST-USER PWSCE

/:FIRST-DATE 19 12 2007

/:FIRST-TIME 10 46 47

/:LAST-USER PWSCE

/:LAST-DATE 19 12 2007

/:LAST-TIME 10 46 57

/:TITLE '                                                  '

/:TITLE1 '                '

/:TITLE2 '                '

/MTEXT

U1&DEFINITION&

ASNeste campo, se determina as chaves de conta das despesas efetivas da

  Prestação de Contas, utilizadas na transação VKOA.

U1&USE&

AS

U1&DEPENDENCIES&

AS

U1&EXAMPLE&

AS

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

Modificações efetuadas em DTEL /PWS/ZYCEL717

Elemento de dados incluído: /PWS/ZYCEL717

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (40 caracteres), idioma: PT

"GL - Relevante para prestação de contas?"

Categoria de dados: Domínio

Domínio: XFELD

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 05

Denominador breve incluído (5 caracteres), idioma: PT

"Prest"

Comprimento máximo do denominador médio: 10

Denominador médio incluído (10 caracteres), idioma: PT

"Pr.Contas?"

Comprimento máximo do denominador longo: 15

Denominador longo incluído (14 caracteres), idioma: PT

"Prest. Contas?"

Comprimento máximo do título: 35

Título incluído (35 caracteres), idioma: PT

"Relevante para prestação de contas?"

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

Modificações efetuadas em REPS /PWS/MZYCE013F01

...

        ENDIF.

        IF /pws/zycee033-dtdcto IS INITIAL.

          /pws/zycee033-dtdcto = sy-datlo.

        ENDIF.

      ENDIF.

      PERFORM seleciona_conta.

  ENDCASE.

  PERFORM busca_exit USING 'PDC008'.

ENDFORM.

FORM select_despesas.

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

  DATA: v_conta1 TYPE ska1-saknr,                           "#EC NEEDED

        v_conta2 TYPE ska1-saknr.                           "#EC NEEDED

* << Fim da exclusão

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

  DATA: v_conta1 TYPE ska1-saknr,

        v_conta2 TYPE ska1-saknr.

* << Fim da inclusão

  CLEAR itab_zycet002. REFRESH itab_zycet002.

  PERFORM seleciona_itens_embarque

          USING

            /pws/zycee033-nrseq

          CHANGING

            itab_zycet002[].

  IF NOT itab_zycet002[] IS INITIAL.

    SELECT DISTINCT * FROM /pws/zycet016

           APPENDING TABLE itab_zycet016

        FOR ALL ENTRIES IN itab_zycet002

...

...

        APPENDING TABLE itab_zycet043

        FOR ALL ENTRIES IN itab_zycet021

        WHERE codmod  = c_module              AND

              nrseq   = /pws/zycee033-nrseq   AND

              despach = /pws/zycee033-despach AND

              nrpres  = /pws/zycee033-nrpres  AND

              tpdesp  = itab_zycet021-tpdesp.

  ENDIF.

  IF itab_zycet043[] IS INITIAL.

    LOOP AT itab_zycet021.

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

      PERFORM read_account_number USING 'DPC'

                                        itab_zycet021-tpdesp.

      itab_zycet043-conta1  = itab_account-konts.

* << Fim da exclusão

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

      PERFORM busca_conta

              USING

                itab_zycet021-kschl

                itab_zycet021-kvsl1

                itab_zycet002[]

              CHANGING

                v_conta1

                v_conta2.

      itab_zycet043-conta1 = v_conta1.

* << Fim da inclusão

      IF itab_zycet021-kschl IS INITIAL.

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

        itab_zycet043-conta2  = itab_account-konth.

* << Fim da exclusão

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

        itab_zycet043-conta2 = v_conta2.

* << Fim da inclusão

      ELSE.

        CLEAR itab_zycet016.

        READ TABLE itab_zycet016 WITH KEY kschl =

                                          itab_zycet021-kschl.

        IF sy-subrc = 0.

          PERFORM busca_conta

                  USING

                    itab_zycet021-kschl

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

                    ''

* << Fim da inclusão

                    itab_zycet002[]

                  CHANGING

                    v_conta1

                    v_conta2.

          itab_zycet043-conta2 = v_conta1.

        ELSE.

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

          itab_zycet043-conta2  = itab_account-konth.

* << Fim da exclusão

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

          itab_zycet043-conta2 = v_conta1.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      itab_zycet043-codmod  = c_module.

      itab_zycet043-nrpres  = /pws/zycee033-nrpres.

      itab_zycet043-nradto  = ' ' .

      itab_zycet043-nrseq   = /pws/zycee033-nrseq.

      itab_zycet043-despach = /pws/zycee033-despach.

      itab_zycet043-tpdesp  = itab_zycet021-tpdesp.

      itab_zycet043-kschl   = itab_zycet021-kschl.

      itab_zycet043-descr   = itab_zycet021-descr.

...

...

      ENDIF.

      IF v_controle IS INITIAL.

        PERFORM preenche_itab_zycbe035_2.

      ENDIF.

  ENDCASE.

ENDFORM.

FORM preenche_itab_zycbe035_2.

  CLEAR it_zycet043. REFRESH it_zycet043.

  MOVE itab_zycet043[] TO it_zycet043[].

  LOOP AT itab_zycet043 WHERE vldp NE 0.

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

    PERFORM read_account_number USING 'DPC'

                                  itab_zycet043-tpdesp.

    itab_zycbe035-d_newko = itab_account-konts.

* << Fim da exclusão

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

    itab_zycbe035-d_newko = itab_zycet043-conta1.

* << Fim da inclusão

    READ TABLE itab_total WITH KEY kschl = itab_zycet043-kschl.

    IF sy-subrc NE 0.

      PERFORM preenche_f63_sem_exit.

      itab_zycbe035-tcode    = 'F-43'.

      itab_zycbe035-tabela  = text-010.

      itab_zycbe035-chave   = text-016.

      itab_zycbe035-cpochv  = /pws/zycee033-nrseq.

      itab_zycbe035-d_valut = /pws/zycee033-dtacerto.

      itab_zycbe035-d_gsber = itab_zycbe033-d_gsber.

      itab_zycbe035-d_kostl = itab_zycet043-kostl.

...

...

            tab_devolucao   = it_devolucao[]

       EXCEPTIONS

            OTHERS          = 0.

  APPEND LINES OF: it_saida[]       TO p_t_zycet002[],

                   it_complemento[] TO p_t_zycet002[],

                   it_devolucao[]   TO p_t_zycet002[].

ENDFORM.

FORM busca_conta

     USING

       p_kschl      TYPE /pws/zycet043-kschl

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

       p_kvsl1      TYPE /pws/zycet021-kvsl1

* << Fim da inclusão

       p_t_zycet002 LIKE itab_zycet002[]

     CHANGING

       p_sakn1      TYPE ska1-saknr

       p_sakn2      TYPE ska1-saknr.

  DATA: wa_zycet002 LIKE LINE OF p_t_zycet002[].

  READ TABLE p_t_zycet002[]

             INTO wa_zycet002

             WITH KEY st_vd = 'VD'

             TRANSPORTING auart

                          fkart

...

...

            auart             = wa_zycet002-auart

            fkart             = wa_zycet002-fkart

            bukrs             = wa_zycet002-bukrs

            matnr             = wa_zycet002-matnr

            werks             = wa_zycet002-werks

            kunnr             = wa_zycet002-kunag

            vkorg             = wa_zycet002-vkorg_auft

            vtweg             = wa_zycet002-vtweg_auft

            spart             = wa_zycet002-spara

            kschl             = p_kschl

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

            kvsl1             = p_kvsl1

* << Fim da inclusão

       IMPORTING

            sakn1             = p_sakn1

            sakn2             = p_sakn2

       EXCEPTIONS

            account_not_found = 1

            OTHERS            = 2.

  IF sy-subrc <> 0.

    CLEAR: p_sakn1,

           p_sakn2.

  ENDIF.

...

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

Modificações efetuadas em TABD /PWS/ZYCEE021

-Incluir a coluna KVSL1 com o elemento de dados /PWS/ZYCEL716, entre os campos TPDESP e DESCR. Este

campo não é chave.

-Marcar os seguintes campos como chave: MANDT, LAND1, BUKRS, REGIO, WERKS, TIPO, LIFNR, TPDESP.

-Trocar o elemento de dados da coluna PRESTC para /PWS/ZYCEL717.

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

Modificações efetuadas em TABD /PWS/ZYCET021

-Incluir a coluna KVSL1 com o elemento de dados /PWS/ZYCEL716, entre os campos TPDESP e DESCR. Este

campo não é chave.

-Trocar o elemento de dados da coluna PRESTC para /PWS/ZYCEL717.

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

Modificações efetuadas em TOBJ /PWS/ZYCET021S

-Eliminar o diálogo de atualização da tabela /PWS/ZYCET021

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

Modificações efetuadas em TOBJ /PWS/ZYCEV021V

Criar o diálogo de atualização para a visão /PWS/ZYCEV021

-Grupo de autorização: ZYCE (se existir, ou contrário, usar &NC&)

-Grupo de funções: /PWS/ZYCEGF1

-Usar 2 telas:

Tela de síntese: 0021

Tela de atualização: 1021

-Usar rotina de registro standard

Após a criação, editar a tela 0021 criada.

-Aumentar a largura da tela para 221 colunas

-Aumentar a largura do table control TCTRL_/PWS/ZYCEV021 para 221 colunas

-Aumentar o comprimento visível da coluna /PWS/ZYCEV021-TIPO para 22 caracteres

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

Modificações efetuadas em TRAN /PWS/ZYCET021

Modificar o parâmetro VIEWNAME para /PWS/ZYCEV021

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

Modificações efetuadas em VIEW /PWS/ZYCEV021

Criar a visão de atualização /PWS/ZYCEV021

-Descrição breve: CE - Parâmetros De/Para de Despesas

-Classe de desenvolvimento: /PWS/ZYCE

-Classe de entrega: A

-Acesso: Ler, modificar, eliminar e inserir

-Tabelas da visão: /PWS/ZYCET021

-Campos na visão:

Visão    Tabela

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

MANDT    /PWS/ZYCET021-MANDT

LAND1    /PWS/ZYCET021-LAND1

BUKRS    /PWS/ZYCET021-BUKRS

REGIO    /PWS/ZYCET021-REGIO

WERKS    /PWS/ZYCET021-WERKS

TIPO     /PWS/ZYCET021-TIPO

LIFNR    /PWS/ZYCET021-LIFNR

TPDESP   /PWS/ZYCET021-TPDESP

KVSL1    /PWS/ZYCET021-KVSL1

DESCR    /PWS/ZYCET021-DESCR

KSCHL    /PWS/ZYCET021-KSCHL

IVA      /PWS/ZYCET021-IVA

ESTAT    /PWS/ZYCET021-ESTAT

RATEIO   /PWS/ZYCET021-RATEIO

PRESTC   /PWS/ZYCET021-PRESTC

CUSTEF   /PWS/ZYCET021-CUSTEF

PGTOCAMB /PWS/ZYCET021-PGTOCAMB

ESCLF    /PWS/ZYCET021-ESCLF