Sintoma

Ao entrar em um boleto de remessa, após informar os dados e clicar Enter, aparecem campos na tela

com asteriscos.

Solução

Refazer o tratamento dos botões avançar e retornar, pois o mesmo esta gerando este conflito de telas

de boleto de remessa e outros.

Informações Complementares

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

Nota Número 09331 Data: 06/11/2009 Hora: 10:03:03

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

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

Nota Número              : 09331

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

09003  - 00001 - 7.0    - 00010  - COMPLEMENTO DO BOLETO - CAMPOS ABERTOS NO PROXIMO REGISTRO

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

COMPLEMENTO DO BOLETO - REMESSA - APÓS ENTER EXIBE CAMPOS COM ASTERISCOS

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

Palavras Chave:

COMPLEMENTO DO BOLETO - REMESSA - APÓS ENTER EXIBE CAMPOS COM ASTERISCOS

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

Objetos da nota:

REPS /PWS/MZYCB110I01

REPS /PWS/MZYGL110F01

REPS /PWS/MZYGL110TOP

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

Modificações efetuadas em REPS /PWS/MZYCB110I01

...

              using      ok_code

              changing   e_subrc.

      if e_subrc ne 0.

        exit.

      endif.

    endif.

  endif.

  w_ok = ok_code.

  clear: ok_code, v_resp, v_nrboleto.

  describe table itab_zycbt031_tc lines v_linha2.

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

  clear v_avan_or_reto.

* << Fim da inclusão

  case w_ok.

    when 'PB_HELP'.

      v_tela_help = '0051'.

      exit.

    when 'CLOSE'.

      v_tela_help = '0052'.

      exit.

    when 'AVAN'.

      perform avanca_registro.

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

      v_avan_or_reto = 'X'.

* << Fim da inclusão

    when 'RETO'.

      perform volta_registro.

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

      v_avan_or_reto = 'X'.

* << Fim da inclusão

    when 'MODO'.

      perform modo_batch_input.

    when 'BOT'.

      call screen '0400' starting at 2 2.

    when 'CS'.

...

...

      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.

    when 'FPGTO'.

        call screen 0104 starting at 3 2.

  endcase.

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

  clear: w_ok, ok_code.

* << Fim da inclusão

endmodule.

module calcula_total input.

  perform calcula_total.

endmodule.

module user_command_0001 input.

  perform carrega_variaveis.

endmodule.

module controla_tela input.

  clear itab_zyglt100. refresh itab_zyglt100.

  v_repid = sy-repid.

...

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

        modify screen.

      endloop.

    endif.

  endif.

endform.

form avanca_registro.

  data v_proximo like sy-tabix.

  read table itab_zycbt031 with key nrseq = /pws/zycbe031-nrseq.

  v_proximo = sy-tabix + 1.

  read table itab_zycbt031 index v_proximo.

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

  if sy-subrc ne 0 .

    clear w_ok.

  else.

* << Fim da exclusão

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

  check sy-subrc = 0.

* << Fim da inclusão

  select single * from /pws/zycbt031 into  /pws/zycbe031

                         where nrseq    = itab_zycbt031-nrseq

                           and dtboleto = itab_zycbt031-dtboleto.

  move /pws/zycbe031 to wa_zycbt031.

  clear /pws/zycbe064.

  clear itab_zycbt064.

  refresh itab_zycbt064.

  select * from /pws/zycbt064

           into table itab_zycbt064

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

           where nrboleto = itab_zycbt031-nrseq.        "#EC CI_NOFIRST

* << Fim da exclusão

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

          where nrboleto = itab_zycbt031-nrseq.         "#EC CI_NOFIRST

* << Fim da inclusão

  if /pws/zycbe031-mdcorresp ne 'TV'.

    perform seleciona_dados_gerais.

    perform carrega_dados.

    perform calcula_valores_totais.

  else.

    clear /pws/zycbe048.

    select single * from /pws/zycbt048 into  /pws/zycbe048

                           where nrseq    = itab_zycbt031-nrseq

                            and dtboleto = itab_zycbt031-dtboleto.

  endif.

  v_line = 01.

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

 endif.

* << Fim da exclusão

endform.

