cambio de servidor

2026-04-20 22:39:16 +00:00 · 2025-06-04 13:50:10 -06:00
parent c1df998ed6
commit cfe90f8b53
861 changed files with 122055 additions and 24055 deletions
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -175,7 +175,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub

 Sub B4XPage_Appear
-	
 	lVersionName.Text = "Version: " & Application.VersionName
 	Private c As Cursor = Starter.skmt.ExecQuery("SELECT * FROM NOVENTA")
 	If c.RowCount > 0 Then
@@ -183,7 +182,7 @@ Sub B4XPage_Appear
 	End If
 	Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
 	If c.RowCount > 0 Then
-		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA WHERE NV_MOTIVO <> 'ENTREGA')")
+		Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3  WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA WHERE NV_MOTIVO <> 'ENTREGA' AND NV_MOTIVO <> 'ENTREGA')")
 	End If

 	b_check.visible = False
@@ -210,6 +209,7 @@ Sub B4XPage_Appear
 		img2.Visible =False
 	End If
 	l_ruta.Text = 0
+	
 	f=Starter.skmt.ExecQuery("select rutaa from rutaa")
 	If f.RowCount > 0 Then
 		f.Position = 0
@@ -406,7 +406,7 @@ Sub B4XPage_Appear
 	
 	
 	''' RECHAZO - VENTA
-	Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' ORDER BY HVD_PROID "$)
+	Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' ORDER BY HVD_CLIENTE, HVD_PROID "$)

 	Private rescant As String = 0
 	If r5.RowCount > 0 Then
@@ -422,7 +422,7 @@ Sub B4XPage_Appear
 				totalcantped = 0
 			End If
 			
-			Log(r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped)
+			Log(r5.GetString("HVD_CLIENTE")&"----    ID    "  &r5.GetString("HVD_PROID")&"   /////   "&r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped&"  $$$$$$$$$$$$   "& ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*((r5.GetString("HVD_RECHAZOCANT") - totalcantped))))
 			rescant = rescant + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*((r5.GetString("HVD_RECHAZOCANT") - totalcantped)))
 '			Log(rescant)
 			r6.Close
@@ -878,7 +878,7 @@ Sub envioinfo
 	End If
    
 	' HIST_VENTAS para actualización
-	c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
+	c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RUTA, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS_OR AS BCAJAS, CANTC_OR AS CANTC FROM HIST_VENTAS")
 	If c.RowCount > 0 Then
 		Log($"Procesando HIST_VENTAS (actualización): ${c.RowCount} registros"$)
 		totalRegistros = totalRegistros + c.RowCount
@@ -997,7 +997,8 @@ Sub cargar_Click
 		End If
 	End If
 	If Not (pedidodiaanterior) Then
-	Log("CUMPLE")
+		
+		Log("CUMPLE")
 		EJECUTANDO = 1
 		reqs.Initialize
 		TOPE = 0
@@ -1043,12 +1044,12 @@ Sub cargar_Click
 		reqs.Add("punteo")

 '		If l_ruta.Text = "0" Then
-			cmd.Initialize
-			cmd.Name = "select_almacen_MAZAPA_re_REPG2"
-			cmd.Parameters = Array As Object(ALMACEN)
-			reqManager.ExecuteQuery(cmd , 0, "gunaprod")
-			Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
-			reqs.Add("gunaprod")
+		cmd.Initialize
+		cmd.Name = "select_almacen_MAZAPA_re_REPG2"
+		cmd.Parameters = Array As Object(ALMACEN)
+		reqManager.ExecuteQuery(cmd , 0, "gunaprod")
+		Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
+		reqs.Add("gunaprod")
 '		End If


@@ -1123,6 +1124,9 @@ Sub cargar_Click
 		ProgressDialogShow2("Descargando rutas, espere un momento.", False)
 		If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
 	
+		Starter.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
+		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
+		
 	
 	Else
 		Log("XXXX")
@@ -1131,6 +1135,26 @@ Sub cargar_Click
 	
 End Sub

+Sub cargadedia
+	imei = "" 'p.GetDeviceId
+	conn = "1"
+	ime.HideKeyboard
+'	Dim cmd As DBCommand
+'	cmd.Initialize
+'	cmd.Name = "select_version_MAZAPA"
+'	reqManager.ExecuteQuery(cmd , 0, "version")
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_ruta_re_REPG_MAZAPA7"
+	cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, imei)
+'		Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
+	reqManager.ExecuteQuery(cmd , 0, "ruta")
+	ToastMessageShow("Validando Conexión." , True)
+	Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
+	Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
+	B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
+End Sub
+
 Sub JobDone(Job As HttpJob)
 '	Private r As DBResult = reqManager.HandleJob(Job)
 	Log(todosRequest)
@@ -1393,8 +1417,8 @@ Sub JobDone(Job As HttpJob)
 					reqs.RemoveAt(reqs.IndexOf("hist_datos"))
 '					Log(reqs.Size)
 				End If
-				Log(l_ruta.text)
-				Log($"********  Insertamos HV - ${result.Rows.Size}"$)
+'				Log(l_ruta.text)
+'				Log($"********  Insertamos HV - ${result.Rows.Size}"$)
 				Starter.skmt.BeginTransaction
 				Dim consecutivo  As Int= 0
 				For Each records() As Object In result.Rows
@@ -1412,25 +1436,27 @@ Sub JobDone(Job As HttpJob)
 					Dim bcajas As String = records(result.Columns.Get("HVD_BCAJAS"))
 					Dim cantc As String = records(result.Columns.Get("HVD_CANTC"))
 					Dim HVD_RUTA As String = records(result.Columns.Get("HVD_RUTA"))
+					Dim HVD_LISTAPRECIO As String = records(result.Columns.Get("HVD_LISTAPRECIO"))
+'					Dim HVD_LISTAPRECIO As String = 1
 '					Log("  ++  insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
 					consecutivo = consecutivo +1
 					If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
-						Log("No hay ruta, guardamos todos")
-						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA))
+'						Log("No hay ruta, guardamos todos")
+						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA, HVD_LISTAPRECIO) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA,HVD_LISTAPRECIO))
 						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
 					Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
 '						Log("Hay ruta, guardamos los nuevos")
 						Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
 						If tc.RowCount = 0 Then
-							Log($"Guardamos ${HVD_CLIENTE}"$)
-							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA))
+'							Log($"Guardamos ${HVD_CLIENTE}"$)
+							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR, HVD_RUTA, HVD_LISTAPRECIO) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?, ?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc, HVD_RUTA,HVD_LISTAPRECIO))
 							Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
 						End If
 					End If
 				Next
 				Starter.skmt.TransactionSuccessful
 				Starter.skmt.EndTransaction
-				Log($"********  Terminamos HV - ${result.Rows.Size}"$)
+'				Log($"********  Terminamos HV - ${result.Rows.Size}"$)
 '				f2=Starter.skmt.ExecQuery2("select COUNT(*) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
 '				f2.Position = 0
 '				If f2.GetString("CAMBIOS") > 0 Then
@@ -1560,7 +1586,7 @@ Sub JobDone(Job As HttpJob)
 			If result.Tag = "ruta" Then 'query tag
 				If reqs.IndexOf("ruta") > -1 Then
 					reqs.RemoveAt(reqs.IndexOf("ruta"))
-					Log(reqs.Size)
+'					Log(reqs.Size)
 				End If
 				For Each records() As Object In result.Rows
 					Dim VALIDO As String = records(result.Columns.Get("VALIDO"))
@@ -1595,7 +1621,7 @@ Sub JobDone(Job As HttpJob)
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "coords_almacen" Then 'query tag
 				For Each records() As Object In result.Rows
-					Log("Coordenadas del almacen: " & records(result.Columns.Get("CAT_AL_LATITUD")) & "," & records(result.Columns.Get("CAT_AL_LONGITUD")))
+'					Log("Coordenadas del almacen: " & records(result.Columns.Get("CAT_AL_LATITUD")) & "," & records(result.Columns.Get("CAT_AL_LONGITUD")))
 					Private lat, lon As Double
 					lat = 0.0
 					lon = 0.0
@@ -1617,7 +1643,7 @@ Sub JobDone(Job As HttpJob)
 			If result.Tag = "ins_reparto" Then 'query tag
 				For Each records() As Object In result.Rows
 					For Each k As String In result.Columns.Keys
-						Log(k & ": " & records(result.Columns.Get(k)))
+'						Log(k & ": " & records(result.Columns.Get(k)))
 					Next
 				Next
 			End If
@@ -1628,7 +1654,7 @@ Sub JobDone(Job As HttpJob)
 			If result.Tag = "ins_rechazos" Then 'query tag
 				For Each records() As Object In result.Rows
 					For Each k As String In result.Columns.Keys
-						Log(k & ": " & records(result.Columns.Get(k)))
+'						Log(k & ": " & records(result.Columns.Get(k)))
 					Next
 				Next
 			End If
@@ -1654,11 +1680,11 @@ Sub JobDone(Job As HttpJob)
 '		Log(reqs.size)
 '		Log("Terminamos lo descarga de ruta!")
 	End If
-	Log("---------------------------------------------------")
-	Log(totalRegistrosTotales)
-	Log(successfulRequests)
-	Log(todosRequest)
-	Log(NumberFormat2(((todosRequest/ totalRegistrosTotales ) * 100),1,0,0,False))
+'	Log("---------------------------------------------------")
+'	Log(totalRegistrosTotales)
+'	Log(successfulRequests)
+'	Log(todosRequest)
+'	Log(NumberFormat2(((todosRequest/ totalRegistrosTotales ) * 100),1,0,0,False))
 	'Aqui voy a cambiar el porcentaje de mi barra de avance.
 	If totalRegistrosTotales > 0 Then
 		pbEnvioInfo.Progress = NumberFormat2(((todosRequest/ totalRegistrosTotales ) * 100),1,0,0,False)
@@ -1669,8 +1695,8 @@ Sub JobDone(Job As HttpJob)
 			lEnviaInfo.Text = "Enviando Informacion:   %" & pbEnvioInfo.Progress
 		End If
 	End If
-	Log("---------------------------------------------------")
-	Log(todosRequest >= totalRegistrosTotales)
+'	Log("---------------------------------------------------")
+'	Log(todosRequest >= totalRegistrosTotales)
 	
 	If todosRequest < totalRegistrosTotales Then
 		
@@ -1705,24 +1731,31 @@ Sub connecta_Click
 	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
 	If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
 	If e_ruta.Text <> "" Then
-		imei = "" 'p.GetDeviceId
-		conn = "1"
-		ime.HideKeyboard
-		Dim cmd As DBCommand
-		cmd.Initialize
-		cmd.Name = "select_version_MAZAPA"
-		reqManager.ExecuteQuery(cmd , 0, "version")
-		Dim cmd As DBCommand
-		cmd.Initialize
-		cmd.Name = "select_ruta_re_REPG_MAZAPA6"
-		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, imei)
-'		Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
-		reqManager.ExecuteQuery(cmd , 0, "ruta")
-		ToastMessageShow("Validando Conexión." , True)
-		Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
-		Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
-		B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
+		
+		Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
+		If rut.RowCount = 0 Then
+			cargadedia
+			Log(1.1)
+		Else
+			rut.Position = 0
+			Dim rutaquetraje As String= rut.GetString("RUTAA")
+			If rutaquetraje = e_ruta.Text Then
+				cargadedia
+				Log(2.1)
+			Else
+				Log(2.2)
+				MsgboxAsync("Cargaste una ruta diferente. Por favor haz FIN DIA e intenta nuevamente.","Atención")
+			End If
+		End If
+		
 	End If
+	
+'	If l_ruta.Text = 0 Then
+'		Subir.Visible = False
+'	Else
+'		Subir.Visible = True
+'	End If
+	
 End Sub

 Sub BUSCA_Click
@@ -1744,7 +1777,10 @@ Sub e_ruta_EnterPressed
 		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
 			e_ruta.Text = ""
+			Starter.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
+			Starter.skmt.ExecNonQuery("delete from GPS")
 			Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
+			Starter.skmt.ExecNonQuery("delete from REPARTO_GEO")
 			Starter.skmt.ExecNonQuery("delete from pedido_cliente")
 			Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
 			Starter.skmt.ExecNonQuery("delete from CHECKLIST2")
@@ -2127,4 +2163,24 @@ End Sub

 Private Sub pEnvioInfo_Click
 	
+End Sub
+
+Private Sub connecta_LongClick
+	c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
+	If c.RowCount>0 Then
+		Log($"Procesando REPARTO_GEO: ${c.RowCount} registros"$)
+		totalRegistros = totalRegistros + c.RowCount
+		totalRegistrosTotales = totalRegistrosTotales + c.RowCount
+		Log($"Total acumulado: ${totalRegistros}"$)
+        
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "insert_REPARTO_MAZAPA"
+			cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
+			reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
+		Next
+	End If
+	c.Close
 End Sub