...

B4A/C_Cliente.bas

@@ -415,7 +415,7 @@ Sub B4XPage_Appear
 	
 
 
-	If Subs.traeCliente = "63403" Then
+	If (Subs.traeCliente = "63403" OR Subs.traeCliente = "100000") Then
 		gest.Visible = False
 		b_noEntrega.Visible = False
 		Tar.Visible = True
@@ -581,7 +581,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Else if p_abono.Visible Then
 		p_abono.Visible = False
 		Return False
-	Else If la_cuenta.Text = "63403" Then
+	Else If (la_cuenta.Text = "63403" Or la_cuenta.Text = "100000") Then
 		B4XPages.ShowPage("Principal")
 		Return False
 	Else

B4A/C_Principal.bas

@@ -84,7 +84,7 @@ Sub Class_Globals
 	Private p_principal As Panel
 	Dim ime As IME
 	Private b_tabulador As Button
-	
+	Dim paso1 As String
 	Private l_rutasP As Label
 	Private l_rechazo As Label
 	Private Label9 As Label
@@ -139,6 +139,11 @@ Sub Class_Globals
 	Private l_pagaresnuevos As Label
 	Private l_montoaliquidar As Label
 	Private Label21 As Label
+	Private b_comodin As Button
+	Private p_validacion As Panel
+	Private b_cancelarcodigo As Button
+	Private b_aceptar As Button
+	Private et_codigo As EditText
 End Sub
 
 'You can add more parameters here.
@@ -324,9 +329,9 @@ Sub B4XPage_Appear
 		f1=Starter.skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas2 where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_RECHAZO = 0")
 		f2=Starter.skmt.ExecQuery("select sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info)")
 '		b=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)")
-		b=Starter.skmt.ExecQuery("select count(DISTINCT NV_CLIENTE) as CUANTOS from noventa where nv_motivo <> 'ENTREGA' and NV_CLIENTE <> 63403")
+		b=Starter.skmt.ExecQuery("select count(DISTINCT NV_CLIENTE) as CUANTOS from noventa where nv_motivo <> 'ENTREGA' and NV_CLIENTE NOT IN ('63403', '100000')")
 '		L=Starter.skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)")
-		L=Starter.skmt.ExecQuery("select count(DISTINCT NV_CLIENTE) as CLIENTES_DIA from noventa where nv_motivo = 'ENTREGA' and NV_CLIENTE <> 63403")
+		L=Starter.skmt.ExecQuery("select count(DISTINCT NV_CLIENTE) as CLIENTES_DIA from noventa where nv_motivo = 'ENTREGA' and NV_CLIENTE NOT IN ('63403', '100000')")
 		f2.Position=0
 '		F4=Starter.skmt.execqUery("select count(*) as CUANTOS FROM PEDIDO")
 '		F4.Position = 0
@@ -744,12 +749,14 @@ Sub B4XPage_Appear
 '			b_venta_emp.Visible = False
 '		End If
 		b_venta_emp.Visible = True
+		b_comodin.Visible = True
 	Else
 		Label21.Visible = False
 		l_montoaliquidar.Visible = False
 		Label9.Visible = False  '''' PRUEBAS MOVER A TRUE
 		L_MONTOE.Visible = False
 		b_venta_emp.Visible = False '''' PRUEBAS MOVER A TRUE
+		b_comodin.Visible = False
 	End If
 
 	If l_ruta.Text = 0 Then
@@ -842,27 +849,229 @@ Sub trabajar_Click
 End Sub
 
 Sub Subir_Click
-	If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
-	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
-	c.Position = 0
-	usuario = c.GetString("USUARIO")
-	c.Close
 	
