Sintoma

Melhoria na navegabilidade da nota fiscal.

Solução

Melhoria na navegabilidade da nota fiscal.

Informações Complementares

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

Nota Número 07506 Data: 30/10/2008 Hora: 11:46:15

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

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

Nota Número              : 07506

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00071

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

Referência às notas relacionadas:

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

00102  - 00001 - 6.0    - 00021  - NOTA FISCAL - CRIAÇÃO DE EXIT DE OKCODE E BOTÕES

00125  - 00002 - 6.0    - 00021  - INLUSÃO DO AUTHORITY CHECK NOS PROGRAMAS DE IMPORTAÇÃO

04669  - 00003 - 7.0    - 00003  - DATA DE LANÇAMENTO DO ESTORNO DA NF

05719  - 00004 - 7.0    - 00004  - OPERAÇÃO FUNDAP (PARTE II)

07339  - 00005 - 7.0    - 00007  - ACRESCENTAR DESPESAS NAS MENSAGENS DA NOTA FISCAL COMPLEMENTAR

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

NOTA FISCAL(NAVEGABILIDADE)

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

Palavras Chave:

NOTA - FISCAL - GLOBAL - REMESSA - COMPLEMENTAR - NAVEGABILIDADE

/PWS/SAPMZYCI016 - /PWS/SAPMZYCI029

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

Objetos da nota:

CUAD /PWS/SAPMZYCI016

CUAD /PWS/SAPMZYCI029

DYNP /PWS/SAPMZYCI016                        0002

DYNP /PWS/SAPMZYCI016                        0100

DYNP /PWS/SAPMZYCI016                        0101

DYNP /PWS/SAPMZYCI016                        0200

DYNP /PWS/SAPMZYCI029                        0010

DYNP /PWS/SAPMZYCI029                        0100

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016I01

REPS /PWS/MZYCI016O01

REPS /PWS/MZYCI016TOP

REPS /PWS/MZYCI016X01

REPS /PWS/MZYCI029F01

REPS /PWS/MZYCI029I01

REPS /PWS/MZYCI029O01

REPS /PWS/MZYCI029TOP

REPS /PWS/MZYCI029X01

REPT /PWS/SAPMZYCI016

REPT /PWS/SAPMZYCI029

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI016

*Status GUI: 0100

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: ACEND

TEXTOS DE FUNÇÃO ESTÁTICOS

NOME DE ÍCONE: ICON_SORT_UP

TEXTO INFORMATIVO: Ordenação crescente

TECLA DE ATALHO: Ctrl + F7

CÓDIGO DE FUNÇÃO: DECRE

TEXTOS DE FUNÇÃO ESTÁTICOS

NOME DE ÍCONE: ICON_SORT_DOWN

TEXTO INFORMATIVO: Ordenação decrescente

TECLA DE ATALHO: Ctrl + F8

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI029

*Status GUI: 0100

BOTÃO ESTÁTICO

CÓDIGO DE FUNÇÃO: ACEND

TEXTOS DE FUNÇÃO ESTÁTICOS

NOME DE ÍCONE: ICON_SORT_UP

TEXTO INFORMATIVO: Ordenação crescente

TECLA DE ATALHO: Ctrl + F7

CÓDIGO DE FUNÇÃO: DECRE

TEXTOS DE FUNÇÃO ESTÁTICOS

NOME DE ÍCONE: ICON_SORT_DOWN

TEXTO INFORMATIVO: Ordenação decrescente

TECLA DE ATALHO: Ctrl + F8

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI016                        0002

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE043A-NFNUM" em tbl.contr./tabstr.

Comprimento Visível      9

Linhas mínimas           9

Texto                    _________

INCLUIR BOTÃO "BTN0002_01"

Altura                   18

Comprimento Visível      32

Linha                    21

Coluna                   18

Formato                  CHAR

Texto                    @2S\QPosicionar@ Posicionar

Código função            POSI

MODIFICAR FRAME "XX"

Altura                   15

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

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

MODIFICAR FRAME "%#AUTOTEXT001"

Altura                   14

INCLUIR BOTÃO "BTN0100_01"

Altura                   18

Comprimento Visível      32

Linha                    20

Coluna                   17

Formato                  CHAR

Grupo 1                  ALT

Texto                    @2S\QPosicionar@ Posicionar

Código função            POSI

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI016                        0101

INCLUIR  0101

Descrição                SEL_SCREEN 0101 INFO:14000027000000000000000000

Tela seguinte            0101

Altura atual (linhas)    200

Largura atual (colunas)  85

INCLUIR CAMPO TEXTO "%_S_MATNR_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    1

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  001

Código função

INCLUIR CAMPO TEXTO "%_S_MATNR_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    1

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  001

Código função

INCLUIR CAMPO TEXTO "S_MATNR-LOW"

Altura                   18

Comprimento Visível      18

Linha                    1

