viernes, 30 de enero de 2009

Imagen Corporativa MSP

Bueno creo que lo mejor que se puede dar al cliente, usuario, paciente, etc. es la imagen de la institucion, veo con buenos ojos la renovacion que se esta dando en el Ministerio de Salud Publica, adelante Ecuador que SI SE PUEDE !!

Pueden descargase las plantillas para escritos, presentaciones y el fondo de escritorio desde este enlace

http://www.misereor.gov.ec/imagen%20corporativa.rar


PD: No olviden que existe software libre y esta mas acualizadito que nunca (OpenOffice 3.0)

texto de escritorio de windows es blanco por defecto y punto

hoy me han encomendado poner en absolutamente todas las maquinas un fondo de pantalla que tiene un gran fondo blanco, pero oh sorpresa al ver que el texto que esta describiendo a los iconos del escritorio desaparecian, intentando cambiar la configuracion me tope con muchas respuestas clic derecho-propiedades-apariencia-opciones avanzadas pero en verdad se puede cambiar la sombra del texto mas no el color del texto.

Esta fue la respuesta mas acertada y que me ahorro tiempo porque ya no seguire buscando sino me dedicare a cambiar el fondo de la imagen.

http://www.configurarequipos.com/tema2471053-8-0.html

lunes, 26 de enero de 2009

sábado, 24 de enero de 2009

Petroglifos del Catazho, en Limon Indanza






A tan solo 30 minutos de General Plaza, Limon Indanza, Morona Santiago, Ecuador

Procedimiento para sacar edad

En realidad este procedimiento lo desarrolle y me ha sacado de apuros, disculpen alguna falla pero talves les saque de apuros y les ahorre tiempo
//En la resta obtenemos la cantidad de dias hasta la fecha
&calc = FECHA_REFERENCIA - FECHA_NACIMIENTO
//Calculamos los anos
&anios = int(&calc / 365)
//Obtenemos los dias restantes una vez sacado los anos
&calc1 = &calc - (int(&anios) * 365)
//Calculamos cuantos viciestos paso para restar de los meses
//de febrero
&bici = int(&anios / 4)
//Restamos los dias que quedaron cuando calculamos los anos
//menos el numeros de anos biciestos
&calc2 = &calc1 - &bici
//Al igual que los anos sacamos los meses, dividiendo para 30 por ser un promedio
&meses = int(&calc2 / 30)
//Calculamos los dias que nos sobran en los meses
&calc2 = &calc2 - (int(&meses) * 30)
//Los dias sobrados se asignan a dias de vivencia
&dias = &calc2
If &meses = 12
&anios += 1
&meses = 0
EndIf
&Edad = trim(str(&anios)) + ' ' +trim('años') + trim(':') + ' ' + trim(str(&meses)) + ' ' + trim('meses') + ':' + ' ' + trim(str(&dias)) + ' ' + trim('dias')
Return

Impresion de campos Long Var Char

Tuve el inconveniente que no se veian todos los caracteres, al realizar las impresiones de este tipo de campos , lo que hice fue crear un bloque unicamente para este campo y utilizando la sentencia GXMLines y GXGetMLi logre solucionar el problema, bueno esta bajo la ayuda de GX pero espero ayudarles en algo, el codigo quedo asi:

&nlin = GXMLines(atributo,110)
&i = 1
Do While &i <= &nlin &EMERVOB = GXGetMLi(atributo,&i,110)
Print parte2 // (imprimimos el bloque)
&i += 1
Enddo

atributo = nombre del campo que estamos imprimiendo
&EMERVOB = variable que esta en el bloque