-	c = Starter.skmt.ExecQuery("SELECT * FROM BLOCKENVIO")
-	If c.RowCount = 0 Then
-		Starter.skmt.ExecNonQuery2("INSERT INTO BLOCKENVIO(ENVIADO) VALUES (?)", Array As Object (1))
-		envioinfo
+	Private cg As Cursor = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
+	
+	
+	If cg.RowCount > 0 Then
+		Dim banderarechazo As Int = 0
+		
+		For i = 0 To cg.RowCount - 1
+			cg.Position = i
+			
+			
+			Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${cg.GetString("HVD_PROID")}' "$)
+			Private resta As String = 0
+					
+			If c3.RowCount > 0 Then
+				c3.Position = 0
+				resta =  c3.GetString("PE_CANT")
+			Else
+				resta = 0
+			End If
+			
+			If ( cg.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
+			
+			Else
+				banderarechazo = banderarechazo + 1
+			End If		
+		Next
+		
+		If banderarechazo = 0 Then
+			If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
+			c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+			c.Position = 0
+			usuario = c.GetString("USUARIO")
+			c.Close
+	
+			c = Starter.skmt.ExecQuery("SELECT * FROM BLOCKENVIO")
+			If c.RowCount = 0 Then
+				Starter.skmt.ExecNonQuery2("INSERT INTO BLOCKENVIO(ENVIADO) VALUES (?)", Array As Object (1))
+				envioinfo
+			Else
+				envioinfo
+			End If
+			c.Close
+		Else
+			Dim pickciego As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PICK_CIEGO")
+			If pickciego.RowCount > 0 Then
+				If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
+				c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+				c.Position = 0
+				usuario = c.GetString("USUARIO")
+				c.Close
+	
+				c = Starter.skmt.ExecQuery("SELECT * FROM BLOCKENVIO")
+				If c.RowCount = 0 Then
+					Starter.skmt.ExecNonQuery2("INSERT INTO BLOCKENVIO(ENVIADO) VALUES (?)", Array As Object (1))
+					envioinfo
+				Else
+					envioinfo
+				End If
+				c.Close
+			Else
+				MsgboxAsync("Para realizar el envio se necesita realizar la incidencia de recibo.", "Atención")
+			End If
+		End If
+		
 	Else
-		envioinfo
+			If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
+			c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+			c.Position = 0
+			usuario = c.GetString("USUARIO")
+			c.Close
+	
+			c = Starter.skmt.ExecQuery("SELECT * FROM BLOCKENVIO")
+			If c.RowCount = 0 Then
+				Starter.skmt.ExecNonQuery2("INSERT INTO BLOCKENVIO(ENVIADO) VALUES (?)", Array As Object (1))
+				envioinfo
+			Else
+				envioinfo
+			End If
+			c.Close
 	End If
 	c.Close
 	
-'	cmd.Initialize
-'	cmd.Name = "select_estatus_MAZAPA"
-'	cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
-'	reqManager.ExecuteQuery(cmd , 0, "estatus")
+	
+
 End Sub
 
+Sub imp_LIQUIDACION
+
+	ProgressDialogShow("Imprimiendo, un momento ...")
+	Printer1.DisConnect
+	If Not(Printer1.IsConnected) Then
+'		If logger Then Log("conectando 1")
+		Printer1.Connect
+		Private cont As Int = 0
+		Do While Not(impresoraConectada)
+			Sleep(1000)
+			cont = cont + 1
+			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
+			If cont > 15 Then impresoraConectada = True
+		Loop
+		Sleep(500)
+		impresoraConectada = False
+	Else
+'		If logger Then Log("conectando 2")
+		Printer1.Connect
+		Private cont As Int = 0
+		Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
+			Sleep(1000)
+			cont = cont + 1
+			If cont = 2 Then Printer1.Connect
+			If cont > 4 Then impresoraConectada = True
+		Loop
+		Sleep(500)
+		impresoraConectada = False
+	End If
+	
+	TAMANO = 0
+	ESPACIO = 29
+	BLANCO = " "
+	Printer1.Justify = 0
+	Dim sDate, sTime As String
+	DateTime.DateFormat = "dd/MM/yyyy"
+	DateTime.TimeFormat = "HH:mm:ss"
+	sDate = DateTime.Date(DateTime.Now)
+	sTime = DateTime.Time(DateTime.Now)
+	Printer1.WriteString("Fecha: " &sDate & CRLF)
+	Printer1.WriteString("Hora: " &sTime & CRLF)
+	Printer1.WriteString("Ruta: " & l_ruta.Text & CRLF)
+	Printer1.WriteString("Usuario: " & Subs.dameUsuarioDeDB & CRLF)
+	Printer1.WriteString("----------LIQUIDACION----------" &  CRLF)
+	Printer1.WriteString("--------------------------------" &  CRLF)
+	
+	Printer1.WriteString("Monto entregado: $" & L_MONTOE.Text &  CRLF)
+	Printer1.WriteString("Monto rechazado: $" & l_rechazo.Text &  CRLF)
+	Printer1.WriteString("Pagares cobrados: $" & l_pagarescobrados.Text &  CRLF)
+	
+	If l_pagarescobrados.Text > 0 Then
+		Printer1.WriteString("--------------------------------" &  CRLF)
+		Printer1.WriteString("   Cliente             Abono" &  CRLF)
+		Printer1.WriteString("--------------------------------" &  CRLF)
+'		Printer1.WriteString( CRLF)
+		Dim abonoscreditos As Cursor = Starter.skmt.ExecQuery("SELECT a_abono, length(a_abono) as L_abono ,  length(a_cliente) as L_cliente , a_cliente FROM ABONOS ORDER BY a_cliente")	
+		For g = 0 To abonoscreditos.RowCount -1
+			abonoscreditos.Position = g
+			
+			TAMANO = abonoscreditos.GetInt("L_abono") + TAMANO
+			ESPACIO = (ESPACIO - TAMANO)/2
+'						Log(ESPACIO)
+			For j =0 To ESPACIO -1
+				BLANCO = " " & BLANCO
+			Next
+			Printer1.Justify = 0
+			Printer1.WriteString( abonoscreditos.GetString("a_cliente") & BLANCO)
+			Printer1.Justify = 1
+			Printer1.WriteString( abonoscreditos.GetString("a_abono"))
+			Printer1.WriteString( CRLF)
+			TAMANO = 0
+			ESPACIO = 29
+			BLANCO = " "
+			Printer1.Justify = 0
+		Next
+		Printer1.WriteString("--------------------------------" &  CRLF)
+	Printer1.WriteString( CRLF)
+	End If
+	Printer1.WriteString("Pagares nuevos: $" & l_pagaresnuevos.Text &  CRLF)
+	
+	If l_pagaresnuevos.Text > 0 Then
+		Printer1.WriteString("--------------------------------" &  CRLF)
+		Printer1.WriteString("   Cliente             Pagare" &  CRLF)
+		Printer1.WriteString("--------------------------------" &  CRLF)
+'		Printer1.WriteString( CRLF)
+		Dim abonoscreditos As Cursor = Starter.skmt.ExecQuery("SELECT PA_MONTO, length(PA_MONTO) as L_PA_MONTO ,  length(PA_CLIENTE) as L_cliente , PA_CLIENTE FROM PAGARES ORDER BY PA_CLIENTE")
+		For g = 0 To abonoscreditos.RowCount -1
+			abonoscreditos.Position = g
+			
+			TAMANO = abonoscreditos.GetInt("L_PA_MONTO") + TAMANO
+			ESPACIO = (ESPACIO - TAMANO)/2
+'						Log(ESPACIO)
+			For j =0 To ESPACIO -1
+				BLANCO = " " & BLANCO
+			Next
+			Printer1.Justify = 0
+			Printer1.WriteString( abonoscreditos.GetString("PA_CLIENTE") & BLANCO)
+			Printer1.Justify = 1
+			Printer1.WriteString( abonoscreditos.GetString("PA_MONTO"))
+			Printer1.WriteString( CRLF)
+			TAMANO = 0
+			ESPACIO = 29
+			BLANCO = " "
+			Printer1.Justify = 0
+		Next
+		Printer1.WriteString("--------------------------------" &  CRLF)
+	Printer1.WriteString( CRLF)
+	End If
+	Printer1.WriteString("Monto a liquidar: $" & l_montoaliquidar.Text &  CRLF)
+	
+	
+	
+'	Dim sumainv As Cursor = Starter.skmt.ExecQuery("SELECT SUM(HVD_CANT) AS CANTIDAD FROM HIST_VENTAS WHERE HVD_CODPROMO <> HVD_PROID")
+'	sumainv.Position = 0
+'	
+'	Printer1.WriteString("------------------------------" &  CRLF)
+'	Printer1.WriteString("Total piezas: " & sumainv.GetString("CANTIDAD")&  CRLF)
+	Printer1.WriteString("------------------------------" &  CRLF)
+	Printer1.Justify = 0
+	Printer1.WriteString(" " &  CRLF)
+	Printer1.WriteString(" " &  CRLF)
+	Printer1.WriteString(" " &  CRLF)
+	Printer1.WriteString(" " &  CRLF)
+	Sleep(1000)
+	Printer1.DisConnect
+	ProgressDialogHide
+	
+	
+	Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
+	Wait For Msgbox_Result (resultado As Int)
+	If resultado = DialogResponse.POSITIVE Then
+		imp_LIQUIDACION
+	Else
+		
+	End If
+End Sub
 
 
 Sub envioinfo
@@ -1251,6 +1460,8 @@ Sub envioinfo
 	End If
 	'FIN TABULADOR
 	
+	imp_LIQUIDACION
+	
 	Dim cmd As DBCommand
 	cmd.Initialize
 	cmd.Name = "insert_drop_rep_IZCA2"
@@ -1297,7 +1508,7 @@ Sub cargar_Click
 		Dim cmd As DBCommand
 		cmd.Initialize
 		cmd.Name = "insert_drop_rep_IZCA2"
-		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
+		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
 		reqManager.ExecuteCommand(cmd , "inst_drop")
 '	reqs.Add("inst_noventa")
 
@@ -1463,7 +1674,7 @@ Sub cargar____Click
 		Dim cmd As DBCommand
 		cmd.Initialize
 		cmd.Name = "insert_drop_rep_IZCA2"
-		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
+		cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
 		reqManager.ExecuteCommand(cmd , "inst_drop")
 '	reqs.Add("inst_noventa")
 
@@ -1657,6 +1868,7 @@ Sub JobDone(Job As HttpJob)
 					Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO))
 				Next
 				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion,SECUENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (63403,1000, "PRODUCTO DAÑADO","","","","","","","","","","","","","","-98.8357694","19.6906052","0","1"))