Coluna                   36

Formato                  CHAR

Grupo 3                  LOW

Grupo 4                  001

Texto                    __________________

Código função

INCLUIR CAMPO TEXTO "%_S_EBELN_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    2

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  002

Código função

INCLUIR CAMPO TEXTO "%_S_EBELN_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    2

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  002

Código função

INCLUIR CAMPO TEXTO "S_EBELN-LOW"

Altura                   10

Comprimento Visível      10

Linha                    2

Coluna                   36

Formato                  CHAR

Grupo 3                  LOW

Grupo 4                  002

Texto                    __________

Código função

INCLUIR CAMPO TEXTO "%_S_EBELP_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    3

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  003

Código função

INCLUIR CAMPO TEXTO "%_S_EBELP_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    3

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  003

Código função

INCLUIR CAMPO TEXTO "S_EBELP-LOW"

Altura                   5

Comprimento Visível      5

Linha                    3

Coluna                   36

Formato                  NUMC

Grupo 3                  LOW

Grupo 4                  003

Texto                    _____

Código função

INCLUIR CAMPO TEXTO "%_S_QTD_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    4

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  004

Código função

INCLUIR CAMPO TEXTO "%_S_QTD_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    4

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  004

Código função

INCLUIR CAMPO TEXTO "S_QTD-LOW"

Altura                   17

Comprimento Visível      17

Linha                    4

Coluna                   36

Formato                  QUAN

Campo referência         /PWS/ZYCIE042-MEINS

Grupo 3                  LOW

Grupo 4                  004

Texto                    _________________

Código função

INCLUIR CAMPO TEXTO "%_S_MEINS_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    5

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  005

Código função

INCLUIR CAMPO TEXTO "%_S_MEINS_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    5

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  005

Código função

INCLUIR CAMPO TEXTO "S_MEINS-LOW"

Altura                   3

Comprimento Visível      3

Linha                    5

Coluna                   36

Formato                  UNIT

Grupo 3                  LOW

Grupo 4                  005

Texto                    ___

Código função

INCLUIR CAMPO TEXTO "%_S_TPNF_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    6

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  006

Código função

INCLUIR CAMPO TEXTO "%_S_TPNF_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    6

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  006

Código função

INCLUIR CAMPO TEXTO "S_TPNF-LOW"

Altura                   2

Comprimento Visível      2

Linha                    6

Coluna                   36

Formato                  CHAR

Grupo 3                  LOW

Grupo 4                  006

Texto                    __

Código função

INCLUIR CAMPO TEXTO "%_S_DOCNUM_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    7

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  007

Código função

INCLUIR CAMPO TEXTO "%_S_DOCNUM_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    7

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  007

Código função

INCLUIR CAMPO TEXTO "S_DOCNUM-LOW"

Altura                   10

Comprimento Visível      10

Linha                    7

Coluna                   36

Formato                  NUMC

Grupo 3                  LOW

Grupo 4                  007

Texto                    __________

Código função

INCLUIR CAMPO TEXTO "%_S_NFNUM_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    8

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  008

Código função

INCLUIR CAMPO TEXTO "%_S_NFNUM_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    8

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  008

Código função

INCLUIR CAMPO TEXTO "S_NFNUM-LOW"

Altura                   9

Comprimento Visível      9

Linha                    8

Coluna                   36

Formato                  NUMC

Grupo 3                  LOW

Grupo 4                  008

Texto                    _________

Código função

INCLUIR CAMPO TEXTO "%_S_WERKS_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    9

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  009

Código função

INCLUIR CAMPO TEXTO "%_S_WERKS_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    9

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  009

Código função

INCLUIR CAMPO TEXTO "S_WERKS-LOW"

Altura                   4

Comprimento Visível      4

Linha                    9

Coluna                   36

Formato                  CHAR

Grupo 3                  LOW

Grupo 4                  009

Texto                    ____

Código função

INCLUIR CAMPO TEXTO "%_S_LIFNR_%_APP_%-TEXT"

Altura                   30

Comprimento Visível      30

Linha                    10

Coluna                   2

Formato                  CHAR

Grupo 3                  TXT

Grupo 4                  010

Código função

INCLUIR CAMPO TEXTO "%_S_LIFNR_%_APP_%-OPTI_PUSH"

Altura                   2

Comprimento Visível      40

Linha                    10

Coluna                   33

Formato                  CHAR

Grupo 3                  OPU

Grupo 4                  010

Código função

INCLUIR CAMPO TEXTO "S_LIFNR-LOW"

Altura                   10

Comprimento Visível      10

Linha                    10

Coluna                   36

Formato                  CHAR

Grupo 3                  LOW

Grupo 4                  010

Texto                    __________

Código função

INCLUIR TEXTO "%_14SNW0000628303_%_%_%_%_%_%_"

Comprimento Visível      1

Linha                    11

