Sub dd_Complete(Job As HttpJob)
Job.Release
ProgressDialogHide
If Job.Success=True Then
Try
If (File.Exists(File.DirInternalCache, "mibd.db")) Then
Msgbox("existe " ,File.DirInternalCache)
Else
Msgbox("NO existe",File.DirInternalCache)
End If
btActualizar.Enabled=True
Catch
Msgbox(LastException,"")
End Try
Else
Msgbox("Fallo la actualización","")
End If
Activity.Finish
End Sub