+				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion,SECUENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (100000,1000, "CLIENTE COMODIN","","","","","","","","","","","","","","-98.8357694","19.6906052","0","1"))
 '				End If
 				Starter.skmt.TransactionSuccessful
 				Starter.skmt.EndTransaction
@@ -1699,7 +1911,7 @@ Sub JobDone(Job As HttpJob)
 					
 				Next
 				
-				Dim clientes As Cursor = Starter.skmt.ExecQuery("select count(*) as clientes from kmt_info WHERE CAT_CL_CODIGO <> 63403 ")
+				Dim clientes As Cursor = Starter.skmt.ExecQuery("select count(*) as clientes from kmt_info WHERE CAT_CL_CODIGO NOT IN ('63403','100000') ")
 				clientes.Position = 0
 	
 				Dim detalleventa As Cursor = Starter.skmt.ExecQuery("select count(*) as detalle from hist_ventas ")
@@ -2202,6 +2414,17 @@ Sub JobDone(Job As HttpJob)
 				Next
 			End If
 		End If
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "contra" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim name As String = records(result.Columns.Get("CONTRA"))
+				
+				Next
+				paso1 = 1
+			End If
+		End If
 
 		If Job.JobName = "DBRequest" Then 
 			Dim result As DBResult = reqManager.HandleJob(Job)