Coluna                   2

Formato                  CHAR

Grupo 4                  SRI

Texto                    -

INCLUIR OKCODE "SSCRFIELDS-UCOMM"

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101

* >> Início da inclusão:

PROCESS BEFORE OUTPUT.

MODULE %_INIT_PBO.

MODULE PBO_REPORT.

MODULE %_PF_STATUS.

MODULE !S_MATNR.

MODULE !S_EBELN.

MODULE !S_EBELP.

MODULE !S_QTD.

MODULE !S_MEINS.

MODULE !S_TPNF.

MODULE !S_DOCNUM.

MODULE !S_NFNUM.

MODULE !S_WERKS.

MODULE !S_LIFNR.

MODULE %_END_OF_PBO.

PROCESS AFTER INPUT.

  MODULE %_BACK AT EXIT-COMMAND.

  MODULE %_INIT_PAI.

CHAIN.

  FIELD  S_MATNR-LOW.

  MODULE !S_MATNR .

ENDCHAIN.

CHAIN.

  FIELD  S_EBELN-LOW.

  MODULE !S_EBELN .

ENDCHAIN.

CHAIN.

  FIELD  S_EBELP-LOW.

  MODULE !S_EBELP .

ENDCHAIN.

CHAIN.

  FIELD  S_QTD-LOW.

  MODULE !S_QTD .

ENDCHAIN.

CHAIN.

  FIELD  S_MEINS-LOW.

  MODULE !S_MEINS .

ENDCHAIN.

CHAIN.

  FIELD  S_TPNF-LOW.

  MODULE !S_TPNF .

ENDCHAIN.

CHAIN.

  FIELD  S_DOCNUM-LOW.

  MODULE !S_DOCNUM .

ENDCHAIN.

CHAIN.

  FIELD  S_NFNUM-LOW.

  MODULE !S_NFNUM .

ENDCHAIN.

CHAIN.

  FIELD  S_WERKS-LOW.

  MODULE !S_WERKS .

ENDCHAIN.

CHAIN.

  FIELD  S_LIFNR-LOW.

  MODULE !S_LIFNR .

ENDCHAIN.

CHAIN.

  FIELD  S_MATNR-LOW.

  FIELD  S_EBELN-LOW.

  FIELD  S_EBELP-LOW.

  FIELD  S_QTD-LOW.

  FIELD  S_MEINS-LOW.

  FIELD  S_TPNF-LOW.

  FIELD  S_DOCNUM-LOW.

  FIELD  S_NFNUM-LOW.

  FIELD  S_WERKS-LOW.

  FIELD  S_LIFNR-LOW.

  MODULE END_OF_SCREEN.

  MODULE %_OK_CODE_1000.

ENDCHAIN.

* << Fim da inclusão

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI016                        0200

MODIFICAR FRAME "%#AUTOTEXT001"

Altura                   14

MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE043-IMPRIMINF"

Texto

MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE043-NFEXTERNA"

Texto

INCLUIR BOTÃO "BTN0200_01"

Altura                   18

Comprimento Visível      22

Linha                    21

Coluna                   17

Formato                  CHAR

Grupo 1                  ALT

Texto                    @3Y@ Posicionar

Código função            POSI

MODIFICAR CAIXA DE VERIFICAÇÃO "ITAB_ZYCIT044-MARK" em tbl.contr./tabstr

Texto

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI029                        0010

MODIFICAR CARACTERÍSTICAS DA TELA 0010

Altura atual (linhas)    28

MODIFICAR FRAME "%#AUTOTEXT002"

Altura                   24

INCLUIR BOTÃO "BTN0010_01"

Altura                   18

Comprimento Visível      23

Linha                    27

Coluna                   17

Formato                  CHAR

Texto                    @2S@ Posicionar

Código função            POSI

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

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

MODIFICAR CARACTERÍSTICAS DA TELA 0100

Altura atual (linhas)    28

MODIFICAR FRAME "%#AUTOTEXT002"

Altura                   23

INCLUIR BOTÃO "BTN0100_01"

Altura                   18

Comprimento Visível      23

Linha                    27

Coluna                   17

Formato                  CHAR

Grupo 2                  BT

Texto                    @2S@ Posicionar

Código função            POSI

MODIFICAR OKCODE "OKCODE"

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

      CALL SCREEN '0200'.

    ELSE.

      MESSAGE s015 WITH text-056.

    ENDIF.

  ELSE.

    SELECT * FROM /pws/zycit045

      INTO TABLE itab_zycit045

      WHERE nrseqnf    EQ /pws/zycie043a-nrseq

        AND nfglobal EQ /pws/zycie043a-nfglobal.

    v_status_s_nfr = 0.

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

  refresh: itab_zycit043_lista.

* << Fim da inclusão

    CALL SCREEN '0002'.

  ENDIF.

ENDFORM.

