23/9/23 - Commiit inicial.

2026-04-17 21:06:15 +00:00 · 2023-09-24 00:58:57 -06:00
commit 0e76c04ade
85 changed files with 9504 additions and 0 deletions
--- a/BUSCAR.bas
+++ b/BUSCAR.bas
@@ -0,0 +1,138 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@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 skmt As SQL
+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 c As Cursor
+'	Dim ruta As String
+	Dim ListView1 As ListView
+	Dim b_noventa As Button
+	Private p_principal As Panel
+	End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+'	ruta = Main.ruta
+	Activity.LoadLayout("buscar")
+
+	' 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(Starter.ruta, "kmt.db") = False Then
+'		File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
+'	End If
+'	skmt.Initialize(Starter.ruta,"kmt.db", True)
+	c=Starter.skmt.ExecQuery("select REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT FROM REPARTO")
+	ListView1.Clear
+	  
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Dim label1 As Label
+			label1 = ListView1.TwoLinesLayout.Label
+			label1.TextSize = 10
+			label1.TextColor = Colors.Black
+			Dim label2 As Label
+			label2 = ListView1.TwoLinesLayout.SecondLabel
+			label2.TextSize = 10
+			label2.TextColor = Colors.Blue
+			ListView1.AddTwoLines(c.GetString("REP_CLIENTE"),c.GetString("REP_PRONOMBRE") &"   Cantidad #"& c.GetString("REP_CANT")& " SubTotal $"& c.GetString("REP_COSTO_TOT"))
+		Next
+	End If
+	c.Close
+		
+	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+			 
+	'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
+	'  Next
+	'End If
+
+End Sub
+
+Sub Activity_Resume
+	p_principal.Width = Activity.Width
+	p_principal.Height = Activity.Height
+    Subs.centraPanel(p_principal, Activity.Width)
+	
+	c=Starter.skmt.ExecQuery("select REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT FROM REPARTO")
+	   ListView1.Clear
+	  
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 10
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("REP_CLIENTE"),c.GetString("REP_PRONOMBRE") &"   Cantidad #"& c.GetString("REP_CANT")& " SubTotal $"& c.GetString("REP_COSTO_TOT"))
+	      Next
+	   End If
+		c.Close
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub Regresar_Click
+	StartActivity(fila)
+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
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	Starter.skmt.ExecNonQuery("delete from CUENTAA")
+	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+	StartActivity(fila)
+End Sub
+Sub b_noventa_Click
+	c=Starter.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM FROM NOVENTA ORDER BY NV_CLIENTE asc")
+	   ListView1.Clear
+	  
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 10
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("NV_CLIENTE"),"Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM"))
+	      Next
+	   End If
+End Sub