@@ -2225,8 +2448,108 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		Job.Release
+		
+		
 
 	End If
+	
+	If paso1 = 1 Then
+		
+	
+	If name = "OK"&et_codigo.Text Then
+			p_validacion.Visible = False
+			et_codigo.Text = ""
+		Starter.skmt.ExecNonQuery("delete from CUENTAA")
+		Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("63403"))
+
+		Subs.panelVisible(P_CIEGO,0,0)
+		P_CIEGO.Width = Root.Width
+		P_CIEGO.Height = Root.Height
+	
+		CLV_PICK_CIEGO.Clear
+
+		Private c As Cursor = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID, ifnull(PC_CANT,0) AS PC_CAN from HIST_VENTAS INNER JOIN PICK_CIEGO ON PC_ID_PROD = HVD_PROID WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 and  HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
+		If c.RowCount > 0 Then
+		
+		
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+			
+			
+				Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${c.GetString("HVD_PROID")}' and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
+				Private resta As String = 0
+					
+				If c3.RowCount > 0 Then
+					c3.Position = 0
+					resta =  c3.GetString("PE_CANT")
+				Else
+					resta = 0
+				End If
+				If ( c.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
+			
+				Else
+					CLV_PICK_CIEGO.Add(CreateListItem(c.GetString("HVD_PROID"), c.GetString("HVD_PRONOMBRE"), c.GetString("PC_CAN"),(c.GetInt("HVD_RECHAZOCANT") - resta)),i)
+				End If
+			
+			
+			Next
+
+			d = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0  and HVD_PROID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO)  and HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
+				
+			For i = 0 To d.RowCount - 1
+				d.Position = i
+			
+			
+				Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${d.GetString("HVD_PROID")}' and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
+				Private resta As String = 0
+					
+				If c3.RowCount > 0 Then
+					c3.Position = 0
+					resta =  c3.GetString("PE_CANT")
+				Else
+					resta = 0
+				End If
+				If ( d.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
+			
+				Else
+					CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("HVD_PROID"), d.GetString("HVD_PRONOMBRE"),(d.GetInt("HVD_RECHAZOCANT") - resta)),i)
+				End If
+			
+			
+			Next
+		
+		Else If c.RowCount = 0 Then
+			d = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 and HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
+'		d=Starter.skmt.ExecQuery($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE CAT_GP_CLASIF <> 'PROMOS'"$)
+			For i = 0 To d.RowCount - 1
+				d.Position = i
+			
+			
+				Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${d.GetString("HVD_PROID")}'and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
+				Private resta As String = 0
+					
+				If c3.RowCount > 0 Then
+					c3.Position = 0
+					resta =  c3.GetString("PE_CANT")
+				Else
+					resta = 0
+				End If
+				If ( d.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
+			
+				Else
+					CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("HVD_PROID"), d.GetString("HVD_PRONOMBRE"),(d.GetInt("HVD_RECHAZOCANT") - resta)),i)
+				End If
+			
+			
+			Next
+		End If
+		paso1 = 0
+	Else
+			et_codigo.Text = ""
+		Msgbox("Password No valido","Atención") 'ignore
+	End If
+	End If
+	
 	If reqs.Size = 0 Then
 		
 		
