CE PLUS - Nota 003681

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 15/05/2007 00:00:00

Data/Hora Última Alteração: 03/03/2010 13:54:44

Descrição da Nota: CONSISTÊNCIA NO PROGRAMA ADIANTAMENTO E PRESTAÇÃO DE CONTAS

Sintoma

 

Deverá ser desenvolvida na Prestação de Contas e no Adiantamento uma consistência que traga na tela

somente as despesas cadastradas para o fornecedor do processo.

Para isso deverá ser feita a inclusão do campo Fornecedor na tabela de parâmetros de despesas.

A especificação segue por e-mail, pois não cabe como anexo.

 

Solução

 

Criado os campos TIPO DE FORNCEDOR e CÓD. DO FORNECEDOR.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 03681 Data: 15/05/2007 Hora: 14:48:53

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

 

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

Nota Número              : 03681

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00166

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

CONSISTÊNCIA NO PROGRAMA ADIANTAMENTO E PRESTAÇÃO DE CONTAS

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

Palavras Chave:

EMBARQUE, ADIANTAMENTO, PRESTAÇÃO DE CONTAS, PARCEIROS, FORNECEDOR

 

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

Objetos da nota:

DTED /PWS/ZYGLL158

DYNP /PWS/SAPMZYCE005                        0100

DYNP /PWS/SAPMZYCE013                        0001

PARA /PWS/ZYGLP158

REPS /PWS/MZYCE003F02

REPS /PWS/MZYCE005F01

REPS /PWS/MZYCE005O01

REPS /PWS/MZYCE005TOP

REPS /PWS/MZYCE005X01

REPS /PWS/MZYCE013F01

REPS /PWS/MZYCE013TOP

REPS /PWS/MZYCE013X01

SHLD /PWS/ZYCEA071

TABD /PWS/ZYCEE018

TABD /PWS/ZYCEE021

TABD /PWS/ZYCEE033

TABD /PWS/ZYCET018

TABD /PWS/ZYCET021

TABD /PWS/ZYCET033

TOBJ /PWS/ZYCET021S

TRAN /PWS/ZYCET021

 

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

Modificações efetuadas em DTED /PWS/ZYGLL158

 

MODIFICAR ELEMENTO DE DADOS: /PWS/ZYGLL158______________________________

DESCRIÇÃO BREVE: GL - Tipo do Fornecedor________________________________

 

DEFINIÇÃO

 

CATEGORIA DE DADOS:

(_) - CATEGORIA ELEMENTAR

   (_) - DOMÍNIO            ____________________________

   (_) - TIPO INSTALADO     CTG. DADOS: ________________

         CUMPRIMEN.________ DECIMAIS.________

(_) - TIPO DE REFERÊNCIA

      REFERÊNCIA A:_____________________________________

 

ATRIBUTOS:

 

REDIMENS:      (_) - VERTICAL    (_) - HORIZONTAL

               ___ - LINHAS MIN. ___ - COLUNAS MIN.

 

CARACTERÍSTICAS:

ID PARÂMETRO: /PWS/ZYGLP158______

NOME COMPENENTE DEFAULT: ________________________

(_) DOC. MODIFICAÇÃO

 

AJUDA PARA PESQUISA

NOME: __________________________

PARÂMETROS: __________________________

 

DENOM. DE CAMPO:

 

BREVE : ___  __________________

MÉDIO : ___  ______________________________

LONGA : ___  _________________________________________

TÍTULO: ___  _______________________________________________

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE005                        0100

 

CRIAR CPO. TEXTO (LABEL): Tipo_do_Fornecedor

 

NOME : /PWS/ZYCEE015-TIPO

TEXTO: Tipo_do_Fornecedor

LINHA: 9                    COLUNA: 2

COMPR.VIS.: 18              ALTURA: 1

COMPR.DEF.: 18

 

DICIONÁRIO:

 

FORMATO: CHAR

(X) - DO DICT.                         MODIFIC.: 3

 

 

EXIBIÇÃO:

 

(_) - FONTE EQUIDISTANTE

(_) - VISÍVEL

(_) - OCULTO

(_) - BIDIMENSIONAL

(X) - COM DENOM. À ESQUERDA

(_) - COM DENOM. À DIREITA

 

 

CRIAR CPO. SELEÇÃO(LISTBOX): Tipo_do_Fornecedor

 

NOME : /PWS/ZYCEE018-TIPO

TEXTO: ___

LINHA: 9                    COLUNA: 24

COMPR.VIS.: 22              ALTURA: 1

COMPR.DEF.: 3

 

DICIONÁRIO:

 

FORMATO: CHAR

(X) - DO DICT.                         MODIFIC.:

ID PARÂMETRO: /PWS/ZYGLP158

(X) PARAMETRO SET

(X) PÀRAMETRO GET

 

PROGRAMA:

 

(X) - CAMPO DE ENTRADA

Input: REQUIRED

(X) - CAMPO DE SAÍDA

(_) - SÓ CAMPO DE SAÍDA

(X) - ENTRS. POSSÍVEIS

(_) - ALINH. DIREITA

(_) - ZEROS À ESQUERDA

(_) - ENTRADAS*

(_) - SEM ANULAÇÃO

(_) - SEM PADRÃO

 

EXIBIÇÃO:

 

(_) - FONTE EQUIDISTANTE

(_) - VISÍVEL

(_) - OCULTO

(_) - BIDIMENSIONAL

(_) - COM DENOM. À ESQUERDA

(_) - COM DENOM. À DIREITA

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCE013                        0001

 

CRIAR CPO. Texto(LABEL): Tipo_do_Fornecedor

 

NOME :

TEXTO: Tipo_de_Fornecedor

LINHA: 9                    COLUNA: 29

COMPR.VIS.: 18              ALTURA: 1

COMPR.DEF.: 18

 

DICIONÁRIO:

 

FORMATO: CHAR

(_) - DO DICT.                         MODIFIC.:

 

 

EXIBIÇÃO:

 

(_) - FONTE EQUIDISTANTE

(_) - VISÍVEL

(_) - OCULTO

(_) - BIDIMENSIONAL

(X) - COM DENOM. À ESQUERDA

(_) - COM DENOM. À DIREITA

(_) - SENSIVEL AO CLIQUE DUPLO

 

CRIAR CPO. SELEÇÃO(LISTBOX): Tipo_do_Fornecedor

 

NOME : /PWS/ZYCEE018-TIPO

TEXTO: ___

LINHA: 9                    COLUNA: 48

COMPR.VIS.: 18              ALTURA: 1

COMPR.DEF.: 3

 

DICIONÁRIO:

 

FORMATO: CHAR

(X) - DO DICT.                         MODIFIC.:

ID PARÂMETRO: /PWS/ZYGLP158

(X) PARAMETRO SET

(X) PÀRAMETRO GET

 

PROGRAMA:

 

(X) - CAMPO DE ENTRADA

Input: REQUIRED

(X) - CAMPO DE SAÍDA

(_) - SÓ CAMPO DE SAÍDA

(X) - ENTRS. POSSÍVEIS

(_) - ALINH. DIREITA

