Prezado Nivaldo,
O scrpit TagTimer estava rodando perfeitamente quando enviando dados .txt anexando em email.
Porem quando alterado para uso do script para envio de dados via API, o mesmo funciona quando através de botão, já no através do OnPreset deixou de funcionar de forma automática.
As propriedades do TagTimer, permaneceu a mesma, sendo o intervalo de hora em hora e o triggerType continuo.
Se puderem contribuir desde agradeço.
Sub IBI_Barramento_OnPreset()
DIM DATA, NIVEL, DEFLUENCIA, USINA, TURBINADA, VERTIDA, VERTIDA1
SET HORASISTEMA = Application.Getobject("Dados.Sistema.HoraSistema") ' ALTERAR CONFORME PROJETO
DATA = CDate(Application.GetObject("Dados.Sistema.HoraSistema").Value) ' ALTERAR CONFORME PROJETO
USINA = "671" ' ALTERAR O NOME DA USINA
SET NIVEL = Application.GetObject("OPC_RS.IB_SUB.IBI.USN.NIV_MON.Value") 'ALTERAR CONFORME PROJETO
SET TURBINADA = Application.GetObject("Dados.Sistema.Turbinada_IBI.Value")'ALTERAR CONFORME PROJETO
NIVEL = NIVEL
IF NIVEL <= 220.00 THEN
VERTIDA = 0
ELSEIF NIVEL > 220.00 THEN
VERTIDA = (NIVEL-220.00)
VERTIDA1 = ((VERTIDA^1.62)*259.62)
END IF
DEFLUENCIA = TURBINADA+VERTIDA1
'ENVIAR_API DATA,NIVEL,DEFLUENCIA,USINA
End Sub
Sub ENVIAR_API(DATAX,NIVELx,DEFLUENCIAx,USINAx)
’ url com paramentro de defluencia
url = “https://api.grupoconstruserv.eng.br/inserirMedicoes?token=XXXXXXXXXXXXXXXXXXXXXXXXXXX=” & USINAx & “&data=” & DATAx & “&nivel=” & FormatNumber (NIVELx, 2) & “&defluente=” & FormatNumber (DEFLUENCIAx, 2)
Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.open "GET", url, false
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "CharSet", "UTF-8"
http.Send
End Sub