- VERSION 5.08.28

- Se hicieron correccciones en el enviod e la bitácora. - Se eliminó el acceso a la pantalla "Cliente" desde "Tickets Dia" - Se agregó el botón de "Ingresar Peso o No venta" en el clic largo de "Tickets Día"
2026-04-17 19:36:18 +00:00 · 2025-08-28 18:46:05 -06:00
parent 14b6e9f067
commit 36012f89ec
8 changed files with 387 additions and 27 deletions
--- a/B4A/ADM.b4a
+++ b/B4A/ADM.b4a
@@ -1121,7 +1121,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: ADM
 	#VersionCode: 1
-	#VersionName: 5.08.26
+	#VersionName: 5.08.28
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
--- a/B4A/ADM.b4a.meta
+++ b/B4A/ADM.b4a.meta
@@ -75,7 +75,7 @@ ModuleClosedNodes15=
 ModuleClosedNodes16=
 ModuleClosedNodes17=
 ModuleClosedNodes18=
-ModuleClosedNodes19=
+ModuleClosedNodes19=15,18,19,21,22
 ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
@@ -84,7 +84,7 @@ ModuleClosedNodes23=
 ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
-ModuleClosedNodes27=4,6,8,9,10,11,12,13,14,15,16,17,18,20,21,22,24,25,26,27,28
+ModuleClosedNodes27=3,4,8,9,10,11,12,13,14,15,16,17,18,20,21,24,25,27,28
 ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=
@@ -93,10 +93,10 @@ ModuleClosedNodes31=
 ModuleClosedNodes32=15,16,17,18,19
 ModuleClosedNodes4=
 ModuleClosedNodes5=
-ModuleClosedNodes6=4,6,7,8,9,10,11,12,13,15,18,19,21,22
+ModuleClosedNodes6=4,6,7,8,9,10,11,12,13,15,19,21
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Clientes,StopCamera,874,0,C_Clientes,mandaPendientes,875,6,Subs,traeCliente,740,0,Subs,traeMaxPromos,1151,0,C_Clientes,b_guardaNoVenta_Click,699,0,Subs,bitacora,1586,0,Diseñador Visual,clientes.bal,-100,1,C_Principal,JobDone,1203,0,Diseñador Visual,principal.bal,-100,3,C_Principal,B4XPage_Appear,380,0,C_Principal,getTableColumnList,361,0
+NavigationStack=C_TicketsDia,b_guardaNoVenta_Click,278,0,C_TicketsDia,b_cancelaNoVenta_Click,282,0,C_Clientes,b_inicioVenta_Click,570,0,C_Clientes,b_guardaNoVenta_Click,671,0,Diseñador Visual,ticketsdia.bal,-100,5,C_TicketsDia,Class_Globals,19,0,C_TicketsDia,b_noventa0_Click,195,0,C_Clientes,b_noVenta_Click,666,6,C_TicketsDia,b_noVenta_Click,303,0,MAPA_RUTAS,b_noVenta_Click,512,0
 SelectedBuild=0
-VisibleModules=30,2,14,5,6,11,31,27,32,7
+VisibleModules=30,2,14,5,6,19,31,27,18
--- a/B4A/C_Clientes.bas
+++ b/B4A/C_Clientes.bas
@@ -671,7 +671,13 @@ Private Sub et_guardarPeso_TextChanged (Old As String, New As String)
 End Sub

 Private Sub b_noVenta_Click
+	Log("No Venta")
 	p_noVenta.Visible = True
+	r_opcion1.Checked = True
+	r_opcion2.Checked = False
+	r_opcion3.Checked = False
+	r_opcion4.Checked = False
+	et_comentarioNoVenta.Text = ""
 End Sub

 Private Sub b_guardaNoVenta_Click
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -75,6 +75,7 @@ End Sub
 Sub CANCELA_Click
 	B4XPages.ShowPage("Cliente")
 End Sub
