mirror of
https://github.com/KeymonSoft/Nuevo_Torrado_V2.git
synced 2026-04-20 22:29:18 +00:00
25-09-23 App terminada
This commit is contained in:
cvaldes1201
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user