v. 5.08.31

B4A/C_NoVenta.bas

@@ -26,6 +26,15 @@ Sub Class_Globals
 	Dim reqManager As DBRequestManager
 	Private cb_reprogramar As CheckBox
 	Dim reprogramar As Int = 0
+	
+	Private camEx As CameraExClass
+	Dim frontCamera As Boolean = False
+	Private p_cam As Panel
+	Dim  nombrefoto As String = "0"
+	Private p_camara As Panel
+	Private teclado As IME
+	Dim fototomada As String
+	Private b_foto As Button
 End Sub
 
 'You can add more parameters here.
@@ -52,6 +61,10 @@ Sub B4XPage_Appear
 	r_4.Checked = False
 	cb_reprogramar.Checked = False
 	
+	p_camara.Width = Root.Width
+	p_camara.Height = Root.Height
+	p_camara.Visible = False
+	
 	CallSubDelayed(Tracker, "Track")
 	CallSubDelayed(Tracker, "StartFLPSmall")
 	If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
@@ -62,6 +75,11 @@ Sub B4XPage_Appear
 	End If
 End Sub
 
+
+
+
+
+
 Sub GPS_LocationChanged (Location1 As Location)
 '	LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
 	If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
@@ -265,4 +283,148 @@ Private Sub cb_reprogramar_CheckedChange(Checked As Boolean)
 	Else
 		reprogramar = 0
 	End If
+End Sub
+
+Private Sub InitializeCamera2
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
+	If resultC Then
+		camEx.Initialize(p_cam, frontCamera, Me, "Camera1")
+		frontCamera = camEx.Front
+		Log("inicializamos Camara")
+	Else
+		ToastMessageShow("No permission Camara!!!", True)
+	End If
+End Sub
+
+Sub Camera1_Ready (Success As Boolean)
+	Log("Camara ready")
+	If Success Then
+		camEx.SetJpegQuality(90)
+		camEx.SetContinuousAutoFocus
+		camEx.CommitParameters
+		camEx.StartPreview
+		Log(camEx.GetPreviewSize)
+	Else
+		ToastMessageShow("Cannot open camera.", True)
+		Log("Cannot open camera")
+	End If
+End Sub
+
+Sub Camera1_PictureTaken (Data()As Byte)
+
+	DateTime.DateFormat="ddMMyyyyHHmmss"
+	nombrefoto = DateTime.Now & "_FOTO1.png"
+	teclado.HideKeyboard
+	fototomada = nombrefoto
+		
+
+	Log("tome foto")
+	Dim filename As String = fototomada
+	Dim Dirp As String = File.DirInternal
+	Dim Dir As String
+	Dim Dir2 As String
+	Try
+		File.MakeDir(Dirp,"/md")
+		Dir = "/md"
+		Log("creado en promotoria " & Dirp & Dir)
+	Catch
+		Dir = ""
+		Log("creado en raiz")
+	End Try
+	
+	Try
+		File.MakeDir(Dirp & Dir,"/reduccion")
+		Dir2 = "/reduccion"
+		Log("creado en promotoria " & Dirp & Dir & Dir2)
+	Catch
+		Dir = ""
+		Log("creado en raiz")
+	End Try
+	
+	camEx.SavePictureToFile(Data, Dirp&Dir, filename)
+	camEx.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)
+	
+
+	Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 225, 300, True)
+	Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
+	img.WriteToStream(out, 100, "PNG")
+'		foto4 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3)
+		
+	out.Close
+
+
+
+	
+	
+	motivo = "CERRADO" 
+	DateTime.DateFormat = "MM/dd/yyyy"
+	DateTime.TimeFormat="HHmmss"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
+	c.Position = 0
+	cuenta = c.GetString("CUENTA")
+	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+	c.Position = 0
+	usuario = c.GetString("USUARIO")
+	c.Close
+	Dim rutaactualizar As String
+	Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+	If rut.RowCount > 0 Then
+		rut.Position = 0
+		rutaactualizar = rut.GetString("CAT_CL_RUTA")
+	End If
+	Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)"$)
+	Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_RUTA,NV_REPROGRAMAR,NV_FOTO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,rutaactualizar,reprogramar,File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto)))
+	Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) and CAT_CL_RUTA = '${rutaactualizar}'"$)
+	Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+	Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC, BCAJAS = 0 , CANTC = 0 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
+	Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2,  HVD_RECHAZOCANT = HVD_RECHAZOCANT  WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
+
+	p_camara.Visible = False
+	StopCamera2
+	B4XPages.ShowPage("Principal")
+	
+End Sub
+
+Private Sub p_camara_Click
+	
+End Sub
+
+Private Sub b_foto_Click
+
+	camEx.TakePicture
+	p_camara.Visible = False
+	
+End Sub
+
+Private Sub StopCamera2
+'	Capturing = False
+	If camEx.IsInitialized Then
+		camEx.Release
+	End If
+End Sub
+
+Private Sub r_1_CheckedChange(Checked As Boolean)
+	InitializeCamera2
+	p_camara.Visible = True
+	Subs.centraPanel(p_cam,p_camara.Width)
+	
+	p_camara.BringToFront
+End Sub
+
+
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	If p_camara.Visible Then
+		p_camara.Visible = False
+		StopCamera2
+		r_1.Checked = False
+	Else
+		B4XPages.ShowPage("Cliente")
+	End If
+	Return False
 End Sub