+
 Sub GUARDA_Click
 	If r_1.Checked Then
 		motivo = "CERRADO"
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -2182,6 +2182,7 @@ Sub e_ruta_EnterPressed
 	If e_ruta.Text = "FIN DIA" Then
 		RES =  Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
 		If RES = DialogResponse.POSITIVE Then
+			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,Subs.traeRuta,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","")
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
@@ -2213,7 +2214,6 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTAA")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
-			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","","")
 			B4XPage_Appear
 			l_rutasuplencia.Visible = False
 			Label22.Visible = False
--- a/B4A/C_TicketsDia.bas
+++ b/B4A/C_TicketsDia.bas
@@ -13,9 +13,48 @@ Sub Class_Globals
 	Dim S As Cursor
 	Dim ruta As String
 	Dim ListView1 As ListView
-	Dim b_noventa As Button
+	Dim b_noventa0 As Button
 	Dim nombre_boton As String
 	Dim STIME As String
+	Private p_transparenciaIniciaInicioFinVenta As Panel
+	Private p_inicioFinVenta As Panel
+	Private b_finVenta As Button
+	Private l_finVenta As Label
+	Private p_guardarPeso As Panel
+	Private l_guardarPeso As Label
+	Private et_guardarPeso As EditText
+	Private b_noVenta As Button
+	Private b_guardarPeso As Button
+	Private p_botonesGuardarPeso As Panel
+	Private p_noVenta As Panel
+	Private p_botonesNoVenta As Panel
+	Private b_cancelaNoVenta As Button
+	Private b_guardaNoVenta As Button
+	Private Panel5 As Panel
+	Private et_comentarioNoVenta As EditText
+	Private Label3 As Label
+	Private r_opcion4 As RadioButton
+	Private r_opcion3 As RadioButton
+	Private r_opcion2 As RadioButton
+	Private r_opcion1 As RadioButton
+	Private l_NoVenta As Label
+	Private p_camara As Panel
+	Private p_botonesCam As Panel
+	Private b_cam As Button
+	Private b_foto_inci As Button
+	Private p_cam As Panel
+	Private camEx As CameraExClass
+	Private frontCamera As Boolean = False
+	Dim laCam As C_Camara
+	Dim fototomada As String = "0"
+	Dim sDate As String
+	Dim STIME As String
+	Private nombreFoto As String
+	Dim fotoCerrado As String = ""
+	Private p_botonesCam As Panel
+	Dim motivo As String
+	Dim reqManager As DBRequestManager
+	Private p_camara2 As Panel
 End Sub

 'You can add more parameters here.
@@ -49,6 +88,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
 		Next
 	End If
+	p_transparenciaIniciaInicioFinVenta.top = 0 : p_transparenciaIniciaInicioFinVenta.Left = 0
+	p_transparenciaIniciaInicioFinVenta.Height = Root.Height : p_transparenciaIniciaInicioFinVenta.Width = Root.Width
+	Subs.centraPanel(p_inicioFinVenta, Root.Width)
+	p_guardarPeso.Top = p_inicioFinVenta.top : p_guardarPeso.left = p_inicioFinVenta.left
+	Subs.centraPanel(p_noVenta, Root.Width)
+	reqManager.Initialize(Me, Starter.DBReqServer)
 End Sub

 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -58,7 +103,7 @@ Sub B4XPage_Appear
 '	c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE, PC_MONTO, PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
 	c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc")
 	Dim noArticulos As Int = 0
-
+	fotoCerrado = ""
 	ListView1.Clear
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
@@ -82,11 +127,15 @@ Sub B4XPage_Appear
 		Next
 	End If
 	c.Close
+	p_camara.Top = 0 : p_camara.Left = 0
+	p_camara.Width = Root.Width : p_camara.Height = Root.Height
+	Subs.centraPanel(p_camara2, Root.Width)
 End Sub

 Sub Regresar_Click
 	B4XPages.ShowPage("cliente")
 End Sub
