Tentei usar o Connect do tHttp, mas só me retorna False!
Se alguem puder me ajudar!
Cod abaixo.
************
function vip
************
parameters nCupom , qLitros , vUnitario , dataCupom , horaCupom , cpfCliente
cUrl := "http://www.cmcsys.com.br/2013/integracao.php?modulo=cuponsFiscais&acao=adicionarCupomIntegracao&usuario=integracao&senha=1nt3gr4c4o&masterkey=autocom&codigoCliente=1020¶metro1="
cUrl := cUrl + alltrim(str(nCupom)) +";"
cUrl := cUrl + alltrim(str(qLitros)) +";" && Formato 10.00
cUrl := cUrl + alltrim(str(vUnitario)) +"¶metro2=" && Formato 1.79
cUrl := cUrl + dataCupom +";" && Formato 05/09/2013
cUrl := cUrl + horaCupom +"¶metro3=" && Formato 11:00
cUrl := cUrl + cpfCliente
oUrl := THttp():New()
if oUrl:Connect( cUrl )
msgInfo("Comando Enviado com Sucesso!")
else
msgInfo("Erro Ao Enviar Comando!")
endif
return nil