Sintoma

Ao criar o desenvolvimento adicional relativo as cotações de moedas, foi necessário incluir o campo

número da cotação no programa de complemento do boleto.

Solução

Inclusão do campo número da cotação na tela do complemento do boleto.

Informações Complementares

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

Nota Número 03889 Data: 11/06/2007 Hora: 14:40:51

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

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

Nota Número              : 03889

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00027

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

COMPLEMENTO DO BOLETO - INCLUSÃO DE NÚMERO DA COTAÇÃO EM TELA

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

Palavras Chave:

COMPLEMENTO BOLETO NÚMERO COTAÇÃO MOEDAS TELA

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

Objetos da nota:

DTEL /PWS/ZYCBL478

DTEL /PWS/ZYCBL481

DYNP /PWS/SAPMZYCB110                        0100

MERG F6DK947336 20070611 143218 PWSCB

MERG F6DK947336 20070611 143228 PWSCB

REPS /PWS/MZYCB110O01

REPS /PWS/MZYGL110F01

REPS /PWS/MZYGL110TOP

REPS /PWS/MZYGL110X01

TABL /PWS/ZYCBE236

TABL /PWS/ZYCBT233

TABL /PWS/ZYCBT236

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

Modificações efetuadas em DTEL /PWS/ZYCBL478

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

Elemento de dados incluído: /PWS/ZYCBL478

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"CB - Número da Cotação"

Categoria de dados: Domínio

Domínio: CHAR15

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

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

"Nº Cotação"

Comprimento máximo do denominador médio: 17

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

"Número da Cotação"

Comprimento máximo do denominador longo: 20

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

"Número da Cotação"

Comprimento máximo do título: 17

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

"Número da Cotação"

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

Modificações efetuadas em DTEL /PWS/ZYCBL481

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

Elemento de dados incluído: /PWS/ZYCBL481

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"CB - Tipo de Fechamento de Boleto"

Categoria de dados: Domínio

Domínio: CHAR2

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

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

"Tipo Fech."

Comprimento máximo do denominador médio: 18

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

"Tipo de Fechamento"

Comprimento máximo do denominador longo: 28

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

"Tipo de Fechamento de Boleto"

Comprimento máximo do título: 28

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

"Tipo de Fechamento de Boleto"

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

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

Inclusão em tela do campo número da cotação

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

  PERFORM altera_dados.

ENDMODULE.

FORM seleciona_dados_gerais.

  IF NOT itab_zycbt064[] IS INITIAL.

    SELECT * FROM /pws/zycbt134 INTO TABLE itab_zycbt134

             FOR ALL ENTRIES IN itab_zycbt064

             WHERE nrseq = itab_zycbt064-nrboleto.

    SELECT * FROM /pws/zycbt048 INTO TABLE itab_zycbt048

             FOR ALL ENTRIES IN itab_zycbt064

             WHERE nrseq = itab_zycbt064-nrboleto.

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

    SELECT * FROM /pws/zycbt236 INTO TABLE itab_zycbt236

      FOR ALL ENTRIES IN itab_zycbt031

      WHERE nrboleto = itab_zycbt031-nrseq.

* << Fim da inclusão

    CASE /pws/zycbe031-mdcorresp.

      WHEN 'IP'.

        SELECT * FROM /pws/zycbt119 INTO TABLE itab_zycbt119

                 FOR ALL ENTRIES IN itab_zycbt064

                 WHERE nrseq    = itab_zycbt064-nrchave.

      WHEN 'IF'.

        SELECT * FROM /pws/zycbt112 INTO TABLE itab_zycbt112

                 FOR ALL ENTRIES IN itab_zycbt064

                 WHERE nrseq = itab_zycbt064-nrchave.

        IF NOT itab_zycbt112[] IS INITIAL.

...

...

  SELECT SINGLE * FROM tcurx INTO tcurx

                  WHERE currkey = /pws/zycbe031-waers.

  IF sy-subrc NE 0.

    tcurx-currdec = 2.

  ENDIF.

  SELECT SINGLE * FROM tcurx INTO wa_tcurx

                  WHERE currkey = wa_zycbt007-waersb.

  IF sy-subrc NE 0.

    wa_tcurx-currdec = 2.

  ENDIF.

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

  READ TABLE itab_zycbt236 INTO /pws/zycbe236

    WITH KEY nrboleto = /pws/zycbe031-nrseq.

* << Fim da inclusão

  IF itab_zycbt009[] IS INITIAL.

    SELECT * FROM /pws/zycbt009 INTO TABLE itab_zycbt009.

  ENDIF.

  IF /pws/zycbe031-mdcorresp = 'CP'.

    READ TABLE itab_zycbt124_aux WITH KEY

                                        nrseq = /pws/zycbe031-nrcorresp.

    IF sy-subrc = 0 AND v_ctmoeda IS INITIAL.

      PERFORM get_parameters_cp USING 'PRINCIPAL'.

      v_ctmoeda = wa_zycbt011-ctmoed.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYGL110TOP

...

    /pws/zycbt009,

    /pws/zycbt011,

    /pws/zycbt012,

    /pws/zycbt013,

    /pws/zycbt015,

    /pws/zycbt032,

    /pws/zycbt034,

    /pws/zycbt036,

    /pws/zycbt037,

    /pws/zycbt039,

* >> Início da inclusão:

    /pws/zycbe236,

* << Fim da inclusão

    /pws/zycbt118,

    /pws/zycbt124,

    /pws/zycbt125,

    /pws/zycbt133,

    /pws/zycbt136,

    /pws/zycet001,

    /pws/zycet010,

    /pws/zycet013,

    /pws/zyglt009,

    /pws/zycit006,

...

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

Modificações efetuadas em REPS /PWS/MZYGL110X01

...

DATA: itab_dados_tc_aux LIKE itab_dados_tc OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycbt064 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt064.

DATA: END OF itab_zycbt064.

DATA: BEGIN OF itab_zycbt064b OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt064.

DATA: END OF itab_zycbt064b.

DATA: BEGIN OF itab_zycbt124 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt124.

DATA: END OF itab_zycbt124.

* >> Início da inclusão:

DATA: itab_zycbt236 TYPE STANDARD TABLE OF /pws/zycbe236

        WITH NON-UNIQUE DEFAULT KEY.

* << Fim da inclusão

DATA: BEGIN OF itab_documentos OCCURS 0,

      nrseq       LIKE /pws/zycbt124-nrseq,

      belnr       LIKE /pws/zycbt036-belnr,

      dtdocto     LIKE /pws/zycbt036-dtdocto,

      tabela      LIKE /pws/zycbt036-tabela,

      wrbtr       LIKE /pws/zycbt036-residuo,

      waers       LIKE /pws/zycbt036-waers,

      lifnr       LIKE /pws/zycbt036-lifnr,

      codparc(03) TYPE c,

      END OF itab_documentos.

...