(_) - ZEROS À ESQUERDA

(_) - ENTRADAS*

(_) - SEM ANULAÇÃO

(_) - SEM PADRÃO

 

EXIBIÇÃO:

 

(X) - FONTE EQUIDISTANTE

(_) - VISÍVEL

(_) - OCULTO

(_) - BIDIMENSIONAL

(_) - COM DENOM. À ESQUERDA

(_) - COM DENOM. À DIREITA

 

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

Modificações efetuadas em PARA /PWS/ZYGLP158

 

MODIFICAR ELEMENTO DE DADOS: ______________________________

DESCRIÇÃO BREVE: GL - Tipo do Fornecedor________________________________

 

DEFINIÇÃO

 

CATEGORIA DE DADOS:

(_) - CATEGORIA ELEMENTAR

   (_) - DOMÍNIO            ____________________________

   (_) - TIPO INSTALADO     CTG. DADOS: ________________

         CUMPRIMEN.________ DECIMAIS.________

(_) - TIPO DE REFERÊNCIA

      REFERÊNCIA A:_____________________________________

 

ATRIBUTOS:

 

REDIMENS:      (_) - VERTICAL    (_) - HORIZONTAL

               ___ - LINHAS MIN. ___ - COLUNAS MIN.

 

CARACTERÍSTICAS:

ID PARÂMETRO: /PWS/ZYGLP158______

NOME COMPENENTE DEFAULT: GL - Tipo do Fornecedor

(_) DOC. MODIFICAÇÃO

 

AJUDA PARA PESQUISA

NOME: __________________________

PARÂMETROS: __________________________

 

DENOM. DE CAMPO:

 

BREVE : ___  __________________

MÉDIO : ___  ______________________________

LONGA : ___  _________________________________________

TÍTULO: ___  _______________________________________________

 

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

 

...

      PERFORM okcode_rvend CHANGING v_chamou.

    WHEN 'SADIA'.

      LOOP AT itab_parceiro WHERE mark  = 'X' AND

                                  koart = 'K' AND

                                  tipo  NE space.

        EXIT.

      ENDLOOP.

      IF sy-subrc EQ 0.

        SET PARAMETER ID '/PWS/ZYCEP003' FIELD itab_parceiro-kunnr.

        SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycee001-nrseq.

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

        SET PARAMETER ID '/PWS/ZYGLP158' FIELD itab_parceiro-tipo.

* << Fim da inclusão

        PERFORM okcode_funcao USING '/PWS/ZYCE005'

                                    ' '

                                    ' '

                                    'X'

                           CHANGING v_chamou.

      ELSE.

        MESSAGE s250.

        CLEAR v_chamou.

      ENDIF.

    WHEN 'SPCON'.

      LOOP AT itab_parceiro WHERE mark  = 'X' AND

                                  koart = 'K' AND

                                  tipo  NE space.

        EXIT.

      ENDLOOP.

      IF sy-subrc EQ 0.

        SET PARAMETER ID '/PWS/ZYCEP003' FIELD itab_parceiro-kunnr.

        SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycee001-nrseq.

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

        SET PARAMETER ID '/PWS/ZYGLP158' FIELD itab_parceiro-tipo.

* << Fim da inclusão

        PERFORM okcode_funcao USING '/PWS/ZYCE013_C'

                                    'PRE'

                                    ' '

                                    'X'

                           CHANGING v_chamou.

      ELSE.

        MESSAGE s250.

        CLEAR v_chamou.

      ENDIF.

    WHEN 'VCAMB'.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE005F01

 

...

             ON lfa1~lifnr  = /pws/zycet015~despach

          WHERE lfa1~lifnr  = /pws/zycee001-despach.

  MOVE wa_descdesp-name1 TO lfa1-name1.

  IF sy-subrc NE 0.

    MESSAGE w001 WITH text-001.

  ENDIF.

ENDFORM.

FORM select_despachante.

  SELECT /pws/zycet001~nrseq /pws/zycet015~despach /pws/zycet001~bukrs

         /pws/zycet001~werks /pws/zycet001~nremb

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

         /pws/zycet015~tipo

* << Fim da inclusão

          INTO TABLE it_tab2

          FROM /pws/zycet015 INNER JOIN /pws/zycet001

            ON /pws/zycet015~nrseq   =  /pws/zycet001~nrseq

         WHERE /pws/zycet015~despach =  /pws/zycee001-despach

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

           AND /pws/zycet001~nrseq   IN it_nrseq.

* << Fim da exclusão

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

           AND /pws/zycet001~nrseq   IN it_nrseq

           AND /pws/zycet015~tipo    = /pws/zycee018-tipo.

* << Fim da inclusão

  SELECT nrseq nradto vlmi dtaprov dtvencto dtacerto codmod

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

         status dtincl tpgto area

* << Fim da exclusão

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

         status dtincl tpgto area tipo

* << Fim da inclusão

         INTO TABLE it_tab3

         FROM /pws/zycet018

         WHERE despach =  /pws/zycee001-despach

           AND codmod  =  'X'

           AND status  =  /pws/zycee018-status

           AND nrseq   IN it_nrseq

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

           AND tpgto   =  'A'.

* << Fim da exclusão

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

           AND tpgto   =  'A'

           AND tipo    = /pws/zycee018-tipo.

* << Fim da inclusão

  PERFORM atualiza_it_tab.

  v_codmod = 'X'.

  LOOP AT it_tab.

    SELECT SINGLE * FROM /pws/zycbt007

            INTO wa_zycbt007

            WHERE bukrs EQ it_tab-bukrs.

    MOVE-CORRESPONDING it_tab TO it_tab_aux.

    it_tab_aux-waersb = wa_zycbt007-waersb.

    APPEND it_tab_aux.

  ENDLOOP.

...

 

...

    ENDIF.

    APPEND it_zycet045_aux.

  ENDLOOP.

  IF /pws/zycee018-dtincl EQ '        ' OR

     /pws/zycee018-dtincl EQ '00000000' OR

     /pws/zycee018-dtincl IS INITIAL.

    /pws/zycee018-dtincl = sy-datlo.

  ENDIF.

ENDFORM.

FORM select_tables.

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

DATA: tipo    LIKE /pws/zycet015-tipo.

* << Fim da exclusão

  SELECT SINGLE land1 FROM t001

      INTO t001-land1

      WHERE bukrs = /pws/zycee018-bukrs .

  SELECT SINGLE regio FROM t001w

      INTO t001w-regio

      WHERE werks = /pws/zycee018-werks.

  SELECT SINGLE tipo FROM /pws/zycet015

      INTO tipo

     WHERE nrseq   = /pws/zycee018-nrseq

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

       AND despach = /pws/zycee018-despach.

* << Fim da exclusão

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

       AND despach = /pws/zycee018-despach

       AND tipo    = /pws/zycee018-tipo.

