::CoMaNcHe::ZoRrOaStUtO::

Chivas vs Santos 2012-02-26

2012-03-02T16:27:00.000-06:00

Perdimos :( pero ver al equipo fue como sentirse en casa. XD

Familia Moreno Mejía… Enero–Febrero 2012

2012-02-27T15:35:00.001-06:00

¿Acentuar MAYÚSCULAS?

2012-02-13T14:39:00.000-06:00

Es seguido, cuando platico con amigos, conocidos sobre éste tema, y siempre quedamos en que cada quien hace lo que quiere.. en fin.

Yo alego, que SÍ deben acentuarse las mayúsculas, y que es por costumbre el que no se haga.. vamos mi teoría es que la gente no lo hace porque las máquinas de escribir mecánicas, no podían hacerlo, si ponías una tilde y luego la letra mayúscula entonces se sobre escribía. Y pues se acostumbraron a no hacerlo aun cuando escribían a mano.

Lo mismo para los números romanos.. escriben el número 3 como III en lúgar de III, o sea.. les ponen unas líneas arriba y abajo porque la máquina de escribir así aparecía.

Vamos.. hace unos días fuimos a registrar a mi hijo, y la muy "!#$#$% Ignorante de la "Señorita" que escribió el nombre, al decirle.. oiga, ¿por qué no pone acentos? me dijo.. ESTÁN EN MAYÚSCULAS, NO HAY PROBLEMA, ES LO MISMO. Y que conste que lo hizo en su PC. :@

Entonces.. fui al RAE a buscar información confiable al respecto y me topé con que es una "pregunta frecuente"

http://www.rae.es/rae/gestores/gespub000018.nsf/(voAnexos)/arch8100821B76809110C12571B80038BA4A/$File/CuestionesparaelFAQdeconsultas.htm#ap22

Tilde en las mayúsculas

Las letras mayúsculas deben escribirse con tilde si les corresponde llevarla según las reglas de acentuación gráfica del español, tanto si se trata de palabras escritas en su totalidad con mayúsculas como si se trata únicamente de la mayúscula inicial:

  Su hijo se llama Ángel.
  ADMINISTRACIÓN
  ATENCIÓN, POR FAVOR.

La Real Academia Española nunca ha establecido una norma en sentido contrario.

La acentuación gráfica de las letras mayúsculas no es opcional, sino obligatoria, y afecta a cualquier tipo de texto. Las únicas mayúsculas que no se acentúan son las que forman parte de las siglas; así, CIA (sigla del inglés Central Intelligence Agency) no lleva tilde, aunque el hiato entre la vocal cerrada tónica y la vocal abierta átona exigiría, según las reglas de acentuación, tildar la i.

Cuarto cumpleaños de Meli

2012-01-25T15:36:00.000-06:00

Primero, fue la fiesta en su escuela, el mero día 25.

Al sábado siguiente, hubo una pijamada en casa:

Despertando el domingo… (a Ivette se le calló un diente)

Luego, el domingo, fue la piñata:

Dale, dale, dale.. no pierdas el tino…

Abriendo sus regalos.

Fuga!!

No a la SOPA!

2012-01-18T14:51:00.000-06:00

Nacimiento José Armando Moreno Mejía

2012-01-02T15:11:00.000-06:00

Yo, a la espera de que me dejaran entrar al quirófano.

Llega José Armando a hacernos compañía.

Dios nos bendice nuevamente!!

Eco de 37 Semanas de mi Bebé

2011-12-29T12:37:00.000-06:00

Navidad 2011

2011-12-25T12:59:00.000-06:00

Melisa abriendo los regalos de navidad.

Boda de Esmeralda

2011-12-17T12:57:00.000-06:00

San Pedro Dic 2011

2011-12-17T12:49:00.000-06:00

3er Artículo en PortalFOX - Sobre como Consumir WebServices con FoxPRO

2011-11-23T11:13:00.001-06:00

Enlace al artículo en Portalfox

Excelente!!

Consumir cualquier Web Service con Visual FoxPRO

2011-11-22T12:01:00.001-06:00

Que tal Colegas.

Este artículo es para mostrarles como podemos invocar cualquier Web Service desde Visual FoxPRO.

Primero quisiera comentar, que NO soy un experto en ésto de los WEB service's, pero he tomado algo de experiencia en el uso de los mismos. En éste artículo trataré de explicarlo con palabras simples.

Es importante leer al respecto, siempre es sencillo encontrar información en Wikipedia.

Vamos comenzando por la lógica de "ejecución" de un web service:

1. Creamos la petición de ejecución de una función del Web Service, ésto se llama XML REQUEST.
2. Enviamos el REQUEST al web service, la cual es una URL que termina con wsdl.
3. Obtenemos un XML RESPONSE, que es el resultado de haber invocado la función específica del WS.

Vamos por partes:

Para saber como es el REQUEST, utilizo una aplicación Open Source llamada soapUI, la cual pueden descargar desde: http://www.soapui.org/

Lo descargamos, al abrir el soapUI vemos ésto:

La URL del web service es: http://www.webservicex.net/globalweather.asmx?WSDL

Con ésto, soapUI interperta las funciones que existen en ése WebService, y nos crea un ejemplo de REQUEST por cada una de ellas, en éste caso observaremos como el REQUEST de la función GetWeather:

Hasta aquí, tenemos cubierto el paso 1 de la ejecución de un Web Service, el dos es simple.. damos clic en el botón de "PLAY" y se cumple el segundo paso, al mismo tiempo que obtenermos el XML RESPONSE:

Bien, como hacemos ésto con FoxPRO:

Al ya conocer la estructura del XML Request, pues lo creamos con FoxPRO, usen el método que a ustedes les parezca mejor, en lo personal me agrada la utileria Free de Chilkat, pero para el ejemplo crearé el Request con TEXT.. ENDTEXT

He creado una clase para consumir WS, en ella muestro el ejemplo anterior en código, está comentada por lo que creo no es necesario hablar más al respecto.

Va el código:

oWS = CREATEOBJECT( "VFP_WebService","http://www.webservicex.net/globalweather.asmx?WSDL")
lcRespuesta = oWS.GetWeather("Torreon, Coah.","Mexico")
IF oWS.iStatus != 0
MESSAGEBOX(oWS.sError,16,"Error al ejecutar WS")
ELSE
MESSAGEBOX(lcRespuesta,64,"EjecutandoWS desde VFP - PortalFOX")
ENDIF

DEFINE CLASS VFP_WebService AS CUSTOM

* --- Definimos las propiedades ---
sError = ""
iStatus = 0
sURL_WS = ""

* --- Definimos la función del WebService ---
FUNCTION GetWeather (tcCiudad, tcPais)

* --- Paso 1. Creo el XML Request ---
sXMLRequest = this.CreaRequest(tcCiudad, tcPais)

pXMLResponse = ADDBS(SYS(2023)) + SYS(2015) + [.xml]

* --- Paso 2. Ejecuto el WS | Paso 3. Obtengo el Response ---
this.iStatus = this.EjecutaWS( this.sURL_WS, sXMLRequest , pXMLResponse )

IF this.iStatus != 0 && Ocurrió un error el cual está especificado en sError.
RETURN ""
ENDIF

sXMLResponse = FILETOSTR(pXMLResponse)
* --- Parseamos el XML Response ---
* --- Para el ejemplo está así, manejando texto, ustedes deben manejar XML (falta de tiempo, perdón) ---

sRespuestaWS = "Location:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Location>','</Location>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"Time:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Time>','</Time>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"Wind:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Wind>','</Wind>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"Visibility:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Visibility>','</Visibility>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"SkyConditions:"+CHR(9)+ STREXTRACT(sXMLResponse,'<SkyConditions>','</SkyConditions>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"Temperature:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Temperature>','</Temperature>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"DewPoint:"+CHR(9)+ STREXTRACT(sXMLResponse,'<DewPoint>','</DewPoint>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"RelativeHumidity:"+CHR(9)+ STREXTRACT(sXMLResponse,'<RelativeHumidity>','</RelativeHumidity>')+CHR(13)+CHR(10)
sRespuestaWS = sRespuestaWS +"Pressure:"+CHR(9)+ STREXTRACT(sXMLResponse,'<Pressure>','</Pressure>')

this.borraArchivo(pXMLResponse)

RETURN sRespuestaWS

ENDFUNC

*---------------------------------------------------
FUNCTION EjecutaWS(pURL_WSDL, pFileRequest , pFileResponse )
*---------------------------------------------------
TRY
oHTTP = CREATEOBJECT('Msxml2.ServerXMLHTTP.6.0')
oHTTP.OPEN("POST", pURL_WSDL, .F.)
oHTTP.setRequestHeader("User-Agent", "EjecutandoWS desde VFP - PortalFOX")
oHTTP.setRequestHeader("Content-Type", "text/xml;charset=utf-8")
oHTTP.SEND(pFileRequest)
CATCH TO loErr
this.sError = "Error: " + TRANSFORM(loErr.ErrorNo) + " Mensaje: " + loErr.Message
this.iStatus = -1
ENDTRY
IF this.iStatus != 0
RETURN -1
ENDIF
* --- Si el status es diferente a 200, ocurrió algún error de conectividad con el WS ---
IF oHTTP.STATUS = 200
RespuestaWS = oHTTP.responseText
* --- Se genera el XML del response | Este es el paso 3!! ---
STRTOFILE(STRCONV(RespuestaWS,9),pXMLResponse)
this.iStatus = 0
this.sError = ""
RETURN 0
ELSE
this.sError = "Error: No se logró la conexión con el Web Service."
this.iStatus = -1
RETURN -1
ENDIF
ENDFUNC
*---------------------------------------------------

*---------------------------------------------------
FUNCTION CreaRequest(tcCiudad, tcPais)
*---------------------------------------------------
TEXT TO sXMLRequest TEXTMERGE NOSHOW
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:web="http://www.webserviceX.NET">
<soapenv:Header/>
<soapenv:Body>
<web:GetWeather>
<web:CityName><<tcCiudad>></web:CityName>
<web:CountryName><<tcPais>></web:CountryName>
</web:GetWeather>
</soapenv:Body>
</soapenv:Envelope>
ENDTEXT
RETURN sXMLRequest
ENDFUNC
*---------------------------------------------------

*---------------------------------------------------
FUNCTION BorraArchivo(pFile)
*---------------------------------------------------
IF FILE(pFile)
DELETE FILE (pFile)
ENDIF
ENDFUNC
*---------------------------------------------------

*---------------------------------------------------
* Evento constructor
PROCEDURE Init
*---------------------------------------------------
LPARAMETERS tcURLWS
this.sURL_WS = tcURLWS
this.iStatus = 0
this.sError = ""
ENDPROC
*---------------------------------------------------

ENDDEFINE

Pueden descargar el código desde aquí.

Suerte con sus Web Services!!

Baltazar Moreno
http://disxii.com
VFP9SP2 - Win7
Guadalajara, Jalisco, México

Día de la revolución - 2011

2011-11-21T12:29:00.000-06:00

Día de Muertos 2011

2011-11-02T12:23:00.000-06:00

Día de muertos video 1/2

Día de muertos video 2/2

Panamericanos Guadalajara 2011 + Catrinas

2011-10-19T11:48:00.000-05:00

En el centro de Guadalajara, está adornado con tintes panamericanos y con muchas catrinas:

Bob Esponja

2011-10-09T10:17:00.000-05:00

Este día fue especial para mi hija, ya que se la pasó viviendo con éstos personajes.

Tlaquepaque, Jalisco

2011-10-08T10:30:00.000-05:00

Algunas fotos del centro de Tlaquepaque:

Gises por la paz

2011-10-01T10:55:00.000-05:00

Una de tantas veces de las que paseamos por el Centro Histórico de Guadalajara, nos topamos con ésta estupenda obra de arte titulada “Gises por la paz”

16 Sepiembre 2011

2011-09-16T10:10:00.000-05:00

Este día fue el primer desfile de Melisa, aquí la evidencia:

Melisa en su primer desfile

En “el grito”

De regreso a la escuela.

Stand by me!

2011-09-12T10:19:00.001-05:00

Este video fue grabado en 21 paises distintos:

Stand By Me | Playing For Change | Song Around The World from Concord Music Group on Vimeo

A mi me gustó bastante!

Eco 3D–Bebé Moreno Mejía

2011-09-07T12:45:00.000-05:00

Éste día me regalé el conocer el sexo del bebé.. será varón primero Dios

Gorilla vs Angry Birds

2011-08-31T12:13:00.001-05:00

Recuerdo que teníamos una PC 8086 donde lo único que hacíamos en casa era jugar éste excelente juego:

Donde un gorila le aventaba al otro un plátano midiendo el ángulo al que lo lanzaba.. era divertido!!

Ahora he conocido el famoso Angry Birds, que tiene la mísma base.. pero con mucha más trama.. sin decir de los excelentes gráficos y un largo etc..

El antiguo juego de gorilla se puede descargar desde: http://www.jefflewis.net/programming.html

El Angry Birds lo pueden jugar con Chrome aquí: http://chrome.angrybirds.com/

Hasta la próxima!

P.D. Obviamente la idea de este post, no es comparar ambos juegos.

Bebé Moreno Mejía

2011-08-23T17:46:00.000-05:00

Latidos del 4to Integrante de la familia, próximo en llegar, primero Dios:

Grabación del día 15/07/2011

Circo de “El chavo animado”

2011-08-23T17:26:00.002-05:00

Fuimos a ver al chavo… a Meli le encanta ver las caricaturas

Videos:

Esperando que comienze la función

Esto fué lo que más me impactó.. parecen changos!!

El show!!

Hasta la próxima!

Primer Día de Clases de Melisa

2011-08-23T17:17:00.002-05:00

El día 15 de Agosto de 2011, fué el primer día de kinder de mi nena, aquí algunos momentos:
En casa, antes de la escuela:

Esperando a que saliera de clases (con la desesperación evidente jeje):

Carla desesperaba, me preguntaba la hora, cada 4 minutos, la verdad yo también estaba inquieto.

Saliendo de clases:

Mi nena, saliendo de su primer día de escuela

Y llegando a casa:

Poly esperando a la nieta, que llegara a casa.

En general nos fué bien, ella feliz, emocionada, nosotros (Carla y yo) nos sentimos raros, ya que pasamos un rato juntos, sin quien nos interrumpiera al hablar (entre muchas cosas que extrañamos).
Por último, la primer tarea de Meli, que fué hasta el día 22/08/2011:

Hasta la próxima!