Archive for the ‘oracle’ Category

Exercício de tratamento de nulos com GeneXus 9 Web e .NET e Oracle 10g XE

viernes, diciembre 5th, 2008

Com o passar dos anos acabamos trabalhando com um padrão determinado e muitas vezes não paramos para pensar se existe outra forma de fazer as coisas até que algum dia é questionado por alguém.
Realmente é algo complicado de explicar assim de cabeça então achei melhor deixar documentado o funcionamento de GeneXus no meu parecer respeito aos nulos, e algumas considerações ao trabalhar com Oracle particularmente.

Existe uma propriedade em GeneXus chamada

Generate null for nullvalue

Por default ela traz o valor “no”

O que é que isso faz?

Isso faz que o ORACLE não grave NULL nos registros das tabelas.

Para caracteres grava ‘ ’

Para numéricos grava 0

Para datas grava 01/01/0001

Tudo bem, agora, se você quiser gravar NULOS como tem que fazer?

1) Trocar Generate null for nullvalue para “Yes”
2) Mudar a estrutura de sua transação para permitir que os atributos permitam nulo, veja a imagem.

Ok, então agora já está agora não vão aparecer meus registros em nulo.
Sinto informar que não.
Ainda tem um passo mais.

3) Se você atualiza códigos com procedimentos como por exemplo

New //envio
EnvioCodigo = 3
EnvioEstado = nullvalue(EnvioEstado)
EnvioValor = nullvalue(EnvioValor)
// EnvioData = nullvalue(EnvioData)
EndNew

Veja bem o atributo comentado e pode fazer o exercício com todos os atributos secundários.

Se você não tiver a função associada nullvalue(), GeneXus vai a carregar no registro o valor padrão de GeneXus, neste exemplo ‘01/01/0001’
Ahh ok, tudo bem então agora descomentando isso, sim está tudo certo?

Não. O mesmo acontece nas telas das transações. Se você não coloca o atributo na transação GeneXus vai a carregar no registro o valor padrão dele para os nulos.

Uma solução neste caso e colocar os campos nas telas e adicionar a propriedade “visible” com valor 0.

Exemplo:

Bem, mas ainda existe outra alternativa ainda melhor passada por Enrique Almeida que é a propriedade «Initialized not referenced atributes» que ela por default traz o valor = «yes» e se trocamos ela para «no» evitamos colocar nas telas e nos procs a regra nullvalue.

Quero aclarar que inicialmente não tinha mudado esta última propriedade, porque como comentei no início eu não tenho a costume de trabalhar com os nulos de ORACLE, mas agora com a enorme colaboração de Enrique acho que fica publicado um bom exemplo que pode tirar as dúvidas de muitos.

Retiro a sugestão para ARTech, já que está resolvido e muito bem.

Continuarei testando com combinações de constraints de banco e demais.

Muito obrigado Enrique.

Fabricio De los Santos
Gerência de Projetos – Consultoria GeneXus –
ERP – Sistemas de Missão Crítica – Bancos de Dados.

Veja meus blogs em:
www.fabriciodelossantos.com

Como desinstalar oracle 9

lunes, diciembre 17th, 2007

Como desinstalar oracle completamente, borrando entradas en el registro de windows.

Luego de probar la versión 10g de oracle me decidí a desinstalar Oracle 9.2 de mi máquina, y me encontré con algunos detalles, que no pude apagar definitivamente, como carpetas de oracle y entradas de oracle en los servicios de windows.
Intenté instalar el oracle 10 por arriba pero me encontré con otros problemas a la hora de ejecutar.
En fin, terminé creando una guia que comparto aqui con un paso a paso para desinstalar oracle 9 por completo.

Paso a paso

– Verificar si se tiene odbcs asociados y eliminarlos ya que después quedan corruptos y da otro dolor de cabeza desinstalarlos (aunque también podemos después crear uno nuevo con el mismo nombre y ahí podemos apagarlo, pero lo más prolijo sería eliminar el odbc asociado antes de desinstalar oracle)
– Ejecutar el universal installer
– Borrar todos los homes que aparezcan
– Borrar la variable de ambiente ORAHOME
– Borrar de la variable de ambiente PATH todas las referencias a oracle (panel de control / sistema / avanzado / variables de ambiente)
– Borrar del registro toda referencia a oracle (ejecutar regedit buscar carpeta oracle y borrar)
– Reiniciar el pc
– Borrar la carpeta oracle debajo de c:\

En mi caso en particular como tenia la base de datos instalada local el instalador/desinstalador no me borró los servicios OracleHome92TnsListener y OracleServiceMiMaquina.

Tenemos dos formas de borrar estos servicios de windows

1) sc delete OracleHome92TnsListener

Entramos en el panel de control / servicios y ya no está mas.

2) Ejecutando regedit
Borramos la cadena correspondiente a OracleServiceMiMaquina en:

HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Services

Esta segunda opción lo que tiene de diferente es que para ver si el servicio desapareció del panel de control / servicios, hay que reiniciar el pc

Si se usa la primera opción no es necesario reiniciar el pc.

Fabricio De los Santos
Gerencia de Proyectos –
Consultoría GeneXus –
ERP – Sistemas de Misión Crítica – Bases de Datos.

Vea mis blogs en:
www.fabriciodelossantos.com

Como simular una función Session o Variable Global en Win con GeneXus y Oracle

martes, julio 3rd, 2007

Cuando trabajamos en Web y queremos distinguir una sesión de otra podemos utilizar una variable de tipo WebSession.
Esto básicamente queda muy claro en cualquier ejemplo GeneXus generado por patterns, etc.

Un ejemplo puede ser el procedimiento SetContext de GxWiki

&Session.Set(WikiParameters.Context, &Context.ToXml())

Básicamente seteamos en la variable de tipo WebSession algo particular, en este caso un SDT que se llama context.

Ahora bien, por que querría o precisaría tener algo similar a una WebSession pero en una aplicación Windows?

Si bien desde siempre existen las funciones UserID() y Wrkst() que podrían darme esa unicidad que preciso, dependiendo de la aplicación o de algunas limitantes o que nos encontremos, cantidad de licencias, etc, puede ser que ni la combinación de estas 2 funciones mencionadas, nos pueda garantir el dato de una sesión dentro de mi aplicación.

Por ejemplo:

Tengo una aplicación corriendo bajo Terminal Services con licencia para 10 usuarios, donde el nombre de usuario podría no indicarme nada en particular, digamos podrían ser del tipo User1, User2, etc, para lo cual si usara la función UserID() para grabar una auditoría en un registro, no me serviría de mucho.

New
xxxx=yyyy
xxxx=yyyy
xxxx=UserID()
EndNew

Entonces podría llegar a otra solución

Aplico un login y password en una pantalla cuando ingreso al sistema y lo asocio con UserID()
Algo sencillo para ejemplificar (sin contemplar cientos de criterios de seguridad) sería más o menos así:

For Each //Usuarios
Where UsrCod=&UsrCod
Where UsrPsw=&UsrPsw
New //Log
LogUsrID=UserID()
LogUsrCod=UsrCod
EndNew
EndFor

Para luego volver a mi rutina de auditoria

New
xxxx=yyyy
xxxx=yyyy
xxxx=udp(pUserID)
EndNew

Donde «pUserID» seria una recorrida de la tabla Log usando como condición «LogUsrID=UserID()» y devolviendo como resultado el valor de «LogUsrCod» que podria ser «Juan»

Perfecto, ahora si tengo un Usuario que conozco registrado para auditoría.

Pero bien, complicándola un poco más, que pasaría si ese «User1» (del Terminal) está ejecutando mi aplicación y necesita ejecutar otra instancia?

No habría problemas, porque si bien no podría hacer el «New» en la tabla de «Log», con la función «UserID()» obtendría el mismo dato, o sea «Juan»

Pero…

Si este mismo «User1» (del Terminal) en vez de entrar como «Juan», necesita entrar como «Pedro»?
No podré hacer un «New», y ni pensar de utilizar un «When Duplicate» porque reemplazaría un usuario por otro para dos sesiones distintas!

Mmm…
Esto me hace pensar que a partir de la primera pantalla, tendré que pasar por parámetro el usuario que se logueó. Es una solución un poco tediosa, porque objetos que no contemplé antes voy a tener que acomodar para recibir este parámetro.

Sería una solución contar con una función WinSession() que me devuelva la sessión del usuario que está conectado a la base de datos. Claro, su funcionamiento interno sería particular para cada DBMS. Pero, por mientras esto no esté en GeneXus, podemos simularlo mezclando algunos ingredientes de Oracle y luego cada uno puede aplicarlo en su DBMS de desarrollo.

1) Debemos crear una view en nuestra base de datos.

CREATE OR REPLACE FORCE VIEW MISESSION AS
select userenv(‘SESSIONID’) SESSIONID from dual;

2) En GeneXus, creamos un DataView a esa View de Oracle con un atributo para identificar la sesión.

3) Luego creamos un procedimiento que nos devuelva la sesión, para esto, hacemos un simple for each que recorra este data view, el cual para nuestra sesión solo va a devolver un registro.
En mi ejemplo lo llame «pmisession»

&MiSession=0
For Each //MISESISON
Defined By SessionID
&MiSession=SessionID
EndFor

Y listo, ahora simplemente en vez de utilizar la función UserId() o Wrkst(), llamaré a este procedimiento para obtener mi variable única.

Y si eres demasiado cómodo (y sólo si estás acostumbrado con el underground de GeneXus), puedes adicionar esta «función personalizada» a los archivos «*func.pst» en el directorio de GeneXus con la sintaxis

