mirror of
https://github.com/KeymonSoft/Nuevo_Torrado_V2.git
synced 2026-04-17 21:06:10 +00:00
598 lines
26 KiB
QBasic
598 lines
26 KiB
QBasic
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
|
|
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.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 ("BODEGA","3"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("TERRENO","4"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("LOCAL COMERCIAL","5"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("OFICINA","6"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO TIPO_VIVIENDA(TIPO, NUMERO) VALUES(?,?)", Array As Object ("OTRO","7"))
|
|
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"))
|
|
|
|
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.RGB(83,22,22.255)
|
|
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_TORRADO"
|
|
cmd.Parameters = Array As Object(B4XPages.MainPage.user)
|
|
reqManager.ExecuteQuery(cmd , 0, "datosgenerales")
|
|
trabajos = trabajos + 1
|
|
|
|
cmd.Name = "select_datosfinancieros_TORRADO"
|
|
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.RGB(83,22,22.255)
|
|
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.RGB(83,22,22.255)
|
|
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 calle As String = records(result.Columns.Get("PR_CD_CALLE"))
|
|
Dim colonia As String = records(result.Columns.Get("PR_CD_COL"))
|
|
Dim ciudad As String = records(result.Columns.Get("PR_CD_CITY"))
|
|
Dim estado As String = records(result.Columns.Get("PR_CD_EDO"))
|
|
Dim cp As String = records(result.Columns.Get("PR_CD_CD"))
|
|
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_DATOS_GENERALES2(CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?)", Array As Object (credito, nombre,calle, colonia, ciudad,estado, cp,"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 = ?, CALLE = ?, COLONIA = ?, CIUDAD = ?, ESTADO = ?, CP = ? WHERE CREDITO = ?",Array As Object (credito, nombre,calle, colonia, ciudad,estado, cp))
|
|
Else If c.GetString("CUANTOS") = 0 Then
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_DATOS_GENERALES(CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?)", Array As Object (credito, nombre,calle, colonia, ciudad,estado, cp,"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, COLONIA, CIUDAD, ESTADO, CP, 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") &" COL: "& c.GetString("COLONIA") & CRLF & "CIUDAD: "& c.GetString("CIUDAD") &" ESTADO: "&c.GetString("ESTADO") & "C.P.: " & c.GetString("CP")), 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.RGB(83,22,22.255)
|
|
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 diasv As String = records(result.Columns.Get("PR_CF_DIASATRASO"))
|
|
Dim mesv As String = records(result.Columns.Get("PR_CF_MESESVEN"))
|
|
Dim saldov As String = records(result.Columns.Get("PR_CF_SDOVEN"))
|
|
Dim saldot As String = records(result.Columns.Get("PR_CF_SDOTOTAL"))
|
|
Dim tipouni As String = records(result.Columns.Get("PR_CA_TIPOUNIDAD"))
|
|
Dim marca As String = records(result.Columns.Get("PR_CA_MARCA_AUTO"))
|
|
Dim anio As String = records(result.Columns.Get("PR_CA_ANIO"))
|
|
Dim serie As String = records(result.Columns.Get("PR_CA_NUM_SERIE"))
|
|
Dim resultado As String = records(result.Columns.Get("PR_KT_RESULTADO"))
|
|
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FINANCIEROS2(CREDITO, DIASATRASO, MESVENCIDO, SALDO_VENCIDO, SALDO_TOTAL, TIPO_UNIDAD, MARCA, ANO, NO_SERIE, RESULTADO, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (creditof, diasv, mesv, saldov, saldot, tipouni, marca, anio, serie, resultado,"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 = ?, DIASATRASO = ?, MESVENCIDO = ?, SALDO_VENCIDO = ?, SALDO_TOTAL = ?, TIPO_UNIDAD = ?, MARCA = ?, ANO = ?, NO_SERIE = ?, RESULTADO = ? WHERE CREDITO = ?",Array As String(creditof, diasv, mesv, saldov, saldot, tipouni, marca, anio, serie, resultado))
|
|
Else If c.GetString("CUANTOS") = 0 Then
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FINANCIEROS(CREDITO, DIASATRASO, MESVENCIDO, SALDO_VENCIDO, SALDO_TOTAL, TIPO_UNIDAD, MARCA, ANO, NO_SERIE, RESULTADO, ESTATUS, ESTATUS2) values(?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (creditof, diasv, mesv, saldov, saldot, tipouni, marca, anio, serie, resultado,"Asignado",0))
|
|
End If
|
|
c.Close
|
|
Next
|
|
|
|
End If
|
|
|
|
|
|
'' AQUI NOS QUEDAMOS, FALTA VER DATOS DE CONTACTO Y RESULTADOS DE ACCION Y LA PARTE DE ENVIOS.
|
|
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
|
|
|
|
End If
|
|
|
|
Log(trabajos)
|
|
If trabajos = 0 Then
|
|
Starter.skmt.ExecNonQuery2("UPDATE CARGADO SET CARGADO = ?",Array As String("1"))
|
|
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.DirRootExternal
|
|
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")
|
|
Log(c.RowCount)
|
|
|
|
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"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd, "insert_gestion_AREstrategicas")
|
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ENVIADO = ? WHERE CREDITO = ?", Array As String("1",c.GetString("CREDITO")))
|
|
Next
|
|
MsgboxAsync("Datos enviados.","")
|
|
c.Close
|
|
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 |