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)
Buscado de aquí, copiado de allá, traducido por acá, pero en fin: "El conocimiento para todo el mundo". Entre tecnologías y muchas otras cosas mas .... Como dice mi Padre: "Un grano no hace el granero, pero ayuda a su compañero"
viernes, 30 de enero de 2009
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
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
OpenOffice 3.0
Gracias a Sun, http://download.openoffice.org/index.html
Trabajar, estudiar, sin deber nada a nadie, en español y si necesitan cuales son las mejoras, visiten el sitio oficial http://development.openoffice.org/releases/3.0.0.html
Trabajar, estudiar, sin deber nada a nadie, en español y si necesitan cuales son las mejoras, visiten el sitio oficial http://development.openoffice.org/releases/3.0.0.html
sábado, 24 de enero de 2009
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
//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
&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
Suscribirse a:
Entradas (Atom)