cheveguerra/Nuevo_Torrado_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Nuevo_Torrado_V2.git synced 2026-04-17 21:06:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

25-09-23 App terminada

Browse Source
This commit is contained in:
cvaldes1201
2023-09-25 18:01:50 -06:00
parent b90343cf13
commit 116eb1aceb
11 changed files with 312 additions and 316 deletions
Download Patch File Download Diff File Expand all files Collapse all files

142
B4A/C_principal.bas
View File

@@ -74,7 +74,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
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 CAT_RESULTADO_DA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("DE", "SO", "SELECCIONA UNA OPCION",0,1))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_DA(CAT_CO_ACCION, CO_RESULTADO, CO_RDESCRIPCION, NUMERO, NUME) VALUES (?,?,?,?,?)", Array As Object("DE", "DE", "DESHABITADA / ABANDONADA",1,2))
End Sub
Sub B4XPage_Appear
@@ -83,12 +84,12 @@ Sub B4XPage_Appear
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")
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") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT") &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),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
End If
@@ -126,50 +127,45 @@ Private Sub b_carga_Click
cmd.Initialize
cmd.Name = "select_datosgenerales_TORRADO"
cmd.Name = "select_datosgenerales_NT"
cmd.Parameters = Array As Object(B4XPages.MainPage.user)
reqManager.ExecuteQuery(cmd , 0, "datosgenerales")
trabajos = trabajos + 1
cmd.Name = "select_datosfinancieros_TORRADO"
cmd.Name = "select_datosfinancieros_NT"
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.Name = "select_parentesco_NT"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "parentesco")
trabajos = trabajos + 1
cmd.Name = "select_accion_AR"
cmd.Name = "select_accion_NT"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "accion")
trabajos = trabajos + 1
cmd.Name = "select_resultado_MA_AR"
cmd.Name = "select_resultado_LO_NT"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "resultado_MA")
reqManager.ExecuteQuery(cmd , 0, "resultado_LO")
trabajos = trabajos + 1
cmd.Name = "select_resultado_VC_AR"
cmd.Name = "select_resultado_IL_NT"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "resultado_VC")
reqManager.ExecuteQuery(cmd , 0, "resultado_IL")
trabajos = trabajos + 1
cmd.Name = "select_resultado_CA_AR"
cmd.Name = "select_resultado_NC_NT"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "resultado_CA")
reqManager.ExecuteQuery(cmd , 0, "resultado_NC")
trabajos = trabajos + 1
cmd.Name = "select_resultado_BR_AR"
cmd.Parameters = Array As Object()
reqManager.ExecuteQuery(cmd , 0, "resultado_BR")
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
@@ -181,9 +177,9 @@ Private Sub l_cuentrastrabajadas_Click
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 = Starter.skmt.ExecQuery2("SELECT NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP, 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)
clv_cuentas.Add(CreateListItem2(d.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"), d.GetString("FECHA"),d.GetString("RESULTADO")),i)
Next
d.Close
l_cuentasportrabajar.TextColor = Colors.Black
@@ -199,18 +195,20 @@ Private Sub l_cuentasportrabajar_Click
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")
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") &" NO. EXT: "& c.GetString("N_EXT") & CRLF & "No. INT: "& c.GetString("N_INT") &" COL.: "&c.GetString("ALCALDIA")), c.GetString("ESTATUS")),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
End If
End If
d.Close
Label3.Text = "Cuentas"
l_cuentasportrabajar.TextColor = Colors.White
l_cuentasportrabajar.Color = Colors.RGB(83,22,22.255)
@@ -372,24 +370,6 @@ Sub JobDone(Job As HttpJob)
'' 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
@@ -398,10 +378,11 @@ Sub JobDone(Job As HttpJob)
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"))
Dim ID As String = records(result.Columns.Get("CAT_PA_ID"))
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_PARENTESCO (PARENTESCO, NUMERO, NUME) VALUES (?,?,?)", Array As Object(PARENTESCO,ID,num2))
Next
@@ -414,25 +395,26 @@ Sub JobDone(Job As HttpJob)
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"))
Dim CO_ACCION As String = records(result.Columns.Get("CAT_CA_CODIGO"))
Dim CO_ACDESCRIPCION As String = records(result.Columns.Get("CAT_CA_DESCRIPCION"))
Dim ID_ACCION As String = records(result.Columns.Get("CAT_CA_ID"))
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ACCION(CO_ACCION, CO_ACDESCRIPCION, NUMERO,NUME) VALUES (?,?,?,?)", Array As Object(CO_ACCION, CO_ACDESCRIPCION,ID_ACCION,num2))
Next
End If
If result.Tag = "resultado_MA" Then 'query tag
Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_MA")
If result.Tag = "resultado_LO" Then 'query tag
Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_LO")
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_LO(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"))
@@ -440,17 +422,17 @@ Sub JobDone(Job As HttpJob)
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_LO(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")
If result.Tag = "resultado_IL" Then 'query tag
Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_IL")
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_IL(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"))
@@ -458,17 +440,17 @@ Sub JobDone(Job As HttpJob)
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_IL(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")
If result.Tag = "resultado_NC" Then 'query tag
Starter.skmt.ExecNonQuery("delete from CAT_RESULTADO_NC")
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_NC(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"))
@@ -476,28 +458,28 @@ Sub JobDone(Job As HttpJob)
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))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_RESULTADO_NC(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
' 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
@@ -519,7 +501,7 @@ Private Sub b_enviar_Click
Dim Dirp As String = File.DirRootExternal
Dim Dir As String
Dim Dir2 As String
Dir = "/Arestrategicas"
Dir = "/nuevotorrado"
Dir2 = "/reduccion"
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
@@ -533,8 +515,8 @@ Private Sub b_enviar_Click
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"))
cmd.Name = "insert_gestion_NT"
cmd.Parameters = Array As Object(c.GetString("CREDITO"), c.GetString("VISITADOR"), c.GetString("FECHACAPTURA"), c.GetString("RESULTADO"), c.GetString("CODIGO_RES"), c.GetString("COMENTARIOS"), c.GetString("PARENTESCO"), c.GetString("LONGITUD"), c.GetString("LATUTUD"),foto1,foto2,foto3,foto4, c.GetString("FECHA_PROMESA"), c.GetString("MONTO_PROMESA"), c.GetString("TIPO_DOMICILIO"),c.GetString("NIVEL_SOCIO"),c.GetString("CARACTERISTICAS"),c.GetString("SERVICIOELECTRICO"),c.GetString("NOMBRE_ATIENDE"), c.GetString("ACCION"), c.GetString("CODIGO_ACCION"))
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

BIN
B4A/Files/gestion.bal
View File

Binary file not shown.

BIN
B4A/Files/mainpage.bal
View File

Binary file not shown.

BIN
B4A/Files/scroll.bal
View File

Binary file not shown.

2
B4A/ManageExternalStorage.bas
View File

@@ -51,7 +51,7 @@ Public Sub GetPermission
End If
Dim in As Intent
' Be sure to reference your app package name in "pakageg:xxx"
in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", "package:arestrategicas.keymon.lat")
in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", $"package:${Application.PackageName}"$)
StartActivityForResult(in)
End Sub

4
B4A/NUEVO_TORRADO.b4a
View File

@@ -1,4 +1,4 @@
Build1=Default,arestrategicas.keymon.lat
Build1=Default,nuevotorrado.keymon.lat
File1=candado.png
File10=gestion.bal
File11=gestionadas.bal
@@ -86,7 +86,7 @@ Version=12.5
#AdditionalJar: com.google.android.gms:play-services-location
#ApplicationLabel: NUEVO TORRADO
#VersionCode: 1
#VersionName: 3.06.15
#VersionName: 3.09.25
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/NUEVO_TORRADO.b4a.meta
View File

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,revisaBD,15,6,B4XMainPage,b_iniciar_Click,100,0,C_principal,b_carga_Click,127,0,Diseñador Visual,gestion.bal,-100,6,Diseñador Visual,datos.bal,-100,1,C_principal,JobDone,428,6,Diseñador Visual,scroll.bal,-100,6,c_datos,B4XPage_Appear,259,0,Diseñador Visual,financiero.bal,-100,6,c_datos,Class_Globals,42,0
NavigationStack=C_principal,JobDone,464,0,Subs,revisaBD,38,0,B4XMainPage,b_enviarbd_Click,213,0,appUpdater,Download,198,0,appUpdater,Process_Globals,74,0,Starter,Service_Create,28,0,Starter,Service_Start,36,0,Starter,Process_Globals,10,0,Diseñador Visual,MainPage.bal,-100,2,B4XMainPage,ImageView5_Click,165,0
SelectedBuild=0
VisibleModules=9,1,2,4,3,5,6,7,8,10

2
B4A/Starter.bas
View File

@@ -14,7 +14,7 @@ Sub Process_Globals
'These variables can be accessed from all modules.
Public rp As RuntimePermissions
Dim reqManager As DBRequestManager
Dim DBReqServer As String = "http://11.0.0.60:1782" '"http://keymon.lat:1788" "http://11.0.0.196:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
Dim DBReqServer As String = "http://keymon.lat:1781" '"http://keymon.lat:1781" "http://11.0.0.134:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
' Dim server As String = "http://10.0.0.205:1782"
Dim rutaBD As String = File.DirInternal
Dim skmt As SQL

21
B4A/Subs.bas
View File

@@ -20,14 +20,13 @@ Sub revisaBD 'ignore
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_DATOS_GENERALES2(CREDITO TEXT, NOMBRE TEXT, CALLE TEXT, COLONIA TEXT, CIUDAD TEXT, ESTADO TEXT, CP TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FINANCIEROS2(CREDITO TEXT, DIASATRASO TEXT, MESVENCIDO TEXT, SALDO_VENCIDO TEXT, SALDO_TOTAL TEXT, TIPO_UNIDAD TEXT, MARCA TEXT, ANO TEXT, NO_SERIE TEXT, RESULTADO TEXT, ESTATUS TEXT, ESTATUS2 TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_FUENTE(FUENTE TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PARENTESCO (PARENTESCO TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ACCION(CO_ACCION TEXT, CO_ACDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_MA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_VC(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_CA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_BR(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VISITA(CREDITO TEXT, PRODUCTO TEXT, VISITADOR TEXT, RESULTADO TEXT, CODIGO_RES TEXT, FUENTE TEXT, PARENTESCO TEXT, COMENTARIOS TEXT, FECHA TEXT, LONGITUD TEXT, LATUTUD TEXT, FECHACAPTURA TEXT, AGENCIA TEXT, FECHA_PROMESA TEXT, MONTO_PROMESA TEXT, TIPO_DOMICILIO TEXT, NIVEL_SOCIO TEXT, CARACTERISTICAS TEXT, FOTOUNO TEXT, FOTODOS TEXT, FOTOTRES TEXT, FOTOCUATRO TEXT, NOMBRE_ATIENDE TEXT, CODIGO_ACCION TEXT, ACCION TEXT, PUNTOS_REF TEXT, ESTATUS INT, ENVIADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_LO(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_IL(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_NC(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_RESULTADO_DA(CAT_CO_ACCION TEXT,CO_RESULTADO TEXT, CO_RDESCRIPCION TEXT, NUMERO INT, NUME INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VISITA(CREDITO TEXT, VISITADOR TEXT, RESULTADO TEXT, CODIGO_RES TEXT, PARENTESCO TEXT, COMENTARIOS TEXT, FECHA TEXT, LONGITUD TEXT, LATUTUD TEXT, FECHACAPTURA TEXT, FECHA_PROMESA TEXT, MONTO_PROMESA TEXT, TIPO_DOMICILIO TEXT, NIVEL_SOCIO TEXT, CARACTERISTICAS TEXT, SERVICIOELECTRICO TEXT, FOTOUNO TEXT, FOTODOS TEXT, FOTOTRES TEXT, FOTOCUATRO TEXT, NOMBRE_ATIENDE TEXT, CODIGO_ACCION TEXT, ACCION TEXT, ESTATUS INT, ENVIADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TIPO_VIVIENDA(TIPO TEXT, NUMERO INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NIVEL_SOCIO(NIVEL TEXT, NUMERO INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CARACTERISTICAS(TIPO TEXT, NUMERO INT)")
@@ -39,13 +38,13 @@ Sub revisaBD 'ignore
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_DATOS_GENERALES2")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_FINANCIEROS2")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FUENTE")
Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_FUENTE")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_PARENTESCO")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_ACCION")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_MA")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_BR")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_CA")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_VC")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_LO")
Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_BR")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_NC")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CAT_RESULTADO_IL")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS HIST_VISITA")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS TIPO_VIVIENDA")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS NIVEL_SOCIO")

423
B4A/c_datos.bas
View File

@@ -36,17 +36,24 @@ Sub Class_Globals
Dim MES1 As ManageExternalStorage
'Datos generales
Private l_cuenta As Label
Private l_nombreg As Label
Private l_calle As Label
Private l_noext As Label
Private l_noint As Label
Private l_alcaldia As Label
Private l_municipio As Label
Private l_entidad As Label
Private l_cp As Label
'Datos financieros
Private l_diasatraso As Label
Private l_mesvencido As Label
Private l_saldoven As Label
Private l_totalapagar As Label
Private l_unidad As Label
Private l_ano As Label
Private l_marca As Label
Private l_serie As Label
Private l_estatus As Label
'Gestion
@@ -98,7 +105,6 @@ Sub Class_Globals
Private ImageView4 As ImageView
Private b_foto As Button
Private et_comentarios As EditText
Private et_puntosref As EditText
Dim montoapagar As Float
'CURSORES GUARDADO
Dim h As Cursor
@@ -109,6 +115,9 @@ Sub Class_Globals
Dim n As Cursor
Private rdb_si As RadioButton
Private rdb_no As RadioButton
End Sub
Public Sub Initialize
@@ -212,13 +221,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' get the device SDK version
Dim SdkVersion As Int = device.SdkVersion
' If Not(MES1.HasPermission) Then
' Choose which permission to request in order to access external storgage
If SdkVersion < 30 Then
Log("SDK = " & SdkVersion & " : Requesting WRITE_EXTERNAL_STORAGE permission")
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Implicit read capability if granted
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
Else
Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
@@ -231,6 +240,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Wait For MES_StorageAvailable
End If
End If
' End If
End Sub
@@ -246,35 +256,31 @@ Private Sub B4XPage_Appear
cuenta = B4XPages.MainPage.principal.lb.Text
Log (cuenta)
c = Starter.skmt.ExecQuery2("SELECT NOMBRE, RFC, CURP, CALLE, N_EXT, N_INT, ALCALDIA, MUNICIPIO, ENTIDAD, CP, SEXO, FECHA_NACIMIENTO, EDAD, EMAIL from HIST_DATOS_GENERALES WHERE CREDITO = ?" , Array As String (cuenta))
c = Starter.skmt.ExecQuery2("SELECT CREDITO, NOMBRE, CALLE, COLONIA, CIUDAD, ESTADO, CP from HIST_DATOS_GENERALES WHERE CREDITO = ?" , Array As String (cuenta))
c.Position = 0
l_cuenta.Text = c.GetString("CREDITO")
l_nombreg.Text = c.GetString("NOMBRE")
l_calle.Text = c.GetString("CALLE")
l_noext.Text = c.GetString("N_EXT")
l_noint.Text = c.GetString("N_INT")
l_alcaldia.Text = c.GetString("ALCALDIA")
l_municipio.Text = c.GetString("MUNICIPIO")
l_entidad.Text = c.GetString("ENTIDAD")
l_alcaldia.Text = c.GetString("COLONIA")
l_municipio.Text = c.GetString("CIUDAD")
l_entidad.Text = c.GetString("ESTADO")
l_cp.Text = c.GetString("CP")
c.Close
b = Starter.skmt.ExecQuery2("SELECT CARTERA, SALDO_TOTAL, MONTO_PAGAR, TOTAL_PAGO_DESC, LIQUIDACION, DIAS_VENCIDOS, DIAS_ATRASO_ACT, FECHA_ATRASO, BBVA, OXXO FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
b = Starter.skmt.ExecQuery2("SELECT CREDITO, DIASATRASO, MESVENCIDO, SALDO_VENCIDO, SALDO_TOTAL, TIPO_UNIDAD, MARCA, ANO, NO_SERIE, RESULTADO FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
b.Position = 0
l_cartera.Text = b.GetString("CARTERA")
l_saldotot.Text = b.GetString("SALDO_TOTAL")
l_saldotot.Text= NumberFormat(l_saldotot.Text.Replace(",",""),0,2)
l_montoapagar.Text = b.GetString("MONTO_PAGAR")
l_montoapagar.Text= NumberFormat(l_montoapagar.Text.Replace(",",""),0,2)
montoapagar = b.GetString("MONTO_PAGAR")
l_totalapagar.Text = b.GetString("TOTAL_PAGO_DESC")
l_diasatraso.Text = b.GetString("DIASATRASO")
l_mesvencido.Text = b.GetString("MESVENCIDO")
l_saldoven.Text = b.GetString("SALDO_VENCIDO")
l_saldoven.Text= NumberFormat(l_saldoven.Text.Replace(",",""),0,2)
l_totalapagar.Text = b.GetString("SALDO_TOTAL")
l_totalapagar.Text= NumberFormat(l_totalapagar.Text.Replace(",",""),0,2)
l_liquidacion.Text = b.GetString("LIQUIDACION")
l_liquidacion.Text= NumberFormat(l_liquidacion.Text.Replace(",",""),0,2)
l_diasvencidos.Text = b.GetString("DIAS_VENCIDOS")
l_diasatraso.Text = b.GetString("DIAS_ATRASO_ACT")
l_fechaatraso.Text = b.GetString("FECHA_ATRASO")
l_bbva.Text = b.GetString("BBVA")
l_oxxo.Text = b.GetString("OXXO")
montoapagar = b.GetString("SALDO_TOTAL")
l_unidad.Text = b.GetString("TIPO_UNIDAD")
l_marca.Text = b.GetString("MARCA")
l_ano.Text = b.GetString("ANO")
l_serie.Text = b.GetString("NO_SERIE")
l_estatus.Text = b.GetString("RESULTADO")
b.Close
l = Starter.skmt.ExecQuery2("SELECT COUNT(*) As CUENTA FROM HIST_VISITA WHERE (ESTATUS = 0 OR ESTATUS = 1) and CREDITO = ?",Array As String(cuenta))
@@ -283,7 +289,6 @@ Private Sub B4XPage_Appear
If l.GetString("CUENTA") = 0 Then
et_comentarios.Text = ""
et_puntosref.Text = ""
et_parentesco.Text = ""
et_monto.Text = ""
b_fecharesultado.Text = "Fecha de pago"
@@ -296,6 +301,8 @@ Private Sub B4XPage_Appear
nombrefoto1 = "0"
nombrefoto2 = "0"
nombrefoto3 = "0"
rdb_no.Checked = False
rdb_si.Checked = False
e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUME FROM CAT_PARENTESCO order by 2")
Dim Items2 As List
@@ -361,18 +368,16 @@ Private Sub B4XPage_Appear
End If
q.Close
h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ?", Array As String(cuenta))
h.Position = 0
k = Starter.skmt.ExecQuery2("SELECT COUNT(*) As CUENTA FROM HIST_VISITA WHERE (ESTATUS = 0 OR ESTATUS = 1) and CREDITO = ?",Array As String(cuenta))
k.Position = 0
Log(k.GetString("CUENTA"))
If k.GetString("CUENTA") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, AGENCIA, RESULTADO, FUENTE, PARENTESCO, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, NIVELES, ACCION, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, ESTATUS, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, h.GetString("AGENCIA"),"Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","0","0","0","0",0,"0"))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, PARENTESCO, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, ACCION, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, ESTATUS, ENVIADO, SERVICIOELECTRICO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user,"Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","Selecciona una opción","0","0","0","0",0,"0", "X"))
Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO (CREDITO, LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO , DOMINGO) VALUES (?,0,0,0,0,0,0,0)",Array As String(cuenta))
Log("inserte cuenta")
End If
k.Close
h.Close
Else If l.GetString("CUENTA") > 0 Then
@@ -430,10 +435,10 @@ Private Sub B4XPage_Appear
Items4.Initialize
Items4.Add("")
cb_resultado.SetItems(Items4)
Else If cb_accion.SelectedItem = "Carteo" Then
Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_CA order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_NC order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -442,16 +447,16 @@ Private Sub B4XPage_Appear
cb_resultado.SetItems(Items4)
End If
g.Close
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g.Position = 0
Log(m.GetString("RESULTADO"))
Log(g.GetString("NUMERO"))
cb_resultado.SelectedIndex = g.GetString("NUMERO")
g.Close
Else If cb_accion.SelectedItem = "Se envia Blaster" Then
Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_BR order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_DA order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -460,14 +465,14 @@ Private Sub B4XPage_Appear
cb_resultado.SetItems(Items4)
End If
g.Close
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g.Position = 0
cb_resultado.SelectedIndex = g.GetString("NUMERO")
g.Close
Else If cb_accion.SelectedItem = "Se envia email" Then
Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_MA order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_LO order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -476,14 +481,14 @@ Private Sub B4XPage_Appear
cb_resultado.SetItems(Items4)
End If
g.Close
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g.Position = 0
cb_resultado.SelectedIndex = g.GetString("NUMERO")
g.Close
Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_VC order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_IL order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -492,14 +497,14 @@ Private Sub B4XPage_Appear
cb_resultado.SetItems(Items4)
End If
g.Close
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g.Position = 0
cb_resultado.SelectedIndex = g.GetString("NUMERO")
g.Close
End If
f.Close
If cb_resultado.SelectedItem = "Promesa de pago" Then
If cb_resultado.SelectedItem = "PROMESA DE PAGO" Then
i_resultado.Visible = True
b_fecharesultado.Text = m.GetString("FECHA_PROMESA")
@@ -516,11 +521,6 @@ Private Sub B4XPage_Appear
If et_comentarios.Text = "null" Then
et_comentarios.Text = ""
End If
et_puntosref.Text = m.GetString("PUNTOS_REF")
If et_puntosref.Text = "null" Then
et_puntosref.Text = ""
End If
s = Starter.skmt.ExecQuery("SELECT NIVEL, NUMERO FROM NIVEL_SOCIO order by 2")
Dim Items5 As List
@@ -574,8 +574,8 @@ Private Sub B4XPage_Appear
Dim Dir As String
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/Arestrategicas")
Dir = "/Arestrategicas"
File.MakeDir(Dirp,"/nuevotorrado")
Dir = "/nuevotorrado"
Log("creado en promotoria " & Dirp & Dir)
Catch
Dir = ""
@@ -619,6 +619,18 @@ Private Sub B4XPage_Appear
nombrefoto3 = m.GetString("FOTOCUATRO")
End If
If m.GetString("SERVICIOELECTRICO") = "Si" Then
rdb_si.Checked = True
rdb_no.Checked = False
Else If m.GetString("SERVICIOELECTRICO") = "No" Then
rdb_si.Checked = False
rdb_no.Checked = True
Else
rdb_si.Checked = False
rdb_no.Checked = False
End If
m.Close
End If
l.Close
@@ -775,10 +787,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
Items4.Initialize
Items4.Add("")
cb_resultado.SetItems(Items4)
Else If cb_accion.SelectedItem = "Carteo" Then
Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_CA order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_NC order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -787,10 +799,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
cb_resultado.SetItems(Items4)
End If
g.Close
Else If cb_accion.SelectedItem = "Se envia Blaster" Then
Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_BR order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_DA order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -799,10 +811,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
cb_resultado.SetItems(Items4)
End If
g.Close
Else If cb_accion.SelectedItem = "Se envia email" Then
Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_MA order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_LO order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -811,10 +823,10 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
cb_resultado.SetItems(Items4)
End If
g.Close
Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_VC order by 2")
g = Starter.skmt.ExecQuery("SELECT CO_RDESCRIPCION, NUMERO FROM CAT_RESULTADO_IL order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
@@ -828,11 +840,11 @@ Private Sub cb_accion_SelectedIndexChanged (Index As Int)
End Sub
Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
If cb_accion.SelectedItem = "Carteo" Then
If cb_resultado.SelectedItem <> "Promesa de pago" Then
If cb_accion.SelectedItem = "LOCALIZABLE" Then
If cb_resultado.SelectedItem <> "PROMESA DE PAGO" Then
i_resultado.Visible = False
p_resultado.Visible = False
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -849,7 +861,7 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
Else
i_resultado.Visible = True
p_resultado.Visible = True
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -864,10 +876,10 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
End If
Else If cb_accion.SelectedItem = "Se envia Blaster" Then
Else If cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
i_resultado.Visible = False
p_resultado.Visible = False
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -881,10 +893,10 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
c.Close
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
Else If cb_accion.SelectedItem = "Se envia email" Then
Else If cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
i_resultado.Visible = False
p_resultado.Visible = False
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -898,11 +910,11 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
c.Close
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
Else If cb_accion.SelectedItem = "Visita En Domicilio" Then
If cb_resultado.SelectedItem <> "Promesa de pago" Then
Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
If cb_resultado.SelectedItem <> "PROMESA DE PAGO" Then
i_resultado.Visible = False
p_resultado.Visible = False
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -919,7 +931,7 @@ Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
Else
i_resultado.Visible = True
p_resultado.Visible = True
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -1177,22 +1189,6 @@ Private Sub et_comentarios_TextChanged (Old As String, New As String)
End If
End Sub
Private Sub et_puntosref_TextChanged (Old As String, New As String)
Private maxSize As Int = 500
If New.Length > maxSize Then et_puntosref.Text = Old
If et_puntosref.Text.Length = 0 Then
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PUNTOS_REF = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String("null", cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ?", Array As String("1", cuenta))
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PUNTOS_REF = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(et_puntosref.Text, cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
' Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ?", Array As String("1", cuenta))
End If
End Sub
Private Sub cb_caracteristicas_SelectedIndexChanged (Index As Int)
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
@@ -1285,8 +1281,8 @@ Sub Camera1_PictureTaken (Data()As Byte)
Dim Dir As String
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/Arestrategicas")
Dir = "/Arestrategicas"
File.MakeDir(Dirp,"/nuevotorrado")
Dir = "/nuevotorrado"
Log("creado en promotoria " & Dirp & Dir)
Catch
Dir = ""
@@ -1448,36 +1444,33 @@ Private Sub ImageView4_Click
End Sub
Private Sub b_guardar_Click
If cb_parentesco.SelectedItem <> "Selecciona una opción" Then
If cb_accion.SelectedItem <> "Selecciona una opción" Then
If cb_resultado.SelectedItem <> "Selecciona una opción" Then
If cb_socioeconomico.SelectedItem <> "Selecciona una opción" Then
If cb_vivienda.SelectedItem <> "Selecciona una opción" Then
If cb_caracteristicas.SelectedItem <> "Selecciona una opción" Then
If et_comentarios.Text.Length > 0 Then
If et_puntosref.Text.Length > 0 Then
LogColor(et_puntosref.Text.Length,Colors.Green)
If rdb_no.Checked = True Or rdb_si.Checked = True Then
If cb_parentesco.SelectedItem <> "Selecciona una opción" Then
If cb_accion.SelectedItem <> "Selecciona una opción" Then
If cb_resultado.SelectedItem <> "Selecciona una opción" Then
If cb_socioeconomico.SelectedItem <> "Selecciona una opción" Then
If cb_vivienda.SelectedItem <> "Selecciona una opción" Then
If cb_caracteristicas.SelectedItem <> "Selecciona una opción" Then
If et_comentarios.Text.Length > 0 Then
If i_datosparentesco.Visible Then
If et_parentesco.Text <> "" Then
If i_resultado.Visible Then
If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
h.Position = 0
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
f.Position = 0
If cb_accion.SelectedItem = "Carteo" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
If cb_accion.SelectedItem = "LOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia Blaster" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia email" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
@@ -1488,20 +1481,20 @@ Private Sub b_guardar_Click
n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
n.Position = 0
If n.GetString("REGISTRADO") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("Insert")
Else If n.GetString("REGISTRADO") > 0 Then
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem,"2", cuenta))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("update")
End If
n.Close
h.Close
' h.Close
f.Close
j.Close
B4XPages.ShowPage("principal")
@@ -1520,21 +1513,19 @@ Private Sub b_guardar_Click
End If
Else
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
h.Position = 0
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
f.Position = 0
If cb_accion.SelectedItem = "Carteo" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
If cb_accion.SelectedItem = "LOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia Blaster" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia email" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
@@ -1544,19 +1535,19 @@ Private Sub b_guardar_Click
n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
n.Position = 0
If n.GetString("REGISTRADO") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = , PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, et_parentesco.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, "2",cuenta))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("update2")
End If
n.Close
h.Close
' h.Close
f.Close
j.Close
@@ -1578,62 +1569,58 @@ Private Sub b_guardar_Click
If i_resultado.Visible Then
If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
If et_comentarios.Text <> "" Then
If et_puntosref.Text <> "" Then
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
h.Position = 0
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
f.Position = 0
If cb_accion.SelectedItem = "Carteo" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia Blaster" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia email" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Log(fecha_captura)
n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
n.Position = 0
If n.GetString("REGISTRADO") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("update3")
End If
n.Close
h.Close
f.Close
j.Close
B4XPages.ShowPage("principal")
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
MsgboxAsync("Por favor captura todas las fotos","Atención")
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
f.Position = 0
If cb_accion.SelectedItem = "LOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Log(fecha_captura)
n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
n.Position = 0
If n.GetString("REGISTRADO") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, FECHA_PROMESA, MONTO_PROMESA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, FECHA_PROMESA = ?, MONTO_PROMESA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, b_fecharesultado.Text, et_monto.Text, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, "2", cuenta))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("update3")
End If
n.Close
' h.Close
f.Close
j.Close
B4XPages.ShowPage("principal")
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
MsgboxAsync("Falta capturar los puntos de referencia","Atención")
MsgboxAsync("Por favor captura todas las fotos","Atención")
End If
Else
MsgboxAsync("Falta capturar comentarios","Atención")
End If
@@ -1642,21 +1629,19 @@ Private Sub b_guardar_Click
End If
Else
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
h = Starter.skmt.ExecQuery2("SELECT CARTERA, AGENCIA FROM HIST_FINANCIEROS WHERE CREDITO = ? ", Array As String(cuenta))
h.Position = 0
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(cb_accion.SelectedItem))
f.Position = 0
If cb_accion.SelectedItem = "Carteo" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_CA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
If cb_accion.SelectedItem = "LOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_LO WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia Blaster" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_BR WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "DESHABITADA / ABANDONADA" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Se envia email" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_MA WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "NO SE PUEDE CONFIRMAR" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_NC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
Else if cb_accion.SelectedItem = "Visita En Domicilio" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_VC WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
Else if cb_accion.SelectedItem = "ILOCALIZABLE" Then
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
@@ -1666,19 +1651,19 @@ Private Sub b_guardar_Click
n = Starter.skmt.ExecQuery2("SELECT COUNT(*) AS REGISTRADO FROM HIST_VISITA WHERE CREDITO = ?",Array As String(cuenta))
n.Position = 0
If n.GetString("REGISTRADO") = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, PRODUCTO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, AGENCIA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, DIAS_ACCION, PUNTOS_REF) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VISITA(CREDITO, VISITADOR, RESULTADO, CODIGO_RES, PARENTESCO, COMENTARIOS, FECHA, LONGITUD, LATUTUD, FECHACAPTURA, TIPO_DOMICILIO, NIVEL_SOCIO, CARACTERISTICAS, FOTOUNO, FOTODOS, FOTOTRES, FOTOCUATRO, NOMBRE_ATIENDE, CODIGO_ACCION, ACCION, DIAS_ACCION) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(cuenta, B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET PRODUCTO = ?, VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, AGENCIA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, PUNTOS_REF = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(h.GetString("CARTERA"), B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, h.GetString("AGENCIA"), cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem, et_puntosref.Text,"2", cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET VISITADOR = ?, RESULTADO = ?, CODIGO_RES = ?, PARENTESCO = ?, COMENTARIOS = ?, FECHA = ?, LONGITUD = ?, LATUTUD = ?, FECHACAPTURA = ?, TIPO_DOMICILIO = ?, NIVEL_SOCIO = ?, CARACTERISTICAS = ?, FOTOUNO = ?, FOTODOS = ?, FOTOTRES = ?, FOTOCUATRO = ?, NOMBRE_ATIENDE = ?, CODIGO_ACCION = ?, ACCION = ?, ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String(B4XPages.MainPage.user, cb_resultado.SelectedItem, j.GetString("CO_RESULTADO"),cb_parentesco.SelectedItem, et_comentarios.Text, fecha_captura, Starter.latitud, Starter.longitud, fecha_captura, cb_vivienda.SelectedItem, cb_socioeconomico.SelectedItem, cb_caracteristicas.SelectedItem, nombrefoto, nombrefoto1, nombrefoto2, nombrefoto3, l_nombreg.Text, f.GetString("CO_ACCION"), cb_accion.SelectedItem,"2", cuenta))
Starter.skmt.ExecNonQuery2("delete from CHECADO WHERE CREDITO = ?",Array As String(cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?",Array As Object("Terminada","2",cuenta))
Log("update4")
End If
n.Close
h.Close
' h.Close
f.Close
j.Close
@@ -1693,30 +1678,30 @@ Private Sub b_guardar_Click
End If
End If
End If
Else
MsgboxAsync("Falta capturar los puntos de referencia","Atención")
LogColor("estoy aqui",Colors.Green)
MsgboxAsync("Falta capturar comentarios","Atención")
End If
Else
MsgboxAsync("Falta capturar comentarios","Atención")
MsgboxAsync("Selecciona una opción de Caracteristicas","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Caracteristicas","Atención")
MsgboxAsync("Selecciona una opción de Tipo de vivienda","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Tipo de vivienda","Atención")
MsgboxAsync("Selecciona una opción de Nivel socioeconomico","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Nivel socioeconomico","Atención")
MsgboxAsync("Selecciona una opción de Resultado","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Resultado","Atención")
MsgboxAsync("Selecciona una opción de Acción","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Acción","Atención")
MsgboxAsync("Selecciona una opción de Parentesco","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Parentesco","Atención")
MsgboxAsync("Selecciona una opción de servicio electrico","Atención")
End If
End Sub
@@ -1749,11 +1734,41 @@ Sub GPS_LocationChanged (Location1 As Location)
' l1.Initialize2(Starter.latitud,Starter.longitud)
' l2.Initialize2(mlat, mlon)
' distance = l1.DistanceTo(l2) ' resultado en metros
'' Log (distance)
'' Log(mlat & " , " & mlon)
'' Log(Starter.latitud & " , " & Starter.longitud)
'' Log (distance)
'' Log(mlat & " , " & mlon)
'' Log(Starter.latitud & " , " & Starter.longitud)
' l_ubicacion.Text = $"Dist: $1.0{distance} mts."$
' If laDist > 50 Then l_ubicacion.TextColor = Colors.Red Else l_ubicacion.TextColor = Colors.Blue
Starter.longitud = Location1.Longitude
Starter.latitud = Location1.Latitude
End Sub
Private Sub rdb_no_CheckedChange(Checked As Boolean)
Dim electricidad As String = "No"
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
c.Position = 0
If c.GetString("ESTATUS2") = 2 Then
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
End If
c.Close
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET SERVICIOELECTRICO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(electricidad, cuenta))
End Sub
Private Sub rdb_si_CheckedChange(Checked As Boolean)
Dim electricidad As String = "Si"
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET ESTATUS = ? WHERE CREDITO = ? AND ESTATUS <> 2", Array As String("1", cuenta))
c = Starter.skmt.ExecQuery2("SELECT ESTATUS2 FROM HIST_DATOS_GENERALES WHERE CREDITO = ?",Array As String(cuenta))
c.Position = 0
If c.GetString("ESTATUS2") = 2 Then
Else
Starter.skmt.ExecNonQuery2("UPDATE HIST_DATOS_GENERALES SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
Starter.skmt.ExecNonQuery2("UPDATE HIST_FINANCIEROS SET ESTATUS = ?, ESTATUS2 = ? WHERE CREDITO = ?", Array As String("Trabajando", "1", cuenta))
End If
c.Close
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET SERVICIOELECTRICO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(electricidad, cuenta))
End Sub

32
B4XMainPage.bas
View File

@@ -110,20 +110,20 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub b_iniciar_Click
' If Usuario.Text <> "" Then
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_usuario_torra"
' cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
' reqManager.ExecuteQuery(cmd , 0, "usuario")
' user = Usuario.Text
' Else
' MsgboxAsync("Llena los datos de acceso","Atención")
'' B4XPages.ShowPage ("principal")
' End If
If Usuario.Text <> "" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_usuario_torra"
cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario")
user = Usuario.Text
Else
MsgboxAsync("Llena los datos de acceso","Atención")
' B4XPages.ShowPage ("principal")
End If
'
B4XPages.ShowPage ("principal")
' B4XPages.ShowPage ("principal")
Log(Starter.latitud & Starter.longitud)
End Sub
@@ -169,8 +169,8 @@ End Sub
Private Sub ImageView5_Click
p_configuracion.Visible = True
lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1788")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.196:1782")
lv_server.AddSingleLine("http://keymon.lat:1781")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.134:1782")
' l_server.Text = Starter.server
et_server.Text = Starter.DBReqServer
l_version.Visible = False
@@ -217,7 +217,7 @@ Private Sub b_enviarbd_Click
File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
Dim email As Email
email.To.Add("soporte@keymonsoft.com")
email.Subject = "Envio Base de dados AREstrategicas"
email.Subject = "Envio Base de dados Nuevo Torrado"
email.Attachments.Add(Provider.GetFileUri(FileName))
' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
Dim in As Intent = email.GetIntent