Sintoma

Nenhum

Solução

Criação de uma nova tela para armazenar os dados da Forma de Pagamento.

Informações Complementares

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

Nota Número 06903 Data: 02/07/2008 Hora: 15:39:23

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

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

Nota Número              : 06903

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FORMA DE PAGAMENTO NO COMPLEMENTO DE BOLETO

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

Palavras Chave:

COMPLEMENTO DE BOLETO, FORMA DE PAGAMENTO

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

Objetos da nota:

CUAD /PWS/SAPMZYCB110

DTED /PWS/ZYCBL137

DYNP /PWS/SAPMZYCB110                        0104

MERG F6DK962683 20080702 152304 PWSCB

REPS /PWS/MZYCB110F01

REPS /PWS/MZYCB110I01

REPS /PWS/MZYCB110O01

SHLP /PWS/ZYGLA290

SHLP /PWS/ZYGLA291

TABD /PWS/ZYCBE031

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

Modificações efetuadas em CUAD /PWS/SAPMZYCB110

TÍTS GUI

CODE TÍTULO: 0104

TÍTULO:      Forma de Pagamento

Barra de Botões

CÓDIGO DE FUNÇÃO: SAVE

CATEGORIA DE FUNÇÃO: ____

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Gravar

NOME DE ÍCONE: ICON_OKAY

TEXTO DE ÍCONE: _____________________________________________________

TEXTO INFORMATIVO: __________________________________________________

SELEÇÃO DIRETA: _____

Teclas de Função

Barra de Ferramentas

CÓDIGO DE FUNÇÃO: ENTE

CATEGORIA DE FUNÇÃO: ____

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: ENTER

NOME DE ÍCONE: ICON_OKAY

TEXTO DE ÍCONE: _____________________________________________________

TEXTO INFORMATIVO: __________________________________________________

SELEÇÃO DIRETA: _____

Acrescentar este botão no Status Gui 0200

TÍTS GUI

CODE TÍTULO: 0200

TÍTULO:      Complemento do Boleto

Barra de Botões

CÓDIGO DE FUNÇÃO: FPGTO

CATEGORIA DE FUNÇÃO: ____

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Dados Forma de Pagamento

NOME DE ÍCONE: ICON_PRICE

TEXTO DE ÍCONE: _____________________________________________________

TEXTO INFORMATIVO: __________________________________________________

SELEÇÃO DIRETA: _____

Teclas de função de livre definição

Shift-F7

CÓDIGO DE FUNÇÃO: FPGTO

CATEGORIA DE FUNÇÃO: ____

TEXTO DE FUNÇÃO: Dados Forma de Pagamento

NOME DE ÍCONE: ICON_PRICE

TEXTO DE ÍCONE: _____________________________________________________

TEXTO INFORMATIVO: __________________________________________________

SELEÇÃO DIRETA: _____

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

Modificações efetuadas em DTED /PWS/ZYCBL137

O elemento de dados: /PWS/ZYCBL137, do campo FRPAGTOIR, que se encontra na estrutura /PWS/ZYCBE031.

O seu domínio foi alterado como segue abaixo:

TROCAR DOMÍNIO: /PWS/ZYCBD028

PELO DOMÍNIO: CHAR1 (STANDARD SAP)

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB110                        0104

SOLICITAR TELA 0104 PARA DOWNLOAD

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

                          WHERE nrseq  = wa_zycat028-nr_processo.

         ENDCASE.

    ENDIF.

  ELSE.

    LOOP AT itab_zycbt034.

      MESSAGE i016 WITH itab_zycbt034-descricao.

    ENDLOOP.

    erro_bi = 'X'.

  ENDIF.

endform.

* >> Início da inclusão:

form desabilitar_0104.

    LOOP AT SCREEN.

      IF v_status_s = '0'.

        screen-input = '0'.

      ELSEIF /pws/zycbe031-frpagto NE 'O' AND

           ( /pws/zycbe031-frpagto NE 'C' ) AND

           ( /pws/zycbe031-frpagto NE 'R' ).

        IF screen-group2 = 'GP2'.

          screen-input = '0'.

        ENDIF.

      ENDIF.

      IF v_status_s = '0'.

        screen-input = '0'.

      ELSEIF /pws/zycbe031-frpagtoir NE 'O' AND

           ( /pws/zycbe031-frpagtoir NE 'C' ).

        IF screen-group3 = 'GP3'.

          screen-input = '0'.

        ENDIF.

      ENDIF.

      IF screen-name = '/PWS/ZYCBE031-BELNR_PI'   OR

         screen-name = '/PWS/ZYCBE031-PAGTOIRRF'  OR

         screen-name = '/PWS/ZYCBE031-TAXAIR'     OR

         screen-name = '/PWS/ZYCBE031-DTCREDIR'   OR

         screen-name = '/PWS/ZYCBE031-VLIR'       OR

         screen-name = '/PWS/ZYCBE031-VLMIIR'     OR

         screen-name = '/PWS/ZYCBE031-FRPAGTOIR'  OR

         screen-name = '/PWS/ZYCBE031-BCOIR'      OR

         screen-name = '/PWS/ZYCBE031-AGENCIAIR'  OR

         screen-name = '/PWS/ZYCBE031-CONTAIR'    OR

         screen-name = '/PWS/ZYCBE031-NRBCOIR'    OR

         screen-name = '/PWS/ZYCBE031-PRACAIR'    OR

         screen-name = 'V_FORMAPGTOIR'       OR

         screen-name = 'V_BCOIR'.

        IF /pws/zycbe031-vlir <= 0 AND

           /pws/zycbe031-belnr_pi IS INITIAL.

          screen-input     = '0'.

          MODIFY SCREEN.

          screen-invisible = '1'.

        ENDIF.

      ENDIF.

      MODIFY SCREEN.

    ENDLOOP.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB110I01

...

        PERFORM propor_dados_contrato.

      ENDIF.

    WHEN 'ESTR'.

      IF /pws/zycbe031-estrat IS INITIAL.

        MESSAGE i061 WITH text-216.

      ELSE.

        CALL SCREEN 0003 STARTING AT 26 3 ENDING AT 80 15.

      ENDIF.

    WHEN 'VTAXA'.

      PERFORM verifica_propoe_taxa.

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

    WHEN 'FPGTO'.

        CALL SCREEN 0104 STARTING AT 3 2.

* << Fim da inclusão

  ENDCASE.

  CLEAR: w_ok, ok_code.

ENDMODULE.

MODULE calcula_total INPUT.

  PERFORM calcula_total.

ENDMODULE.

MODULE user_command_0001 INPUT.

  PERFORM carrega_variaveis.

ENDMODULE.

MODULE controla_tela INPUT.

...

...

  ENDIF.

ENDMODULE.

MODULE consiste_corretora INPUT.

  READ TABLE itab_zycbt119 WITH KEY nrseq = itab_zycbt031_tc-nrcorresp.

  IF sy-subrc EQ 0.

    CHECK NOT itab_zycbt119-corret IS INITIAL AND

              itab_zycbt031_tc-mdcorresp = 'IP'.

    /pws/zycbe048-corret = itab_zycbt119-corret.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module user_command_0104 input.

