They get this error whenever the user is logged in the system after a considerable length of time (say 8 hours).
If they re-boot the system, it works okay.
Printable View
They get this error whenever the user is logged in the system after a considerable length of time (say 8 hours).
If they re-boot the system, it works okay.
Hi marcio.68.
Give me what message you are getting.
thanks
ABC
This message is :
WHEN-NEW-FORM-INSTANCE trigger raised unhandled
exception ORA-1475 (FRM-40375)
-----------------------------------------------------------------------
This WHEN-NEW-FORM-INSTANCE trigger is :
begin
Operacao.Novo_Form;
Set_Window_Property('CG$WINDOW_1',WINDOW_STATE,MAXIMIZE);
-- Alteração em 09/02/1997 - Alexandre(EnSof)
-- Motivo : Inibir a linha abaixo para não permitir Titulos Duplicados na Janela Windows
-- O template pegará o tÃ*tulo colocado na opcao "TITLE" do CASE*DESIGNER
-- Set_Window_Property(Forms_MDI_Window,Title,GET_ITEM_PROPERTY('CG$CTRL.CG$MN',
-- HINT_TEXT));
-- Fim da Alteração
/* CGGN$CALL_GENERATOR_CODE */
/* Execute the WHEN-NEW-FORM-INSTANCE code that was created by Forms */
/* Generator */
BEGIN
CGBS2$.SET_COORD_STYLE( 'P' );
CGBS2$.SET_QRY_ON_ENTRY( 'Y' );
BEGIN
CG$WHEN_NEW_FORM_INSTANCE;
EXCEPTION
WHEN OTHERS THEN
CGTE$OTHER_EXCEPTIONS;
END;
END;
/*
Set_Window_Property('CG$WINDOW_1',WINDOW_STATE,MAXIMIZE);
Set_window_property('CG$WINDOW_1',Title,Lower(GET_APPLICATION_PROPERTY(USERNAME)));
Set_window_property(FormS_mdi_window,Title,
lower(get_item_property('CG$CTRL.CG$MS',HINT_TEXT))||' - '||
get_item_property('CG$CTRL.CG$MN',HINT_TEXT));
P_startup;
*/
default_value(null,'global.snw_cd_recibo');
default_value(null,'global.snw.cd_serie');
:blk_01.cd_recibo := :global.snw_cd_recibo;
:blk_01.cd_serie := :global.snw_cd_serie;
P_pesq_dados;
end;
----------------------------------------------------------------------
This procedure p_pesq_dados is :
PROCEDURE P_PESQ_DADOS IS
ncd_assin number(10);
ncd_cliente number(9);
nnome char(60);
ctp_idntifcao char(1);
ncd_idntifcao varchar2(20);
ctel_res char(20);
ctel_com char(20);
cretorno char(50);
w_cd_tipo_status number(10);
w_nome varchar2(100);
w_nome_abrv char(10);
w_cobranca varchar2(1);
w_entregar varchar2(1);
w_verificar_motiv_canc varchar2(1);
w_indica_ativo varchar2(1);
w_indica_faturamento varchar2(1);
w_indica_cancelado varchar2(1);
w_indica_critica varchar2(1);
w_cd_mtvo number(10);
w_nome1 varchar2(100);
w_nome_abrv1 char(10);
w_restricao_validacao varchar2(1);
w_enviar_cobranca varchar2(1);
w_efetuar_bloqueio varchar2(1);
w_dt_ini_validade date;
w_dt_fim_validade date;
w_retorno varchar2(200);
cursor c1 is
select p.cd_assinatura ,
a.cd_veiculo ,
p.cd_contrato_assn ,
p.dt_venda_periodo ,
p.dt_inicio_periodo ,
p.dt_correcao_fim_periodo
from assinatura a,
periodo_assinatura p
where cd_recibo = :blk_01.cd_recibo
and (cd_serie_recibo Is Null
Or RTRIM (LTRIM (cd_serie_recibo)) = RTRIM (LTRIM (:blk_01.cd_serie)) )
and a.cd_assinatura = p.cd_assinatura
and a.cd_periodo_atual = p.cd_periodo;
BEGIN
for reg1 in c1
loop
ncd_assin := reg1.cd_assinatura;
NW50F01(ncd_assin,trunc(sysdate),w_cd_tipo_status,w_nome,
w_nome_abrv,w_cobranca,w_entregar,w_verificar_motiv_canc,
w_indica_ativo,w_indica_faturamento,w_indica_cancelado,
w_indica_critica,w_cd_mtvo,w_nome1,w_nome_abrv1,
w_restricao_validacao,w_enviar_cobranca,w_efetuar_bloqueio,
w_dt_ini_validade,w_dt_fim_validade,w_retorno);
NW50A09(ncd_assin,
'P',
ncd_cliente,
nnome,
ctp_idntifcao,
ncd_idntifcao,
ctel_res,
ctel_com,
cretorno);
:blk_02.nm_nome := nnome;
:blk_02.nome_abrv := w_nome_abrv;
:blk_02.dt_inclusao := reg1.dt_venda_periodo;
:blk_02.cd_veiculo := reg1.cd_veiculo;
:blk_02.cd_contrato := reg1.cd_contrato_assn;
:blk_02.dt_inicio := reg1.dt_inicio_periodo;
:blk_02.dt_fim := reg1.dt_correcao_fim_periodo;
:blk_02.cd_assinatura := ncd_assin;
:blk_02.cod_cliente := ncd_cliente;
next_record;
end loop;
--msg_alert('cod_cliente'||to_char(NCD_cliente),'I',false);
END;
-----------------------------------------------------------------------
Thanks :-)