CE PLUS - Nota 006677
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 03/06/2008 00:00:00
Data/Hora Última Alteração: 04/03/2010 14:19:13
Descrição da Nota: COMPLEMENTO DO BOLETO - EXIT CBI008
Sintoma
Complemento do Boleto - EXIT CBI008
Solução
Complemento do Boleto - EXIT CBI008
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06677 Data: 03/06/2008 Hora: 18:02:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06677
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00050
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - EXIT CBI008
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - EXIT CBI008
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
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.
* >> Início da inclusão: MODULE CONTROLA_TELA
CLEAR itab_zyglt100. REFRESH itab_zyglt100.
v_repid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_repid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
READ TABLE itab_zyglt100 WITH KEY zexit = 'CBI008' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* << Fim da inclusão
CLEAR v_deleta.
CASE ok_code.
WHEN 'DEL'.
w_ok = ok_code.
PERFORM apaga_registro.
v_deleta = 'X'.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
SET SCREEN 001.
...
...
WHEN 'CANC'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'ENTE' OR 'EXEC' OR 'CARTA' OR 'XCARTA'.
PERFORM seleciona_registro.
WHEN 'STEP'.
PERFORM acerta_ponteiro.
WHEN OTHERS.
PERFORM outras_opcoes.
ENDCASE.
* >> Início da inclusão: MODULE CONTROLA_TELA
ENDIF.
* << Fim da inclusão
ENDMODULE.
MODULE user_command_0002 INPUT.
CASE ok_code.
WHEN 'P--'.
v_paging_cntr = 0.
WHEN 'P+'.
v_paging_cntr_old = v_paging_cntr.
v_paging_cntr = v_paging_cntr + 15.
IF v_paging_cntr > v_linha.
v_paging_cntr = v_paging_cntr_old.
...