DATA: v_flag_principal TYPE c,

      v_flag_ir        TYPE c.

  CLEAR: v_flag_principal, v_flag_ir.

  CASE ok_code.

    WHEN 'ENTE'.

        IF /PWS/ZYCBE031-FRPAGTO EQ 'D' OR

           /PWS/ZYCBE031-FRPAGTO EQ SPACE.

         CLEAR: /PWS/ZYCBE031-FRPAGTO,

                /PWS/ZYCBE031-BCO,

                /PWS/ZYCBE031-AGENCIA,

                /PWS/ZYCBE031-CONTA,

                /PWS/ZYCBE031-NRBCO,

                /PWS/ZYCBE031-PRACA.

        ENDIF.

        IF /PWS/ZYCBE031-FRPAGTOIR EQ 'D' OR

           /PWS/ZYCBE031-FRPAGTOIR EQ SPACE.

         CLEAR: /PWS/ZYCBE031-FRPAGTOIR,

                /PWS/ZYCBE031-BCOIR,

                /PWS/ZYCBE031-AGENCIAIR,

                /PWS/ZYCBE031-CONTAIR,

                /PWS/ZYCBE031-NRBCOIR,

                /PWS/ZYCBE031-PRACAIR.

        ENDIF.

    WHEN 'SAVE'.

      IF /PWS/ZYCBE031-FRPAGTO EQ SPACE OR

         /PWS/ZYCBE031-FRPAGTO EQ 'D'.

         CLEAR: /PWS/ZYCBE031-FRPAGTO,

                /PWS/ZYCBE031-BCO,

                /PWS/ZYCBE031-AGENCIA,

                /PWS/ZYCBE031-CONTA,

                /PWS/ZYCBE031-NRBCO,

                /PWS/ZYCBE031-PRACA.

         v_flag_principal = 'X'.

      ENDIF.

      IF /PWS/ZYCBE031-FRPAGTOIR EQ SPACE OR

         /PWS/ZYCBE031-FRPAGTOIR EQ 'D'.

         CLEAR: /PWS/ZYCBE031-FRPAGTOIR,

                /PWS/ZYCBE031-BCOIR,

                /PWS/ZYCBE031-AGENCIAIR,

                /PWS/ZYCBE031-CONTAIR,

                /PWS/ZYCBE031-NRBCOIR,

                /PWS/ZYCBE031-PRACAIR.

         v_flag_ir = 'X'.

      ENDIF.

      IF ( /PWS/ZYCBE031-FRPAGTO NE SPACE OR

         /PWS/ZYCBE031-FRPAGTO NE 'D' ) AND

         ( /PWS/ZYCBE031-FRPAGTOIR NE SPACE OR

           /PWS/ZYCBE031-FRPAGTOIR NE 'D' ).

          SET SCREEN 0.

          LEAVE SCREEN.

      ENDIF.

      IF v_flag_principal IS INITIAL AND

         v_flag_ir IS INITIAL.

         SET SCREEN 0.

         LEAVE SCREEN.

      ENDIF.

  ENDCASE.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB110O01

...

    APPEND myevent TO myevent_tab.

    CALL METHOD html_control->set_registered_events

        EXPORTING

           events = myevent_tab.

    CREATE OBJECT evt_receiver.

    SET HANDLER evt_receiver->on_sapevent

                FOR html_control.

    PERFORM load_home_page.

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

module status_0104 output.

  SET TITLEBAR '0104'.

  SET SCREEN '0104'.

  SET PF-STATUS '0104'.

endmodule.

module set_screen_0104 output.

   PERFORM desabilitar_0104.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em SHLP /PWS/ZYGLA290

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYGLA290

DESCRIÇÃO BREVE: GL - Forma de pagamento

CARACTERÍSTICAS:

CLASSE DESENVOLVIMENTO: /PWS/ZYGL

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT055

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

FRMPAG        X   1    1         /PWS/ZYCBL426

TXTDESC       X   2    2         /PWS/ZYCBL005

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

Modificações efetuadas em SHLP /PWS/ZYGLA291

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYGLA291

DESCRIÇÃO BREVE: GL - Forma de pagamento

CARACTERÍSTICAS:

CLASSE DESENVOLVIMENTO: /PWS/ZYGL

DEFINIÇÃO

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCBT055

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

FRMPAG        X   1    1         /PWS/ZYCBL426

TXTDESC       X   2    2         /PWS/ZYCBL005

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

Modificações efetuadas em TABD /PWS/ZYCBE031

MODIFICAR ESTRUTURA: /PWS/ZYCBE031

DESCRIÇÃO BREVE: GL - Boleto.

COMPONENTES MODIFICADOS

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

FRPAGTO         /PWS/ZYCBL426  /PWS/ZYCBT055                  /PWS/ZYGLA290

BCO             /PWS/ZYCBL211  LFA1                           /PWS/ZYCBA012

FRPAGTOIR       /PWS/ZYCBL137                                 /PWS/ZYGLA291

BCOIR           /PWS/ZYCBL211  LFA1                           /PWS/ZYCBA012