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) + 4 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 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 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 = ? WHERE CREDITO = ? AND ESTATUS = 1", Array As String(cb_accion.SelectedItem,f.GetString("CO_ACCION"), 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" 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, 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, 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 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" 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, 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 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 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" 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("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" 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, 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 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 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