Commit inicial

2026-04-17 19:37:03 +00:00 · 2023-09-03 14:15:38 -06:00
commit 25729591a9
394 changed files with 13219 additions and 0 deletions
--- a/gestion.bas
+++ b/gestion.bas
@@ -0,0 +1,267 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=6.8
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+'    Dim g As GPS
+End Sub
+
+Sub Globals
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+    Dim s As SQL
+	Dim c As Cursor
+	Dim nombre As EditText
+	Dim btn As Button
+	Dim lv As ListView
+	Dim telefono As EditText
+	Dim lb_gps As Label
+'	Dim lat_gps As String
+'	Dim lon_gps As String
+	
+	Dim contacto As EditText
+	Dim Resultado As EditText
+	Dim comentario As EditText
+	Dim codigos As Button
+	Dim parent As Button
+	Dim quien_llamo As String
+	Dim fecha As EditText
+	Dim l_fecha As Label
+	Dim l_monto As Label
+	Dim monto As EditText
+	Dim cuantos As String
+	Dim l_comentario As Label
+	Dim l_ird1 As Label
+	Dim ird1 As EditText
+	Dim l_ird2 As Label
+	Dim ird2 As EditText
+	Dim l_ird3 As Label
+	Dim ird3 As EditText
+	Dim l_ird4 As Label
+	Dim ird4 As EditText
+	Dim despues As Button
+	Dim cuenta As String
+	Dim usuario As String
+	Dim result As String
+	Dim pondera As String
+	
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	'Activity.LoadLayout("Layout1")
+	If(FirstTime) Then
+'	 g.Initialize("GPS")
+	End If
+	Activity.LoadLayout("guardagestion")
+    
+	
+	Dim ruta As String
+	
+	' valido donde escribo el archivo de la base de datos de kmt
+	ruta = File.DirInternal
+	
+	' se crea o no el archivo de la base de ddatos de kmt
+	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE 
+	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
+	'SI SE REGRESA A ESTE ACTIVIDAD.
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+	
+	s.Initialize(ruta,"kmt.db", True)
+	
+End Sub
+
+Sub Activity_Resume
+'     If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+'	  g.Start(0,0)
+'	 End If
+	 
+	 
+	  monto.Visible = False
+	  l_monto.Visible = False
+	  l_fecha.Visible = False
+	  fecha.Visible = False
+	contacto.Text = ""
+	Resultado.Text= ""
+	comentario.Text =""
+	monto.Text = ""
+	fecha.Text = ""
+	 
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+'    g.Start(0,0)
+End Sub
+Sub btn_Click
+	If Resultado.text<>"" And contacto.Text<>"" And comentario.text<>"" Then
+	'	 c=s.ExecQuery("select pr_cd_credito,pr_cd_nombre,pr_cd_calle,pr_cd_numero,pr_cd_num_int,pr_cd_entrecalle1,pr_cd_entrecalle2,pr_cd_colonia,pr_cd_poblacion,pr_cd_edo,pr_cd_cp,pr_Cd_zona, pr_cf_saldotot,pr_cf_saldooper,pr_cf_saldof1, pr_cf_penalizacion, pr_kt_producto, Pr_Ca_Padre, Pr_Ca_No_Ird from kmt_info where pr_cd_credito In (select cuenta from cuentaa)")
+	'ESTO SE NECESITA PARA SACAR LOS VALORES Y COMPARAR LOS IRD
+	' 	     c.Position=0
+	'		 Dim la_cuenta As String = c.GetString("pr_cd_credito")
+	'		 Dim La_nombre As String = c.GetString("pr_cd_nombre")
+	'		 la_Calle.Text = c.GetString("pr_cd_calle")
+	'		 la_numero.Text = c.GetString("pr_cd_numero")
+	'		 la_nint.Text = c.GetString("pr_cd_num_int")
+	'		 la_entre1.Text = c.GetString("pr_cd_entrecalle1")
+	'		 la_entre2.Text = c.GetString("pr_cd_entrecalle2")
+	'		 la_col.Text = c.GetString("pr_cd_colonia")
+	'		 la_pob.Text = c.GetString("pr_cd_poblacion")
+	'		 la_edo.Text = c.GetString("pr_cd_edo")
+	'		 la_cp.Text = c.GetString("pr_cd_cp")
+	'		 la_zona.Text = c.GetString("pr_Cd_zona")
+	'		 la_saldotot.Text = c.GetString("pr_cf_saldotot")
+	'		 la_saldooper.Text = c.GetString("pr_cf_saldooper")
+	'		 la_saldof1.Text = c.GetString("pr_cf_saldof1")
+	'		 la_penal.Text = c.GetString("pr_cf_penalizacion")
+	'		 la_producto.Text = c.GetString("pr_kt_producto")
+	'		 la_padre.Text = c.GetString("Pr_Ca_Padre")
+	'		 la_no_ird.Text = c.GetString("Pr_Ca_No_Ird")
+			 
+		c=s.ExecQuery("select CUENTA from cuentaa")
+        c.Position = 0
+	    cuenta = c.GetString("CUENTA")
+	    c=s.ExecQuery("select usuario from usuarioa")
+		c.Position = 0
+		usuario = c.GetString("USUARIO")
+		c=s.ExecQuery2("select CRDESC,CRCOD AS CODIGO,CRPROD from cod_result WHERE CRDESC = ? ", Array As String(Resultado.Text))
+	    c.Position = 0
+		result = c.GetString("CODIGO")
+		'pondera = c.GetString("CAT_CO_PONDERACION")
+		Dim sDate,sTime As String
+
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+	   s.ExecNonQuery("UPDATE kmt_info set gestion = 1  where MGCTA In (select cuenta from cuentaa)")
+	   s.ExecNonQuery2("UPDATE  hist_visitas SET HIST_VI_VISITADOR = ?, HIST_VI_RESULTADO = ?, HIST_VI_CODIGO = ?, HIST_VI_PARENTESCO = ?, HIST_VI_COMENTARIO =?,  HIST_VI_DPROM =?, HIST_VI_MPROM =? WHERE HIST_VI_CREDITO = ? ", Array As Object(usuario,Resultado.Text,result,contacto.text, comentario.Text,fecha.text,monto.Text, cuenta))
+	   'datetime(updatedon,'localtime')
+	   'CallSubDelayed(foto,"foto")
+	   StartActivity(seleccion)
+	End If
+End Sub
+Sub GPS_LocationChanged (Location1 As Location)
+'	Dim sDate,sTime As String
+'
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
+'	lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+'	lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+'s.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
+ End Sub
+
+
+
+Sub codigos_Click
+    quien_llamo = "codigo"
+	c=s.ExecQuery("select COUNT(*) AS CUANTOS from COD_RESULT WHERE CRPROD IN (select productoa from productoa)")
+	   c.Position=0
+	   cuantos = c.GetString("CUANTOS")
+	   If cuantos = 0 Then
+	   lv.Clear
+	   lv.AddSingleLine("SIN CODIGOS")
+	   
+	   Else
+	c=s.ExecQuery("select CRDESC AS DESC, CRCOD from COD_RESULT WHERE CRPROD IN (select productoa from productoa) ORDER BY CRDESC ASC")
+	   lv.Clear
+	   
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 lv.AddSingleLine(c.GetString("DESC"))
+	      Next
+	   End If
+	   End If
+End Sub
+Sub lv_ItemClick (Position As Int, Value As Object)
+    Dim es_c_promesa As String
+    If quien_llamo = "codigo" Then
+	Resultado.Text = Value
+	If Resultado.Text <> "EQUIPO RECUPERADO" Then
+	 comentario.Visible = True
+	 l_comentario.Visible = True
+	 l_ird1.Visible = False
+	 ird1.Visible = False
+	 l_ird2.Visible = False
+	 ird2.Visible = False
+	 l_ird3.Visible = False
+	 ird3.Visible = False
+	 l_ird4.Visible = False
+	 ird4.Visible = False
+	
+'	c=s.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS WHERE CAT_CO_RDESCRIPCION = ? ", Array As String(Value))
+'	  c.Position=0
+'	  es_c_promesa=c.GetString("CAT_CO_CONFIGURACION")
+	  If Resultado.Text = "PROMESA DE PAGO" Then
+	  monto.Visible = True
+	  l_monto.Visible = True
+	  l_fecha.Visible = True
+	  fecha.Visible = True
+	  Else
+	  monto.Visible = False
+	  l_monto.Visible = False
+	  l_fecha.Visible = False
+	  fecha.Visible = False
+	  
+	  End If
+	 Else
+	 comentario.Visible = False
+	 l_comentario.Visible = False
+	 l_ird1.Visible = True
+	 ird1.Visible = True
+	 l_ird2.Visible = True
+	 ird2.Visible = True
+	 l_ird3.Visible = True
+	 ird3.Visible = True
+	 l_ird4.Visible = True
+	 ird4.Visible = True
+	End If
+	 
+	Else
+	contacto.Text = Value
+	End If
+	lv.Clear
+End Sub
+Sub parent_Click
+	quien_llamo = "parent"
+	c=s.ExecQuery("select CAT_PA_ID, CAT_PA_PARENTESCO from CAT_PARENTESCO order by CAT_PA_PARENTESCO asc")
+	   lv.Clear
+	   
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 lv.AddSingleLine(c.GetString("CAT_PA_PARENTESCO"))
+	      Next
+	   End If
+End Sub
+Sub despues_Click
+	 s.ExecNonQuery("UPDATE kmt_info set gestion = 2  where pr_cd_credito In (select cuenta from cuentaa)")
+	   's.ExecNonQuery2("insert into hist_Act (htel, hanombre) values (?,datetime(updatedon,'localtime'))" Array As String(cuantos))
+	   
+	   'CallSubDelayed(foto,"foto")
+	  StartActivity(colonia)
+End Sub
+Sub Activity_KeyPress (key As Int) As Boolean
+    ' BACK key pressed
+    If key=KeyCodes.KEYCODE_BACK Then
+            ' I want to capture the key here so I return True
+			StartActivity(seleccion)
+            'Return True
+    End If
+    ' Returning False signals the system to handle the key
+    Return False
+End Sub