@@ -2717,91 +3040,11 @@ Private Sub p_prod_Click
 End Sub
 
 Private Sub b_venta_emp_Click
-	Starter.skmt.ExecNonQuery("delete from CUENTAA")
-	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("63403"))
-
-	Subs.panelVisible(P_CIEGO,0,0)
-	P_CIEGO.Width = Root.Width
-	P_CIEGO.Height = Root.Height
 	
-	CLV_PICK_CIEGO.Clear
-
-	Private c As Cursor = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID, ifnull(PC_CANT,0) AS PC_CAN from HIST_VENTAS INNER JOIN PICK_CIEGO ON PC_ID_PROD = HVD_PROID WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 and  HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
-	If c.RowCount > 0 Then
-		
-		
-		For i = 0 To c.RowCount - 1
-			c.Position = i
-			
-			
-			Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${c.GetString("HVD_PROID")}' and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
-			Private resta As String = 0
-					
-			If c3.RowCount > 0 Then
-				c3.Position = 0
-				resta =  c3.GetString("PE_CANT")
-			Else
-				resta = 0
-			End If
-			If ( c.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
-			
-			Else
-				CLV_PICK_CIEGO.Add(CreateListItem(c.GetString("HVD_PROID"), c.GetString("HVD_PRONOMBRE"), c.GetString("PC_CAN"),(c.GetInt("HVD_RECHAZOCANT") - resta)),i)
-			End If
-			
-			
-		Next
-
-		d = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0  and HVD_PROID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO)  and HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
-				
-		For i = 0 To d.RowCount - 1
-			d.Position = i
-			
-			
-			Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${d.GetString("HVD_PROID")}' and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
-			Private resta As String = 0
-					
-			If c3.RowCount > 0 Then
-				c3.Position = 0
-				resta =  c3.GetString("PE_CANT")
-			Else
-				resta = 0
-			End If
-			If ( d.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
-			
-			Else
-				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("HVD_PROID"), d.GetString("HVD_PRONOMBRE"),(d.GetInt("HVD_RECHAZOCANT") - resta)),i)
-			End If
-			
-			
-		Next
-		
-	Else If c.RowCount = 0 Then
-		d = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 and HVD_PRONOMBRE <> 'Cobranza Pendiente' GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
-'		d=Starter.skmt.ExecQuery($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE CAT_GP_CLASIF <> 'PROMOS'"$)
-		For i = 0 To d.RowCount - 1
-			d.Position = i
-			
-			
-			Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${d.GetString("HVD_PROID")}'and PE_TIPO NOT IN ('DANADO','FALTANTE','SOBRANTE')"$)
-			Private resta As String = 0
-					
-			If c3.RowCount > 0 Then
-				c3.Position = 0
-				resta =  c3.GetString("PE_CANT")
-			Else
-				resta = 0
-			End If
-			If ( d.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
-			
-			Else
-				CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("HVD_PROID"), d.GetString("HVD_PRONOMBRE"),(d.GetInt("HVD_RECHAZOCANT") - resta)),i)
-			End If
-			
-			
-		Next
-	End If
-
+	p_validacion.Visible = True
+	p_validacion.Width = Root.Width
+	p_validacion.Height = Root.Height
+	
 End Sub
 
 'Private Sub connecta_LongClick
