Sintoma

Transação /PWS/ZYVDT003 - Limite de Bancos - Ao selecionar uma nova entrada, não está abrindo os

campos para cadastro. Quando usa a barra de rolagem e seleciona um banco, não traz o banco

selecionado

Solução

Foram ajustados os controles de campos para alteração na tela e corrigido o controle do table

control do cadastro de bancos.

Informações Complementares

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

Nota Número 06624 Data: 27/05/2008 Hora: 11:23:02

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

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

Nota Número              : 06624

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.VENDOR         : 3.0

Pacote                   : 00004

Agrupamento              : 00006

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE NO CADASTRO LIMITE BANCO /PWS/ZYVDT003

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

Palavras Chave:

AJUSTE NO CADASTRO LIMITE BANCO /PWS/ZYVDT003

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

Objetos da nota:

CUAD /PWS/SAPMZYVDT003

DYNP /PWS/SAPMZYVDT003                       0201

MESS /PWS/ZYVDM130

REPS /PWS/MZYVDT003F01

REPS /PWS/MZYVDT003I01

REPS /PWS/MZYVDT003O01

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

Modificações efetuadas em DYNP /PWS/SAPMZYVDT003                       0201

MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYVDE003-OP_EQVLPRES_GES"

Grupo 1                  GR1

MODIFICAR CHTXT "/PWS/ZYVDE003-OP_EQVLPRES_GES"

Grupo 1                  GR1

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

Modificações efetuadas em MESS /PWS/ZYVDM130

Mensagem: Banco.Emp & Não Cadastrado no SAP

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

Modificações efetuadas em REPS /PWS/MZYVDT003F01

...

           CODBCO = /PWS/ZYVDE003-CODBCO.

  V_INDEX = SY-TABIX - 1.

  IF V_INDEX > 0.

    READ TABLE ITAB_ZYVDT003 INTO /PWS/ZYVDE003 INDEX V_INDEX.

  ENDIF.

ENDFORM.

FORM PRIMEIRO_ITEM.

  V_INDEX = 1.

  READ TABLE ITAB_ZYVDT003 INTO /PWS/ZYVDE003 INDEX V_INDEX.

ENDFORM.

* >> Início da inclusão:

form consistir_dependecias.

  data: wa_t012 type t012,

        wa_zyvdt017 type /pws/zyvdt017.

  select single * from t012 into wa_t012

                  where bukrs = /pws/zyvde003-bukrs

                    and hbkid = /pws/zyvde003-hbkid.

  if sy-subrc <> 0.

    message e130 with /pws/zyvde003-hbkid.

  endif.

  select single * from /pws/zyvdt017 into wa_zyvdt017

                  where codbco = /pws/zyvde003-codbco.

  if sy-subrc <> 0.

    message e124 with /pws/zyvde003-codbco.

  endif.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYVDT003I01

...

      PERFORM UNLOCK_RECORD.

      LEAVE PROGRAM.

  ENDCASE.

ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.

  CASE OKCODE.

    WHEN 'SELE'.

      IF NOT V_DISPLAY IS INITIAL.

        MESSAGE S062.

      ENDIF.

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

      READ TABLE ITAB_ZYVDT003 WITH KEY MARK = 'X'.

      IF SY-SUBRC EQ 0.

        MOVE-CORRESPONDING ITAB_ZYVDT003 TO /PWS/ZYVDE003.

        PERFORM ALTERAR_DADOS.

      ELSE.

* << Fim da exclusão

        GET CURSOR LINE V_LINE.

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

        V_LINE = V_LINE + tab_control1-top_line - 1.

        V_DISPLAY = 'X'.

* << Fim da inclusão

        READ TABLE ITAB_ZYVDT003 INDEX V_LINE.

        IF SY-SUBRC EQ 0.

          MOVE-CORRESPONDING ITAB_ZYVDT003 TO /PWS/ZYVDE003.

          PERFORM ALTERAR_DADOS.

        ELSE.

          MESSAGE I001 WITH TEXT-011.

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

        ENDIF.