FORM seleciona_itens_nfr.

  CLEAR: itab_zycit003, itab_zycit045, itab_zycit044, itab_zycit044_aux,

           itab_zycit042_aux2.

  REFRESH: itab_zycit045, itab_zycit044, itab_zycit044_aux,

           itab_zycit042_aux2.

  LOOP AT itab_zycit042 WHERE docnum = /pws/zycie043-docnumnfg.

    CLEAR itab_zycit042-docnum.

...

...

FORM efetua_cancelamento_r.

  CLEAR: v_cancel.

  GET CURSOR FIELD v_campo VALUE v_valor.

  IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.

    IF /pws/zycie043-statusp_mr1m = 'C'.

      MESSAGE i032.

    ELSE.

      PERFORM fill_data_j1b3_r.

      IF v_cancel EQ 'OK'.

        tc_lista_nfr-lines = tc_lista_nfr-lines - 1.

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

  refresh: itab_zycit043_lista.

* << Fim da inclusão

        CALL SCREEN '0002'.

      ENDIF.

    ENDIF.

  ELSE.

    MESSAGE i026.

  ENDIF.

ENDFORM.

FORM fill_data_j1b3_r.

  PERFORM clear_date_batch.

  it_zycee005-tcode  = text-030.

...

...

* >> Início da inclusão:

FORM posicionar_101.

  LOOP AT itab_zycit042 WHERE matnr    IN s_matnr

                          AND ebeln    IN s_ebeln

                          AND ebelp    IN s_ebelp

                          AND qtd_iten IN s_qtd

                          AND meins    IN s_meins

                          AND tpnf     IN s_tpnf

                          AND docnum   IN s_docnum

                          AND nfnum    IN s_nfnum

                          AND werks    IN s_werks

                          AND lifnr    IN s_lifnr  .

    tc_itens_nfg-top_line = sy-tabix.

    EXIT.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-003.

  ENDIF.

ENDFORM.

FORM posicionar_201.

  LOOP AT itab_zycit044 WHERE matnr    IN s_matnr

                          AND ebeln    IN s_ebeln

                          AND ebelp    IN s_ebelp

                          AND saldo    IN s_saldo

                          AND menge    IN s_qtd2

                          AND meins    IN s_meins2

                          AND werks    IN s_werks

                          AND lifnr    IN s_lifnr  .

    tc_itens_nfr-top_line = sy-tabix.

    EXIT.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-003.

  ENDIF.

ENDFORM.

FORM posicionar_202.

  LOOP AT itab_zycit043_lista

                        WHERE nfremessa IN s_nfr

                          AND docnum    IN s_docnum

                          AND nfnum     IN s_nfnum.

    tc_lista_nfr-top_line = sy-tabix.

    EXIT.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-003.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI016I01

...

        CALL SCREEN '0001'.

      ENDIF.

      CLEAR: /pws/zycie041, okcode.

    WHEN '0200'.

      IF okcode = '%EX'.

        LEAVE PROGRAM.

      ELSEIF okcode = 'BACK'.

        IF itab_zycit043_lista[] IS INITIAL.

          CALL SCREEN '0050'.

        ELSE.

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

          REFRESH: itab_zycit043_lista.

* << Fim da inclusão

          CALL SCREEN '0002'.

        ENDIF.

      ENDIF.

      CLEAR okcode.

    WHEN '0002'.

      IF

         okcode = '%EX'.

        LEAVE PROGRAM.

      ELSEIF okcode = 'BACK'.

        CALL SCREEN '0050'.

...

...

              SUBMIT (itab_zyglt100-programa)

              WITH pa_nrnot = v_valor AND RETURN.        "#EC CI_SUBMIT

            ENDIF.

          ELSE.

            MESSAGE i015 WITH text-052 text-053.

          ENDIF.

        WHEN 'ARQUIVO'.

          PERFORM gera_arquivos.

      ENDCASE.

    ENDIF.

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

    CASE okcode.

      WHEN 'POSI'.

        CALL SELECTION-SCREEN '0101' STARTING AT 01 01.

        CLEAR: okcode.

      WHEN 'ACEND'.

        CLEAR: v_coluna.

        LOOP AT tc_itens_nfg-cols INTO wa_cols WHERE selected EQ 'X'.

          v_coluna = wa_cols-screen-name+14.

        ENDLOOP.

        IF v_coluna IS INITIAL.

          MESSAGE i096.

        ELSE.

          SORT itab_zycit042 BY (v_coluna).

        ENDIF.

        CLEAR: okcode.

      WHEN 'DECRE'.

        CLEAR: v_coluna.

        LOOP AT tc_itens_nfg-cols INTO wa_cols WHERE selected EQ 'X'.

          v_coluna = wa_cols-screen-name+14.

        ENDLOOP.

        IF v_coluna IS INITIAL.

          MESSAGE i096.

        ELSE.

          SORT itab_zycit042 DESCENDING BY (v_coluna).

        ENDIF.

        CLEAR: okcode.

    ENDCASE.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE user_command_0110 INPUT.

  CASE okcode.

    WHEN 'ENTE'.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

