[GUFA] [spam] [Fwd: WebService de feriados]

Wed, 03 Jun 2009 15:10:32 -0700 

Envio el codigo de prueba que habia armado. Use iFox.Sockets pero se puede 
convertir facilmente al control Winsock. Falta procesar el envelope y el XML 
resultante, pero deje el ejemplo aca porque al final el servicio es inutil para 
mi. De todas maneras creo que es facil completar ese paso.

Text to cData NoShow
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/";>
<s:Body xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"; 
xmlns:xsd="http://www.w3.org/2001/XMLSchema";>
<FeriadosEntreFechasAsXml xmlns="http://tempuri.org/";>
<d1>2008-01-01T00:00:00-03:00</d1>
<d2>2009-12-31T00:00:00-03:00</d2>
</FeriadosEntreFechasAsXml>
</s:Body>
</s:Envelope>
EndText

Text to cPost NoShow
POST /Feriados/Service.svc HTTP/1.1
Content-Type: text/xml; charset=utf-8
User-Agent: iFox (www.ifox.com.ar)
SOAPAction: "http://tempuri.org/IMyService/FeriadosEntreFechasAsXml";
Host: webservices.mininterior.gov.ar
Connection: Keep-Alive
EndText

cPost = cPost + Chr(13) + Chr(10) + "Content-Length: " + LTrim(Str(Len(cData)))
cPost = cPost + Chr(13) + Chr(10) + Chr(13) + Chr(10) + cData


oSockets = CreateObject("iFox.Sockets")
nSocket = oSockets.Connect("webservices.mininterior.gov.ar", 80)

If nSocket <> 0
   cRes = ""

   oSockets.Send(nSocket, cPost)
   tStart = DateTime()

   Do While .T.
      
      cData = oSockets.Read(nSocket)
   
      If !Empty(cData)
         cRes = cRes + cData
      Endif

      If At("</S:ENVELOPE>", Upper(cData)) <> 0  && End of File
         Exit
      Endif

      If DateTime() - tStart > 5  && Timeout
         Exit
      Endif

   EndDo

   oSockets.Close(nSocket)

   cRes = StrTran(cRes, "&lt;", "<")
   cRes = StrTran(cRes, "&gt;", ">")
   cRes = StrTran(cRes, "&#xD;", "")

   ? cRes
   StrToFile(cRes, "D:\Resp.TXT")
else
   Response.Write("Error")
Endif


Pablo Pioli
  ----- Original Message ----- 
  From: Rafael Copquin 
  To: GUFA List Member 
  Sent: Wednesday, June 03, 2009 8:50 AM
  Subject: [GUFA] [spam] [Fwd: WebService de feriados]


  A manera ilustrativa, sería bueno que nos manden un email al foro con el 
código, y asi todos podemos verlo

  Saludos

  Rafael Copquin
    ----- Original Message ----- 
    From: Pablo Pioli 
    To: GUFA List Member 
    Sent: Tuesday, June 02, 2009 6:48 PM
    Subject: [spam] [GUFA] [Fwd: WebService de feriados]


    El WebService es sencillo, arme un pequeño codigo que lo consulta 
facilmente.

    El problema fundamental es: Que no lo actualizan !!!!

    Los ultimos feriados cargados son los del 2008, del 2009 no hay uno. Grrrrr 
... tendria que acordarme que estamos en Argentina antes de ponerme a perder 
tiempo en estas cosas.

    Si de todas maneras a alguno le interesa le paso el codigo que arme.

    Pablo Pioli
      ----- Original Message ----- 
      From: Juan Rossano 
      To: GUFA List Member 
      Sent: Monday, June 01, 2009 5:16 PM
      Subject: [GUFA] [Fwd: WebService de feriados]


      Disculpen, me olvide de adjuntar el link 
http://wwwmininterior.gov.ar/servicio/wsferiados.asp



      -------- Mensaje original -------- Asunto:  [GUFA] WebService de feriados 
            Fecha:  Mon, 01 Jun 2009 17:15:15 -0300 
            De:  Juan Rossano <[email protected]> 
            Para:  [email protected] 
            Referencias:  
<[email protected]> 
<[email protected]> 
<[email protected]> 



En el sitio del ministerio del interior mencionan un WebService gratuito 
para los feriados en Argentina. ¿alguno pudo hacer una prueba de 
utilzacion del mismo con VFP9?
Saludos

Juan

Responder a