* << Fim da exclusão

      ENDIF.

    WHEN 'CRIA'.

      CLEAR: OKCODE,

            V_ALTER.

      CLEAR /PWS/ZYVDE003.

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

      V_DISPLAY = 'X'.

* << Fim da exclusão

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

       clear V_DISPLAY.

* << Fim da inclusão

      CALL SCREEN '0200'.

    WHEN 'COPYAS'.

      CLEAR: OKCODE.

      V_FLAG = 'X'.

      IF V_DISPLAY IS INITIAL.

        READ TABLE ITAB_ZYVDT003 WITH KEY MARK = 'X'.

        MOVE-CORRESPONDING ITAB_ZYVDT003 TO /PWS/ZYVDE003.

        CALL SCREEN '0200'.

      ELSE.

        MESSAGE W062.

...

...

MODULE USER_COMMAND_EXIT INPUT.

  PERFORM UNLOCK_RECORD.

  CLEAR /PWS/ZYVDE003-BUKRS.

  CLEAR /PWS/ZYVDE003-HBKID.

  LEAVE PROGRAM.

ENDMODULE.

MODULE USER_COMMAND_0200 INPUT.

  CASE OKCODE.

    WHEN 'BACK' .

      CLEAR: OKCODE.

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

      LEAVE TO SCREEN 0.

* << Fim da exclusão

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

      LEAVE TO SCREEN 0100.

* << Fim da inclusão

    WHEN 'SAVE'.

      CLEAR: OKCODE.

      IF V_FLAG NE 'X'.

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

        perform consistir_dependecias.

* << Fim da inclusão

        READ TABLE ITAB_ZYVDT003 WITH KEY

                 BUKRS  = /PWS/ZYVDE003-BUKRS

                 HBKID  = /PWS/ZYVDE003-HBKID

                 CODBCO = /PWS/ZYVDE003-CODBCO.

...

...

          MODIFY /PWS/ZYVDT003 FROM ITAB_ZYVDT003.

          MESSAGE I000(/PWS/ZYVDM) WITH TEXT-003.

        ENDIF.

      ENDIF.

    WHEN 'ENCE' OR 'CANC'.

      CLEAR: OKCODE.

      PERFORM UNLOCK_RECORD.

      LEAVE PROGRAM.

    WHEN 'FIRS' OR 'PRIO' OR 'NEXT' OR 'LAST'.

      PERFORM CONTROLA_NAVEGACAO.

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

    WHEN 'ALTE'.

      CLEAR V_DISPLAY.

      PERFORM ALTERAR_DADOS.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE RECALC_LIMITE INPUT.

  PERFORM ATUALIZA_LIMITEBCO.

ENDMODULE.

MODULE CONTA_CONCATENATE INPUT.

  MOVE /PWS/ZYVDE003-AGENCIA_NR TO /PWS/ZYVDE003-CONTA+00(05).

  MOVE /PWS/ZYVDE003-AGENCIA_DG TO /PWS/ZYVDE003-CONTA+05(02).

  MOVE /PWS/ZYVDE003-CONTA_NR   TO /PWS/ZYVDE003-CONTA+07(10).

  MOVE /PWS/ZYVDE003-CONTA_DG   TO /PWS/ZYVDE003-CONTA+17(02).

...

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

Modificações efetuadas em REPS /PWS/MZYVDT003O01

...

    into (v_empresa)

    where bukrs = /pws/zyvde003-bukrs.

endmodule.

module set_screen_0100b output.

  move itab_zyvdt003      to /pws/zyvde003.

  move itab_zyvdt003-mark to mark.

  describe table itab_zyvdt003 lines v_lines.

  tab_control1-lines = v_lines.

endmodule.

module status_0200 output.

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

  if v_display = 'X'.

* << Fim da inclusão

  set pf-status '0200'.

  set titlebar  '0200'.

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

  else.

    set pf-status '0300'.

    set titlebar  '0300'.

  endif.

* << Fim da inclusão

endmodule.

module set_screen_0200 output.

...