Translate

sexta-feira, 27 de junho de 2014

JavaScript - Excluir Linha da Table

/****************************************************************
  Exclui linha da table
****************************************************************/
function excluiLinha(pObjImg)
{
  var oRow   = pObjImg.parentNode.parentNode;
  var oTable = oRow.parentNode;

  oTable.deleteRow(oRow.rowIndex);
}

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 = '''';
}

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();                   }     

  } 

Verificar Objetos Inválidos

SELECT OBJECT_TYPE
      ,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;