pmiession.Udp():Numeric

para que de esta forma cuando la quieras utilizar, simplemente presionando «Ctrl + U», aparezca dentro de la lista de funciones.

Otras de las posibilidades sería usar el comando SQL de GeneXus, pero lamentablemente, no permite devolver resultados, si existiera una variante del mismo que permitiera en algunos casos devolver un resultado único para almacenar en una variable GeneXus, podría ser algo parecido a esto:

&sent=»select userenv(‘SESSIONID’) from dual;»
&misession= sql [!&sent!]

Pero… por ahora no existe.

Observación:
Puede parecer simple o de poco valor esta función de unicidad, pero realmente es algo útil.
Hace unos años en otra empresa, implementamos un sistema con una KB que usaba la función Wrkst() (y todavía lo sigue usando) para mantener la unicidad, y para que cada máquina corra en una sessión única, deshabilitamos la posibilidad que se ejecutara el sistema más de una vez por máquina, justamente para tener esa unicidad, algo que hoy realmente se podría solucionar de esta forma, que ya existía en aquella época, pero a veces uno toma las cosas como vienen y basados en el lema «lo que funciona no se cambia», a veces perdemos eficiencia.

Fabricio De los Santos
Gerencia de Proyectos –
Consultoría GeneXus –
ERP – Sistemas de Misión Crítica – Bases de Datos.

Vea mis blogs en:
www.fabriciodelossantos.com

Insert Update de Caracteres especiales en Oracle ‘ chr(39)

martes, junio 26th, 2007

Insert Update de Caracteres especiales en oracle ‘ chr(39)

Acostumbrado a trabajar con GeneXus, cuando necesito insertar o actualizar un valor con comilla simple en una columna caracter, la operación es muy sencilla:

atributo=»‘hola mundo'»

Ahora cuando queremos hacer esto en un script, usando por ejemplo sqlplus, la operación es distinta.

Básicamente hay que colocar otra comilla simple antes de la que queremos poner, de la siguiente forma:

insert into fdtest values(»’hola mundo»’);

Ahora bien si el caso que tenemos es al revés.

Tenemos en la tabla comilla simple y queremos pasarlas a dobles, nos encontramos, con el mismo problema, porque en la función replace no podemos invertir las comillas para hacer la búsqueda.

La solución en este caso es:

En el parámetro de búsqueda, usar el valor ascii de este caracter especial de la siguiente forma

select replace(campo,chr(39),'»‘) from fdtest;

Nuestro resultado será:

«hola mundo»

Fabricio De los Santos
Gerencia de Proyectos –
Consultoría GeneXus –
ERP – Sistemas de Misión Crítica – Bases de Datos.

Vea mis blogs en:
www.fabriciodelossantos.com

Tips: Como usar Case en Oracle

martes, abril 24th, 2007

Puede darse el caso de que querramos devolver un texto o valor dependiendo del dato de una columna en una tabla Oracle.

Por ejemplo

Si tenemos una tabla de nombre Empleados_Salarios con los campos
Empleado, Salario
y con valores

Agustin, 20.000
Ignacio, 1.500
Nicolás, 10.000

Y en un select queremos en vez de reflejar los valores exactos y mostrar categorías, podemos usar la sentencia CASE de Oracle como el siguiente ejemplo muestra.

Select Empleado,
CASE
when Salario when Salario >= 5.000 and Salario else ‘Salario Alto’
END Categoria_Salario
from Empleados_Salarios;

La sentencia contiene las palabras reservadas «when» para establecer las condiciones, «else» para el caso que no cumpla una de las condiciones when, y «CASE» y «END» que encierran la cláusula condicional, coloqué la palabra «Categoria_Salario» como alias de la columna de categorías.

Otro ejemplo sencillo podría ser:

Tengo una tabla de nombre Stock con 3 campos:

Material char(20),
Entradas number(10),
Salidas number(10)

Y quisiera saber los saldos positivos de Entradas – Salidas, y en el caso que las Salidas sean mayores que las Entradas, no quiero mostrar el valor negativo, sino un valor 0.
Tengo que tener en cuenta los valores nulos que pudiera tener de Entradas o Salidas

El select sería el siguiente:

Select Material,Nvl(entradas,0) Entradas, Nvl(salidas,0) Salidas,
Case Nvl(entradas,0) – Nvl(salidas,0) > 0 then Nvl(entradas,0) – Nvl(salidas,0)
else 0
End Diferencia
from Stock;

Espero que estos mini ejemplos sean de utilidad.

Fabricio De los Santos
Gerencia de Proyectos –
Consultoría GeneXus –
ERP – Sistemas de Misión Crítica – Bases de Datos.

Vea mis blogs en:
www.fabriciodelossantos.com