@@ -3632,4 +3875,35 @@ Sub CreateListItem2(Id_prod As String, Prod As String,cantreal As String) As Pan
 	'cxc.Id_prod = mostrar3
 	'Log(pa.Width)
 	Return pa
+End Sub
+
+Private Sub connecta_LongClick
+	imp_LIQUIDACION
+End Sub
+
+Private Sub b_comodin_Click
+	Starter.skmt.ExecNonQuery("delete from CUENTAA")
+	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("100000"))
+	B4XPages.ShowPage("Cliente")
+End Sub
+
+Private Sub b_aceptar_Click
+	If et_codigo.Text <> "" Then
+		
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_PASS_IZCA_REPG"
+		cmd.Parameters = Array As Object(ALMACEN)
+		reqManager.ExecuteQuery(cmd , 0, "contra")
+		
+	End If
+End Sub
+
+Private Sub b_cancelarcodigo_Click
+	p_validacion.Visible = False
+	et_codigo.Text = ""
+End Sub
+
+Private Sub p_validacion_Click
+	
 End Sub

B4A/EscPosPrinter.bas

@@ -524,7 +524,7 @@ Version=9.3
 '' Create the value to draw a box in a custom character
 '' The box top left start is X0,Y0 and bottom right is X1,Y1
 'Public Sub CreateBox(x0 As Int, y0 As Int, x1 As Int, y1 As Int, fill As Boolean) As Int
-'	Dim box As Int = 0x10000000
+'	Dim box As Int = 0x100000000
 '	If fill Then box = box + 0x80000000
 '	box = box + Bit.ShiftLeft(Bit.And(0xf,x0), 24)
 '	box = box + Bit.ShiftLeft(Bit.And(0x1f,y0), 16)
@@ -1668,7 +1668,7 @@ End Sub
 ' Create the value to draw a box in a custom character
 ' The box top left start is X0,Y0 and bottom right is X1,Y1
 Public Sub CreateBox(x0 As Int, y0 As Int, x1 As Int, y1 As Int, fill As Boolean) As Int
-	Dim box As Int = 0x10000000
+	Dim box As Int = 0x100000000
 	If fill Then box = box + 0x80000000
 	box = box + Bit.ShiftLeft(Bit.And(0xf,x0), 24)
 	box = box + Bit.ShiftLeft(Bit.And(0x1f,y0), 16)

B4A/Izca_Reparto.b4a

@@ -3018,7 +3018,7 @@ Version=12.8
 #Region Project Attributes 
 	#ApplicationLabel: Izca Reparto
 	#VersionCode: 1