* << Fim da inclusão

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

  SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

            WHERE werks = /pws/zycee018-werks AND

                  bukrs = /pws/zycee018-bukrs AND

                  regio = t001w-regio         AND

                  land1 = t001-land1          AND

                  prestc = 'X'                AND

                  tipo  = tipo                AND

                  lifnr = /pws/zycee018-despach.

  IF sy-subrc NE 0.

    SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

       WHERE werks = /pws/zycee018-werks AND

             bukrs = /pws/zycee018-bukrs AND

             regio = t001w-regio         AND

             tipo  = tipo                  AND

             lifnr = /pws/zycee018-despach AND

             prestc = 'X'.

    IF sy-subrc NE 0.

      SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

        WHERE werks = /pws/zycee018-werks AND

              bukrs = /pws/zycee018-bukrs AND

              tipo  = tipo                  AND

              lifnr = /pws/zycee018-despach AND

              prestc = 'X'.

      IF sy-subrc NE 0.

        SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

          WHERE bukrs = /pws/zycee018-bukrs AND

                tipo  = tipo                  AND

                lifnr = /pws/zycee018-despach AND

                prestc = 'X'.

        IF sy-subrc NE 0.

          SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

                    WHERE land1  EQ space

                      AND bukrs  EQ space

                      AND regio  EQ space

                      AND werks  EQ space

                      AND prestc EQ 'X'

                      AND tipo  = tipo

                      AND lifnr = /pws/zycee018-despach.

           IF sy-subrc EQ 0.

             SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa

                     WHERE land1  EQ space

                       AND bukrs  EQ space

                       AND regio  EQ space

                       AND werks  EQ space

                       AND tipo  = tipo

                       AND lifnr  EQ space

                       AND prestc EQ 'X'.

           ENDIF.

           IF sy-subrc EQ 0.

             SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa

                     WHERE land1  EQ space

                       AND bukrs  EQ space

                       AND regio  EQ space

                       AND werks  EQ space

                       AND tipo   EQ space

                       AND lifnr  EQ space

                       AND prestc EQ 'X'.

           ENDIF.

           IF sy-subrc NE 0.

             SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   = tipo

                         AND lifnr EQ space

                         AND prestc EQ 'X'.

             IF sy-subrc EQ 0.

               SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   EQ space

                         AND lifnr  EQ space

                         AND prestc EQ 'X'.

             ENDIF.

             IF sy-subrc NE 0.

               SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   EQ space

                         AND lifnr  = /pws/zycee018-despach

                         AND prestc EQ 'X'.

               IF sy-subrc EQ 0.

                 SELECT * FROM /pws/zycet021 APPENDING TABLE it_despesa

                         WHERE land1  EQ space

                           AND bukrs  EQ space

                           AND regio  EQ space

                           AND werks  EQ space

                           AND tipo   EQ space

                           AND lifnr  EQ space

                           AND prestc EQ 'X'.

               ENDIF.

               IF sy-subrc NE 0.

                 SELECT * FROM /pws/zycet021 INTO TABLE it_despesa

                         WHERE land1  EQ space

                           AND bukrs  EQ space

                           AND regio  EQ space

                           AND werks  EQ space

                           AND tipo   EQ space

                           AND lifnr  EQ space

                           AND prestc EQ 'X'.

               ENDIF.

             ENDIF.

           ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da exclusão

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

  PERFORM select_parameters

          USING

             t001-land1

             /pws/zycee018-bukrs

             t001w-regio

             /pws/zycee018-werks

             tipo

             /pws/zycee018-despach

             'X'

          CHANGING

             it_despesa[].

* << Fim da inclusão

  IF NOT /pws/zycee018-dtincl IS INITIAL AND

     NOT /pws/zycee018-vlmi   IS INITIAL.

    IF NOT it_despesa[] IS INITIAL.

      SELECT * FROM /pws/zycet045 INTO TABLE it_zycet045

             FOR ALL ENTRIES IN it_despesa

             WHERE tpdesp = it_despesa-tpdesp

               AND nradto = /pws/zycee018-nradto.

    ENDIF.

  ENDIF.

  SELECT * FROM /pws/zyglt334 INTO TABLE itab_zyglt334

...

 

...

    MOVE  it_tab_aux-zlsch TO /pws/zycee018-zlsch.

    MOVE  it_tab_aux-zlspr TO /pws/zycee018-zlspr.

    IF NOT it_tab_aux-dtincl IS INITIAL AND

       NOT it_tab_aux-vlmi IS INITIAL AND

       NOT it_tab_aux-dtvencto IS INITIAL.

      MOVE: it_tab_aux-embarca  TO  /pws/zycee018-embarca,

            it_tab_aux-nrseq    TO  /pws/zycee018-nrseq,

            it_tab_aux-werks    TO  /pws/zycee018-werks,

            it_tab_aux-bukrs    TO  /pws/zycee018-bukrs,

            it_tab_aux-waersb   TO  /pws/zycee018-waers,

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

            it_tab_aux-tipo   TO  /pws/zycee018-tipo,

* << Fim da inclusão

            it_tab_aux-despach  TO  /pws/zycee018-despach.

      CLEAR: it_tab_aux-dtincl, it_tab_aux-vlmi, it_tab_aux-dtvencto,

             /pws/zycee018-vlmi, /pws/zycee018-dtvencto.

      IF it_tab_aux[] IS INITIAL.

        APPEND it_tab_aux.

      ENDIF.

      PERFORM seleciona_dados.

      IF sy-tcode EQ '/PWS/ZYCE005'.

        AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'

                                            DUMMY

...

 

...

      PERFORM busca_exit USING 'ADT002'.

      CALL SCREEN '0300'.

    ELSE.

      MOVE: it_tab_aux-embarca  TO /pws/zycee018-embarca,

            it_tab_aux-nrseq    TO /pws/zycee018-nrseq,

            it_tab_aux-dtincl   TO /pws/zycee018-dtincl,

            it_tab_aux-vlmi     TO /pws/zycee018-vlmi,

            it_tab_aux-dtvencto TO /pws/zycee018-dtvencto,

            it_tab_aux-werks    TO /pws/zycee018-werks,

            it_tab_aux-bukrs    TO /pws/zycee018-bukrs,

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

            it_tab_aux-tipo   TO  /pws/zycee018-tipo,

* << Fim da inclusão

           it_tab_aux-despach  TO /pws/zycee018-despach.

      MODIFY it_tab_aux INDEX sy-tabix.

      SELECT SINGLE waers

       FROM t001

       INTO /pws/zycee018-waers

        WHERE bukrs = it_tab_aux-bukrs.

      IF sy-subrc <> 0.

        CLEAR /pws/zycee018-waers.

      ENDIF.

      PERFORM seleciona_dados.

...

 

...

      it_tab-nradto   =  it_tab3-nradto.

      it_tab-vlmi     =  it_tab3-vlmi.

      it_tab-dtaprov  =  it_tab3-dtaprov.

      it_tab-dtvencto =  it_tab3-dtvencto.

      it_tab-dtacerto =  it_tab3-dtacerto.

      it_tab-codmod   =  it_tab3-codmod.

      it_tab-status   =  it_tab3-status.

      it_tab-dtincl   =  it_tab3-dtincl.

      it_tab-tpgto    =  it_tab3-tpgto.

      it_tab-area     =  it_tab3-area.

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

      it_tab-tipo      = it_tab3-tipo.

