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
Files
67a7928e6879c20416025b8114219b0ed7666ecb
Nuevo_Torrado_V2/B4A/c_datos.bas
cvaldes1201 67a7928e68 26-09-23 cambios en fallos
2023-09-26 18:02:41 -06:00

1784 lines
77 KiB
QBasic
Raw Blame History

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=12.2
@EndOfDesignText@
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private WobbleMenu1 As WobbleMenu
Private ScrollView1 As ScrollView
Private ScrollView2 As ScrollView
Private ScrollView3 As ScrollView
Private p_financiero As Panel
Private p_gestion As Panel
Private p_scroll As Panel
Private Panel1 As Panel
Private Panel2 As Panel
Private p_w1 As Panel
Private p_w2 As Panel
Private p_w3 As Panel
Private l_titulo As Label
Private b_guardar As Button
Dim c As Cursor
Dim b As Cursor
Dim d As Cursor
Dim e As Cursor
Dim f As Cursor
Dim g As Cursor
Dim s As Cursor
Dim p As Cursor
Dim q As Cursor
Dim r As Cursor
Dim cuenta As String
Dim device As Phone
Dim MES1 As ManageExternalStorage
'Datos generales
Private l_cuenta As Label
Private l_nombreg As Label
Private l_calle 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
Private cb_parentesco As B4XComboBox
Private cb_accion As B4XComboBox
Private cb_resultado As B4XComboBox
Private cb_socioeconomico As B4XComboBox
Private cb_vivienda As B4XComboBox
Private cb_caracteristicas As B4XComboBox
Private i_datosparentesco As ImageView
Private i_resultado As ImageView
Private p_parentesco As Panel
Private b_guardar_parentesco As Button
Private et_parentesco As EditText
Dim parentesco As String = ""
Private p_nom_parentesco As Panel
Private p_resultado As Panel
Private p_datosresultado As Panel
Private et_monto As EditText
Private ASWheelPicker1 As ASWheelPicker
Private ASWheelPicker2 As ASWheelPicker
Private ASWheelPicker3 As ASWheelPicker
Private l_fechapago As Label
Dim day As Int = DateTime.GetDayOfMonth(DateTime.Now)
Dim month As String = DateTime.GetMonth(DateTime.Now)
Dim year2 As String = DateTime.GetYear(DateTime.Now)
Dim month2 As String
Private p_calendario As Panel
Private b_fecharesultado As Button
Dim fechapago As String
Dim montopago As String
Dim dia As String
Private b_cancelarresultado As Button
Private b_cancelar As Button
Private camEx2 As CameraExClass2
Dim frontCamera As Boolean = False
Private p_cam As Panel
Dim nombrefoto As String = "0"
Dim nombrefoto1 As String = "0"
Dim nombrefoto2 As String = "0"
Dim nombrefoto3 As String = "0"
Private p_camara As Panel
Private teclado As IME
Dim fototomada As String
Private ImageView1 As ImageView
Private ImageView3 As ImageView
Private ImageView2 As ImageView
Private ImageView4 As ImageView
Private b_foto As Button
Private et_comentarios As EditText
Dim montoapagar As Float
'CURSORES GUARDADO
Dim h As Cursor
Dim j As Cursor
Dim k As Cursor
Dim l As Cursor
Dim m As Cursor
Dim n As Cursor
Private rdb_si As RadioButton
Private rdb_no As RadioButton
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("datos")
Panel1.Width = Root.Width
p_w2.Visible = False
p_w3.Visible = False
p_camara.Width = Root.Width
p_camara.Height = Root.Height
ScrollView1.height = Root.Height - Panel1.Height -WobbleMenu1.Height
p_w1.height = Root.Height - Panel1.Height -WobbleMenu1.Height
ScrollView2.height = Root.Height - Panel1.Height -WobbleMenu1.Height
p_w2.height = Root.Height - Panel1.Height -WobbleMenu1.Height
ScrollView3.height = Root.Height - Panel1.Height -WobbleMenu1.Height
p_w3.height = Root.Height - Panel1.Height -WobbleMenu1.Height
ScrollView1.Panel.LoadLayout("scroll")
ScrollView1.Panel.Height = p_scroll.Height
ScrollView2.Panel.LoadLayout("financiero")
ScrollView2.Panel.Height = p_financiero.Height
ScrollView3.Panel.LoadLayout("gestion")
ScrollView3.Panel.Height = p_gestion.Height
WobbleMenu1.SetTabTextIcon(1,"Datos generales", Chr(0xE3D0), Typeface.MATERIALICONS)
WobbleMenu1.SetTabTextIcon(2,"Datos financieros", Chr(0xE3D1), Typeface.MATERIALICONS)
WobbleMenu1.SetTabTextIcon(3,"Gestión", Chr(0xE3D2), Typeface.MATERIALICONS)
WobbleMenu1.SetCurrentTab(1)
'Creacion de spinners para fecha de pago
p_calendario.Width = Root.Width
p_calendario.Height = Root.Height
Dim dias As List : dias.Initialize
For i = 1 To 31
Dim Item As ASWheelPicker_Item
Item.Initialize
Item.Text = i
Item.Value = i
Item.ItemTextProperties = ASWheelPicker1.ItemTextProperties
Item.ItemTextProperties.TextColor = (0x8FF000000)
dias.Add(Item)
Next
ASWheelPicker1.AddItems(dias)
Dim mes0 As List : mes0.Initialize
mes0 = Array As String("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
Dim MES As List
MES.Initialize
For Each o As Object In mes0
Dim Item As ASWheelPicker_Item
Item.Initialize
Item.Text = o
Item.Value = o
Item.ItemTextProperties = ASWheelPicker2.ItemTextProperties
Item.ItemTextProperties.TextColor = (0x8FF000000)
MES.Add(Item)
Next
ASWheelPicker2.AddItems(MES)
Dim year As List : year.Initialize
For i = DateTime.GetYear(DateTime.Now) To DateTime.GetYear(DateTime.Now) + 1
Dim Item As ASWheelPicker_Item
Item.Initialize
Item.Text = i
Item.Value = i
Item.ItemTextProperties = ASWheelPicker3.ItemTextProperties
Item.ItemTextProperties.TextColor = (0x8FF000000)
year.Add(Item)
Next
ASWheelPicker3.AddItems(year)
ASWheelPicker1.Refresh
ASWheelPicker2.Refresh
ASWheelPicker3.Refresh
If DateTime.GetDayOfMonth(DateTime.Now) < 10 And DateTime.GetMonth(DateTime.Now) < 10 Then
l_fechapago.Text = "0"&DateTime.GetDayOfMonth(DateTime.Now)&"/"&"0"&DateTime.GetMonth(DateTime.Now)&"/"&DateTime.GetYear(DateTime.Now)
Else If DateTime.GetDayOfMonth(DateTime.Now) >= 10 And DateTime.GetMonth(DateTime.Now) < 10 Then
l_fechapago.Text = DateTime.GetDayOfMonth(DateTime.Now)&"/"&"0"&DateTime.GetMonth(DateTime.Now)&"/"&DateTime.GetYear(DateTime.Now)
Else
l_fechapago.Text = DateTime.GetDayOfMonth(DateTime.Now)&"/"&DateTime.GetMonth(DateTime.Now)&"/"&DateTime.GetYear(DateTime.Now)
End If
MES1.Initialize(Me, "MES1")
' 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 B4XPage_PermissionResult (Permission As String, Result As Boolean)
Log($"PERMISSION_WRITE_EXTERNAL_STORAGE = ${Result}"$)
Else
Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
If Not(MES1.HasPermission) Then
MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
Wait For Msgbox_Result(Res As Int)
Log("Getting permission")
MES1.GetPermission
Wait For MES_StorageAvailable
End If
End If
' End If
End Sub
Private Sub B4XPage_Appear
WobbleMenu1.SetCurrentTab(1)
p_w1.Visible = True
parentesco = ""
p_camara.Visible = False
p_parentesco.Width = Root.Width
p_parentesco.Height = Root.Height
p_resultado.Width = Root.Width
p_resultado.Height = Root.Height
cuenta = B4XPages.MainPage.principal.lb.Text
Log (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_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 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_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)
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))
l.Position = 0
Log(l.GetString("CUENTA"))
If l.GetString("CUENTA") = 0 Then
et_comentarios.Text = ""
et_parentesco.Text = ""
et_monto.Text = ""
b_fecharesultado.Text = "Fecha de pago"
ASWheelPicker1.SelectRow(0,0,True)
ASWheelPicker2.SelectRow(0,0,True)
ASWheelPicker3.SelectRow(0,0,True)
i_datosparentesco.Visible = False
i_resultado.Visible = False
nombrefoto = "0"
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
Items2.Initialize
If e.RowCount > 0 Then
For i = 0 To e.RowCount-1
e.Position = i
Items2.Add(e.GetString("PARENTESCO"))
Next
cb_parentesco.SetItems(Items2)
End If
e.Close
f = Starter.skmt.ExecQuery("SELECT CO_ACDESCRIPCION, NUME FROM CAT_ACCION order by 2")
Dim Items3 As List
Items3.Initialize
If f.RowCount > 0 Then
For i = 0 To f.RowCount-1
f.Position = i
Items3.Add(f.GetString("CO_ACDESCRIPCION"))
Next
cb_accion.SetItems(Items3)
End If
f.Close
Dim Items4 As List
Items4.Initialize
cb_resultado.SetItems(Items4)
s = Starter.skmt.ExecQuery("SELECT NIVEL, NUMERO FROM NIVEL_SOCIO order by 2")
Dim Items5 As List
Items5.Initialize
If s.RowCount > 0 Then
For i = 0 To s.RowCount-1
s.Position = i
Items5.Add(s.GetString("NIVEL"))
Next
cb_socioeconomico.SetItems(Items5)
End If
s.Close
p = Starter.skmt.ExecQuery("SELECT TIPO, NUMERO FROM TIPO_VIVIENDA order by 2")
Dim Items6 As List
Items6.Initialize
If p.RowCount > 0 Then
For i = 0 To p.RowCount-1
p.Position = i
Items6.Add(p.GetString("TIPO"))
Next
cb_vivienda.SetItems(Items6)
End If
p.Close
q = Starter.skmt.ExecQuery("SELECT TIPO, NUMERO FROM CARACTERISTICAS order by 2")
Dim Items7 As List
Items7.Initialize
If q.RowCount > 0 Then
For i = 0 To q.RowCount-1
q.Position = i
Items7.Add(q.GetString("TIPO"))
Next
cb_caracteristicas.SetItems(Items7)
End If
q.Close
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, 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
Else If l.GetString("CUENTA") > 0 Then
m = Starter.skmt.ExecQuery2("SELECT * FROM HIST_VISITA WHERE CREDITO = ? AND ESTATUS = 1 OR ESTATUS = 0",Array As String(cuenta))
m.Position = 0
Log(cuenta)
e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUMERO, NUME FROM CAT_PARENTESCO order by 3")
Dim Items2 As List
Items2.Initialize
If e.RowCount > 0 Then
For i = 0 To e.RowCount-1
e.Position = i
Items2.Add(e.GetString("PARENTESCO"))
Next
cb_parentesco.SetItems(Items2)
End If
e.Close
e = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_PARENTESCO WHERE PARENTESCO = ?", Array As String(m.GetString("PARENTESCO")))
e.Position = 0
cb_parentesco.SelectedIndex = e.GetString("NUMERO")
e.Close
If cb_parentesco.SelectedItem = "Cliente" Or cb_parentesco.SelectedItem = "Selecciona una opción" Then
i_datosparentesco.Visible = False
Else
i_datosparentesco.Visible = True
et_parentesco.Text = m.GetString("NOMBRE_ATIENDE")
If et_parentesco.Text = "null" Then
et_parentesco.Text = ""
End If
End If
f = Starter.skmt.ExecQuery("SELECT CO_ACDESCRIPCION, NUMERO, NUME FROM CAT_ACCION order by 3")
Dim Items3 As List
Items3.Initialize
If f.RowCount > 0 Then
For i = 0 To f.RowCount-1
f.Position = i
Items3.Add(f.GetString("CO_ACDESCRIPCION"))
Next
cb_accion.SetItems(Items3)
End If
f.Close
f = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?", Array As String(m.GetString("ACCION")))
f.Position = 0
cb_accion.SelectedIndex = f.GetString("NUMERO")
f.Close
If cb_accion.SelectedItem = "Selecciona una opción" Then
Dim Items4 As List
Items4.Initialize
Items4.Add("")
cb_resultado.SetItems(Items4)
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_NC order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
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 = "DESHABITADA / ABANDONADA" Then
Dim Items4 As List
Items4.Initialize
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
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
g = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CAT_RESULTADO_DA WHERE CO_RDESCRIPCION = ?", Array As String(m.GetString("RESULTADO")))
g.Position = 0
Log(g.RowCount)
Log(g.GetString("NUMERO"))
cb_resultado.SelectedIndex = g.GetString("NUMERO")
g.Close
Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
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
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
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 = "ILOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
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
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
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
i_resultado.Visible = True
b_fecharesultado.Text = m.GetString("FECHA_PROMESA")
et_monto.Text = m.GetString("MONTO_PROMESA")
If et_monto.Text = "null" Then
et_monto.Text = ""
End If
Else
i_resultado.Visible = False
End If
et_comentarios.Text = m.GetString("COMENTARIOS")
If et_comentarios.Text = "null" Then
et_comentarios.Text = ""
End If
s = Starter.skmt.ExecQuery("SELECT NIVEL, NUMERO FROM NIVEL_SOCIO order by 2")
Dim Items5 As List
Items5.Initialize
If s.RowCount > 0 Then
For i = 0 To s.RowCount-1
s.Position = i
Items5.Add(s.GetString("NIVEL"))
Next
cb_socioeconomico.SetItems(Items5)
End If
s.Close
s = Starter.skmt.ExecQuery2("SELECT NUMERO FROM NIVEL_SOCIO WHERE NIVEL = ?", Array As String(m.GetString("NIVEL_SOCIO")))
s.Position = 0
cb_socioeconomico.SelectedIndex = s.GetString("NUMERO")
s.Close
p = Starter.skmt.ExecQuery("SELECT TIPO, NUMERO FROM TIPO_VIVIENDA order by 2")
Dim Items6 As List
Items6.Initialize
If p.RowCount > 0 Then
For i = 0 To p.RowCount-1
p.Position = i
Items6.Add(p.GetString("TIPO"))
Next
cb_vivienda.SetItems(Items6)
End If
p.Close
p = Starter.skmt.ExecQuery2("SELECT NUMERO FROM TIPO_VIVIENDA WHERE TIPO = ?", Array As String(m.GetString("TIPO_DOMICILIO")))
p.Position = 0
cb_vivienda.SelectedIndex = p.GetString("NUMERO")
p.Close
q = Starter.skmt.ExecQuery("SELECT TIPO, NUMERO FROM CARACTERISTICAS order by 2")
Dim Items7 As List
Items7.Initialize
If q.RowCount > 0 Then
For i = 0 To q.RowCount-1
q.Position = i
Items7.Add(q.GetString("TIPO"))
Next
cb_caracteristicas.SetItems(Items7)
End If
q.Close
q = Starter.skmt.ExecQuery2("SELECT NUMERO FROM CARACTERISTICAS WHERE TIPO = ?", Array As String(m.GetString("CARACTERISTICAS")))
q.Position = 0
cb_caracteristicas.SelectedIndex = q.GetString("NUMERO")
q.Close
Dim Dirp As String = File.DirRootExternal
Dim Dir As String
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/nuevotorrado")
Dir = "/nuevotorrado"
Log("creado en promotoria " & Dirp & Dir)
Catch
Dir = ""
Log("creado en raiz")
End Try
Try
File.MakeDir(Dirp & Dir,"/reduccion")
Dir2 = "/reduccion"
Log("creado en promotoria " & Dirp & Dir & Dir2)
Catch
Dir = ""
Log("creado en raiz")
End Try
If m.GetString("FOTOUNO") = "0" Then
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOUNO"))
nombrefoto = m.GetString("FOTOUNO")
End If
If m.GetString("FOTODOS") = "0" Then
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTODOS"))
nombrefoto1 = m.GetString("FOTODOS")
End If
If m.GetString("FOTOTRES") = "0" Then
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOTRES"))
nombrefoto2 = m.GetString("FOTOTRES")
End If
If m.GetString("FOTOCUATRO") = "0" Then
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOCUATRO"))
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
If Not(Starter.GPS.GPSEnabled) Then
ToastMessageShow("Debe Activar el GPS del Equipo.", True)
StartActivity(Starter.GPS.LocationSettingsIntent)
Else
Starter.GPS.Start(0, 0)
' If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
End If
End Sub
Sub WobbleMenu1_Tab1Click
p_w1.Visible = True
p_w2.Visible = False
p_w3.Visible = False
l_titulo.Text = "Datos generales"
End Sub
Sub WobbleMenu1_Tab2Click
p_w1.Visible = False
p_w2.Visible = True
p_w3.Visible = False
l_titulo.Text = "Datos financieros"
End Sub
Sub WobbleMenu1_Tab3Click
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
' frontCamera = camEx2.Front
' Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If
p_w1.Visible = False
p_w2.Visible = False
p_w3.Visible = True
l_titulo.Text = "Gestión"
End Sub
Private Sub cb_parentesco_SelectedIndexChanged (Index As Int)
Dim parentesco2 As String = cb_parentesco.SelectedItem
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 PARENTESCO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_parentesco.SelectedItem, cuenta))
If parentesco2 = "Selecciona una opción" Or parentesco2 = "Cliente" Then
i_datosparentesco.Visible = False
Else
Log("aqui1")
i_datosparentesco.Visible = True
If parentesco = "" Then
p_parentesco.Visible = True
Else
End If
End If
End Sub
Private Sub b_guardar_parentesco_Click
If et_parentesco.Text <> "" Then
parentesco = et_parentesco.Text
p_parentesco.Visible = False
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 NOMBRE_ATIENDE = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(et_parentesco.Text, cuenta))
Else
MsgboxAsync("Captura el nombre.","Atención")
End If
End Sub
Private Sub i_datosparentesco_Click
p_parentesco.Visible = True
End Sub
Private Sub p_parentesco_Click
If et_parentesco.Text <> "" Then
parentesco = et_parentesco.Text
p_parentesco.Visible = False
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 NOMBRE_ATIENDE = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(et_parentesco.Text, cuenta))
Else
MsgboxAsync("Captura el nombre.","Atención")
End If
End Sub
Private Sub p_nom_parentesco_Click
End Sub
Private Sub cb_accion_SelectedIndexChanged (Index As Int)
f = Starter.skmt.ExecQuery2("SELECT CO_ACCION FROM CAT_ACCION WHERE CO_ACDESCRIPCION = ?",Array As String(cb_accion.SelectedItem))
f.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))
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 ACCION = ?, CODIGO_ACCION = ?, RESULTADO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_accion.SelectedItem,f.GetString("CO_ACCION"), "Selecciona una opción",cuenta))
If cb_accion.SelectedItem = "Selecciona una opción" Then
Dim Items4 As List
Items4.Initialize
Items4.Add("")
cb_resultado.SetItems(Items4)
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_NC order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
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_DA order by 2")
If g.RowCount > 0 Then
For i = 0 To g.RowCount-1
g.Position = i
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
Else If cb_accion.SelectedItem = "LOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
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
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
Else If cb_accion.SelectedItem = "ILOCALIZABLE" Then
Dim Items4 As List
Items4.Initialize
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
Items4.Add(g.GetString("CO_RDESCRIPCION"))
Next
cb_resultado.SetItems(Items4)
End If
g.Close
End If
f.Close
End Sub
Private Sub cb_resultado_SelectedIndexChanged (Index As Int)
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_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))
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 RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
Else
i_resultado.Visible = True
p_resultado.Visible = True
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))
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 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 = "DESHABITADA / ABANDONADA" Then
i_resultado.Visible = False
p_resultado.Visible = False
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))
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 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 = "NO SE PUEDE CONFIRMAR" Then
i_resultado.Visible = False
p_resultado.Visible = False
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))
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 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 = "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_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))
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 RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
Else
i_resultado.Visible = True
p_resultado.Visible = True
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))
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 RESULTADO = ?, CODIGO_RES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_resultado.SelectedItem,j.GetString("CO_RESULTADO"), cuenta))
j.Close
End If
End If
End Sub
Private Sub b_guardarresultado_Click
Dim montoprometido As Float = et_monto.Text
If montoapagar < montoprometido Then
MsgboxAsync("El monto no puede ser mayor al monto a pagar","Atención")
Else
If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
montopago = et_monto.Text
fechapago = b_fecharesultado.Text
p_resultado.Visible = False
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 FECHA_PROMESA = ?, MONTO_PROMESA = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(b_fecharesultado.Text,et_monto.Text, cuenta))
Else
MsgboxAsync("Captura todos los datos.","Atención")
End If
End If
End Sub
Private Sub i_resultado_Click
p_resultado.Visible = True
End Sub
Private Sub p_resultado_Click
If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
montopago = et_monto.Text
fechapago = b_fecharesultado.Text
p_resultado.Visible = False
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 FECHA_PROMESA = ?, MONTO_PROMESA = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(b_fecharesultado.Text,et_monto.Text, cuenta))
Else
MsgboxAsync("Captura todos los datos.","Atención")
End If
End Sub
Private Sub p_datosresultado_Click
End Sub
Private Sub ASWheelPicker1_ItemChange(Column As Int,ListIndex As Int)
l_fechapago.Text = ASWheelPicker1.GetSelectedItem(Column).Text
day = ASWheelPicker1.GetSelectedItem(Column).Text
If month = "" Then
month2 = DateTime.GetMonth(DateTime.Now)
End If
If month = Null Or month2 = "" Or month2 = "null" Then
month2 = DateTime.GetMonth(DateTime.Now)
If month2 < 10 Then
month2 = "0"&DateTime.GetMonth(DateTime.Now)
Else
month2 = month2 = DateTime.GetMonth(DateTime.Now)
End If
End If
If day < 10 Then
day = "0"&day
Else
day = day
End If
If day = 1 Or day = "2" Or day = "3" Or day = "4" Or day = "5" Or day = "6" Or day = "7" Or day = "8" Or day = "9" Then
l_fechapago.Text = "0"&day&"/"&month2&"/"&year2
Else
l_fechapago.Text = day&"/"&month2&"/"&year2
End If
End Sub
Private Sub ASWheelPicker2_ItemChange(Column As Int,ListIndex As Int)
l_fechapago.Text = ASWheelPicker2.GetSelectedItem(Column).Text
month = ASWheelPicker2.GetSelectedItem(Column).Text
If month = "Enero" Then
month2 = "01"
Else If month = "Febrero" Then
month2 = "02"
Else If month = "Marzo" Then
month2 = "03"
Else If month = "Abril" Then
month2 = "04"
Else If month = "Mayo" Then
month2 = "05"
Else If month = "Junio" Then
month2 = "06"
Else If month = "Julio" Then
month2 = "07"
Else If month = "Agosto" Then
month2 = "08"
Else If month = "Septiembre" Then
month2 = "09"
Else If month = "Octubre" Then
month2 = "10"
Else If month = "Noviembre" Then
month2 = "11"
Else If month = "Diciembre" Then
month2 = "12"
End If
If day < 10 Then
day = "0"&day
Else
day = day
End If
If day = 1 Or day = "2" Or day = "3" Or day = "4" Or day = "5" Or day = "6" Or day = "7" Or day = "8" Or day = "9" Then
l_fechapago.Text = "0"&day&"/"&month2&"/"&year2
Else
l_fechapago.Text = day&"/"&month2&"/"&year2
End If
End Sub
Private Sub ASWheelPicker3_ItemChange(Column As Int,ListIndex As Int)
l_fechapago.Text = ASWheelPicker3.GetSelectedItem(Column).Text
year2 = ASWheelPicker3.GetSelectedItem(Column).Text
If month = "" Then
month2 = DateTime.GetMonth(DateTime.Now)
End If
If month = Null Or month2 = "" Or month2 = "null" Then
month2 = DateTime.GetMonth(DateTime.Now)
If month2 < 10 Then
month2 = "0"&DateTime.GetMonth(DateTime.Now)
Else
month2 = month2 = DateTime.GetMonth(DateTime.Now)
End If
End If
If day < 10 Then
day = "0"&day
Else
day = day
End If
If day = 1 Or day = "2" Or day = "3" Or day = "4" Or day = "5" Or day = "6" Or day = "7" Or day = "8" Or day = "9" Then
l_fechapago.Text = "0"&day&"/"&month2&"/"&year2
Else
l_fechapago.Text = day&"/"&month2&"/"&year2
End If
End Sub
Private Sub b_fecharesultado_Click
p_calendario.Visible = True
End Sub
Private Sub bgfecha_Click
DateTime.DateFormat = "yyyyMMdd"
Dim fechahoy As Int = DateTime.Date(DateTime.Now)
If month = Null Or month2 = "" Or month2 = "null" Then
month2 = DateTime.GetMonth(DateTime.Now)
If month2 < 10 Then
month2 = "0"&DateTime.GetMonth(DateTime.Now)
Else
month2 = month2 = DateTime.GetMonth(DateTime.Now)
End If
End If
If day < 10 Then
dia = "0"&day
Else
dia = day
End If
If year2 = Null Or year2 = "" Or year2 = "null" Then
year2 = DateTime.GetYear(DateTime.Now)
End If
Dim fechacompara As Int = year2&month2&dia
If fechacompara < fechahoy Then
MsgboxAsync("La fecha no puede ser menor al día de hoy","Atención")
Else
p_calendario.Visible = False
b_fecharesultado.Text = l_fechapago.Text
End If
End Sub
Private Sub b_cancelar_Click
p_parentesco.Visible = False
End Sub
Private Sub b_cancelarresultado_Click
b_fecharesultado.Text = "Fecha de pago"
ASWheelPicker1.SelectRow(0,0,True)
ASWheelPicker2.SelectRow(0,0,True)
ASWheelPicker3.SelectRow(0,0,True)
p_resultado.Visible = False
End Sub
Private Sub p_calendario_Click
End Sub
Private Sub b_cancelarfecha_Click
p_calendario.Visible = False
ASWheelPicker1.SelectRow(0,0,True)
ASWheelPicker2.SelectRow(0,0,True)
ASWheelPicker3.SelectRow(0,0,True)
End Sub
Private Sub et_comentarios_TextChanged (Old As String, New As String)
Private maxSize As Int = 500
If New.Length > maxSize Then et_comentarios.Text = Old
If et_comentarios.Text.Length = 0 Then
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET COMENTARIOS = ? 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 COMENTARIOS = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(et_comentarios.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))
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 CARACTERISTICAS = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_caracteristicas.SelectedItem, cuenta))
End Sub
Private Sub cb_vivienda_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))
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 TIPO_DOMICILIO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_vivienda.SelectedItem, cuenta))
End Sub
Private Sub cb_socioeconomico_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))
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 NIVEL_SOCIO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_socioeconomico.SelectedItem, cuenta))
End Sub
'tomar foto
Private Sub InitializeCamera2
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
frontCamera = camEx2.Front
Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If
End Sub
Sub Camera1_Ready (Success As Boolean)
Log("Camara ready")
If Success Then
camEx2.SetJpegQuality(90)
camEx2.SetContinuousAutoFocus
camEx2.CommitParameters
camEx2.StartPreview
Log(camEx2.GetPreviewSize)
Else
ToastMessageShow("Cannot open camera.", True)
Log("Cannot open camera")
End If
End Sub
Sub Camera1_PictureTaken (Data()As Byte)
Log("tome foto")
Dim filename As String = fototomada
Dim Dirp As String = File.DirRootExternal
Dim Dir As String
Dim Dir2 As String
Try
File.MakeDir(Dirp,"/nuevotorrado")
Dir = "/nuevotorrado"
Log("creado en promotoria " & Dirp & Dir)
Catch
Dir = ""
Log("creado en raiz")
End Try
Try
File.MakeDir(Dirp & Dir,"/reduccion")
Dir2 = "/reduccion"
Log("creado en promotoria " & Dirp & Dir & Dir2)
Catch
Dir = ""
Log("creado en raiz")
End Try
camEx2.SavePictureToFile(Data, Dirp&Dir, filename)
camEx2.StartPreview 'restart preview
ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
Log("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename)
p_camara.Visible = False
If nombrefoto <> 0 Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True)
img.WriteToStream(out, 100, "PNG")
out.Close
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto)
End If
If nombrefoto1 <> 0 Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG")
out.Close
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1)
End If
If nombrefoto2 <> 0 Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG")
out.Close
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2)
End If
If nombrefoto3 <> 0 Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG")
out.Close
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3)
End If
StopCamera2
End Sub
Private Sub p_camara_Click
End Sub
Private Sub b_foto_Click
camEx2.TakePicture
p_camara.Visible = False
' StopCamera2
End Sub
Private Sub StopCamera2
' Capturing = False
If camEx2.IsInitialized Then
camEx2.Release
End If
End Sub
Private Sub ImageView1_Click
' foto = 2
DateTime.DateFormat="ddMMyyyyHHmmss"
InitializeCamera2
p_camara.Visible = True
nombrefoto = DateTime.Now & "_FOTO1.jpg"
teclado.HideKeyboard
fototomada = nombrefoto
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 FOTOUNO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto, cuenta))
End Sub
Private Sub ImageView2_Click
' foto = 2
DateTime.DateFormat="ddMMyyyyHHmmss"
InitializeCamera2
p_camara.Visible = True
nombrefoto1 = DateTime.Now & "_FOTO2.jpg"
teclado.HideKeyboard
fototomada = nombrefoto1
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 FOTODOS = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto1, cuenta))
End Sub
Private Sub ImageView3_Click
' foto = 2
DateTime.DateFormat="ddMMyyyyHHmmss"
InitializeCamera2
p_camara.Visible = True
nombrefoto2 = DateTime.Now & "_FOTO3.jpg"
teclado.HideKeyboard
fototomada = nombrefoto2
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 FOTOTRES = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto2, cuenta))
End Sub
Private Sub ImageView4_Click
' foto = 2
DateTime.DateFormat="ddMMyyyyHHmmss"
InitializeCamera2
p_camara.Visible = True
nombrefoto3 = DateTime.Now & "_FOTO4.jpg"
teclado.HideKeyboard
fototomada = nombrefoto3
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
c.Close
Starter.skmt.ExecNonQuery2("UPDATE HIST_VISITA SET FOTOCUATRO = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(nombrefoto3, cuenta))
End Sub
Private Sub b_guardar_Click
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
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"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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
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")
End If
Else
MsgboxAsync("Captura todos los datos de la promesa de pago","Atención")
End If
Else
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"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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
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")
End If
End If
Else
MsgboxAsync("Captura el nombre del tipo de contacto.","Atención")
End If
Else
If i_resultado.Visible Then
If et_monto.Text <> "" And b_fecharesultado.Text <> "Fecha de pago" Then
If et_comentarios.Text <> "" Then
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"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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("Por favor captura todas las fotos","Atención")
End If
Else
MsgboxAsync("Falta capturar comentarios","Atención")
End If
Else
MsgboxAsync("Captura todos los datos de la promesa de pago","Atención")
End If
Else
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"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(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, 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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 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 & " " & hora_captura, Starter.latitud, Starter.longitud, fecha_captura & " " & hora_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
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")
End If
End If
End If
Else
MsgboxAsync("Falta capturar comentarios","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Caracteristicas","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Tipo de vivienda","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Nivel socioeconomico","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Resultado","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Acción","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de Parentesco","Atención")
End If
Else
MsgboxAsync("Selecciona una opción de servicio electrico","Atención")
End If
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
If p_camara.Visible Then
p_camara.Visible = False
Else
p_w1.Visible = False
p_w2.Visible = False
p_w3.Visible = False
B4XPages.ShowPage("principal")
End If
' Return True
Return False
End Sub
Sub GPS_LocationChanged (Location1 As Location)
' ubicacion.Initialize
' ubicacion.Latitude = mlat
' ubicacion.Longitude = mlon
' If logger Then Log($"${Location1.Latitude}, ${Location1.Longitude}, ${Location1.Accuracy}"$)
' laDist = Location1.DistanceTo(ubicacion)
' l_ubicacion.Text = $"Dist: $1.0{laDist} mts."$
' Log(Location1.Latitude)
' Log(Location1.Longitude)
' 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)
' 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 View Git Blame Copy Permalink