Sub InsertarDatos("", Observaciones, EtiquetaHomotecnias, Hologramas, CollarinPQSs, CapacidadAreas, AgenteAreas, Alturas, Obstruccions, Delimitacions, Senalamientos, EtiquetaInspeccions, Manometros, Cornetas, Mangueras, Manerals, FechaRevs, HoraRevs, OCRS, CondicionesCilindros, SeguroMetalicos, ColaRatas, Ganchos, Ubicacions, NumeroExtintor, AgenteExtintor)
CURSOR1=SQL1.ExecQuery("SELECT * FROM BdXtntrs")
For I = 0 To CURSOR1.RowCount -1
CURSOR1.Position = I
OBS=CURSOR1.GetString("Observaciones")
HOMO=CURSOR1.GetString("EtiquetaHomotecnia")
HOLO=CURSOR1.GetString("Holograma")
COLLA=CURSOR1.GetString("CollarinPQS")
CAPAR=CURSOR1.GetString("CapacidadArea")
AGAR=CURSOR1.GetString("AgenteArea")
ALTU=CURSOR1.GetString("Altura")
OBST=CURSOR1.GetString("Obstruccion")
DELI=CURSOR1.GetString("Delimitacion")
SENAL=CURSOR1.GetString("Senalamiento")
ETIINS=CURSOR1.GetString("EtiquetaInspeccion")
MANOM=CURSOR1.GetString("Manometro")
CORN=CURSOR1.GetString("Corneta")
MANGU=CURSOR1.GetString("Manguera")
MANERA=CURSOR1.GetString("Maneral")
FREVS=CURSOR1.GetString("FechaRev")
HREVS=CURSOR1.GetString("HoraRev")
OCRR=CURSOR1.GetString("OCR")
CONDCIL=CURSOR1.GetString("CondicionesCilindro")
SEGMET=CURSOR1.GetString("SeguroMetalico")
CORAT=CURSOR1.GetString("ColaRata")
GANCH=CURSOR1.GetString("Gancho")
UBS=CURSOR1.GetString("Ubicacion")
NUM_EXT = CURSOR1.GetString("ExtNumero")
AGENTE_EXT = CURSOR1.GetString("ExtAgente")
Dim CMD As DBCommand
CMD.Initialize
CMD.Name = "insert_DATA"
CMD.Parameters = Array As Object("", OBS, HOMO, HOLO, COLLA, CAPAR, AGAR, ALTU, OBST, DELI, SENAL, ETIINS, MANOM, CORN, MANGU, MANERA, FREVS, HREVS, OCRR, CONDCIL, SEGMET, CORAT, GANCH, UBS, NUM_EXT, AGENTE_EXT)
ReqManager.ExecuteCommand(CMD, 0)
Next
End Sub
Sub IniciarConexion
ReqManager.Initialize(Me, "Http://xxxxxx.dyndns.org:17178")
End Sub
Sub BtnEnviar_Click
IniciarConexion
InsertarDatos("", OBS, HOMO, HOLO, COLLA, CAPAR, AGAR, ALTU, OBST, DELI, SENAL, ETIINS, MANOM, CORN, MANGU, MANERA, FREVS, HREVS, OCRR, CONDCIL, SEGMET, CORAT, GANCH, UBS, NUM_EXT, AGENTE_EXT)
ActualizaDatos
End Sub