* << Fim da inclusão

    ENDIF.

    APPEND it_tab.

  ENDLOOP.

  LOOP AT it_tab2.

    READ TABLE it_tab WITH KEY nrseq = it_tab2-nrseq.

    IF sy-subrc NE 0.

      CLEAR:

         it_tab-nradto ,

        it_tab-vlmi  ,

        it_tab-dtaprov ,

...

 

...

        it_tab-dtacerto,

        it_tab-codmod  ,

        it_tab-status  ,

        it_tab-dtincl  ,

        it_tab-tpgto   .

      it_tab-nrseq    =  it_tab2-nrseq.

      it_tab-despach  =  it_tab2-despach.

      it_tab-bukrs    =  it_tab2-bukrs.

      it_tab-werks    =  it_tab2-werks.

      it_tab-embarca  =  it_tab2-nremb.

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

      it_tab-tipo      = it_tab2-tipo.

* << Fim da inclusão

      APPEND it_tab.

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM chama_embarque.

  DATA: v_campo2(50),

        v_valor2(20),

        v_emb1 LIKE /pws/zycet018-nrseq,

        v_export(10) TYPE c.

  GET CURSOR FIELD v_campo2 VALUE v_valor2.

...

 

...

      EXIT.

  ENDCASE.

ENDFORM.

FORM checar_prestacao CHANGING p_prestacao.

  SELECT SINGLE nrpres

   FROM /pws/zycet033

   INTO p_prestacao

    WHERE nrseq  EQ /pws/zycee018-nrseq

      AND nradto EQ /pws/zycee018-nradto.

ENDFORM.

* >> Início da inclusão:

FORM select_parameters

     USING

        p_land1        TYPE t001-land1

        p_bukrs        TYPE /pws/zycee018-bukrs

        p_regio        TYPE t001w-regio

        p_werks        TYPE /pws/zycee018-werks

        p_tipo         TYPE /pws/zycet015-tipo

        p_lifnr        TYPE /pws/zycee018-despach

        p_prestc       TYPE /pws/zycet021-prestc

     CHANGING

        p_it_despesa   TYPE t_despesa.

DATA: BEGIN OF p_it_despesa_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet021.

DATA: END OF p_it_despesa_aux.

  SELECT *

      INTO TABLE p_it_despesa[]

      FROM /pws/zycet021

      WHERE land1        IN (p_land1,      space)

        AND bukrs        IN (p_bukrs,      space)

        AND regio        IN (p_regio,      space)

        AND werks        IN (p_werks,      space)

        AND tipo         IN (p_tipo,       space)

        AND lifnr        IN (p_lifnr,      space)

        AND prestc       IN (p_prestc).

  CHECK sy-subrc = 0.

  SORT p_it_despesa[] DESCENDING BY werks

                                    bukrs

                                    regio

                                    land1

                                    tipo

                                    lifnr

                                    prestc.

  DATA: wa_despesa LIKE LINE OF p_it_despesa[].

LOOP AT p_it_despesa INTO wa_despesa.

  READ TABLE p_it_despesa_aux WITH KEY wa_despesa-tpdesp.

  IF sy-subrc NE 0.

    APPEND wa_despesa TO p_it_despesa_aux[].

  ENDIF.

ENDLOOP.

SORT p_it_despesa_aux[]  BY tpdesp.

p_it_despesa[] = p_it_despesa_aux[].

ENDFORM.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCE005O01

 

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS0100'.

  SET TITLEBAR  '0100'.

  /pws/zycee018-status = 'I'.

  GET PARAMETER ID '/PWS/ZYCEP003' FIELD /pws/zycee001-despach.

* >> Início da inclusão: MODULE STATUS_0100

  GET PARAMETER ID '/PWS/ZYGLP158' FIELD /pws/zycee018-tipo.

* << Fim da inclusão

ENDMODULE.

MODULE status_0200 OUTPUT.

  SET PF-STATUS 'STATUS200'.

  SET TITLEBAR  '0200'.

ENDMODULE.

MODULE status_0300 OUTPUT.

  PERFORM load_status.

  IF /pws/zycee018-dtvencto IS INITIAL.

    SET PF-STATUS 'STATUS0300'.

  ELSE.

...

 

...

        it_tab_aux-embarca  TO /pws/zycee018-embarca,

        it_tab_aux-nradto   TO /pws/zycee018-nradto,

        it_tab_aux-vlmi     TO /pws/zycee018-vlmi,

        it_tab_aux-dtaprov  TO /pws/zycee018-dtaprov,

        it_tab_aux-dtvencto TO /pws/zycee018-dtvencto,

        it_tab_aux-dtincl   TO /pws/zycee018-dtincl,

        it_tab_aux-despach  TO /pws/zycee018-despach,

        it_tab_aux-dtacerto TO /pws/zycee018-dtacerto,

        it_tab_aux-bukrs    TO /pws/zycee018-bukrs,

        it_tab_aux-werks    TO /pws/zycee018-werks,

* >> Início da exclusão: MODULE DISPLAY

        it_tab_aux-waersb   TO /pws/zycee018-waers.

* << Fim da exclusão

* >> Início da inclusão: MODULE DISPLAY

        it_tab_aux-waersb   TO /pws/zycee018-waers,

        it_tab_aux-tipo     TO /pws/zycee018-tipo.

* << Fim da inclusão

  tc1-lines = tc1-lines + 7.

  MODIFY it_tab_aux INDEX tc1-current_line.

ENDMODULE.

MODULE display2 OUTPUT.

  MOVE: it_zycet045_aux-tpdesp      TO /pws/zycee045-tpdesp,

        it_zycet045_aux-descr       TO /pws/zycee045-descr,

        it_zycet045_aux-vldp        TO /pws/zycee045-vldp,

        it_zycet045_aux-vlprovme    TO /pws/zycee045-vlprovme,

        it_zycet045_aux-waers_prov  TO /pws/zycee045-waers_prov.

  tc2-lines = tc2-lines + 7.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE005TOP

 

...

        dtvencto  LIKE  /pws/zycet018-dtvencto,

        dtacerto  LIKE  /pws/zycet018-dtacerto,

        codmod    LIKE  /pws/zycet018-codmod,

        status    LIKE  /pws/zycet018-status,

        dtincl    LIKE  /pws/zycet018-dtincl,

        tpgto     LIKE  /pws/zycet018-tpgto,

        zlsch     LIKE  /pws/zycet018-zlsch,

        zlspr     LIKE  /pws/zycet018-zlspr,

        selforn   LIKE /pws/zycit224-selforn,

        area      LIKE  /pws/zycet018-area,

* >> Início da inclusão:

      tipo     LIKE /pws/zycet018-tipo,

* << Fim da inclusão

      END OF it_tab.

DATA: BEGIN  OF  it_tab_aux OCCURS 0.

        INCLUDE STRUCTURE it_tab.

DATA:  waersb LIKE  /pws/zycet045-waers,

       marc.

DATA: END OF  it_tab_aux.

