// Conexão

ConexaoGoogle is gglConnection

ConexaoGoogle..Email = "desenvolvedor@gmail.com.br"

ConexaoGoogle..Password = "123"

ConexaoGoogle..ApplicationName = "Empresa-03"

IF GglConnect(ConexaoGoogle)=False THEN

Error(ErrorInfo())

END

// Lê o calendário "Comercial" e seus eventos

Calendario is gglCalendar = GglGetCalendar(ConexaoGoogle, "Comercial")

// Altera o primeiro evento

Calendario[1]..Title = "Demonstração"

Calendario[1]..EndDate = "20121013150"


// Exclui o segundo evento

Delete(Calendario..Event, 2)

// Atualiza as alterações

GglWrite(ConexaoGoogle, Calendario)