Sintoma

Ao preenchermos o complemento do boleto, colocamos a empresa: BRO3 (LETRA O), ao invés de BR03

(zero). Este foi um problema em Produção, onde o cliente digitou errado o o programa aceitou, uma

vez que não existe empresa BRO3. Por este motivo, ao executar a Saída de Pagamento, o programa não

contabiliza e dá mensagem de erro.

Solução

O Programa irá consistir o Campo EMPRESA PAGAMENTO no Complemento do Boleto se existe na tabela

T001.

Informações Complementares

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

Nota Número 09344 Data: 09/11/2009 Hora: 16:33:30

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

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

Nota Número              : 09344

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 - Descrição Breve

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

COMPLEMENTO DO BOLETO - CAMPO EMPRESA PAGAMENTO

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

Palavras Chave:

COMPLEMENTO DO BOLETO - CAMPO EMPRESA PAGAMENTO

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

Objetos da nota:

DYNP /PWS/SAPMZYCB110                        0100

REPS /PWS/MZYCB110I01

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

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100

...

    MODULE insert_line.

  ENDLOOP.

  CALL SUBSCREEN ss_dados INCLUDING syst-cprog v_subtela.

  CALL SUBSCREEN ss_html INCLUDING syst-cprog v_tela_help.

PROCESS AFTER INPUT.

  FIELD /pws/zycbe145-zlsch  MODULE consiste_meio_pagto.

  FIELD /pws/zycbe145-zlschi MODULE consiste_meio_pagtoi.

  FIELD /pws/zycbe145-zlschc MODULE consiste_meio_pagtoc.

  FIELD /pws/zycbe031-bcooper MODULE consiste_banco_oper.

  FIELD /pws/zycbe031-kursf MODULE consiste_preenche_taxa2.

* >> Início da inclusão:

  FIELD /pws/zycbe145-bukrs_p MODULE consiste_empresa_pgto.

* << Fim da inclusão

  CHAIN.

    FIELD /pws/zycbe031-kursf.

    FIELD /pws/zycbe031-taxair.

    FIELD /pws/zycbe031-taxacide.

    MODULE calcula_total.

  ENDCHAIN.

  LOOP AT itab_zycbt031_tc.

    FIELD /pws/zycbe048-instituicao MODULE consiste_instituicao.

    FIELD /pws/zycbe048-corret MODULE consiste_corretora.

    MODULE altera_dados.

...

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

Modificações efetuadas em REPS /PWS/MZYCB110I01

...

        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.

* >> Início da inclusão:

module consiste_empresa_pgto input.

  select single bukrs from t001 into t001-bukrs

                      where bukrs = /pws/zycbe145-bukrs_p.

  if sy-subrc ne 0 and not /pws/zycbe145-bukrs_p is initial.

    message e061 with text-211 /pws/zycbe145-bukrs_p text-212.

  endif.

endmodule.

* << Fim da inclusão