DATA: BEGIN OF it_tab2 OCCURS 0,

      nrseq   LIKE /pws/zycet001-nrseq,

      despach LIKE /pws/zycet015-despach,

      bukrs   LIKE /pws/zycet001-bukrs,

      werks   LIKE /pws/zycet001-werks,

      nremb   LIKE /pws/zycet001-nremb,

* >> Início da inclusão:

      tipo     LIKE /pws/zycet015-tipo,

* << Fim da inclusão

      END OF it_tab2.

DATA: BEGIN OF it_tab3 OCCURS 0,

      nrseq  LIKE /pws/zycet018-nrseq,

      nradto LIKE /pws/zycet018-nradto,

      vlmi   LIKE /pws/zycet018-vlmi,

      dtaprov LIKE /pws/zycet018-dtaprov,

      dtvencto LIKE /pws/zycet018-dtvencto,

      dtacerto LIKE /pws/zycet018-dtacerto,

      codmod   LIKE /pws/zycet018-codmod,

      status   LIKE /pws/zycet018-status,

      dtincl   LIKE /pws/zycet018-dtincl,

      tpgto    LIKE /pws/zycet018-tpgto,

      area     LIKE /pws/zycet018-area,

* >> Início da inclusão:

      tipo     LIKE /pws/zycet018-tipo,

* << Fim da inclusão

      END OF it_tab3.

DATA: BEGIN OF t_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF  t_contas.

DATA: BEGIN OF it_despesa OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet021.

DATA: END OF it_despesa.

DATA: BEGIN OF it_zycet045_aux OCCURS 0.

        INCLUDE STRUCTURE it_zycet045.

DATA:   mark.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE005X01

 

TABLES: /pws/zycee001,

        /pws/zycee018.

* >> Início da inclusão:

DATA: tipo    LIKE /pws/zycet015-tipo.

TYPES: s_despesa TYPE /pws/zycet021,

       t_despesa TYPE STANDARD TABLE OF s_despesa.

* << Fim da inclusão

TYPES:

  BEGIN OF zcxtab_column,

    screen       LIKE screen,

    index        TYPE i,

    selected(1)  TYPE c,

    vislength    LIKE icon-oleng,

    invisible(1) TYPE c,

  END   OF zcxtab_column.

data:

  begin of common part c,

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE013F01

 

...

      IF sy-subrc NE 0.

        MESSAGE s008.

      ENDIF.

      CLEAR itab_zycet015. REFRESH itab_zycet015.

      SELECT a~nrseq  b~nremb  b~bukrs a~despach

          FROM /pws/zycet015 AS a

          INNER JOIN /pws/zycet001 AS b

          ON a~nrseq = b~nrseq

          INTO TABLE itab_zycet015

          WHERE a~despach  EQ  /pws/zycee018-despach AND

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

                b~nrseq    IN  itab_nrseq.

* << Fim da exclusão

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

                b~nrseq    IN  itab_nrseq            AND

                a~tipo     EQ /pws/zycee018-tipo.

* << Fim da inclusão

      IF sy-subrc NE 0.

        MESSAGE s008.

        CALL SCREEN '0001'.

      ENDIF.

      CLEAR itab_zycet018. REFRESH itab_zycet018.

      SELECT nrseq   despach  embarca  nradto  vlmi  dtaprov

             dtincl  dtvencto dtacerto status  waers

          FROM /pws/zycet018

          INTO TABLE itab_zycet018

          WHERE codmod  =  c_module AND

                status  =  'A'      AND

                nrseq   IN itab_nrseq AND

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

                despach  EQ  /pws/zycee018-despach.

* << Fim da exclusão

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

                despach  EQ  /pws/zycee018-despach AND

                tipo     EQ /pws/zycee018-tipo.

* << Fim da inclusão

      CLEAR itab_zycet033_i. REFRESH itab_zycet033_i.

      SELECT nrseq nradto despach nrpres embarca bukrs dtacerto

             dtincl waers vlmi vldf status dtaprov dtvencto

             observ

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

             tipo

* << Fim da inclusão

          FROM /pws/zycet033

          INTO TABLE itab_zycet033_i

          WHERE codmod = c_module AND

                status = /pws/zycee018-status.

      CLEAR itab_zycet033_a. REFRESH itab_zycet033_a.

      SELECT nrseq nradto despach nrpres embarca bukrs dtacerto

             dtincl waers vlmi vldf status dtaprov dtvencto

             observ

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

             tipo

* << Fim da inclusão

          FROM /pws/zycet033

          INTO TABLE itab_zycet033_a

          WHERE codmod = c_module AND

                status = 'A' .

      IF NOT itab_zycet015[] IS INITIAL.

        CLEAR itab_moeda. REFRESH itab_moeda.

        SELECT nrseq waers FROM /pws/zycet002

            INTO CORRESPONDING FIELDS OF TABLE itab_moeda

            FOR ALL ENTRIES IN itab_zycet015

            WHERE nrseq = itab_zycet015-nrseq.

...

 

...

      LOOP AT itab_zycet033 WHERE marc = 'X'.

        /pws/zycee033-codmod  = itab_zycet033-codmod.

        /pws/zycee033-nrseq   = itab_zycet033-nrseq.

        /pws/zycee033-nradto  = itab_zycet033-nradto.

        /pws/zycee033-despach = itab_zycet033-despach.

        /pws/zycee033-embarca = itab_zycet033-embarca.

        /pws/zycee033-werks   = itab_zycet033-werks.

        /pws/zycee033-bukrs   = itab_zycet033-bukrs.

        /pws/zycee033-waers   = itab_zycet033-waers.

        /pws/zycee033-status  = itab_zycet033-status.

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

        /pws/zycee033-tipo  = itab_zycet033-tipo.

* << Fim da inclusão

        IF /pws/zycee033-bukrs IS INITIAL OR

           /pws/zycee033-werks IS INITIAL.

          SELECT SINGLE bukrs werks

              INTO (/pws/zycee033-bukrs, /pws/zycee033-werks)

              FROM /pws/zycet001

              WHERE nrseq = /pws/zycee033-nrseq.

        ENDIF.

        PERFORM ajusta_empresa_iva CHANGING v_impiva.

        PERFORM busca_nivel_str.

        SELECT SINGLE land1 FROM t001

...

 

...

  itab_zycet033-bukrs    = itab_zycet033_i-bukrs.

  itab_zycet033-dtincl   = itab_zycet033_i-dtincl.

  itab_zycet033-dtaprov  = itab_zycet033_i-dtaprov.

  itab_zycet033-dtvencto = itab_zycet033_i-dtvencto.

  itab_zycet033-dtacerto = itab_zycet033_i-dtacerto.

  itab_zycet033-vlmi     = itab_zycet033_i-vlmi.

  itab_zycet033-vldf     = itab_zycet033_i-vldf.

  itab_zycet033-waers    = itab_zycet033_i-waers.

  itab_zycet033-observ   = itab_zycet033_i-observ.

  itab_zycet033-status   = itab_zycet033_i-status.

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

  itab_zycet033-tipo   = itab_zycet033_i-tipo.

* << Fim da inclusão

  APPEND itab_zycet033.

  CLEAR  itab_zycet033.

  DELETE itab_zycet033_i WHERE   nrseq  = itab_zycet018-nrseq  AND

                                 nradto = itab_zycet018-nradto AND

                                 nrpres = itab_zycet033-nrpres.

