mirror of
https://github.com/KeymonSoft/Nuevo_Torrado_V2.git
synced 2026-04-19 21:59:31 +00:00
25-09-23 App terminada
This commit is contained in:
cvaldes1201
423
B4A/c_datos.bas
423
B4A/c_datos.bas
@@ -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
|
||||
Reference in New Issue
Block a user