B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=12.8
@EndOfDesignText@
Sub Class_Globals
	Dim reqManager As DBRequestManager
	Dim cmd As DBCommand
	Dim b, c, d, f As Cursor
	Dim almacen, perfil, cuantos, NUMERO_PEDIDO, usuario, cuantos_exib, cuantos_pedidosc, cuantos_noventa, cuantos_ped, cuantos_pedido As String
	Dim l_ruta As Label
	Dim foto1() As Byte
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
	
End Sub

Sub envia
	' NOVENTA
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
	D=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			foto1 = c.GetBlob("NV_FOTO")
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_reparto_noventa_MARQUEZ_REPG"
			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), almacen, l_ruta.Text)
			reqManager.ExecuteCommand(cmd ,  "inst_noventa")
		Next
		c.Close
	End If
	d.Position=0
	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
	d.Close
	c=B4XPages.MainPage.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1")
	'
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_rep_hist_ventas_marquez_REPG"
			cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), almacen)
			reqManager.ExecuteCommand(cmd , "inst_noventa")
		Next
		c.Close
	End If
'	pedido
	c=B4XPages.MainPage.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_pedido_REP_marquez"
			cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), 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_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
			reqManager.ExecuteCommand(cmd , "ins_pedido_marquez")
		Next
		c.Close
	End If
	
	
'	reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from reparto")
	If c.RowCount > 0 Then
		Private folio As String = Subs.hmsKMT
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insertReparto_marquez"
			cmd.Parameters = Array As Object(folio, C.GetString("REP_FECHA"), C.GetString("REP_CLIENTE"), C.GetString("REP_CLI_ORIG"), C.GetString("REP_PRODID"), C.GetString("REP_PRONOMBRE"), C.GetString("REP_PRODREGISTRO"), C.GetString("REP_CANT"), C.GetString("REP_PRECIO"), C.GetString("REP_COSTO_TOT"), C.GetString("REP_RECHAZO"),almacen,l_ruta.Text)
			reqManager.ExecuteCommand(cmd , "ins_reparto")
		Next
		c.Close
	End If
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from rechazos")
	If c.RowCount > 0 Then
		Private folio As String = Subs.hmsKMT
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insertRechazos_marquez"
			cmd.Parameters = Array As Object(folio, C.GetString("R_FECHA"), C.GetString("R_CLIENTE"), C.GetString("R_CLI_ORIG"), C.GetString("R_PRODID"), C.GetString("R_CANT"), C.GetString("R_RECHAZO"),almacen,l_ruta.Text)
			reqManager.ExecuteCommand(cmd , "ins_rechazos")
		Next
		c.Close
	End If
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from ventas")
	If c.RowCount > 0 Then
		Private folio As String = Subs.hmsKMT
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insertVentas_marquez"
			cmd.Parameters = Array As Object(folio, C.GetString("V_FECHA"), C.GetString("V_CLIENTE"), C.GetString("V_CLI_ORIG"), C.GetString("V_PRODID"), C.GetString("V_CANT"), C.GetString("V_RECHAZO"),almacen,l_ruta.Text)
			reqManager.ExecuteCommand(cmd , "ins_ventas")
		Next
		c.Close
	End If
	'TABULADOR
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
	d = B4XPages.MainPage.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
	b = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
	f = B4XPages.MainPage.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
	d.Position = 0
	b.Position = 0
	f.Position = 0
	If c.RowCount > 0 Then
		For i = 0 To c.RowCount - 1
			c.Position=i
			Dim cmd As DBCommand
			Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
			Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
			Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
			cmd.Initialize
			cmd.Name = "insert_tabulador_monedas_MARQUEZ"
			cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
			reqManager.ExecuteCommand(cmd , "ins_tabulador_mon")
		Next
		c.Close
		d.Close
		b.Close
		f.Close
	End If
	
	c = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO FROM HIST_VENTAS")
	If c.RowCount > 0 Then
		For i=0 To c.RowCount -1
			c.Position = i
			Private d4 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
			d4.Position = 0
			
			Private d5 As Cursor =  B4XPages.MainPage.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
			d5.Position = 0
			Private restacant As String = d5.GetString("PE_CANT")
			d5.Close
			
			Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
			Dim fecha2() As String = Regex.Split("-", fecha1(0))
			Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
			Log(fecha3)
			Dim hora() As String = Regex.Split("\.", fecha1(1))
			Log(hora(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)
			If c.GetString("HVD_RECHAZOCANT") <> "0" Then
				Log((c.GetString("HVD_RECHAZOCANT")-restacant))
				cmd.Initialize
				cmd.Name = "update_HVD_MARQUEZrep"
				cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),almacen,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
				reqManager.ExecuteCommand(cmd, "update_hvd")
			Else
				cmd.Initialize
				cmd.Name = "update_HVD_MARQUEZrep"
				cmd.Parameters = Array As String("","","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),almacen,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
				reqManager.ExecuteCommand(cmd, "update_hvd")
			End If
			d4.Close
		Next
	End If
	c.Close


	c = B4XPages.MainPage.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
	d = B4XPages.MainPage.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
	b = B4XPages.MainPage.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
	f = B4XPages.MainPage.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
	d.Position = 0
	b.Position = 0
	f.Position = 0
	If c.RowCount > 0 Then
		For i = 0 To c.RowCount - 1
			c.Position=i
			Dim cmd As DBCommand
			Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
			Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
			Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
			cmd.Initialize
			cmd.Name = "insert_tabulador_billetes_MARQUEZ"
			cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3)
			reqManager.ExecuteCommand(cmd , "ins_tabulador_bill")
		Next
		c.Close
		d.Close
		b.Close
		f.Close
	End If
	'FIN TABULADOR
	
'	Dim cmd As DBCommand
'	cmd.Initialize
'	cmd.Name = "insert_drop_rep_marquez"
'	cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, almacen, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
'	reqManager.ExecuteCommand(cmd , "inst_drop")
'	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub

' Nuevo método para inicializar el manager con el Target correcto
Public Sub ConfigurarYEnviar(ServidorURL As String)
	' 'Me' aquí es C_Intmex, asegurando que C_Intmex.JobDone sea llamado.
	reqManager.Initialize(Me, ServidorURL)
	envia ' Llama a la función de envío original de C_Intmex
End Sub

Sub JobDone(Job As HttpJob)
	Log("JOBDONE")
	Log(reqManager.link)
	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
		End If
		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
	End If
	If Job.Success = False Then
		LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
	Else 'If Job Success then ...
		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0))  'Mod por CHV - 211027
		Log(reqManager.reqsList.size)
		If reqManager.reqsList.size = 0 Then B4XPages.MainPage.p_progressDialog.Visible = False
	End If
	Job.Release
End Sub