ENDFORM.

FORM prestacao_com_adiantamento.

  itab_zycet033-codmod   = c_module.

  itab_zycet033-nrseq    = itab_zycet015-nrseq.

  itab_zycet033-embarca  = itab_zycet015-nremb.

...

 

...

  itab_zycet033-dtvencto = ' '.

  itab_zycet033-dtacerto = itab_zycet018-dtacerto.

  itab_zycet033-vlmi     = itab_zycet018-vlmi.

  itab_zycet033-vldf     = ' '.

  itab_zycet033-waers    = itab_zycet018-waers.

  itab_zycet033-observ   = ' '.

  itab_zycet033-status   = 'I'.

  SELECT SINGLE werks INTO itab_zycet033-werks

    FROM /pws/zycet001

    WHERE nrseq = itab_zycet015-nrseq.

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

  itab_zycet033-tipo     = itab_zycet018-tipo.

* << Fim da inclusão

  APPEND itab_zycet033.

  CLEAR  itab_zycet033.

  DELETE itab_zycet033_a WHERE nrseq  = itab_zycet018-nrseq AND

                               nradto = itab_zycet018-nradto.

ENDFORM.

FORM prestacao_i_sem_adto.

  itab_zycet033-codmod   = c_module.

  itab_zycet033-nrseq    = itab_zycet033_i-nrseq.

  itab_zycet033-embarca  = itab_zycet033_i-embarca.

  itab_zycet033-despach  = itab_zycet033_i-despach.

...

 

...

  itab_zycet033-bukrs    = itab_zycet033_i-bukrs.

  itab_zycet033-dtincl   = itab_zycet033_i-dtincl.

  itab_zycet033-dtaprov  = itab_zycet033_i-dtaprov.

  itab_zycet033-dtvencto = itab_zycet033_i-dtvencto.

  itab_zycet033-dtacerto = itab_zycet033_i-dtacerto.

  itab_zycet033-vlmi     = itab_zycet033_i-vlmi.

  itab_zycet033-vldf     = itab_zycet033_i-vldf.

  itab_zycet033-waers    = itab_zycet033_i-waers.

  itab_zycet033-observ   = itab_zycet033_i-observ.

  itab_zycet033-status   = itab_zycet033_i-status.

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

  itab_zycet033-tipo   = itab_zycet033_i-tipo.

* << Fim da inclusão

  APPEND itab_zycet033.

  CLEAR  itab_zycet033.

ENDFORM.

FORM prestacao_nova_sem_adto.

  itab_zycet033-codmod   = c_module.

  itab_zycet033-nrseq    = itab_zycet015-nrseq.

  itab_zycet033-embarca  = itab_zycet015-nremb.

  itab_zycet033-despach  = /pws/zycee018-despach.

  itab_zycet033-nradto   = ' '.

  itab_zycet033-nrpres   = ' '.

...

 

...

  itab_zycet033-dtvencto = ' '.

  itab_zycet033-dtacerto = ' '.

  itab_zycet033-vlmi     = ' '.

  itab_zycet033-vldf     = ' '.

  itab_zycet033-waers    = itab_moeda-waers.

  itab_zycet033-observ   = ' '.

  itab_zycet033-status   = 'I'.

  SELECT SINGLE werks INTO itab_zycet033-werks

    FROM /pws/zycet001

    WHERE nrseq = itab_zycet015-nrseq.

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

  itab_zycet033-tipo   = /pws/zycee018-tipo.

* << Fim da inclusão

  APPEND itab_zycet033.

  CLEAR  itab_zycet033.

ENDFORM.

FORM carrega_estrutura.

  CASE sy-dynnr.

    WHEN '0002'.

      CHECK NOT itab_zycet033-nrseq IS INITIAL.

      MOVE-CORRESPONDING itab_zycet033 TO /pws/zycee033.

    WHEN '0100'.

      MOVE: itab_zycet043-tpdesp     TO /pws/zycee043-tpdesp,

...

 

...

        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: tipo    LIKE /pws/zycet015-tipo.

* << Fim da exclusão

  CLEAR itab_zycet002. REFRESH itab_zycet002.

  SELECT * FROM /pws/zycet002

      INTO TABLE itab_zycet002

      WHERE nrseq = /pws/zycee033-nrseq.

  IF NOT itab_zycet002[] IS INITIAL.

    PERFORM trata_ordem_estornos.

    IF NOT itab_zycet002[] IS INITIAL.

      SELECT DISTINCT * FROM /pws/zycet016

             APPENDING TABLE itab_zycet016

          FOR ALL ENTRIES IN itab_zycet002

...

 

...

    v_campo = itab_zyglt338-campo.

  ENDLOOP.

  SELECT SINGLE land1 FROM t001

      INTO t001-land1

      WHERE bukrs = /pws/zycee033-bukrs .

  SELECT SINGLE regio FROM t001w

      INTO t001w-regio

      WHERE werks = /pws/zycee033-werks.

  SELECT SINGLE tipo FROM /pws/zycet015

      INTO tipo

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

     WHERE nrseq   = /pws/zycee018-nrseq

       AND despach = /pws/zycee018-despach.

* << Fim da exclusão

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

     WHERE nrseq   = /pws/zycee033-nrseq

       AND despach = /pws/zycee033-despach

       AND tipo    = /pws/zycee033-tipo.

* << Fim da inclusão

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

  CLEAR itab_zycet021. REFRESH itab_zycet021.

* << Fim da exclusão

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

  PERFORM select_parameters

          USING

* << Fim da inclusão

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

  SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

            WHERE werks = /pws/zycee033-werks   AND

                  bukrs = /pws/zycee033-bukrs   AND

                  regio = t001w-regio           AND

                  land1 = t001-land1            AND

                  tipo  = tipo                  AND

                  lifnr = /pws/zycee033-despach AND

                  prestc = 'X'.

  IF sy-subrc NE 0.

    SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

       WHERE werks = /pws/zycee033-werks   AND

             bukrs = /pws/zycee033-bukrs   AND

             regio = t001w-regio           AND

             tipo  = tipo                  AND

             lifnr = /pws/zycee033-despach AND

             prestc = 'X'.

* << Fim da exclusão

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

             t001-land1

             /pws/zycee033-bukrs

             t001w-regio

             /pws/zycee033-werks

             tipo

             /pws/zycee033-despach

             'X'

          CHANGING

             itab_zycet021[].

