Hi, I am student.I am not able to download following books could you please mail them to me. Sou estudante.Não sou capaz de fazer download seguintes books.Could você queira correio-los para mim. Fundamentos de Datawarehouse V2.pdf Diagrama_Arquitetura_Oracle.pdf Tunning de Forms.pdf Build Forms C .pdf Oracle10g - Novas Funcionalidades Otimizacao e Performance Parte2 - V2 thanks & Regards, Kamlesh Oracle Certified associate Developer > --- On Sun, 1/3/09, Moderador do grupo oracle_br > <oracle_br-ow...@yahoogrupos.com.br> wrote: > > > From: Moderador do grupo oracle_br > <oracle_br-ow...@yahoogrupos.com.br> > > Subject: Arquivo - Calcula_Digito_DOC > > To: kamlesh_kshirsa...@yahoo.com > > Date: Sunday, 1 March, 2009, 6:12 PM > > -- > > > ************************************************************************* > > -- > > -- Funcao: Calcula_Digito_DOC > > -- > > -- -- > > -- Entrada: -- > > -- Tipo : determina que documento deve ser validado. > > > -- > > -- Valores validos sao: 'CGC' ou > > 'CPF'. -- > > -- Numero : numero do documento, com 13 digitos, com > zeros > > a esquerda. -- > > -- O numero do documento nao deve estar formatado, > nem > > incluir -- > > -- os digitos de verificacao. Deve ser constituido > apenas > > por -- > > -- digitos. -- > > -- -- > > -- Saida: -- > > -- Digito de verificacao do CGC ou CPF. -- > > -- Ou 'ER' se o documento especificado nao > e' > > nem CGC, nem CPF. -- > > -- > > > ************************************************************************* > > -- > > -- Objetivo: > > -- > > -- Calcular os digitos de verificacao do CGC ou CPF > > especificado. -- > > -- > > > ************************************************************************* > > -- > > -- Autoria: -- > > -- Raissa M. M. Lopes - ralo...@br.oracle.com > -- > > -- > > -- > > -- Data de Criacao: 26.09.1996 Versao: 1 > > -- > > -- > > > ************************************************************************* > > -- > > create or replace function Calcula_Digito_DOC > > ( > > Tipo IN varchar2, > > Numero IN varchar2 > > ) > > RETURN varchar2 > > IS > > Primeiro_Dig number; > > Segundo_Dig number; > > BEGIN > > IF Tipo = 'CPF' THEN > > > > Primeiro_Dig := 11 - MOD > (TO_NUMBER(SUBSTR(Numero,13,1) * > > 2) + > > TO_NUMBER(SUBSTR(Numero,12,1) * 3) + > > TO_NUMBER(SUBSTR(Numero,11,1) * 4) + > > TO_NUMBER(SUBSTR(Numero,10,1) * 5) + > > TO_NUMBER(SUBSTR(Numero,9,1) * 6) + > > TO_NUMBER(SUBSTR(Numero,8,1) * 7) + > > TO_NUMBER(SUBSTR(Numero,7,1) * 8) + > > TO_NUMBER(SUBSTR(Numero,6,1) * 9) + > > TO_NUMBER(SUBSTR(Numero,5,1) * 10), > > 11); > > > > if (Primeiro_Dig = 11) or (Primeiro_Dig = 10) then > > Primeiro_Dig := 0; > > end if; > > > > Segundo_Dig := 11 - MOD (Primeiro_Dig * 2 + > > TO_NUMBER (SUBSTR(Numero,13,1) * 3) + > > TO_NUMBER (SUBSTR(Numero,12,1) * 4) + > > TO_NUMBER (SUBSTR(Numero,11,1) * 5) + > > TO_NUMBER (SUBSTR(Numero,10,1) * 6) + > > TO_NUMBER (SUBSTR(Numero,9,1) * 7) + > > TO_NUMBER (SUBSTR(Numero,8,1) * 8) + > > TO_NUMBER (SUBSTR(Numero,7,1) * 9) + > > TO_NUMBER (SUBSTR(Numero,6,1) * 10) + > > TO_NUMBER (SUBSTR(Numero,5,1) * 11), > > 11); > > > > if (Segundo_Dig = 11) or (Segundo_Dig = 10) THEN > > Segundo_Dig := 0; > > end if; > > > > Return > > (CONCAT(TO_CHAR(Primeiro_Dig),TO_CHAR(Segundo_Dig))); > > > > ELSIF Tipo = 'CGC' THEN > > > > Primeiro_Dig := (11 - MOD > (TO_NUMBER(SUBSTR(Numero,13,1) > > * 2) + > > TO_NUMBER(SUBSTR(Numero,12,1) * 3) + > > TO_NUMBER(SUBSTR(Numero,11,1) * 4) + > > TO_NUMBER(SUBSTR(Numero,10,1) * 5) + > > TO_NUMBER(SUBSTR(Numero,9,1) * 6) + > > TO_NUMBER(SUBSTR(Numero,8,1) * 7) + > > TO_NUMBER(SUBSTR(Numero,7,1) * 8) + > > TO_NUMBER(SUBSTR(Numero,6,1) * 9) + > > TO_NUMBER(SUBSTR(Numero,5,1) * 2) + > > TO_NUMBER(SUBSTR(Numero,4,1) * 3) + > > TO_NUMBER(SUBSTR(Numero,3,1) * 4) + > > TO_NUMBER(SUBSTR(Numero,2,1) * 5), > > 11)); > > > > if (Primeiro_Dig = 11) or (Primeiro_Dig = 10) then > > Primeiro_Dig := 0; > > end if; > > > > Segundo_Dig := (11 - MOD (Primeiro_Dig * 2 + > > TO_NUMBER (SUBSTR(Numero,13,1) * 3) + > > TO_NUMBER (SUBSTR(Numero,12,1) * 4) + > > TO_NUMBER (SUBSTR(Numero,11,1) * 5) + > > TO_NUMBER (SUBSTR(Numero,10,1) * 6) + > > TO_NUMBER (SUBSTR(Numero,9,1) * 7) + > > TO_NUMBER (SUBSTR(Numero,8,1) * 8) + > > TO_NUMBER (SUBSTR(Numero,7,1) * 9) + > > TO_NUMBER (SUBSTR(Numero,6,1) * 2) + > > TO_NUMBER (SUBSTR(Numero,5,1) * 3) + > > TO_NUMBER (SUBSTR(Numero,4,1) * 4) + > > TO_NUMBER (SUBSTR(Numero,3,1) * 5) + > > TO_NUMBER (SUBSTR(Numero,2,1) * 6), > > 11)); > > > > if (Segundo_Dig = 11) or (Segundo_Dig = 10) then > > Segundo_Dig := 0; > > end if; > > > > Return > > (CONCAT(TO_CHAR(Primeiro_Dig),TO_CHAR(Segundo_Dig))); > > > > ELSE > > Return('ER'); > > END IF; > > > > END Calcula_Digito_DOC; > > / > > > > -- > > > ************************************************************************* > > -- > > -- Funcao: Valida_Documento -- > > -- -- > > -- Entrada: -- > > -- Tipo : determina que documento deve ser validado. > > > -- > > -- Valores validos sao: 'CGC' ou > > 'CPF'. -- > > -- Numero : numero do documento, com 15 digitos, com > zeros > > a esquerda. -- > > -- O numero do documento nao deve estar formatado, > deve > > ser -- > > -- constituido apenas por digitos. -- > > -- -- > > -- Saida: -- > > -- Retorna 0 se o CGC ou CPF e' invalido. > -- > > -- Retorna 1 se o CGC ou CPF e' valido. -- > > -- > > > ************************************************************************* > > -- > > -- Objetivo: > > -- > > -- Determinar se o numero do CGC ou CPF passado e' > > valido ou nao. -- > > -- > > > ************************************************************************* > > -- > > -- Autoria: -- > > -- Raissa M. M. Lopes - ralo...@br.oracle.com > -- > > -- > > -- > > -- Data de Criacao: 26.09.1996 Versao: 1 > > -- > > -- > > > ************************************************************************* > > -- > > > > create or replace function Valida_Documento > > ( > > Tipo IN varchar2, > > Numero IN varchar2 > > ) > > RETURN number > > IS > > Digito_Calc varchar2(2); > > BEGIN > > > > if TO_NUMBER(Numero) > 0 then > > Digito_Calc := Calcula_Digito_DOC (Tipo, > > SUBSTR(Numero,1,13)); > > if Digito_Calc = SUBSTR(Numero,14,2) then > > Return (1); > > else > > Return (0); > > end if; > > else > > Return (0); > > end if; > > > > EXCEPTION > > WHEN OTHERS THEN > > Return (0); > > END Valida_Documento; > > > Connect with friends all over the world. Get Yahoo! > India Messenger at http://in.messenger.yahoo.com/?wm=n/
Add more friends to your messenger and enjoy! Go to http://messenger.yahoo.com/invite/