Sub WSGetUserQR (QRCode As String)
Dim job1 As HttpJob
Dim XML_Header, XML_Footer As ByRefSTR
Common.GetSOAPConstruct(XML_Header, XML_Footer)
Dim XML As String
Dim QRCodeFix As String
QRCodeFix = QRCode.SubString(1)
' Parameter Customization
XML = XML_Header.val
XML = XML & "<FindUserQR xmlns='http://tempuri.org/'>"
XML = XML & "<QRCode>" & QRCodeFix & "</QRCode>"
XML = XML & "</FindUserQR>"
XML = XML & XML_Footer.val
XML = XML.Replace("'", Chr(34)) ' Replace single quotes with double quoutes
HD.ProgressDialogShow("Contactando al servidor...")
WorkingJob = WorkingJob + 1
job1.Initialize("JOBSOAP_getUserQR", Me)
job1.PostString (BaseURL & "CellWS.asmx", XML)
'job1.GetRequest.SetContentType("application/soap+xml")
End Sub