22/12/23 - Commit inicial

2026-04-17 19:37:08 +00:00 · 2023-12-22 20:35:11 -06:00
commit 85de96e5e5
87 changed files with 9311 additions and 0 deletions
--- a/detalle_promo.bas
+++ b/detalle_promo.bas
@@ -0,0 +1,140 @@
+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 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 Regresar As Button
+	Dim b As Cursor
+	Dim regalo As String
+	
+
+	Dim ListView1 As ListView
+	Dim L_CANT As Label
+	Dim L_TOTAL As Label
+	Dim borra As Button
+	Dim Existe As String
+	End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	    Activity.LoadLayout("detalle_promo")
+
+	' 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
+	
+'	skmt.Initialize(ruta,"kmt.db", True)
+	  
+	   c=Starter.skmt.execQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
+	   ListView1.Clear
+	  
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+		     b=Starter.skmt.execQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ID = ?", Array As String(C.GetString("CAT_DP_IDPROD")))
+			 B.Position =0
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 15
+			 label1.TextColor = Colors.White
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.White
+			 If c.GetString("CAT_DP_PRECIO") = 0 Then
+			 regalo = "SI"
+			 Else
+			 regalo = "NO"
+			 End If
+			 ListView1.AddTwoLines(B.GetString("CAT_GP_NOMBRE"),"Cantidad # "& c.GetString("CAT_DP_PZAS")& " REGALO  "& regalo)
+			 b.Close	      
+		  Next
+		  c.Close
+	   End If
+		 '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
+'    skmt.Initialize(ruta,"kmt.db", True)
+	   
+	   c=Starter.skmt.execQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
+	   ListView1.Clear
+	  
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+		     b=Starter.skmt.execQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ID = ?", Array As String(C.GetString("CAT_DP_IDPROD")))
+			 B.Position =0
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 15
+			 label1.TextColor = Colors.White
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.White
+			 If c.GetString("CAT_DP_PRECIO") = 0 Then
+			 regalo = "SI"
+			 Else
+			 regalo = "NO"
+			 End If
+			 ListView1.AddTwoLines(B.GetString("CAT_GP_NOMBRE"),"Cantidad # "& c.GetString("CAT_DP_PZAS")& " REGALO  "& regalo)
+			 b.Close	      
+		  Next
+		  c.Close
+	   End If
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub Regresar_Click
+	StartActivity(pedidos)
+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(pedidos)
+            'Return True
+    End If
+    ' Returning False signals the system to handle the key
+    Return False
+End Sub