* << Fim da inclusão

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

    IF sy-subrc NE 0.

      SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

        WHERE werks = /pws/zycee033-werks   AND

              bukrs = /pws/zycee033-bukrs   AND

              tipo  = tipo                  AND

              lifnr = /pws/zycee033-despach AND

              prestc = 'X'.

      IF sy-subrc NE 0.

        SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

          WHERE bukrs = /pws/zycee033-bukrs   AND

                tipo  = tipo                  AND

                lifnr = /pws/zycee033-despach AND

                prestc = 'X'.

        IF sy-subrc NE 0.

          SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

            WHERE werks = space                 AND

                  bukrs = space                 AND

                  tipo  = tipo                  AND

                  lifnr = /pws/zycee033-despach AND

                  prestc = 'X'.

           IF sy-subrc EQ 0.

             SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021

                     WHERE land1  EQ space

                       AND bukrs  EQ space

                       AND regio  EQ space

                       AND werks  EQ space

                       AND tipo  = tipo

                       AND lifnr  EQ space

                       AND prestc EQ 'X'.

           ENDIF.

           IF sy-subrc EQ 0.

             SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021

                     WHERE land1  EQ space

                       AND bukrs  EQ space

                       AND regio  EQ space

                       AND werks  EQ space

                       AND tipo   EQ space

                       AND lifnr  EQ space

                       AND prestc EQ 'X'.

           ENDIF.

           IF sy-subrc NE 0.

             SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   = tipo

                         AND lifnr EQ space

                         AND prestc EQ 'X'.

             IF sy-subrc EQ 0.

               SELECT * FROM /pws/zycet021 APPENDING TABLE itab_zycet021

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   EQ space

                         AND lifnr  EQ space

                         AND prestc EQ 'X'.

             ENDIF.

             IF sy-subrc NE 0.

               SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

                       WHERE land1  EQ space

                         AND bukrs  EQ space

                         AND regio  EQ space

                         AND werks  EQ space

                         AND tipo   EQ space

                         AND lifnr  = /pws/zycee018-despach

                         AND prestc EQ 'X'.

               IF sy-subrc EQ 0.

               SELECT * FROM /pws/zycet021 APPENDING TABLE Itab_zycet021

                         WHERE land1  EQ space

                           AND bukrs  EQ space

                           AND regio  EQ space

                           AND werks  EQ space

                           AND tipo   EQ space

                           AND lifnr  EQ space

                           AND prestc EQ 'X'.

               ENDIF.

               IF sy-subrc NE 0.

                 SELECT * FROM /pws/zycet021 INTO TABLE itab_zycet021

                         WHERE land1  EQ space

                           AND bukrs  EQ space

                           AND regio  EQ space

                           AND werks  EQ space

                           AND tipo   EQ space

                           AND lifnr  EQ space

                           AND prestc EQ 'X'.

               ENDIF.

             ENDIF.

           ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da exclusão

  IF NOT itab_zycet021[] IS INITIAL.

    PERFORM busca_exit USING 'PDC009'.

    SELECT *

        FROM /pws/zycet043

        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

...

 

...

    WHEN 'ZTERMF'.

     SELECT SINGLE zterm

          FROM lfb1

          INTO p_zterm

          WHERE lifnr = p_lifnr

            AND bukrs = p_bukrs.

    WHEN space.

      p_zterm = wa_zyglt321-descr.

  ENDCASE.

ENDFORM.

* >> Início da inclusão:

FORM select_parameters

     USING

        p_land1        TYPE t001-land1

        p_bukrs        TYPE /pws/zycee033-bukrs

        p_regio        TYPE t001w-regio

        p_werks        TYPE /pws/zycee033-werks

        p_tipo         TYPE /pws/zycet015-tipo

        p_lifnr        TYPE /pws/zycee033-despach

        p_prestc       TYPE /pws/zycet021-prestc

     CHANGING

        p_it_despesa   TYPE t_despesa.

DATA: BEGIN OF p_it_despesa_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet021.

DATA: END OF p_it_despesa_aux.

  SELECT *

      INTO TABLE p_it_despesa[]

      FROM /pws/zycet021

      WHERE land1        IN (p_land1,      space)

        AND bukrs        IN (p_bukrs,      space)

        AND regio        IN (p_regio,      space)

        AND werks        IN (p_werks,      space)

        AND tipo         IN (p_tipo,       space)

        AND lifnr        IN (p_lifnr,      space)

        AND prestc       IN (p_prestc).

  CHECK sy-subrc = 0.

  SORT p_it_despesa[] DESCENDING BY werks

                                    bukrs

                                    regio

                                    land1

                                    tipo

                                    lifnr

                                    prestc.

  DATA: wa_despesa LIKE LINE OF p_it_despesa[].

LOOP AT p_it_despesa INTO wa_despesa.

  READ TABLE p_it_despesa_aux WITH KEY wa_despesa-tpdesp.

  IF sy-subrc NE 0.

    APPEND wa_despesa TO p_it_despesa_aux[].

  ENDIF.

ENDLOOP.

SORT p_it_despesa_aux[]  BY tpdesp.

p_it_despesa[] = p_it_despesa_aux[].

ENDFORM.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCE013TOP

 

...

         despach      LIKE /pws/zycet018-despach,

         embarca      LIKE /pws/zycet018-embarca,

         nradto       LIKE /pws/zycet018-nradto,

         vlmi         LIKE /pws/zycet018-vlmi,

         dtaprov      LIKE /pws/zycet018-dtaprov,

         dtincl       LIKE /pws/zycet018-dtincl,

         dtvencto     LIKE /pws/zycet018-dtvencto,

         dtacerto     LIKE /pws/zycet018-dtacerto,

         status       LIKE /pws/zycet018-status,

         waers        LIKE /pws/zycet018-waers,

* >> Início da inclusão:

         tipo         LIKE /pws/zycet033-tipo,

* << Fim da inclusão

      END   OF itab_zycet018.

DATA: BEGIN OF itab_zycet033_i OCCURS 10,

         nrseq        LIKE /pws/zycet033-nrseq,

         nradto       LIKE /pws/zycet033-nradto,

         despach      LIKE /pws/zycet033-despach,

         nrpres       LIKE /pws/zycet033-nrpres,

         embarca      LIKE /pws/zycet033-embarca,

         bukrs        LIKE /pws/zycet033-bukrs,

         dtacerto     LIKE /pws/zycet033-dtacerto,

         dtincl       LIKE /pws/zycet033-dtincl,

         waers        LIKE /pws/zycet033-waers,

         vlmi         LIKE /pws/zycet033-vlmi,

         vldf         LIKE /pws/zycet033-vldf,

         status       LIKE /pws/zycet033-status,

         dtaprov      LIKE /pws/zycet033-dtaprov,

         dtvencto     LIKE /pws/zycet033-dtvencto,

         observ       LIKE /pws/zycet033-observ,

* >> Início da inclusão:

         tipo         LIKE /pws/zycet033-tipo,

* << Fim da inclusão

      END   OF itab_zycet033_i.

DATA: BEGIN OF itab_zycet045 OCCURS 10,

         nrseq        LIKE /pws/zycet045-nrseq,

         nradto       LIKE /pws/zycet045-nradto,

         tpdesp       LIKE /pws/zycet045-tpdesp,

         descr        LIKE /pws/zycet045-descr,

         vldp         LIKE /pws/zycet045-vldp,

         waers        LIKE /pws/zycet045-waers,

      END   OF itab_zycet045.

DATA: BEGIN OF itab_zycet016 OCCURS 10.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCE013X01

 

TABLES: /pws/zycee033,

        /pws/zyglt343.

* >> Início da inclusão:

DATA: tipo    LIKE /pws/zycet015-tipo.