+
 Sub Activity_KeyPress (key As Int) As Boolean
 	' BACK key pressed
 	If key=KeyCodes.KEYCODE_BACK Then
@@ -99,29 +148,61 @@ Sub Activity_KeyPress (key As Int) As Boolean
 End Sub

 Sub ListView1_ItemLongClick (Position As Int, Value As Object)
-	B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
-	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
-	DateTime.TimeFormat = "HHmmss"
-	STIME=DateTime.Time(DateTime.Now)
-	Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito
-	s=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
-	s.Position = 0
-	If s.GetString("CUANTOS") = 1 Then
-		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+	Private cliente As String = Value
+	Starter.skmt.ExecNonQuery($"delete from cuentaa"$)
+	Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('${cliente}')"$)
+	Log($"insert into cuentaa (cuenta) values ('${cliente}')"$)
+	c = Starter.skmt.ExecQuery("SELECT * FROM FOTOINICIAL")
+	If c.RowCount = 0 Then
+		p_camara.Visible = True
+		InitializeCamera
+		p_camara.Left = 0
+		p_camara.Visible = True
+		nombreFoto = "inicio"
+		b_foto_inci.Text = "Foto tienda"
 	Else
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
-		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+		p_transparenciaIniciaInicioFinVenta.Visible = True
+		b_finVenta.Enabled = True
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", cliente, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, "2", "", "", "Tickets Día")
+		Starter.enVenta = True
+		Subs.enVenta(1, "CLIENTES")
+		LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${cliente}"$, Colors.red)
+		Log(Subs.traeRuta2(Subs.traeCliente))
 	End If
-	DateTime.TimeFormat = "HH:mm:ss"
-	Subs.guardaClienteHoraInicio(Value)
-	B4XPages.MainPage.cliente.venimosDeTicketsDia = True
-	B4XPages.ShowPage("cliente")
+	c = Starter.skmt.ExecQuery($"select PE_FOTO_CERRADO from PESOS where PE_CLIENTE = '${cliente}' and PE_FOTO_CERRADO = '1'"$)
+	If c.RowCount > 0 Then
+		fotoCerrado = "1"
+	Else
+		fotoCerrado = ""
+	End If
+	c.Close
+	Log("CLIENTE: " & cliente)
+	
+	
+	
+'	B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+'	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+'	DateTime.TimeFormat = "HHmmss"
+'	STIME=DateTime.Time(DateTime.Now)
+'	Starter.pre_viejo = Subs.traeTotalClientepreventaparacredito
+'	s=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
+'	s.Position = 0
+'	If s.GetString("CUANTOS") = 1 Then
+'		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+'	Else
+'		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
+'		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+'	End If
+'	DateTime.TimeFormat = "HH:mm:ss"
+'	Subs.guardaClienteHoraInicio(Value)
+'	B4XPages.MainPage.cliente.venimosDeTicketsDia = True
+'	B4XPages.ShowPage("cliente")
 End Sub

-Sub b_noventa_Click
+Sub b_noventa0_Click
 	If nombre_boton = "NOVENTA" Then
 		nombre_boton = "VENTA"
-		b_noventa.Text ="VENTA"
+		b_noventa0.Text ="VENTA"
 '		c = B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
 		c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as NV_CLIENTE, PE_MOTIVO as NV_MOTIVO, PE_COMENTARIO as NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'NO VENTA' ORDER BY PE_FECHA asc")
 		ListView1.Clear
@@ -141,7 +222,7 @@ Sub b_noventa_Click
 		End If
 	Else
 		nombre_boton = "NOVENTA"
