Sub EnviarDatos(VALOR, FOLIO, PARAM)
CURSOR1=SQL1.ExecQuery2("SELECT valor FROM t_extintor_det WHERE folio=?", Array As String(TXT_SEL.Text))
For i=0 To CURSOR1.RowCount -1
CURSOR1.Position=i
ENVIAR_VALOR = CURSOR1.GetString("valor")
Dim CMD As DBCommand
CMD.Initialize
CMD.Name="update_EXTDETA"
CMD.Parameters=Array As Object(ENVIAR_VALOR, TXT_SEL.Text)
ReqManager.ExecuteCommand(CMD,0)
Next
End Sub