-	#VersionName: 5.09.14
+	#VersionName: 5.09.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Izca_Reparto.b4a.meta

@@ -91,6 +91,6 @@ ModuleClosedNodes6=18,19,20,21
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,B_CLIEPROD_Click,2471,6,Diseñador Visual,principal.bal,-100,6,C_Cliente,Class_Globals,75,0,C_Cliente,B4XPage_Appear,409,6,C_Principal,B4XPage_Appear,207,6,Diseñador Visual,cliente.bal,-100,1,C_Principal,JobDone,1701,0,C_Principal,cargar____Click,1512,0,C_Principal,cargar_Click,1357,0,C_Principal,connecta_Click,2276,0,C_Principal,b_venta_emp_Click,2757,5
+NavigationStack=B4XMainPage,Entrar_Click,295,0,Subs,traefECHAPREV,1042,0,C_Principal,p_validacion_Click,3891,0,C_Principal,Class_Globals,80,0,B4XMainPage,JobDone,524,0,Diseñador Visual,principal.bal,-100,6,C_Principal,JobDone,2541,6,C_Principal,b_aceptar_Click,3884,6,C_Principal,b_cancelarcodigo_Click,3895,5,C_Principal,connecta_LongClick,3876,0,C_Principal,B4XPage_Appear,264,0
 SelectedBuild=0
 VisibleModules=1,2,3,4,5,6,7,8,9,10,16

B4A/MAPA_RUTAS.bas

@@ -127,7 +127,7 @@ Sub MapFragment1_Ready
 	Private esteAzul2 As String
 	If azul = 1 Or todos = 1  Then
 		c.IsInitialized
-		c = Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_RUTA from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
+		c = Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_RUTA from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO NOT IN ('63403','100000') order by CAT_CL_RUTA")
 		rutaAnt = ""
 		For i = 0 To c.RowCount -1
 			c.Position = i
@@ -173,7 +173,7 @@ Sub MapFragment1_Ready
 	If verde = 1 Or todos = 1  Then
 		rutaAnt = ""
 		c2.IsInitialized
-		c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
+		c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO NOT IN ('63403','100000') order by CAT_CL_RUTA")
 		For i = 0 To c2.RowCount -1
 			c2.Position = i
 			LongitudRU = c2.GetString("CAT_CL_LONG")
@@ -199,7 +199,7 @@ Sub MapFragment1_Ready
 		If verde = 1 Or todos = 1  Then
 			rutaAnt = ""
 			c2.IsInitialized
-			c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
+			c2=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO NOT IN ('63403','100000') order by CAT_CL_RUTA")
 			For i = 0 To c2.RowCount -1
 				c2.Position = i
 				LongitudRU = c2.GetString("CAT_CL_LONG")
@@ -220,7 +220,7 @@ Sub MapFragment1_Ready
 	If rojo = 1 Or todos = 1 Then
 		rutaAnt = ""
 		c3.IsInitialized
-		c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
+		c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, IFNULL(SECUENCIA,0) AS SECUENCIA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO NOT IN ('63403','100000') order by CAT_CL_RUTA")
 		For i = 0 To c3.RowCount -1
 			c3.Position = i
 			LongitudRU = c3.GetDouble("CAT_CL_LONG")
@@ -247,7 +247,7 @@ Sub MapFragment1_Ready
 		If rojo = 1 Or  todos = 1  Then
 			rutaAnt = ""
 			c3.IsInitialized
-			c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO <> 63403 order by CAT_CL_RUTA")
+			c3=Starter.skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_RUTA from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 AND CAT_CL_CODIGO NOT IN ('63403','100000') order by CAT_CL_RUTA")
 			For i = 0 To c3.RowCount -1
 				c3.Position = i
 				LongitudRU = c3.GetDouble("CAT_CL_LONG")

B4A/Objects/AndroidManifest.xml

@@ -3,7 +3,7 @@
 	xmlns:android="http://schemas.android.com/apk/res/android"
 	package="reparto_izca.keymon.lat"
 	android:versionCode="1"
-	android:versionName="5.09.14"
+	android:versionName="5.09.20"
 	android:installLocation="internalOnly">
 	
 	<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>