Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
First_Time=True
Activity.LoadLayout("Main")
'Activity.SetBackgroundImage(LoadBitmapSample(File.DirDefaultExternal, "back.jpg", 592, 585))
OK=False
DateTime.DateFormat="yyyy-MM-dd"
cdb.Initialize(Colors.RGB(255,255,255), 42)
cdb2.Initialize(Colors.RGB(0,131,170), 1)
Dim rp As RuntimePermissions
If File.Exists(rp.GetSafeDirDefaultExternal(""), "BaseDatos.db")=False Then
File.Copy(File.DirAssets,"BaseDatos.db",rp.GetSafeDirDefaultExternal(""),"BaseDatos.db")
End If
If Conn.IsInitialized = False Then
Conn.Initialize(rp.GetSafeDirDefaultExternal(""), "BaseDatos.db", True)
End If
mCPPar.Initialize(Conn)
btnClientes.Background=cdb
btnRemitos.Background=cdb
btnProductos.Background=cdb
btnVentas.Background=cdb
btnSalir.Background=cdb
btnDevoluciones.Background=cdb
btnGastos.Background=cdb
btnCobranza.Background=cdb
btnEstCta.Background=cdb
btnListados.Background=cdb
txtUsu1.Background = cdb2
txtPass.Background = cdb2
txtUsu1.Text=mCPPar.Buscar_Mail1
txtPass.Text=mCPPar.Buscar_Contrasena
End Sub