AREstrategicas/B4A/C_principal.bas

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=12.2
@EndOfDesignText@
Sub Class_Globals
	Private Root As B4XView 'ignore
	Private xui As XUI 'ignore
	Private l_cuentasportrabajar As Label
	Private l_cuentrastrabajadas As Label
	Private l_credito As Label
	Private l_estatus As Label
	Private l_nombre As Label
	Private l_direccion As Label
	Private clv_cuentas As CustomListView
	Dim reqManager As DBRequestManager
	Dim trabajos = 0 As Int
	Dim c As Cursor
	Dim d As Cursor
	Dim e As Cursor
	Private p_cuenta As Panel
	Dim lb As Label
	
	Private et_findia As EditText
	Private b_enviar As Button
	Private et_busqueda As EditText
	Private l_creditoges As Label
	Private l_estatusges As Label
	Private l_nombreges As Label
	Private l_direccionges As Label
	Private l_fechagestion As Label
	Private l_resultadoges As Label
	Private Label3 As Label
	Private paneltop As Panel
	Private Panel4 As Panel
	Dim IME As IME
	
	Dim trabajos2 As Int = 0
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
	Return Me
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	'load the layout to Root
	Root.LoadLayout("principal")

	
	IME.Initialize("IME")
	IME.AddHeightChangedEvent
	IME_HeightChanged(100%y, 0)
	
	Starter.skmt.ExecNonQuery("delete from TIPO_VIVIENDA")
	Starter.skmt.ExecNonQuery("delete from NIVEL_SOCIO")
	Starter.skmt.ExecNonQuery("delete from CARACTERISTICAS")
	Starter.skmt.ExecNonQuery("delete from NUMERO_NIV")
	Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("Selecciona una opción","0"))
	Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("DEPTO","1"))
	Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("CASA","2"))
	Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("OTRO","3"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NIVEL_SOCIO(NIVEL, NUMERO) VALUES(?,?)", Array As Object ("Selecciona una opción","0"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NIVEL_SOCIO(NIVEL, NUMERO) VALUES(?,?)", Array As Object ("ALTO","1"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NIVEL_SOCIO(NIVEL, NUMERO) VALUES(?,?)", Array As Object ("MEDIO","2"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NIVEL_SOCIO(NIVEL, NUMERO) VALUES(?,?)", Array As Object ("BAJO","3"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NIVEL_SOCIO(NIVEL, NUMERO) VALUES(?,?)", Array As Object ("OTRO","4"))
	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("Selecciona una opción","0"))
	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("PROPIA","1"))
	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("RENTADA","2"))
	Starter.skmt.ExecNonQuery2("INSERT INTO CARACTERISTICAS(TIPO, NUMERO) VALUES(?,?)", Array As Object ("OTRO","3"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("Selecciona una opción","0"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("1","1"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("2","2"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("3","3"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("4","4"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("5","5"))
	Starter.skmt.ExecNonQuery2("INSERT INTO NUMERO_NIV(NIVELES, NUMERO) VALUES(?,?)", Array As Object ("6","6"))
End Sub

Sub B4XPage_Appear
	reqManager.Initialize(Me, Starter.DBReqServer)
	d = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS, CARGADO FROM CARGADO")
	d.Position = 0
	If d.GetString("CUANTOS") > 0 Then
		If d.GetString("CARGADO") = "1" Then
			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2 order by 1")
				
			clv_cuentas.Clear
			For i = 0 To c.RowCount - 1
				c.Position = i
				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
			Next
			c.Close
		End If
	End If
	d.Close
	
	c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> ?",Array As String(2))
	c.Position = 0
	Log(c.GetString("CUANTOS"))
	l_cuentasportrabajar.Text = c.GetString("CUANTOS")
	c.Close
	
	c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 = 2")
	c.Position = 0
	Log(c.GetString("CUANTOS"))
	l_cuentrastrabajadas.Text = c.GetString("CUANTOS")
	c.Close
	
	Label3.Text = "Cuentas"
	l_cuentasportrabajar.TextColor = Colors.White
	l_cuentasportrabajar.Color = Colors.Red
	l_cuentrastrabajadas.TextColor = Colors.Black
	l_cuentrastrabajadas.Color = Colors.White
End Sub

Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
	paneltop.Top = NewHeight - paneltop.Height
	Panel4.Height = paneltop.Top - Panel4.Top
End Sub

Private Sub b_carga_Click
	trabajos = 0

	Dim cmd As DBCommand
	cmd.Initialize
	
	
	cmd.Name = "select_datosgenerales_AR"
	cmd.Parameters = Array As Object(B4XPages.MainPage.user)
	reqManager.ExecuteQuery(cmd , 0, "datosgenerales")
	trabajos = trabajos + 1
	
	cmd.Name = "select_datosfinancieros_AR"
	cmd.Parameters = Array As Object(B4XPages.MainPage.user)
	reqManager.ExecuteQuery(cmd , 0, "datosfinancieros")
	trabajos = trabajos + 1
	
	cmd.Name = "select_fuentes_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "fuente")
	trabajos = trabajos + 1
	
	cmd.Name = "select_parentesco_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "parentesco")
	trabajos = trabajos + 1
	
	cmd.Name = "select_accion_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "accion")
	trabajos = trabajos + 1
	
	cmd.Name = "select_resultado_MA_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "resultado_MA")
	trabajos = trabajos + 1
	
	cmd.Name = "select_resultado_VC_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "resultado_VC")
	trabajos = trabajos + 1
	
	cmd.Name = "select_resultado_CA_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "resultado_CA")
	trabajos = trabajos + 1
	
	cmd.Name = "select_resultado_BR_AR"
	cmd.Parameters = Array As Object()
	reqManager.ExecuteQuery(cmd , 0, "resultado_BR")
	trabajos = trabajos + 1
	
	ProgressDialogShow("Cargando")
End Sub

Private Sub l_cuentrastrabajadas_Click
	
	d = Starter.skmt.ExecQuery("SELECT RESULTADO, FECHA, CREDITO FROM HIST_VISITA  WHERE ESTATUS = 2")
	
	clv_cuentas.Clear
	For i = 0 To d.RowCount - 1
		d.Position = i
		c = Starter.skmt.ExecQuery2("SELECT NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE CREDITO = ? ",Array As String(d.GetString("CREDITO")))
		c.Position = 0
		clv_cuentas.Add(CreateListItem2(d.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS"), d.GetString("FECHA"),d.GetString("RESULTADO")),i)
	Next
	d.Close
	l_cuentasportrabajar.TextColor = Colors.Black
	l_cuentasportrabajar.Color = Colors.White
	l_cuentrastrabajadas.TextColor = Colors.White
	l_cuentrastrabajadas.Color = Colors.Red
	Label3.Text = "Cuentas gestionadas"
	
End Sub

Private Sub l_cuentasportrabajar_Click
	d = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS, CARGADO FROM CARGADO")
	d.Position = 0
	If d.GetString("CUANTOS") > 0 Then
		If d.GetString("CARGADO") = "1" Then
			c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2 order by 1")
				
			clv_cuentas.Clear
			For i = 0 To c.RowCount - 1
				c.Position = i
				clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
			Next
			c.Close
		End If
	End If
	d.Close
	
	Label3.Text = "Cuentas"
	l_cuentasportrabajar.TextColor = Colors.White
	l_cuentasportrabajar.Color = Colors.Red
	l_cuentrastrabajadas.TextColor = Colors.Black
	l_cuentrastrabajadas.Color = Colors.White
End Sub

Sub CreateListItem2(cred As String, nom As String, call As String, status As String, fechages As String, resulges As String) As Panel
	Dim p As B4XView = xui.CreatePanel("")
'	p.SetLayoutAnimated(0, 0, 0, 1, 115)
	p.LoadLayout("gestionadas")
	p.Height= 183dip
'	p.Width = clv_orden.GetBase.Width
	l_creditoges.Text = cred
	l_estatusges.Text = status
	l_nombreges.Text = nom
	l_direccionges.Text = call
	l_fechagestion.Text = fechages
	l_resultadoges.Text = resulges
'	Log(p.Width)
	Return p
End Sub

Sub CreateListItem(cred As String, nom As String, call As String, status As String) As Panel
	Dim p As B4XView = xui.CreatePanel("")
'	p.SetLayoutAnimated(0, 0, 0, 1, 115)
	p.LoadLayout("cuenta")
	p.Height= 112dip
'	p.Width = clv_orden.GetBase.Width
	l_credito.Text = cred
	l_estatus.Text = status
	l_nombre.Text = nom
	l_direccion.Text = call
'	Log(p.Width)
	Return p
End Sub

Private Sub p_cuenta_Click
	Log("si lo hice")
	
	Dim Index As Int = clv_cuentas.GetItemFromView(Sender)
	Dim pnl As B4XView = clv_cuentas.GetPanel(Index).GetView(0)
	lb = pnl.GetView(0)
	Log(lb.Text)
	

	
	B4XPages.ShowPage("datos")
End Sub

Sub JobDone(Job As HttpJob)
	If Not(Job.Success) Then
		ToastMessageShow("Error: " & Job.ErrorMessage, True)
	Else
		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)
		If Job.JobName = "DBRequest" Then
			Dim result As DBResult = reqManager.HandleJob(Job)
			
			If result.Tag = "datosgenerales" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from HIST_DATOS_GENERALES2")
				Starter.skmt.ExecNonQuery("delete from HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2")
				Starter.skmt.ExecNonQuery("delete from HIST_VISITA WHERE ESTATUS <> 2")
				Starter.skmt.ExecNonQuery("delete from CARGADO")
				Starter.skmt.ExecNonQuery2("INSERT INTO CARGADO(CARGADO) VALUES(?)", Array As Object ("0"))
				trabajos = trabajos - 1
				
				Starter.skmt.BeginTransaction
				
				For Each records() As Object In result.Rows
					
					Dim credito As String = records(result.Columns.Get("PR_KT_CREDITO"))
					Dim nombre As String = records(result.Columns.Get("PR_CD_NOMBRE"))
					Dim rfc As String = records(result.Columns.Get("PR_CD_RFC"))
					Dim curp As String = records(result.Columns.Get("PR_CD_CURP"))
					Dim calle As String = records(result.Columns.Get("PR_CD_CALLE"))
					Dim n_ext As String = records(result.Columns.Get("PR_CD_NUM_EXT"))
					Dim n_int As String = records(result.Columns.Get("PR_CD_NUM_INT"))
					Dim alcaldia As String = records(result.Columns.Get("PR_CD_ALCALDIA"))
					Dim municipio As String = records(result.Columns.Get("PR_CD_MUNICIPIO"))
					Dim entidad As String = records(result.Columns.Get("PR_CD_ENTIDAD"))
					Dim cp As String = records(result.Columns.Get("PR_CD_CP"))
					Dim sexo As String = records(result.Columns.Get("PR_CD_SEXO"))
					Dim fecha_nacimiento As String = records(result.Columns.Get("PR_CD_FECHA_NAC"))
					Dim edad As String = records(result.Columns.Get("PR_CD_EDAD"))
					Dim email As String = records(result.Columns.Get("PR_CD_EMAIL"))
					
					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_DATOS_GENERALES2(CREDITO, NOMBRE, RFC, CURP, CALLE, N_EXT, N_INT, ALCALDIA, MUNICIPIO, ENTIDAD, CP, SEXO, FECHA_NACIMIENTO, EDAD, EMAIL, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (credito, nombre, rfc, curp, calle, n_ext, n_int, alcaldia, municipio, entidad, cp, sexo, fecha_nacimiento, edad, email, "Asignado",0))
					
					
					c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(credito))
					c.Position= 0
					LogColor(c.GetString("CUANTOS"),Colors.Magenta)
					If c.GetString("CUANTOS") > 0 Then
						Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET CREDITO = ?, NOMBRE = ?, RFC = ?, CURP = ?, CALLE = ?, N_EXT = ?, N_INT = ?, ALCALDIA = ?, MUNICIPIO = ?, ENTIDAD = ?, CP = ?, SEXO = ?, FECHA_NACIMIENTO = ?, EDAD = ?, EMAIL = ? WHERE CREDITO = ?",Array As String(credito, nombre, rfc, curp, calle, n_ext, n_int, alcaldia, municipio, entidad, cp, sexo, fecha_nacimiento, edad, email,credito))
					Else If c.GetString("CUANTOS") = 0 Then
						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_DATOS_GENERALES(CREDITO, NOMBRE, RFC, CURP, CALLE, N_EXT, N_INT, ALCALDIA, MUNICIPIO, ENTIDAD, CP, SEXO, FECHA_NACIMIENTO, EDAD, EMAIL, ESTATUS, ESTATUS2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As String(credito, nombre, rfc, curp, calle, n_ext, n_int, alcaldia, municipio, entidad, cp, sexo, fecha_nacimiento, edad, email, "Asignado",0))
					End If
					c.Close
					
				Next
				
				Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
				Starter.skmt.EndTransaction
				
				c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES  WHERE ESTATUS2 <> 2 order by 1")
				
				clv_cuentas.Clear
				For i = 0 To c.RowCount - 1
					c.Position = i
					clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
				Next
				c.Close
				
				c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 <> 2")
				c.Position = 0
				Log(c.GetString("CUANTOS"))
				l_cuentasportrabajar.Text = c.GetString("CUANTOS")
				c.Close
				
				c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_DATOS_GENERALES WHERE ESTATUS2 = 2")
				c.Position = 0
				Log(c.GetString("CUANTOS"))
				l_cuentrastrabajadas.Text = c.GetString("CUANTOS")
				c.Close
				
				Label3.Text = "Cuentas"
				l_cuentasportrabajar.TextColor = Colors.White
				l_cuentasportrabajar.Color = Colors.Red
				l_cuentrastrabajadas.TextColor = Colors.Black
				l_cuentrastrabajadas.Color = Colors.White
						
			End If
			
			If result.Tag = "datosfinancieros" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from HIST_FINANCIEROS2")
				Starter.skmt.ExecNonQuery("delete from HIST_FINANCIEROS WHERE ESTATUS2 <> 2")
				trabajos = trabajos - 1
								
				For Each records() As Object In result.Rows
					
					Dim creditof As String = records(result.Columns.Get("PR_KT_CREDITO"))
					Dim CARTERA As String = records(result.Columns.Get("PR_KT_PRODUCTO"))
					Dim AGENCIA As String = records(result.Columns.Get("PR_KT_AGENCIA"))
					Dim SALDO_TOTAL As String = records(result.Columns.Get("PR_CF_SALDO_TOTAL"))
					Dim MONTO_PAGAR As String = records(result.Columns.Get("PR_CF_LIQUIDACION"))
					Dim TOTAL_PAGO_DESC As String = records(result.Columns.Get("PR_CF_TOTAL_A_PAGAR_DESC"))
					Dim LIQUIDACION As String = records(result.Columns.Get("PR_CF_LIQUIDACION"))
					Dim DIAS_VENCIDOS As String = records(result.Columns.Get("PR_CA_DIAS_VENCIDOS"))
					Dim DIAS_ATRASO_ACT As String = records(result.Columns.Get("PR_CA_DIAS_ATRASO_ACT"))
					Dim FECHA_ATRASO As String = records(result.Columns.Get("PR_CA_FECHA_ATRASO"))
					Dim BBVA As String = records(result.Columns.Get("PR_CA_REFERENCIA1"))
					Dim OXXO As String = records(result.Columns.Get("PR_CA_REFERENCIA2"))
					
					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FINANCIEROS2(CREDITO, CARTERA, AGENCIA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (creditof, CARTERA, AGENCIA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO,"Asignado",0))
					
					c = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_FINANCIEROS WHERE CREDITO = ?",Array As String(creditof))
					c.Position = 0
					LogColor(c.GetString("CUANTOS"),Colors.Red)
					If c.GetString("CUANTOS") > 0 Then
						Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET CREDITO = ?, CARTERA = ?, AGENCIA = ?, SALDO_TOTAL = ?, MONTO_PAGAR = ?, TOTAL_PAGO_DESC = ?, LIQUIDACION = ?, DIAS_VENCIDOS = ?, DIAS_ATRASO_ACT = ?, FECHA_ATRASO = ?, BBVA = ?, OXXO = ? WHERE CREDITO = ?",Array As String(creditof, CARTERA, AGENCIA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO, creditof))
					Else If c.GetString("CUANTOS") = 0 Then
						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FINANCIEROS(CREDITO, CARTERA, AGENCIA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO, ESTATUS, ESTATUS2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As String(creditof, CARTERA, AGENCIA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO, "Asignado",0))
					End If
					c.Close
				Next
							
			End If
			
			If result.Tag = "fuente" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_FUENTE")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_FUENTE(FUENTE, NUMERO, NUME) VALUES (?,?,?)", Array As Object("Selecciona una opción",num, num2))
				For Each records() As Object In result.Rows
					
					Dim FUENTE As String = records(result.Columns.Get("CAT_FU_FUENTE"))
					num = num + 1
					num2 = num2 +1 
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_FUENTE(FUENTE, NUMERO, NUME) VALUES (?,?,?)", Array As Object(FUENTE,numero,num2))
					
				Next
								
			End If
			
			If result.Tag = "parentesco" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_PARENTESCO")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object("Selecciona una opción",num, num2))
				For Each records() As Object In result.Rows
					Dim PARENTESCO As String = records(result.Columns.Get("CAT_PA_PARENTESCO"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object(PARENTESCO,numero,num2))
					
				Next
								
			End If
			
			If result.Tag = "accion" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_ACCION")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?)", Array As Object("SO", "Selecciona una opción",num,num2))
				For Each records() As Object In result.Rows
					Dim CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
					Dim CO_ACDESCRIPCION As String = records(result.Columns.Get("CAT_CO_ADESCRIPCION"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO,NUME) VALUES (?,?,?,?)", Array As Object(CO_ACCION, CO_ACDESCRIPCION,numero,num2))
					
				Next
								
			End If
			
			If result.Tag = "resultado_MA" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_MA")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_MA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("MA","SO", "Selecciona una opción",num,num2))
				For Each records() As Object In result.Rows
					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_MA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
				Next
								
			End If
			
			If result.Tag = "resultado_VC" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_VC")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_VC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("VC","SO", "Selecciona una opción",num,num2))
				For Each records() As Object In result.Rows
					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_VC(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
				Next
								
			End If
			
			If result.Tag = "resultado_CA" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_CA")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_CA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("CA","SO", "Selecciona una opción",num,num2))
				For Each records() As Object In result.Rows
					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_CA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
				Next
								
			End If
			
			If result.Tag = "resultado_BR" Then 'query tag
				Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_BR")
				trabajos = trabajos - 1
				Dim num As Int = 0
				Dim num2 As Int = 1
				Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("BR","SO", "Selecciona una opción",num,num2))
				For Each records() As Object In result.Rows
					Dim CAT_CO_ACCION As String = records(result.Columns.Get("CAT_CO_ACCION"))
					Dim CO_RESULTADO As String = records(result.Columns.Get("CAT_CO_RESULTADO"))
					Dim CO_RDESCRIPCION As String = records(result.Columns.Get("CAT_CO_RDESCRIPCION"))
					num = num + 1
					num2 = num2 +1
					Dim numero As Int = num
					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_BR(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION,numero,num2))
				Next
								
			End If
			
			Dim resultado As DBResult = reqManager.HandleJob(Job)
			If resultado.Tag.As(String).IndexOf("ins_ENUEVOSPendientes_head_") > -1 Then
				trabajos2 = trabajos2 -1
				Private cliente As String= resultado.Tag
				cliente = cliente.SubString(cliente.IndexOf("_")+24)
				Log($"Cliente1:${cliente}"$)
				Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ENVIADO = ? WHERE CREDITO = ?", Array As String("1",cliente))
				For Each records() As Object In resultado.Rows
					For Each k As String In resultado.Columns.Keys
						Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
					Next
				Next
			End If
	
		End If

		Log(trabajos)
		If trabajos = 0 Then
			Starter.skmt.ExecNonQuery2("UPDATE CARGADO SET CARGADO = ?",Array As String("1"))
			ProgressDialogHide
		End If
	
		Log(trabajos2)
		If trabajos2 = 0 Then
			ProgressDialogHide
		End If

	End If
End Sub

Private Sub b_enviar_Click
	Dim cmd As DBCommand
	Dim foto1() As Byte
	Dim foto2() As Byte
	Dim foto3() As Byte
	Dim foto4() As Byte
	Dim Dirp As String = File.DirInternal
	Dim Dir As String
	Dim Dir2 As String
	Dir = "/Arestrategicas"
	Dir2 = "/reduccion"
	
'	c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
	c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA ")
	Log(c.RowCount)
	If c.RowCount > 0 Then
		ProgressDialogShow("Enviando datos.")
											
		For i = 0 To c.RowCount - 1
			c.Position = i
			foto1 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOUNO")))
			foto2 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTODOS")))
			foto3 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOTRES")))
			foto4 = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir&Dir2,c.GetString("FOTOCUATRO")))
		
			cmd.Initialize
			cmd.Name = "insert_gestion_AR"
			cmd.Parameters = Array As Object(c.GetString("CREDITO"), c.GetString("PRODUCTO"), c.GetString("VISITADOR"), c.GetString("RESULTADO"), c.GetString("CODIGO_RES"), c.GetString("PARENTESCO"), c.GetString("COMENTARIOS"), c.GetString("FECHA"), c.GetString("LONGITUD"), c.GetString("LATUTUD"), c.GetString("FECHACAPTURA"), c.GetString("AGENCIA"), c.GetString("FECHA_PROMESA"), c.GetString("MONTO_PROMESA"), c.GetString("TIPO_DOMICILIO"), c.GetString("NIVEL_SOCIO"), c.GetString("CARACTERISTICAS"), c.GetString("NIVELES"), foto1, foto2, foto3, foto4, c.GetString("NOMBRE_ATIENDE"), c.GetString("CODIGO_ACCION"), c.GetString("ACCION"), c.GetString("DIAS_ACCION"), c.GetString("PUNTOS_REF"))
			reqManager.ExecuteCommand(cmd , $"ins_ENUEVOSPendientes_head_${c.GetString("CREDITO")}"$)
			trabajos2 = trabajos2 + 1
		Next
	
		c.Close
	Else If c.RowCount = 0 Then
		MsgboxAsync("No hay datos por enviar.","Atención.")
	End If
End Sub



Private Sub et_findia_EnterPressed
	Dim res As String
	If et_findia.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
			Starter.skmt.ExecNonQuery("delete from HIST_DATOS_GENERALES")
			Starter.skmt.ExecNonQuery("delete from HIST_FINANCIEROS")
			Starter.skmt.ExecNonQuery("delete from HIST_DATOS_GENERALES2")
			Starter.skmt.ExecNonQuery("delete from HIST_FINANCIEROS2")
			Starter.skmt.ExecNonQuery("delete from HIST_VISITA")
			Starter.skmt.ExecNonQuery("delete from CHECADO")
			Starter.skmt.ExecNonQuery("delete from CARGADO")
			clv_cuentas.Clear
			l_cuentasportrabajar.Text = "0"
			l_cuentrastrabajadas.Text = "0"
			et_findia.Text = ""
		End If
	End If
End Sub

Private Sub et_busqueda_TextChanged (Old As String, New As String)
	Dim BUSCA As String
	BUSCA = "%" & et_busqueda.Text & "%"
	If et_busqueda.Text.Length = 0 Then
		c = Starter.skmt.ExecQuery("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES  WHERE ESTATUS2 <> 2 order by 1")
				
		clv_cuentas.Clear
		For i = 0 To c.RowCount - 1
			c.Position = i
			clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
		Next
		c.Close
	Else If et_busqueda.Text.Length > 0 Then
		c = Starter.skmt.ExecQuery2("SELECT CREDITO, NOMBRE, CALLE, N_EXT, N_INT, ALCALDIA, ESTATUS FROM HIST_DATOS_GENERALES WHERE NOMBRE LIKE ? OR CREDITO LIKE ? ",Array As String(BUSCA, BUSCA))
				
		clv_cuentas.Clear
		For i = 0 To c.RowCount - 1
			c.Position = i
			clv_cuentas.Add(CreateListItem(c.GetString("CREDITO"), c.GetString("NOMBRE"), ("CALLE: " & c.GetString("CALLE") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT")  &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),i)
		Next
		c.Close
	End If
End Sub

Private Sub B4XPage_CloseRequest As ResumableSub
	

	B4XPages.ShowPage("Mainpage")

'	Return True
	Return False
End Sub