form volta_registro.

  data v_proximo like sy-tabix.

  read table itab_zycbt031 with key nrseq = /pws/zycbe031-nrseq.

  v_proximo = sy-tabix - 1.

  read table itab_zycbt031 index v_proximo.

  check sy-subrc = 0.

  clear /pws/zycbe064.

  clear itab_zycbt064.

  refresh itab_zycbt064.

...

...

    endif.

  endif.

  if /pws/zycbe031-belnr_p is initial.

    itab_pf_status-fcode = 'PAG'.

    append itab_pf_status.

  endif.

  set pf-status '0200' excluding itab_pf_status.

  refresh itab_pf_status.

endform.

form desabilitar_100.

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

   data: v_cod  like ok_code,

* << Fim da exclusão

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

  data:

* << Fim da inclusão

    v_belnr_as type /pws/zycbt117-belnr_as.

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

      v_cod = w_ok .

* << Fim da exclusão

  if /pws/zycbt118-fcambio = 'N'.

    v_status_s = '0'.

  elseif /pws/zycbt118-fcambio = 'S'.

    v_status_despesa = v_status_s.

  endif.

  if v_desp_a = 'A'.

    v_altera_dtliquid = 'X'.

    v_status_despesa = '1'.

    v_desp_a = 'F'.

  endif.

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

  if not v_avan_or_reto is initial and

     sy-tcode = '/PWS/ZYCB110'.

    v_status_s = '1'.

  endif.

* << Fim da inclusão

  if v_status_s = '1'.

    select single * from /pws/zycbt134

           where nrseq    = /pws/zycbe031-nrseq and

                 dtboleto = /pws/zycbe031-dtboleto.

    if sy-subrc eq 0.

      if v_altera_dtliquid = 'X'.

        v_altera_dtliquid = ' '.

      else.

        v_altera_dtliquid = 'X'.

      endif.

...

...

      loop at screen.

        if screen-name eq '/PWS/ZYCBE145-BUKRS_P' or

           screen-name eq '/PWS/ZYCBE145-ZLSCH' or

           screen-name eq '/PWS/ZYCBE031-BCOOPER' or

           screen-name eq '/PWS/ZYCBE031-KURSF' or

           screen-name eq '/PWS/ZYCBE031-DTCREDPR'.

          screen-input = '0'.

          modify screen.

        endif.

      endloop.

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

    endif.

* << Fim da exclusão

  endif.

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

      loop at screen.

        if screen-name eq '/PWS/ZYCBE145-ZLSCH'   or

           screen-name eq '/PWS/ZYCBE031-BCOOPER' or

           screen-name eq '/PWS/ZYCBE031-KURSF'   or

           screen-name eq 'V_PROPOR'              or

           screen-name eq '/PWS/ZYCBE031-DTCREDPR'.

          if v_cod  = 'AVAN' or

             v_cod  = 'ENTE'.

            screen-input = '1'.

            modify screen.

          endif.

* << Fim da exclusão

        endif.

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

      endloop.

* << Fim da exclusão

  tc_cont-line_sel_mode  = 0.

  tc_dados-line_sel_mode = 0.

endform.

module insert_line output.

  perform insere_dados.

endmodule.

...

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

Modificações efetuadas em REPS /PWS/MZYGL110TOP

...

      v_linhas        type i,

      v_linha2        type i,

      v_cod_fech_aux  like /pws/zygle326-cod_fech,

      v_area          like /pws/zycbt119-cod_area,

      v_codaux3 like /pws/zyglt316-codaux3,

      v_subtela(4)   type n,

      v_date2 like   sy-datum,

      v_repid       like sy-repid,

      v_cod_mod     type c value 'E',

      v_exit        like /pws/zyglt100-zexit value 'PBE002'.

* >> Início da inclusão:

data: v_avan_or_reto type c.

* << Fim da inclusão

data: v_dias(2)       type c,

      v_dia_semana    type p,

      v_feriado       type c,

      v_data_mes      like sy-datum.

data: begin of itab_thol occurs 0.

        include structure thol.

data: end of itab_thol.

data: v_syrepid    like sy-repid,

      v_sydynnr    like sy-dynnr,

      v_visivel    like /pws/zyglt319-visivel,

...