MODULE user_command_0120 INPUT.

  CASE okcode.

...

...

            ELSE.

              MESSAGE e261(sf) WITH 'ME23N'.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

    WHEN 'FUNDAP'.

      IF /pws/zycie001-modalidade EQ '05' AND

         /pws/zycie001-tpdecl EQ 'DI'.

        PERFORM call_fundap_r.

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

      ENDIF.

    WHEN 'POSI'.

      CALL SELECTION-SCREEN '0201' STARTING AT 01 01.

    WHEN 'ACEND'.

      CLEAR: v_coluna.

      LOOP AT tc_itens_nfr-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit044 BY (v_coluna).

      ENDIF.

    WHEN 'DECRE'.

      CLEAR: v_coluna.

      LOOP AT tc_itens_nfr-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit044 DESCENDING BY (v_coluna).

* << Fim da inclusão

      ENDIF.

  ENDCASE.

  CLEAR: okcode.

ENDMODULE.

MODULE user_command_0210 INPUT.

  CASE okcode.

    WHEN 'ENTE'.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

...

...

      ENDIF.

    WHEN 'NFR'.

      MOVE /pws/zycie043a TO /pws/zycie043.

      PERFORM find_nrseqc_nfr.

      v_status_s_nfr = 1.

      PERFORM seleciona_itens_nfr.

      IF NOT itab_zycit044[] IS INITIAL.

        CALL SCREEN '0200'.

      ELSE.

        MESSAGE i029.

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

      ENDIF.

    WHEN 'POSI'.

      CALL SELECTION-SCREEN '0202' STARTING AT 01 01.

    WHEN 'ACEND'.

      CLEAR: v_coluna.

      LOOP AT tc_lista_nfr-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+15.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit043_lista BY (v_coluna).

      ENDIF.

    WHEN 'DECRE'.

      CLEAR: v_coluna.

      LOOP AT tc_lista_nfr-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+15.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit043_lista DESCENDING BY (v_coluna).

* << Fim da inclusão

      ENDIF.

  ENDCASE.

  CLEAR: okcode.

ENDMODULE.

MODULE load_data_002 INPUT.

  SELECT * FROM /pws/zycit043

    INTO TABLE itab_zycit043_lista

    WHERE nrseq    EQ /pws/zycie043-nrseq

      AND nfglobal EQ /pws/zycie043-nfglobal

      AND cancel   EQ space.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

...

     series        = itab_zycit043_lista-series

.

  MOVE: itab_zycit043_lista TO /pws/zycie043a.

ENDMODULE.

MODULE load_data_0002 OUTPUT.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

       EXPORTING

            input  = /pws/zycie043a-docnumnfg

       IMPORTING

            output = /pws/zycie043a-docnumnfg.

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

  IF itab_zycit043_lista[] IS INITIAL.

* << Fim da inclusão

  SELECT * FROM /pws/zycit043

    INTO TABLE itab_zycit043_lista

    WHERE nrseq    EQ /pws/zycie043a-nrseq

      AND nfglobal EQ /pws/zycie043a-nfglobal

      AND docnumnfg EQ /pws/zycie043a-docnumnfg

      AND cancel   EQ space.

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

  ENDIF.

* << Fim da inclusão

  CLEAR:   itab_zycit044, itab_zycit044_aux.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016TOP

...

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF SCREEN 0101 AS WINDOW TITLE text-109.

SELECT-OPTIONS: s_matnr  FOR /pws/zycie042-matnr

                         NO INTERVALS NO-EXTENSION,

                s_ebeln  FOR /pws/zycie042-ebeln

                         NO INTERVALS NO-EXTENSION,

                s_ebelp  FOR /pws/zycie042-ebelp

                         NO INTERVALS NO-EXTENSION,

                s_qtd    FOR /pws/zycie042-qtd_iten

                         NO INTERVALS NO-EXTENSION,

                s_meins  FOR /pws/zycie042-meins

                         NO INTERVALS NO-EXTENSION,

                s_tpnf   FOR /pws/zycie042-tpnf

                         NO INTERVALS NO-EXTENSION,

                s_docnum FOR /pws/zycie042-docnum

                         NO INTERVALS NO-EXTENSION,

                s_nfnum  FOR /pws/zycie042-nfnum

                         NO INTERVALS NO-EXTENSION,

                s_werks  FOR /pws/zycie042-werks

                         NO INTERVALS NO-EXTENSION,

                s_lifnr  FOR /pws/zycie042-lifnr

                         NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF SCREEN 0101.

SELECTION-SCREEN BEGIN OF SCREEN 0201 AS WINDOW TITLE text-109.