-		b_noventa.Text ="NO VENTA"
+		b_noventa0.Text ="NO VENTA"
 '		c = B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
 		c = B4XPages.MainPage.skmt.ExecQuery("select PE_CLIENTE as PC_CLIENTE, PE_PESO AS PC_MONTO, 1 as PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pe_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pe_cliente ) as NOMBRE FROM PESOS where PE_TIPO = 'VENTA' ORDER BY PE_FECHA asc")
 		ListView1.Clear
@@ -166,4 +247,270 @@ End Sub

 Private Sub p_ticketsdia_Click
 	
+End Sub
+
+Private Sub b_guardaNoVenta_Click
+	If r_opcion1.Checked Then
+		motivo = "CERRADO"
+	Else If r_opcion2.Checked Then
+		motivo = "NO COMPRA"
+	Else If r_opcion3.Checked Then
+		motivo = "CON PRODUCTO"
+	Else If r_opcion4.Checked Then
+		motivo = "NO ESTA EL ENCARGADO"
+	Else
+		motivo = "CANCELACION"
+	End If
+	If motivo = "CERRADO" And fotoCerrado = "" Then
+		nombreFoto = Subs.traeCliente & "_cerrado"
+		p_camara.Visible = True
+		InitializeCamera
+		p_camara.Left = 0
+		p_camara.Visible = True
+		p_camara.BringToFront
+		b_foto_inci.Text = "Foto tienda"
+	Else
+		DateTime.DateFormat="yy-MM-dd HH:mm:ss"
+		Dim fecha As String=DateTime.Date(DateTime.Now)
+		Subs.guardaPeso("NO VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, "0", motivo, et_comentarioNoVenta.text, fotoCerrado)
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, motivo, et_comentarioNoVenta.text, $"Tickets Día Venta:${et_guardarPeso.text}"$)
+		Starter.enVenta = False
+		Subs.enVenta(0, "")
+		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		p_noVenta.Visible = False
+		p_guardarPeso.Visible = False
+		p_transparenciaIniciaInicioFinVenta.Visible = False
+	End If
+End Sub
+
+Private Sub b_cancelaNoVenta_Click
+	p_noVenta.Visible = False
+End Sub
+
+Private Sub b_guardarPeso_Click
+	If et_guardarPeso.Text <> "" And et_guardarPeso.Text <> "0" And IsNumber(et_guardarPeso.Text) Then
+		Private peso As Double = et_guardarPeso.Text
+		et_guardarPeso.Text = peso
+
+		Subs.guardaPeso("VENTA", Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), Subs.traeUsuarioDeBD, Subs.traeCliente, peso, "", "", "")
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta2(Subs.traeCliente), "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, 2, "", "", $"Tickets Día Venta:${et_guardarPeso.text}"$)
+		Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		Starter.enVenta = False
+		Subs.enVenta(0, "")
+		p_guardarPeso.Visible = False
+		p_transparenciaIniciaInicioFinVenta.Visible = False
+'		b_inicioVenta.Enabled = True
+		b_finVenta.Enabled = False
+		B4XPages.MainPage.ticketsDia.B4XPage_Appear
+		mandaPendientes
+	End If
+End Sub
+
+Private Sub b_noVenta_Click
+	Log("No Venta")
+	p_noVenta.Visible = True
+	r_opcion1.Checked = True
+	r_opcion2.Checked = False
+	r_opcion3.Checked = False
+	r_opcion4.Checked = False
+	et_comentarioNoVenta.Text = ""
+End Sub
+
+Private Sub et_guardarPeso_TextChanged (Old As String, New As String)
+	If Old <> New And IsNumber(New.trim) And New.trim <> "0" Then
+		b_guardarPeso.Enabled = True
+	Else
+		b_guardarPeso.Enabled = False
+	End If
+End Sub
+
+Sub mandaPendientes
+'	PEDIDO_CLIENTE (Pendientes)
+	Log(">>>>>>>  MANDA PENDIENTES")
+	Dim PCNoArts As String
+	Dim PCMonto As String
+	If Subs.traeUsuarioDeBD <> "KMTS1"  Then
+		'PESOS (Pendientes)
+		c = Starter.skmt.ExecQuery($"SELECT * FROM PESOS where PE_ENVIO_OK <> 1"$)
+		Log($"PESOS PENDIENTE: ${c.RowCount}"$)
+		If c.RowCount>0 Then
+			For i = 0 To c.RowCount -1
+				c.Position = i
+				Dim cmd As DBCommand
+				cmd.Initialize
+'				cmd.Name = "insert_pedido2_ADM"
+'				cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_CEDIS"),c.GetString("PE_IDALMACEN"),c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"),c.GetString("PE_TIPOPAGO"),c.GetString("PE_COMENTARIO"))
+'				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
+'				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
+'				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
+'				sql.insert_pedido2_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO, PE_CANT_TOTAL, PE_VENTA_TOTAL) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?),(?),(?))
+
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insertPesos"
+'				Log(c.GetString("PE_IDALMACEN")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
+				cmd.Parameters = Array As Object(c.GetString("PE_IDALMACEN"),c.GetString("PE_RUTA"),c.GetString("PE_USUARIO"),c.GetString("PE_CLIENTE"),c.GetString("PE_PESO"),c.GetString("PE_FECHA"),c.GetString("PE_TIPO"),c.GetString("PE_COMENTARIO"),c.GetString("PE_FOTO_CERRADO"))
+'				Log($">>>>  insertPesos= ${C.GetString("PE_IDALMACEN")},${c.GetString("PE_RUTA")},${C.GetString("PE_USUARIO")},${C.GetString("PE_CLIENTE")},${C.GetString("PE_PESO")}, ${C.GetString("PE_FECHA")}"$)
+				reqManager.ExecuteCommand(cmd , $"insertPesos_${c.GetString("PE_CLIENTE")}"$)
+			Next
+		End If
+		c.Close
+	End If
+End Sub
+
+Private Sub b_finVenta_Click
+	et_guardarPeso.Text = ""
+	p_guardarPeso.Visible = True
+'	b_inicioVenta.Enabled = True
+'	b_finVenta.Enabled = False
+End Sub
+
+Private Sub b_foto_inci_Click
+	camEx.TakePicture
+End Sub
+
+Private Sub InitializeCamera
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For B4XPage_PermissionResult (Permission As String, resulta As Boolean)
+	If resulta Then
+		camEx.Initialize(p_cam, frontCamera, Me, "Camera1")
+		frontCamera = camEx.Front
+	Else
+		ToastMessageShow("No permission!!!", True)
+	End If
+End Sub
+
+Sub Camera1_Ready (Success As Boolean)
+	If Success Then
+		camEx.SetJpegQuality(90)
+		camEx.SetContinuousAutoFocus
+		camEx.CommitParameters
+		camEx.StartPreview
+		Log(camEx.GetPreviewSize)
+	Else
+		ToastMessageShow("Cannot open camera.", True)
+	End If
+End Sub
+
+Sub Camera1_PictureTaken (Data() As Byte)
+	If b_foto_inci.Text = "Foto tienda" Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		fototomada = DateTime.Now & $"_${nombreFoto}.jpg"$
+		Dim filename As String = fototomada
+		Dim dir As String = File.DirInternal
+		camEx.SavePictureToFile(Data, dir, filename)
+		camEx.StartPreview 'restart preview
+		ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
+		Dim Dirp As String = File.DirInternal
+		Dim dir As String
+		Dim Dir2 As String
+		Try
+			File.MakeDir(Dirp,"/adm")
+			dir = "/adm"
+			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
+			Dir2 = ""
+			Log("creado en raiz")
+		End Try
+		DateTime.DateFormat = "MM/dd/yyyy"
+		DateTime.TimeFormat = "HH:mm:ss"
+		sDate = DateTime.Date(DateTime.Now)
+		STIME = DateTime.Time(DateTime.Now)
+		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, 450, 600, True)
+		Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
+		img.WriteToStream(out, 100, "PNG")
+		out.Close
+		If nombreFoto = "inicio" Then
+			Starter.skmt.ExecNonQuery2("INSERT INTO FOTOINICIAL (RUTAA, ALMACEN, LATITUD, LONGITUD, FECHAHORA, FOTO, USUARIO) VALUES (?,?,?,?,?,?,?)",Array As Object(Subs.traeRuta, Subs.traeAlmacen, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, sDate & " " & STIME, File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD))
+			b_foto_inci.Text = "Foto usuario"
+			ChangeCamera_Click
+		Else
+			fotoCerrado = fototomada
+			p_camara.Visible = False
+			StopCamera
+		End If
+	Else If b_foto_inci.Text = "Foto usuario" Then
+		DateTime.DateFormat="ddMMyyyyHHmmss"
+		fototomada = fototomada = DateTime.Now & $"_${nombreFoto}.jpg"$
+		Dim filename As String = fototomada
+		Dim dir As String = File.DirInternal
+		camEx.SavePictureToFile(Data, dir, filename)
+		camEx.StartPreview 'restart preview
+		ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
+		Dim Dirp As String = File.DirInternal
+		Dim dir As String
+		Dim Dir2 As String
+		Try
+			File.MakeDir(Dirp,"/adm")
+			dir = "/adm"
+			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
+		DateTime.DateFormat = "MM/dd/yyyy"
+		DateTime.TimeFormat = "HH:mm:ss"
+		sDate = DateTime.Date(DateTime.Now)
+		STIME = DateTime.Time(DateTime.Now)
+		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, 450, 600, True)
+		Dim out As OutputStream = File.OpenOutput(File.DirInternal & dir & Dir2, filename, False)
+		img.WriteToStream(out, 100, "PNG")
+		out.Close
+		B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE FOTOINICIAL set FOTO2 = ? where USUARIO = ? and RUTAA = ? and ALMACEN = ? ", Array As Object (File.ReadBytes(File.DirInternal & dir & Dir2, fototomada), Subs.traeUsuarioDeBD,Subs.traeRuta, Subs.traeAlmacen ))
+		b_foto_inci.Text = "Foto tienda"
+		ChangeCamera_Click
+		p_camara.Visible = False
+		StopCamera
+		If Subs.traeCliente = "0" Then
+			B4XPages.MainPage.tipo_venta = "ABORDO"
+		Else If Subs.traeCliente = "1" Then
+			B4XPages.MainPage.tipo_venta = "RECARGA"
+		Else
+			B4XPages.MainPage.tipo_venta = "PREVENTA"
+		End If
+'		B4XPages.ShowPage("productos")
+'		p_transparentePidePeso.Visible = True
+	End If
+End Sub
+
+Sub ChangeCamera_Click
+	camEx.Release
+	frontCamera = Not(frontCamera)
+	InitializeCamera
+End Sub
+
+Private Sub StopCamera
+'	Capturing = False
+	If camEx.IsInitialized Then
+		camEx.Release
+	End If
+End Sub
+
+Private Sub p_camara_Click
+	
 End Sub
--- a/B4A/Files/ticketsdia.bal
+++ b/B4A/Files/ticketsdia.bal
--- a/B4A/MAPA_RUTAS.bas
+++ b/B4A/MAPA_RUTAS.bas
@@ -513,7 +513,13 @@ Private Sub et_guardarPeso_TextChanged (Old As String, New As String)
 End Sub

 Private Sub b_noVenta_Click
+	Log("No Venta")
 	p_noVenta.Visible = True
+	r_opcion1.Checked = True
+	r_opcion2.Checked = False
+	r_opcion3.Checked = False
+	r_opcion4.Checked = False
+	et_comentarioNoVenta.Text = ""
 End Sub

 Private Sub b_guardaNoVenta_Click