/****************************************************************
Exclui linha da table
****************************************************************/
function excluiLinha(pObjImg)
{
var oRow = pObjImg.parentNode.parentNode;
var oTable = oRow.parentNode;
oTable.deleteRow(oRow.rowIndex);
}
sexta-feira, 27 de junho de 2014
JavaScript - Inserir Linha na Table
/***************************************************************
Insere nova linha na table
****************************************************************/
function insereLinha()
{
oTable = $("tb_");
i = oTable.rows.length;
oRow = oTable.insertRow(i);
oCell = oRow.insertCell(0);
oCell.innerHTML = '''';
oCell.align = '''';
}
Insere nova linha na table
****************************************************************/
function insereLinha()
{
oTable = $("tb_");
i = oTable.rows.length;
oRow = oTable.insertRow(i);
oCell = oRow.insertCell(0);
oCell.innerHTML = '''';
oCell.align = '''';
}
quinta-feira, 26 de junho de 2014
JavaScript - Verificar se um campo contem somente espaços
Código para percorrer uma lista de valores na tela e verificar se um determinado campo só contem espaços, caso positivo dar uma mensagem e não deixar prosseguir, para que o usuário digite um valor válido no campo.
Criar a função Trim
function trim(pString)
{
return pString.replace(/^\s+|\s+$/g, "");
}
function gravar()
{
vArrayun = getArrayObjeto(document.forms[0], "input", "p_nm_campo");
for (var i=0; i<vArrayun.length; i++)
{
//verifica se o campo está vazio
if (vArrayun[i].value == "")
{
alert("Favor preencher todos os campos antes de clicar em gravar!");
vArrayun[i].focus();
return false;
}
// Verificar se o campo contem somente espaços
var entidade = vArrayun[i].value;
entidade = trim(entidade);
if (entidade.length == 0) {
alert("Não é permitido gravar uma entidade somente com espaços!!");
vArrayun[i].focus();
return false;
}
}
document.frm_xxx.action = "pkg_xxxxx.prc_xxxx_grava";
document.frm_xxx.submit(); }
}
Criar a função Trim
function trim(pString)
{
return pString.replace(/^\s+|\s+$/g, "");
}
function gravar()
{
vArrayun = getArrayObjeto(document.forms[0], "input", "p_nm_campo");
for (var i=0; i<vArrayun.length; i++)
{
//verifica se o campo está vazio
if (vArrayun[i].value == "")
{
alert("Favor preencher todos os campos antes de clicar em gravar!");
vArrayun[i].focus();
return false;
}
// Verificar se o campo contem somente espaços
var entidade = vArrayun[i].value;
entidade = trim(entidade);
if (entidade.length == 0) {
alert("Não é permitido gravar uma entidade somente com espaços!!");
vArrayun[i].focus();
return false;
}
}
document.frm_xxx.action = "pkg_xxxxx.prc_xxxx_grava";
document.frm_xxx.submit(); }
}
Verificar Objetos Inválidos
SELECT OBJECT_TYPE
,OBJECT_NAME
,STATUS
FROM DBA_OBJECTS
WHERE STATUS = 'INVALID'
AND OWNER = 'XXXXX';
,OBJECT_NAME
,STATUS
FROM DBA_OBJECTS
WHERE STATUS = 'INVALID'
AND OWNER = 'XXXXX';
quarta-feira, 4 de junho de 2014
PL/SQL - Exemplo de uma Package utilizando Type
Exemplo de uma Package utilizando Type
create or replace package PR_I_TESTE is
TYPE tRegra IS RECORD ( CAMPO1 NUMBER(8)
,CAMPO2 VARCHAR2(2000)
,CAMPO3 VARCHAR2(40)
,CAMPO4 VARCHAR2(40));
--
TYPE arrayRegra IS TABLE OF tRegra INDEX BY BINARY_INTEGER;
procedure PRC_TESTE (p_Regra OUT PR_I_TESTE.arrayRegra );
end;
--------------------------------------------------------------------
create or replace package body PR_I_TESTE IS
procedure PRC_TESTE (p_Regra OUT PR_I_TESTE.arrayRegra )IS
nIndexRegra number;
begin
p_Regra.Delete();
nIndexRegra := 0;
FOR X IN (select CAMPO1
,CAMPO2
,CAMPO3
,CAMPO4
from tabela_teste) LOOP
--
nIndexRegra := nIndexRegra + 1;
--
p_Regra(nIndexRegra).CAMPO1:= X.CAMPO1;
p_Regra(nIndexRegra).CAMPO2:= X.CAMPO2;
p_Regra(nIndexRegra).CAMPO3:= X.CAMPO3;
p_Regra(nIndexRegra).CAMPO4:= X.CAMPO4;
dbms_output.put_line(nIndexRegra||'-'||p_Regra(nIndexRegra).CAMPO1||'-'||p_Regra(nIndexRegra).CAMPO2);
end loop;
end PRC_TESTE;
end ;
---------------------------------------------------------------
Para testar a procedure
DECLARE
P_REGRA HR.PR_I_TESTE.ARRAYREGRA;
BEGIN
PR_I_TESTE.PRC_TESTE(P_REGRA => P_REGRA);
END;
create or replace package PR_I_TESTE is
TYPE tRegra IS RECORD ( CAMPO1 NUMBER(8)
,CAMPO2 VARCHAR2(2000)
,CAMPO3 VARCHAR2(40)
,CAMPO4 VARCHAR2(40));
--
TYPE arrayRegra IS TABLE OF tRegra INDEX BY BINARY_INTEGER;
procedure PRC_TESTE (p_Regra OUT PR_I_TESTE.arrayRegra );
end;
--------------------------------------------------------------------
create or replace package body PR_I_TESTE IS
procedure PRC_TESTE (p_Regra OUT PR_I_TESTE.arrayRegra )IS
nIndexRegra number;
begin
p_Regra.Delete();
nIndexRegra := 0;
FOR X IN (select CAMPO1
,CAMPO2
,CAMPO3
,CAMPO4
from tabela_teste) LOOP
--
nIndexRegra := nIndexRegra + 1;
--
p_Regra(nIndexRegra).CAMPO1:= X.CAMPO1;
p_Regra(nIndexRegra).CAMPO2:= X.CAMPO2;
p_Regra(nIndexRegra).CAMPO3:= X.CAMPO3;
p_Regra(nIndexRegra).CAMPO4:= X.CAMPO4;
dbms_output.put_line(nIndexRegra||'-'||p_Regra(nIndexRegra).CAMPO1||'-'||p_Regra(nIndexRegra).CAMPO2);
end loop;
end PRC_TESTE;
end ;
---------------------------------------------------------------
Para testar a procedure
DECLARE
P_REGRA HR.PR_I_TESTE.ARRAYREGRA;
BEGIN
PR_I_TESTE.PRC_TESTE(P_REGRA => P_REGRA);
END;
Assinar:
Postagens (Atom)