SELECTION-SCREEN INCLUDE SELECT-OPTIONS: s_matnr,

                                         s_ebeln,

                                         s_ebelp.

SELECT-OPTIONS: s_saldo  FOR /pws/zycie042-qtd_iten

                         NO INTERVALS NO-EXTENSION,

                s_qtd2   FOR /pws/zycie042-qtd_iten

                         NO INTERVALS NO-EXTENSION,

                s_meins2 FOR /pws/zycie042-meins

                         NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN INCLUDE SELECT-OPTIONS: s_werks,

                                         s_lifnr.

SELECTION-SCREEN END OF SCREEN 0201.

SELECTION-SCREEN BEGIN OF SCREEN 0202 AS WINDOW TITLE text-109.

SELECT-OPTIONS: s_nfr FOR /pws/zycie043a-nfremessa

                         NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN INCLUDE SELECT-OPTIONS: s_docnum,

                                         s_nfnum.

SELECTION-SCREEN END OF SCREEN 0202.

AT SELECTION-SCREEN.

  CASE sy-dynnr .

    WHEN '0101'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: posicionar_101.

      ENDCASE.

    WHEN '0201'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: posicionar_201.

      ENDCASE.

    WHEN '0202'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: posicionar_202.

      ENDCASE.

  ENDCASE.

  .

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

...

* >> Início da inclusão:

DATA: v_coluna(20) TYPE c.

* << Fim da inclusão

DATA: END OF COMMON PART a.

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

  DATA: v_tam TYPE i,

  v_tam2 TYPE i,

  v_tam3 TYPE i,

  v_times TYPE i.

  v_tam3 = strlen( it_zycee006-msg ).

  v_tam2 = strlen( v_vldp_x ) .

  PERFORM monta_resumo.

  DATA v_descr(40).

  LOOP AT itab_resum WHERE vlreal NE space.

    READ TABLE itab_zycit019 WITH KEY codigo = itab_resum-codigo.

    IF sy-subrc  = '0'.

      v_descr = itab_zycit019-descr .

      CLEAR : v_vldp_x , v_tamanho.

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

      WRITE itab_resum-vlreal TO v_vldp_x LEFT-JUSTIFIED.

* << Fim da exclusão

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

      WRITE itab_resum-vlreal TO v_vldp_x LEFT-JUSTIFIED

                currency itab_resum-waers_real.

* << Fim da inclusão

      v_tam  = strlen( itab_zycit019-descr ).

...

...

      MOVE itab_zycit265_c TO /pws/zycie265.

      MODIFY /pws/zycit265 FROM /pws/zycie265.

      PERFORM atualiza_zycit053.

    ENDLOOP.

  ENDIF.

  MODIFY /pws/zycit264 FROM /pws/zycie264.

  MODIFY /pws/zycit266 FROM TABLE itab_resum.

  READ TABLE itab_zycit264 WITH KEY

    nrseqc = /pws/zycie264-nrseqc.

  IF sy-subrc NE 0.

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

    MOVE /pws/zycie264 TO itab_zycit264.

* << Fim da exclusão

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

    MOVE-CORRESPONDING /pws/zycie264 TO itab_zycit264.

* << Fim da inclusão

    APPEND itab_zycit264.

  ENDIF.

  IF /pws/zycit048-sepnf = 'X'.

    LOOP AT itab_zycit265_c

     WHERE tpnf     = itab_zycit265_c2-tpnf    AND

           lifnr    = itab_zycit265_c2-lifnr   AND

           vldp_dif > 0 AND

      nrseq = itab_zycit265_c2-nrseq AND

      ebelp = itab_zycit265_c2-ebelp AND

      ebeln = itab_zycit265_c2-ebeln.

...

...

* >> Início da inclusão:

FORM posicionar_101.

  LOOP AT itab_zycit265_c WHERE ebeln    IN s_ebeln

                            AND ebelp    IN s_ebelp

                            AND tpnf     IN s_tpnf

                            AND vldp     IN s_vldp  .

    tc_nfc-top_line = sy-tabix.

    EXIT.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-042.

  ENDIF.

ENDFORM.

FORM posicionar_011.

  LOOP AT itab_zycit264 WHERE nrseqc    IN s_nrseqc

                            AND dtincl    IN s_dtincl

                            AND vldp      IN s_vldpc

                            AND dt_f_02_c IN s_dtlanc  .

    tc_nfc_lista-top_line = sy-tabix.

    EXIT.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-042.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI029I01

...

