VERSION 6.01.05

- Se cambio el nombre de las imagenes cuando se realiza a primera venta.
- Se agrego la fecha de la bitacora en todos lados para que siempre ponga inicioi y fin

B4A/C_NuevoCliente.bas

@@ -7,11 +7,9 @@ Version=11.5
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
-
 	Dim g As GPS
 	Dim ruta As String
 	Dim c As Cursor
-
 	Dim CANCELA As Button
 	Dim GUARDA As Button
 	Dim cuenta As String
@@ -20,7 +18,6 @@ Sub Class_Globals
 	Dim sDate2,sTime2 As String
 	Dim no_cliente As String
 	Dim no_ruta As String
-
 	Dim r_4 As RadioButton
 	Dim E_NOMBRE As EditText
 	Dim tgl As Toggle
@@ -235,7 +232,7 @@ Sub GUARDA_Click
 					' fototomada = "0"
 					B4XPages.ShowPage("Cliente")
 					Log("-- XX")
-					bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Nuevo Cliente", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", "", "")
+					bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Nuevo Cliente", Subs.traeCliente, Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", "", "")
 '					CallSubDelayed(Tracker, "StartFLP")
 				Else
 					' Mensaje de advertencia si ET_Atiende.Text está vacío
@@ -252,11 +249,8 @@ Sub GUARDA_Click
 	End If
 End Sub
 
-
-
-
 Private Sub p_nuevoCliente_Click
-	
+
 End Sub
 
 'Private Sub b_foto_inci_Click
@@ -264,7 +258,7 @@ End Sub
 '	p_camara.Visible = False
 ''	StopCamera2
 'End Sub
-'
+
 'Private Sub InitializeCamera2
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
@@ -282,7 +276,7 @@ End Sub
 '	Else
 '		ToastMessageShow("Sin permisos de escritura!!!", True)
 '	End If
-'	
+
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 '	If Result Then
@@ -291,7 +285,7 @@ End Sub
 '		ToastMessageShow("Sin permisos de lectura!!!", True)
 '	End If
 'End Sub
-'
+
 'Sub Camera1_Ready (Success As Boolean)
 '	Log("Camara ready")
 '	If Success Then
@@ -305,7 +299,7 @@ End Sub
 '		Log("Cannot open camera")
 '	End If
 'End Sub
-'
+
 'Sub Camera1_PictureTaken (Data()As Byte)
 '	Log("tome foto")
 '	Dim filename As String = fototomada
@@ -320,7 +314,6 @@ End Sub
 '		Dir = ""
 '		Log("creado en raiz")
 '	End Try
-'	
 '	Try
 '		File.MakeDir(Dirp & Dir,"/reduccion")
 '		Dir2 = "/reduccion"
@@ -329,24 +322,21 @@ End Sub
 '		Dir = ""
 '		Log("creado en raiz")
 '	End Try
-'	
 '	camEx2.SavePictureToFile(Data, Dirp&Dir, filename)
 '	camEx2.StartPreview 'restart preview
 '	ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
 '	Log("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename)
 '	p_camara.Visible = False
 '	StopCamera2
-'	
 'End Sub
-'
+
 'Private Sub StopCamera2
 ''	Capturing = False
 '	If camEx2.IsInitialized Then
 '		camEx2.Release
 '	End If
 'End Sub
-'
-'
+
 'Private Sub B_FOTO_Click
 '	DateTime.DateFormat="ddMMyyyyHHmmss"
 '	InitializeCamera2