Sub btnEnviarInstrucciones_Click
Dim via As String
Dim respuesta
Dim request As HttpRequest
If spnMetodo.SelectedIndex = 0 Then
via = "aire"
Else
via = "mar"
End If
respuesta = Msgbox2("¿Desea usar estas instrucciones para este paquete?","Confirmar instrucción","Si","Cancelar","",Null)
If respuesta = DialogResponse.Positive Then
url3 = Main.servidor & "definir_envio.php?db=" & Main.db & "&orden=" & lstNumero & "&via=" & via & "&seguro=" & txtValor.Text
ToastMessageShow("Enviando instrucciones, espere...",False)
HttpUtils.CallbackJobDoneSub = "Volver"
HttpUtils.Download("Actualizar",url3)
End If
End Sub
Sub Volver (Job As String)
Dim s As InputStream
If HttpUtils.IsSuccess(url3) Then
Activity_Create(True)
End If
End Sub