MODULE user_command_0010 INPUT.

  CASE okcode.

    WHEN 'NFC'.

      CLEAR /pws/zycie264.

      PERFORM calcula_despesa.

      CALL SCREEN '0100'.

    WHEN 'SELE'.

      PERFORM sele.

    WHEN 'BACK' OR 'CANC'.

      LEAVE TO SCREEN 0.

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

    WHEN 'POSI'.

      CALL SELECTION-SCREEN '0011' STARTING AT 01 01.

      CLEAR: okcode.

    WHEN 'ACEND'.

      CLEAR: v_coluna.

      LOOP AT tc_nfc_lista-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

        IF wa_cols-screen-name EQ 'V_VLDP_NFC'.

          v_coluna = 'VLDP'.

        ENDIF.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit264 BY (v_coluna).

      ENDIF.

      CLEAR: okcode.

    WHEN 'DECRE'.

      CLEAR: v_coluna.

      LOOP AT tc_nfc_lista-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

        IF wa_cols-screen-name EQ 'V_VLDP_NFC'.

          v_coluna = 'VLDP'.

        ENDIF.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit264 DESCENDING BY (v_coluna).

      ENDIF.

      CLEAR: okcode.

* << Fim da inclusão

  ENDCASE.

  CLEAR okcode.

ENDMODULE.

MODULE atualiza_itens_nfc INPUT.

  IF /pws/zycie264-nfexterna = space.

    itab_zycit265_c-nfnum  = space.

    itab_zycit265_c-series = space.

    itab_zycit265_c-subser = space.

  ELSE.

    itab_zycit265_c-nfnum   =  /pws/zycie265-nfnum.

...

...

    WHEN 'CANCC'.

      PERFORM estorna_nfc.

    WHEN 'ATUALNFC'.

      IF /pws/zycie264-belnr_f_02_c IS INITIAL.

        PERFORM atuali_nfc.

      ELSE.

        MESSAGE s015 WITH text-023 text-024.

      ENDIF.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

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

    WHEN 'POSI'.

      CALL SELECTION-SCREEN '0101' STARTING AT 01 01.

      CLEAR: okcode.

    WHEN 'ACEND'.

      CLEAR: v_coluna.

      LOOP AT tc_nfc-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit265_c BY (v_coluna).

      ENDIF.

      CLEAR: okcode.

    WHEN 'DECRE'.

      CLEAR: v_coluna.

      LOOP AT tc_nfc-cols INTO wa_cols WHERE selected EQ 'X'.

        v_coluna = wa_cols-screen-name+14.

      ENDLOOP.

      IF v_coluna IS INITIAL.

        MESSAGE i096.

      ELSE.

        SORT itab_zycit265_c DESCENDING BY (v_coluna).

      ENDIF.

      CLEAR: okcode.

* << Fim da inclusão

  ENDCASE.

  CLEAR okcode.

ENDMODULE.

MODULE user_command INPUT.

  CASE okcode.

    WHEN 'LEAV'.

      LEAVE PROGRAM.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

  ENDCASE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI029O01

...

    PERFORM status.

  ELSE.

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

      MESSAGE e015 WITH text-031 text-032.

    ELSEIF sy-tcode EQ '/PWS/ZYCI029_E'.

      MESSAGE e015 WITH text-031 text-033.

    ELSEIF sy-tcode EQ '/PWS/ZYCI029_L'.

      MESSAGE e015 WITH text-031 text-034.

    ENDIF.

  ENDIF.

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

  LOOP AT itab_zycit264 WHERE vldp EQ space.

    LOOP AT itab_zycit265

      WHERE nrseqc = itab_zycit264-nrseqc.

      itab_zycit264-vldp = itab_zycit264-vldp + itab_zycit265-vldp_dif.

    ENDLOOP.

    MODIFY itab_zycit264.

  ENDLOOP.

* << Fim da inclusão

ENDMODULE.

MODULE set_screen OUTPUT.

  CASE sy-dynnr.

    WHEN '0100'.

      IF sy-tcode = '/PWS/ZYCI029_E'.

        LOOP AT SCREEN.

          screen-input = 0.

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

          IF screen-group2 = 'BT'.

            screen-input = 1.

          ENDIF.

* << Fim da inclusão

          MODIFY SCREEN.

        ENDLOOP.

      ELSE.

        LOOP AT SCREEN.

          IF screen-group1 = 'CAT'.

            LOOP AT itab_zycit265_c WHERE NOT docnum IS initial.

            ENDLOOP.

            IF sy-subrc EQ 0.

              screen-input = 0.

            ELSE.

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

              screen-input = 1.

            ENDIF.

            IF screen-group2 = 'BT'.

* << Fim da inclusão

              screen-input = 1.

            ENDIF.

            MODIFY SCREEN.

          ENDIF.

        ENDLOOP.

      ENDIF.

      READ TABLE itab_zycit001 WITH KEY

                               nrseq = itab_zycit053_e-nrseq.

      IF itab_zycit001-modalidade NE '05'.

        LOOP AT tc_nfc-cols INTO wa_cols .

...

...

        ENDLOOP.

      ENDIF.

  ENDCASE.

ENDMODULE.

