09 Set 2013 11:40
************
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
09 Set 2013 14:29
09 Set 2013 15:39
11 Set 2013 08:51
11 Set 2013 14:37
oPg1 := Win_OleCreateObject("Microsoft.XMLHTTP")
TRY
oPg1:Open("GET", cURL, .F.)
oPg1:Send()
cBuf1:=oPg1:responseText
oPg1:=Nil
CATCH
MsgInfo("Erro na consulta.")
QUIT
END
16 Set 2013 16:58
Error WINOLE/1007 Argument error: OPEN (DOS Error
16 Set 2013 19:59
oUrl := TURL():New( "www.cmcsys.com.br")
oUrl:cPath := "/2013"
oInternet:=TipClientHttp():new( oURL )
oUrl:cFile := "integracao.php"
IF oInternet:Open()
msgInfo("Comando Enviado com Sucesso!")
else
msgInfo("Erro Ao Enviar Comando!")
endif
return nil
Error BASE/1081 Operação não suportada: TIPCLIENTHTTP:new()
16 Set 2013 20:25
procedure Internet()
local oHttp, oUrl
oUrl := "http://www.integracao.php"
oHttp:= TipClientHttp():New( oURL )
oHttp:open(oUrl)
oHttp:close()
Return
16 Set 2013 23:29
************
function vip
************
parameters nCupom , qLitros , vUnitario , dataCupom , horaCupom , cpfCliente
local oHttp, oUrl
, cUrl
cUrl := "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 := TURL():New( "http://www.cmcsys.com.br")
oUrl:cPath := "/2013"
oHttp:= TipClientHttp():New( oURL )
oUrl:cFile := cUrl
If oHttp:open(oUrl)
if oHttp:Read() != NIL
msgInfo("Comando enviado Com Sucesso!")
else
msgInfo("Sem Conexão Com a Internet")
endif
else
msgInfo("Erro ao Enviar Comando!")
endif
oHttp:close()
return nil