TYPES: s_despesa TYPE /pws/zycet021,

       t_despesa TYPE STANDARD TABLE OF s_despesa.

* << Fim da inclusão

TYPES:

  BEGIN OF zcxtab_column,

    screen       LIKE screen,

    index        TYPE i,

    selected(1)  TYPE c,

    vislength    LIKE icon-oleng,

    invisible(1) TYPE c,

  END   OF zcxtab_column.

DATA: BEGIN OF COMMON PART c.

DATA: v_totdep        LIKE /pws/zyglt342-valorinc,

...

 

 

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

Modificações efetuadas em SHLD /PWS/ZYCEA071

 

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCEA071

DESCRIÇÃO BREVE: Código de imposto IVA

 

DEFINIÇÃO

 

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: T007A

TABELA DE TEXTOS: T007S

 

COMPORTAMENTO DE DIÁLOGO: ____________________________

TIPO DE DIÁLOGO: EXIBIÇÃO DE VALORES IMEDIATA

HOT KEY: ____

 

EXIT AJUD. PESQUISA: _________________________________

 

PARÂMETROS:

 

PARAM.    IMP EXP POSL ISEL EXAJ ELEM. DADOS    MOD  VALOR PROPOSTO

KALSM              1    1        KALSM_D

MWSKZ      X   X   2    2        MWSKZ

TEXT1              3    3        TEXT1_007S

 

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

Modificações efetuadas em TABD /PWS/ZYCEE018

 

MODIFICAR ESTRUTURA: /PWS/ZYCEE018

DESCRIÇÃO BREVE: CE - Adiantamento

 

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

TIPO            /PWS/ZYGLL158

 

COMPONENTES EXCLUÍDOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

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

Modificações efetuadas em TABD /PWS/ZYCEE021

 

MODIFICAR ESTRUTURA: /PWS/ZYCEE021

DESCRIÇÃO BREVE: CE - Parâmetro De/Para Despesas

 

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

TIPO            /PWS/ZYGLL158

 

COMPONENTES EXCLUÍDOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

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

Modificações efetuadas em TABD /PWS/ZYCEE033

 

MODIFICAR ESTRUTURA: /PWS/ZYCEE033

DESCRIÇÃO BREVE: CE - Cabeçalho do Acerto de Contas

 

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

TIPO            /PWS/ZYGLL158

 

COMPONENTES EXCLUÍDOS

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

 

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

Modificações efetuadas em TABD /PWS/ZYCET018

 

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET018

DESCRIÇÃO BREVE: CE - Adiantamento.

 

CARACTERÍSTICAS

 

CATEGORIA DA TABELA: Tabela transparente

CLASSE DE ENTREGA:   (A)Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

 

CAMPOS NOVOS

 

CAMPOS:         TP. CAMPO     CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

TIPO            /PWS/ZYGLL158

 

CAMPOS EXCLUÍDOS

 

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

 

OPÇÕES TÉCNICAS

 

TIPO DE DADOS: CHAR

CATEGOR. TAMANHO: 3

 

(_) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

 

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

Modificações efetuadas em TABD /PWS/ZYCET021

 

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET021

DESCRIÇÃO BREVE: CE - Param. DE/PARA Despesas.

 

CARACTERÍSTICAS

 

CATEGORIA DA TABELA: Tabela transparente

CLASSE DE ENTREGA:   (A)Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

 

CAMPOS NOVOS

 

CAMPOS:         TP. CAMPO     CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

TIPO            /PWS/ZYGLL158  X   X

LIFNR           LIFNR          X   X   LFA1

CAMPOS EXCLUÍDOS

 

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

 

OPÇÕES TÉCNICAS

 

(TIPO)

TIPO DE DADOS: CHAR

CATEGOR. TAMANHO: 3

 

(LIFNR)

TIPO DE DADOS: CHAR

CATEGOR. TAMANHO: 10

 

(_) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

 

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

Modificações efetuadas em TABD /PWS/ZYCET033

 

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET033

DESCRIÇÃO BREVE: CE - Cabeçalho do Acerto de Contas.

 

CARACTERÍSTICAS

 

CATEGORIA DA TABELA: Tabela transparente

CLASSE DE ENTREGA:   (A)Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

 

CAMPOS NOVOS

 

CAMPOS:         TP. CAMPO     CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

TIPO            /PWS/ZYGLL158

 

CAMPOS EXCLUÍDOS

 

CAMPOS:         TP. CAMPO   CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

 

OPÇÕES TÉCNICAS

 

TIPO DE DADOS: CHAR

CATEGOR. TAMANHO: 3

 

(_) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

 

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

Modificações efetuadas em TOBJ /PWS/ZYCET021S

 

Gerar Visão da tabela /PWS/ZYCET021

 

TABELA/VISÃO:     /PWS/ZYCET021

 

INDICAÇÕES TÉCNICAS PARA DIÁLOGO

GRUPO DE AUTORIZAÇÃO:  ZYCE

 

GRUPO DE FUNÇÕES: /PWS/ZYCEGF1

 

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE

 

TELAS DE ATUALIZAÇÃO

 

CATEGORIA ATUALIZAÇÃO: (X) NÍVEL ÚNICO

 

N°. TELA ATUALIZAÇÃO:  TELA DE SÍNTESE 21

                       TELA INDIVIDUAL  0

 

INDICAÇÕES PARA TRANSPORTE DE DADOS DE DIÁLOGO

 

ROTINA DE REGISTRO:  (X)ROTINA DE REGISTRO STANDARD

 

CÓDIGO DE AJUSTE:    AJUSTÁVEL AUTOMATICAMENTE

 

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

Modificações efetuadas em TRAN /PWS/ZYCET021

 

CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET021

 

ATRIBUTOS DA TRANSAÇÃO

TEXTO BREVE: Exibir parâmetros De/Para Despesas

 

OBJETO DE EXECUÇÃO

(_) - PROGRAMA E TELA (TRANSAÇÃO DE DIÁLOGO)

(_) - PROGRAMA E TELA DE SELEÇÃO (TRANSAÇÃO DE REPORT)

 

TEXTO DA TRANSAÇÃO: Exibir parâmetros De/Para Despesas

VIEW: /PWS/ZYCET021

TELA(SELEÇÃO): ___________________________________________________

INÍCIO COM VARIANTE: _____________________________________________

OBJETO DE AUTORIZAÇÃO: ___________________________________________

(_) - ATUALIZAÇÃO DA VARIANTE DA TRANSAÇÃO STANDARD PERMITIDA

 

CLASSIFICAÇÃO

 

CLASSIFICAÇÃO DE TRANSAÇÃO:

(X) - TRANSAÇÃO PROFESSIONAL USER

(_) - TRANSAÇÃO EASY WEB      SERVIÇO: ___________________________

 

CAPACIDADE GUI:

(X) SAP GUI PARA HTML

(X) SAP GUI PARA JAVA

(X) SAP GUI PARA WINDOWS

 

VALORES PROPOSTOS

 

NOME DO CAMPO DA TELA            VALOR

SHOW                             X

VIEWNAME                         /PWS/ZYCET021