MODULE lista_nfc OUTPUT.

  CLEAR v_vldp_nfc.

  LOOP AT itab_zycit265

    WHERE nrseqc = itab_zycit264-nrseqc.

    v_vldp_nfc = v_vldp_nfc + itab_zycit265-vldp_dif.

  ENDLOOP.

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

  MOVE itab_zycit264 TO /pws/zycie264.

* << Fim da exclusão

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

  MOVE-CORRESPONDING itab_zycit264 TO /pws/zycie264.

* << Fim da inclusão

ENDMODULE.

MODULE itens_nfc OUTPUT.

  MOVE itab_zycit265_c TO /pws/zycie265.

  IF /pws/zycie264-nfexterna EQ 'X'.

    IF /pws/zycie265-nfnum IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit048.

      /pws/zycie265-nfnum  = /pws/zycit048-nfprov.

      /pws/zycie265-series = /pws/zycit048-series.

    ELSE.

      SELECT SINGLE * FROM j_1bnfdoc

...

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

Modificações efetuadas em REPS /PWS/MZYCI029TOP

...

DATA: BEGIN OF itab_zycit264 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit264.

* >> Início da inclusão:

DATA: vldp TYPE /pws/zycit265-vldp.

* << Fim da inclusão

DATA: END OF itab_zycit264.

...

...

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF SCREEN 0101 AS WINDOW TITLE text-041.

SELECT-OPTIONS: s_ebeln  FOR /pws/zycie265-ebeln

                         NO INTERVALS NO-EXTENSION,

                s_ebelp  FOR /pws/zycie265-ebelp

                         NO INTERVALS NO-EXTENSION,

                s_tpnf   FOR /pws/zycie265-tpnf

                         NO INTERVALS NO-EXTENSION,

                s_vldp   FOR /pws/zycie265-vldp

                         NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF SCREEN 0101.

SELECTION-SCREEN BEGIN OF SCREEN 0011 AS WINDOW TITLE text-041.

SELECT-OPTIONS: s_nrseqc FOR /pws/zycie264-NRSEQC

                         NO INTERVALS NO-EXTENSION,

                s_dtincl FOR /pws/zycie264-DTINCL

                         NO INTERVALS NO-EXTENSION,

                s_vldpc  FOR /pws/zycie265-VLDP_dif

                         NO INTERVALS NO-EXTENSION,

                s_dtlanc FOR /pws/zycie264-DT_F_02_C

                         NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF SCREEN 0011.

AT SELECTION-SCREEN.

  CASE sy-dynnr .

    WHEN '0101'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: posicionar_101.

      ENDCASE.

    WHEN '0011'.

      CASE sy-ucomm.

        WHEN 'CRET'.

          PERFORM: posicionar_011.

      ENDCASE.

  ENDCASE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI029X01

...

* >> Início da inclusão:

DATA: v_coluna(20) TYPE c.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI016

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 109

Texto: (10 caracteres)

"Posicionar"

Comprimento máximo: 15

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_DOCNUM

Texto: (20 caracteres)

"Nº documento"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_EBELN

Texto: (27 caracteres)

"Documento de compra"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_EBELP

Texto: (12 caracteres)

"Item"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_LIFNR

Texto: (18 caracteres)

"Fornecedor"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_MATNR

Texto: (16 caracteres)

"Material"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_MEINS

Texto: (17 caracteres)

"UM pedido"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_MEINS2

Texto: (15 caracteres)

"Unidade"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_NFNUM

Texto: (15 caracteres)

"Nº nota"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_NFR

Texto: (25 caracteres)

"Nº Seq.NF Remessa"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_QTD

Texto: (18 caracteres)

"Quantidade"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_QTD2

Texto: (21 caracteres)

"Qtd NF Global"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_SALDO

Texto: (23 caracteres)

"Saldo NF Global"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_TPNF

Texto: (22 caracteres)

"Código Tipo NF"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_WERKS

Texto: (14 caracteres)

"Centro"

Referência ao Dictionary: SIM

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

Modificações efetuadas em REPT /PWS/SAPMZYCI029

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 041

Texto: (10 caracteres)

"Posicionar"

Comprimento máximo: 10

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 042

Texto: (37 caracteres)

"Nenhum item para critério informado ."

Comprimento máximo: 40

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_DTINCL

Texto: (21 caracteres)

"Data Inclusão"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_DTLANC

Texto: (25 caracteres)

"Data Lançamanento"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_EBELN

Texto: (27 caracteres)

"Documento de compra"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_EBELP

Texto: (12 caracteres)

"Item"

Referência ao Dictionary: SIM

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_NRSEQC

Texto: (18 caracteres)

"N. Seq NFC"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_TPNF

Texto: (31 caracteres)

"Código tipo nota fiscal"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_VLDP

Texto: (21 caracteres)

"Valor despesa"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): S_VLDPC

Texto: (17 caracteres)

"Valor NFC"

Referência ao Dictionary: NÃO