22/12/23 - Commit inicial

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitignore

@@ -0,0 +1,2 @@
+**/Objects
+**/AutoBackups

BUSCAR.bas

@@ -0,0 +1,187 @@
+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 S As Cursor
+	Dim ruta As String
+	Dim ListView1 As ListView
+	Dim b_noventa As Button
+	Dim nombre_boton As String
+	Dim STIME 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("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(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 PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA 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 = 15
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),"Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+	      Next
+	   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
+nombre_boton = "NOVENTA"
+    
+	
+	c=starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA 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 = 15
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+	      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))
+	DateTime.TimeFormat = "HHmmss"
+	STIME=DateTime.Time(DateTime.Now)
+	s=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
+	s.Position = 0
+	If s.GetString("CUANTOS") = 1 Then
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+	Else
+		Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
+		Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+	End If
+	DateTime.TimeFormat = "HH:mm:ss"
+	StartActivity(fila)
+End Sub
+Sub b_noventa_Click
+
+If nombre_boton = "NOVENTA" Then
+nombre_boton = "VENTA"
+b_noventa.Text ="VENTA"
+
+		c=starter.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE 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 = 15
+			 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"),c.GetString("NOMBRE") &"  Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM"))
+	      Next
+	   End If
+Else
+nombre_boton = "NOVENTA"
+b_noventa.Text ="NO VENTA"
+		c=starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA 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 = 15
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("PC_CLIENTE"),c.GetString("NOMBRE") &"   Cantidad #"& c.GetString("PC_NOART")& " SubTotal $"& c.GetString("PC_MONTO"))
+	      Next
+	   End If
+		c.Close
+
+
+End If
+
+
+	
+
+End Sub

BatteryUtilities.bas

@@ -0,0 +1,126 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=9.5
+@EndOfDesignText@
+'Class module
+Sub Class_Globals
+	Private nativeMe As JavaObject
+	
+End Sub
+'Initializes the object.
+Public Sub Initialize
+	nativeMe = Me
+End Sub
+'Return information about the battery status. It returns the following 11 values in an integer Array: 
+'EXTRA_LEVEL = current battery level, from 0 To EXTRA_SCALE. 
+'EXTRA_SCALE = the maximum battery level possible.
+'EXTRA_HEALTH = the current health constant.
+'EXTRA_ICON_SMALL = the resource ID of a small status bar icon indicating the current battery state. 
+'EXTRA_PLUGGED = whether the device is plugged into a Power source; 0 means it is on battery, other constants are different types of Power sources.
+'EXTRA_STATUS = the current status constant.
+'EXTRA_TEMPERATURE = the current battery temperature. 
+'EXTRA_VOLTAGE = the current battery voltage level.
+'A value indicating if the battery is being charged or fully charged (If neither it returns 0 Else it returns 1)
+'A value indicating if it is charging via USB (0 = Not USB, 2 = USB)
+'A value indicating if it is charging via AC (0 = Not AC, 1 = AC)
+Public Sub getBatteryInformation () As Int()
+
+	Dim batteryInfo(11)  As Int
+	batteryInfo = nativeMe.RunMethod("getBatteryInformation",Null)
+	Return batteryInfo
+
+End Sub
+
+Public Sub getBatteryTechnolgy() As String
+
+	Dim batterytech As String
+	batterytech = nativeMe.RunMethod("getBatteryTechnology",Null)
+	Return batterytech
+
+End Sub
+
+
+
+#If Java
+
+import android.os.BatteryManager;
+import android.os.Bundle;
+import android.app.Activity;
+import android.content.BroadcastReceiver;
+import android.content.Context;
+import android.content.Intent;
+import android.content.IntentFilter;
+
+  public int[] getBatteryInformation() {
+
+    int[] mybat = new int[11];
+ 
+	Intent batteryIntent = ba.context.getApplicationContext().registerReceiver(null, new IntentFilter(Intent.ACTION_BATTERY_CHANGED));
+ 
+	int level = batteryIntent.getIntExtra(BatteryManager.EXTRA_LEVEL, -1);
+        mybat[0] = level;
+	int scale = batteryIntent.getIntExtra(BatteryManager.EXTRA_SCALE, -1);
+        mybat[1] = scale;
+        int health = batteryIntent.getIntExtra(BatteryManager.EXTRA_HEALTH,-1);
+        mybat[2] = health; 
+        int icon_small = batteryIntent.getIntExtra(BatteryManager.EXTRA_ICON_SMALL,-1);
+        mybat[3] = icon_small;
+        int plugged = batteryIntent.getIntExtra(BatteryManager.EXTRA_PLUGGED,-1);
+        mybat[4] = plugged;
+//        boolean present = batteryIntent.getExtras().getBoolean(BatteryManager.EXTRA_PRESENT); 
+        int status = batteryIntent.getIntExtra(BatteryManager.EXTRA_STATUS,-1);
+        mybat[5] = status;
+//        String technology = batteryIntent.getExtras().getString(BatteryManager.EXTRA_TECHNOLOGY);
+//		BA.Log("Technology = " + technology);
+        int temperature = batteryIntent.getIntExtra(BatteryManager.EXTRA_TEMPERATURE,-1);
+        mybat[6] = temperature;
+        int voltage = batteryIntent.getIntExtra(BatteryManager.EXTRA_VOLTAGE,-1);
+        mybat[7] = voltage; 
+//        int ac = batteryIntent.getIntExtra("plugged",BatteryManager.BATTERY_PLUGGED_AC);
+//        mybat[8] = ac; 
+//        int usb = batteryIntent.getIntExtra("plugged",BatteryManager.BATTERY_PLUGGED_USB);
+//        mybat[9] = usb; 
+
+        boolean isCharging = status == BatteryManager.BATTERY_STATUS_CHARGING ||
+                     status == BatteryManager.BATTERY_STATUS_FULL;
+        mybat[8] = 0;
+        if (isCharging == true) {
+           mybat[8] = 1;
+        }   
+
+        // How are we charging?
+        mybat[9] = 0;
+        mybat[10] = 0; 
+        int chargePlug = batteryIntent.getIntExtra(BatteryManager.EXTRA_PLUGGED, -1);
+        boolean usbCharge = chargePlug == BatteryManager.BATTERY_PLUGGED_USB;
+        if (usbCharge == true) {
+           mybat[9] = 2;
+        }   
+
+        boolean acCharge = chargePlug == BatteryManager.BATTERY_PLUGGED_AC;
+        if (acCharge == true) {
+           mybat[10] = 1;
+        }   
+
+        return mybat;
+  }
+  
+ 
+   public String getBatteryTechnology() {
+
+	    Intent batteryIntent = ba.context.getApplicationContext().registerReceiver(null, new IntentFilter(Intent.ACTION_BATTERY_CHANGED));
+
+        String technology = batteryIntent.getExtras().getString(BatteryManager.EXTRA_TECHNOLOGY);
+
+        return technology;
+  }
+ 
+
+
+
+
+
+
+#End If

CameraExClass.bas

@@ -0,0 +1,290 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=6.8
+@EndOfDesignText@
+
+'Class module
+'version 1.20
+'See this page for the list of constants:
+'http://developer.android.com/intl/fr/reference/android/hardware/Camera.Parameters.html
+'Note that you should use the constant values instead of the names.
+Sub Class_Globals
+	Private nativeCam As Object
+	Private cam As Camera
+	Private r As Reflector
+	Private target As Object
+	Private event As String
+	Public Front As Boolean
+	Type CameraInfoAndId (CameraInfo As Object, Id As Int)
+	Type CameraSize (Width As Int, Height As Int)
+	Private parameters As Object
+End Sub
+
+Public Sub Initialize (Panel1 As Panel, FrontCamera As Boolean, TargetModule As Object, EventName As String)
+	target = TargetModule
+	event = EventName
+	Front = FrontCamera
+	Dim id As Int
+	id = FindCamera(Front).id
+	If id = -1 Then
+		Front = Not(Front) 'try different camera
+		id = FindCamera(Front).id
+		If id = -1 Then
+			ToastMessageShow("No camera found.", True)
+			Return
+		End If
+	End If
+	cam.Initialize2(Panel1, "camera", id)
+End Sub
+
+Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId
+	Dim ci As CameraInfoAndId
+	Dim cameraInfo As Object
+	Dim cameraValue As Int
+	If frontCamera Then cameraValue = 1 Else cameraValue = 0
+	cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")
+	Dim numberOfCameras As Int = r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)
+	For i = 0 To numberOfCameras - 1
+		r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _
+			Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))
+		r.target = cameraInfo
+		If r.GetField("facing") = cameraValue Then 
+			ci.cameraInfo = r.target
+			ci.Id = i
+			Return ci
+		End If
+	Next
+	ci.id = -1
+	Return ci
+End Sub
+
+Private Sub SetDisplayOrientation
+	r.target = r.GetActivity
+	r.target = r.RunMethod("getWindowManager")
+	r.target = r.RunMethod("getDefaultDisplay")
+	r.target = r.RunMethod("getRotation")
+	Dim previewResult, result, degrees As Int = r.target * 90
+	Dim ci As CameraInfoAndId = FindCamera(Front)
+	r.target = ci.CameraInfo
+	Dim orientation As Int = r.GetField("orientation")
+	If Front Then
+		previewResult = (orientation + degrees) Mod 360
+		result = previewResult
+		previewResult = (360 - previewResult) Mod 360
+	Else
+		previewResult = (orientation - degrees + 360) Mod 360
+		result = previewResult
+		Log(previewResult)
+	End If
+	r.target = nativeCam
+	r.RunMethod2("setDisplayOrientation", previewResult, "java.lang.int")
+	r.target = parameters
+	r.RunMethod2("setRotation", result, "java.lang.int")
+	CommitParameters
+End Sub
+
+Private Sub Camera_Ready (Success As Boolean)
+	If Success Then
+		r.target = cam
+		nativeCam = r.GetField("camera")
+		r.target = nativeCam
+		parameters = r.RunMethod("getParameters")
+		SetDisplayOrientation
+	Else
+		Log("success = false, " & LastException)
+	End If
+	CallSub2(target, event & "_ready", Success)
+End Sub
+
+Sub Camera_Preview (Data() As Byte)
+	If SubExists(target, event & "_preview") Then
+		CallSub2(target, event & "_preview", Data)
+	End If
+End Sub
+Public Sub TakePicture
+	cam.TakePicture
+End Sub
+
+Private Sub Camera_PictureTaken (Data() As Byte)
+	CallSub2(target, event & "_PictureTaken", Data)
+End Sub
+
+Public Sub StartPreview
+	cam.StartPreview
+End Sub
+
+Public Sub StopPreview
+	cam.StopPreview
+End Sub
+
+Public Sub Release
+	cam.Release
+End Sub
+
+'Saves the data received from PictureTaken event
+Public Sub SavePictureToFile(Data() As Byte, Dir As String, FileName As String)
+	Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
+	out.WriteBytes(Data, 0, Data.Length)
+	out.Close
+End Sub
+
+Public Sub SetParameter(Key As String, Value As String)
+	r.target = parameters
+	r.RunMethod3("set", Key, "java.lang.String", Value, "java.lang.String")
+End Sub
+
+Public Sub GetParameter(Key As String) As String
+	r.target = parameters
+	Return r.RunMethod2("get", Key, "java.lang.String")
+End Sub
+
+Public Sub CommitParameters
+	Try
+		r.target = nativeCam
+		r.RunMethod4("setParameters", Array As Object(parameters), Array As String("android.hardware.Camera$Parameters"))
+	Catch
+		ToastMessageShow("Error setting parameters.", True)
+		Log(LastException)
+	End Try
+End Sub
+
+Public Sub GetColorEffect As String
+	Return GetParameter("effect")
+End Sub
+
+Public Sub SetColorEffect(Effect As String)
+	SetParameter("effect", Effect)
+End Sub
+
+Public Sub GetSupportedPicturesSizes As CameraSize()
+	r.target = parameters
+	Dim list1 As List = r.RunMethod("getSupportedPictureSizes")
+	Dim cs(list1.Size) As CameraSize
+	For i = 0 To list1.Size - 1
+		r.target = list1.Get(i)
+		cs(i).Width = r.GetField("width")
+		cs(i).Height = r.GetField("height")
+	Next
+	Return cs
+End Sub
+
+Public Sub SetPictureSize(Width As Int, Height As Int)
+	r.target = parameters
+	r.RunMethod3("setPictureSize", Width, "java.lang.int", Height, "java.lang.int")
+End Sub
+
+Public Sub SetJpegQuality(Quality As Int)
+	r.target = parameters
+	r.RunMethod2("setJpegQuality", Quality, "java.lang.int")
+End Sub
+
+Public Sub SetFlashMode(Mode As String)
+	r.target = parameters
+	r.RunMethod2("setFlashMode", Mode, "java.lang.String")
+End Sub
+
+Public Sub GetFlashMode As String
+	r.target = parameters
+	Return r.RunMethod("getFlashMode")
+End Sub
+
+Public Sub GetSupportedFlashModes As List
+	r.target = parameters
+	Return r.RunMethod("getSupportedFlashModes")
+End Sub
+
+Public Sub GetSupportedColorEffects As List
+	r.target = parameters
+	Return r.RunMethod("getSupportedColorEffects")
+End Sub
+
+Public Sub GetPreviewSize As CameraSize
+	r.target = parameters
+	r.target = r.RunMethod("getPreviewSize")
+	Dim cs As CameraSize
+	cs.Width = r.GetField("width")
+	cs.Height = r.GetField("height")
+	Return cs
+End Sub
+
+Public Sub GetPictureSize As CameraSize
+	r.target = parameters
+	r.target = r.RunMethod("getPictureSize")
+	Dim cs As CameraSize
+	cs.Width = r.GetField("width")
+	cs.Height = r.GetField("height")
+	Return cs
+End Sub
+
+'Converts a preview image formatted in YUV format to JPEG.
+'Note that you should not save every preview image as it will slow down the whole process.
+Public Sub PreviewImageToJpeg(data() As Byte, quality As Int) As Byte()
+	Dim size, previewFormat As Object
+	r.target = parameters
+	size = r.RunMethod("getPreviewSize")
+	previewFormat = r.RunMethod("getPreviewFormat")
+	r.target = size
+	Dim width = r.GetField("width"), height = r.GetField("height") As Int
+	Dim yuvImage As Object = r.CreateObject2("android.graphics.YuvImage", _
+		Array As Object(data, previewFormat, width, height, Null), _
+		Array As String("[B", "java.lang.int", "java.lang.int", "java.lang.int", "[I"))
+	r.target = yuvImage
+	Dim rect1 As Rect
+	rect1.Initialize(0, 0, r.RunMethod("getWidth"), r.RunMethod("getHeight"))
+	Dim out As OutputStream
+	out.InitializeToBytesArray(100)
+	r.RunMethod4("compressToJpeg", Array As Object(rect1, quality, out), _
+		Array As String("android.graphics.Rect", "java.lang.int", "java.io.OutputStream")) 
+	Return out.ToBytesArray
+End Sub
+
+Public Sub GetSupportedFocusModes As List
+    r.target = parameters
+    Return r.RunMethod("getSupportedFocusModes")
+End Sub
+
+Public Sub SetContinuousAutoFocus
+    Dim modes As List = GetSupportedFocusModes
+    If modes.IndexOf("continuous-picture") > -1 Then
+        SetFocusMode("continuous-picture")
+    Else If modes.IndexOf("continuous-video") > -1 Then
+        SetFocusMode("continuous-video")
+    Else
+        Log("Continuous focus mode is not available")
+    End If
+End Sub
+
+Public Sub SetFocusMode(Mode As String)
+    r.target = parameters
+    r.RunMethod2("setFocusMode", Mode, "java.lang.String")
+End Sub
+
+Public Sub GetFocusDistances As Float()
+	Dim F(3) As Float
+	r.target = parameters
+	r.RunMethod4("getFocusDistances", Array As Object(F), Array As String("[F"))
+	Return F
+End Sub
+'This method should only be called if you need to immediately release the camera.
+'For example if you need to start another application that depends on the camera.
+Public Sub CloseNow
+	cam.Release
+	r.target = cam
+	r.RunMethod2("releaseCameras", True, "java.lang.boolean")
+End Sub
+'Calls AutoFocus and then takes the picture if focus was successfull.
+Public Sub FocusAndTakePicture
+	cam.AutoFocus
+End Sub
+Private Sub Camera_FocusDone (Success As Boolean)
+	If Success Then
+		TakePicture
+	Else
+		Log("AutoFocus error.")
+	End If
+End Sub
+
+
+

DBRequestManager.bas

@@ -0,0 +1,267 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=6.8
+@EndOfDesignText@
+'Class module
+Sub Class_Globals
+	Private mTarget As Object
+	Type DBResult (Tag As Object, Columns As Map, Rows As List)
+	Type DBCommand (Name As String, Parameters() As Object)
+	Private link As String
+	Private bc As ByteConverter
+	Private T_NULL = 0, T_STRING = 1, T_SHORT = 2, T_INT = 3, T_LONG = 4, T_FLOAT = 5 _
+		,T_DOUBLE = 6, T_BOOLEAN = 7, T_BLOB = 8 As Byte
+	Private VERSION As Float = 0.9
+	Private tempArray(1) As Object
+End Sub
+
+'Target - The module that handles JobDone (usually Me).
+'ConnectorLink - URL of the Java server.
+Public Sub Initialize (Target As Object, ConnectorLink As String)
+	mTarget = Target
+	link = ConnectorLink
+End Sub
+
+'Sends a query request.
+'Command - Query name and parameters.
+'Limit - Maximum rows to return or 0 for no limit.
+'Tag - An object that will be returned in the result.
+Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
+	Dim j As HttpJob
+	Dim ms As OutputStream
+	Dim out2 As OutputStream = StartJob(j,ms, Tag)
+	
+	WriteObject(Command.Name, out2)
+	WriteInt(Limit, out2)
+	WriteList(Command.Parameters, out2)
+	out2.Close
+	j.PostBytes(link & "?method=query", ms.ToBytesArray)
+End Sub
+
+'Executes a batch of (non-select) commands.
+'ListOfCommands - List of the commands that will be executes.
+'Tag - An object that will be returned in the result.
+Public Sub ExecuteBatch(ListOfCommands As List, Tag As Object)
+	Dim j As HttpJob
+	Dim ms As OutputStream
+	Dim out2 As OutputStream = StartJob(j,ms, Tag)
+	WriteInt(ListOfCommands.Size, out2)
+	For Each Command As DBCommand In ListOfCommands
+		WriteObject(Command.Name, out2)
+		WriteList(Command.Parameters, out2)
+	Next
+	out2.Close
+	j.PostBytes(link & "?method=batch", ms.ToBytesArray)
+End Sub
+
+'Similar to ExecuteBatch. Sends a single command.
+Public Sub ExecuteCommand(Command As DBCommand, Tag As Object)
+	ExecuteBatch(Array As DBCommand(Command), Tag)
+End Sub
+
+Private Sub StartJob(j As HttpJob, MemoryStream As OutputStream, Tag As Object) As OutputStream
+	j.Initialize("DBRequest", mTarget)
+	j.Tag = Tag
+	MemoryStream.InitializeToBytesArray(0)
+	Dim compress As CompressedStreams
+	Dim out As OutputStream = compress.WrapOutputStream(MemoryStream, "gzip")
+	WriteObject(VERSION, out)
+	Return out
+End Sub
+
+Private Sub WriteList(Parameters As List, out As OutputStream)
+	Dim data() As Byte
+	If Parameters = Null Or Parameters.IsInitialized = False Then
+		Dim Parameters As List
+		Parameters.Initialize
+	End If
+	data = bc.IntsToBytes(Array As Int(Parameters.Size))
+	out.WriteBytes(data, 0, data.Length)
+	For Each o As Object In Parameters
+		WriteObject(o, out)
+	Next
+End Sub
+
+Private Sub WriteObject(o As Object, out As OutputStream)
+	Dim data() As Byte
+	tempArray(0) = o
+	If tempArray(0) = Null Then
+		out.WriteBytes(Array As Byte(T_NULL), 0, 1)
+	Else If tempArray(0) Is Short Then
+		out.WriteBytes(Array As Byte(T_SHORT), 0, 1)
+		data = bc.ShortsToBytes(Array As Short(o))
+	Else If tempArray(0) Is Int Then
+		out.WriteBytes(Array As Byte(T_INT), 0, 1)
+		data = bc.IntsToBytes(Array As Int(o))
+	Else If tempArray(0) Is Float Then
+		out.WriteBytes(Array As Byte(T_FLOAT), 0, 1)
+		data = bc.FloatsToBytes(Array As Float(o))
+	Else If tempArray(0) Is Double Then
+		out.WriteBytes(Array As Byte(T_DOUBLE), 0, 1)
+		data = bc.DoublesToBytes(Array As Double(o))
+	Else If tempArray(0) Is Long Then
+		out.WriteBytes(Array As Byte(T_LONG), 0, 1)
+		data = bc.LongsToBytes(Array As Long(o))
+	Else If tempArray(0) Is Boolean Then
+		out.WriteBytes(Array As Byte(T_BOOLEAN), 0, 1)
+		Dim b As Boolean = 0
+		Dim data(1) As Byte
+		If b Then data(0) = 1 Else data(0) = 0
+	Else If GetType(tempArray(0)) = "[B" Then
+		data = o
+		out.WriteBytes(Array As Byte(T_BLOB), 0, 1)
+		WriteInt(data.Length, out)	
+	Else 'If o Is String Then (treat all other values as string)
+		out.WriteBytes(Array As Byte(T_STRING), 0, 1)
+		data = bc.StringToBytes(o, "UTF8")
+		WriteInt(data.Length, out)
+	End If
+	If data.Length > 0 Then out.WriteBytes(data, 0, data.Length)
+End Sub
+
+Private Sub ReadObject(In As InputStream) As Object
+	Dim data(1) As Byte
+	In.ReadBytes(data, 0, 1)
+	Select data(0)
+		Case T_NULL
+			Return Null
+		Case T_SHORT
+			Dim data(2) As Byte
+			Return bc.ShortsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_INT
+			Dim data(4) As Byte
+			Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_LONG
+			Dim data(8) As Byte
+			Return bc.LongsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_FLOAT
+			Dim data(4) As Byte
+			Return bc.FloatsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_DOUBLE
+			Dim data(8) As Byte
+			Return bc.DoublesFromBytes(ReadBytesFully(In, data, data.Length))(0)
+		Case T_BOOLEAN
+			Dim b As Byte = ReadByte(In)
+			Return b = 1
+		Case T_BLOB
+			Dim len As Int = ReadInt(In)
+			Dim data(len) As Byte
+			Return ReadBytesFully(In, data, data.Length)
+		Case Else
+			Dim len As Int = ReadInt(In)
+			Dim data(len) As Byte
+			ReadBytesFully(In, data, data.Length)
+			Return BytesToString(data, 0, data.Length, "UTF8")
+	End Select
+End Sub
+
+Private Sub ReadBytesFully(In As InputStream, Data() As Byte, Len As Int) As Byte()
+	Dim count = 0, read As Int
+	Do While count < Len And read > -1
+		read = In.ReadBytes(Data, count, Len - count)
+		count = count + read
+	Loop
+	Return Data
+End Sub
+
+Private Sub WriteInt(i As Int, out As OutputStream)
+	Dim data() As Byte
+	data = bc.IntsToBytes(Array As Int(i))
+	out.WriteBytes(data, 0, data.Length)
+End Sub
+
+Private Sub ReadInt(In As InputStream) As Int
+	Dim data(4) As Byte
+	Return bc.IntsFromBytes(ReadBytesFully(In, data, data.Length))(0)
+End Sub
+
+Private Sub ReadByte(In As InputStream) As Byte
+	Dim data(1) As Byte
+	In.ReadBytes(data, 0, 1)
+	Return data(0)
+End Sub
+
+'Handles the Job result and returns a DBResult.
+Public Sub HandleJob(Job As HttpJob) As DBResult
+	Dim start As Long = DateTime.Now
+	Dim In As InputStream = Job.GetInputStream
+	Dim cs As CompressedStreams
+	In = cs.WrapInputStream(In, "gzip")
+	Dim serverVersion As Float = ReadObject(In) 'ignore
+	Dim method As String = ReadObject(In)
+	Dim table As DBResult
+	table.Initialize
+	table.Columns.Initialize
+	table.rows.Initialize
+	table.Tag = Job.Tag
+	If method = "query" Then
+		Dim numberOfColumns As Int = ReadInt(In)
+		For i = 0 To numberOfColumns - 1
+			table.Columns.Put(ReadObject(In), i)
+		Next
+		Do While ReadByte(In) = 1
+			Dim rowObjects(numberOfColumns) As Object
+			table.rows.Add(rowObjects)
+			For col = 0 To numberOfColumns - 1
+				Dim o As Object = ReadObject(In)
+				rowObjects(col) = o
+			Next
+		Loop
+	Else If method = "batch" Then
+		table.Columns.Put("AffectedRows", 0)
+		Dim rows As Int = ReadInt(In)
+		For i = 0 To rows - 1
+			table.rows.Add(Array As Object(ReadInt(In)))
+		Next
+	End If
+	In.Close
+	Log("HandleJob: " & (DateTime.Now - start))
+	Return table
+End Sub
+'Reads a file and returns the file as a bytes array.
+Public Sub FileToBytes(Dir As String, FileName As String) As Byte()
+	Dim out As OutputStream
+	out.InitializeToBytesArray(0)
+	Dim In As InputStream = File.OpenInput(Dir, FileName)
+	File.Copy2(In, out)
+	out.Close
+	Return out.ToBytesArray
+End Sub
+'Converts an image to a bytes array (for BLOB fields).
+Public Sub ImageToBytes(Image As Bitmap) As Byte()
+	Dim out As OutputStream
+	out.InitializeToBytesArray(0)
+	Image.WriteToStream(out, 100, "JPEG")
+	out.Close
+	Return out.ToBytesArray
+End Sub
+'Converts a bytes array to an image (for BLOB fields).
+Public Sub BytesToImage(bytes() As Byte) As Bitmap
+	Dim In As InputStream
+	In.InitializeFromBytesArray(bytes, 0, bytes.Length)
+	Dim bmp As Bitmap
+	bmp.Initialize2(In)
+	Return bmp
+End Sub
+'Prints the table to the logs.
+Public Sub PrintTable(Table As DBResult)
+	Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
+	Dim sb As StringBuilder
+	sb.Initialize
+	For Each col In Table.Columns.Keys
+		sb.Append(col).Append(TAB)
+	Next
+	Log(sb.ToString)
+	For Each row() As Object In Table.Rows
+		Dim sb As StringBuilder
+		sb.Initialize
+		For Each record As Object In row
+			sb.Append(record).Append(TAB)
+		Next
+		ToastMessageShow(sb.ToString, True)
+	Next
+End Sub
+
+ 

Historico.bas

@@ -0,0 +1,167 @@
+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
+	 Dim g As GPS
+	Dim clie_id As String
+    Dim sDate,sTime As String
+	Dim usuario As String
+    
+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 ListView1 As ListView
+	Dim L_CANT As Label
+	Dim L_TOTAL As Label
+	Dim borra As Button
+	Dim Existe As String
+	Dim result As String
+    Dim lat_gps, lon_gps As String
+
+
+	Private Titulo As Label
+	Private b_desc As Button
+	Private ListView2 As ListView
+	Dim tgl As Toggle
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	    Activity.LoadLayout("tarjeta")
+		borra.Visible = False
+		Titulo.Text = "Acumulado"
+		b_desc.Visible = False
+
+	' 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)
+		 '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
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+	  g.Start(0,0)
+'End If
+
+L_CANT.Text =""
+L_TOTAL.Text=""
+ c=Starter.skmt.execQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+	   C.Position=0
+	   Existe = C.GetString("EXISTE")
+	   C.Close
+    c=Starter.skmt.execQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE 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 = 15
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT"))
+	      Next
+	   End If
+	If Existe <> 0 Then
+	c=starter.skmt.execQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
+	C.Position=0
+	L_CANT.Text = c.GetString("PC_NOART")
+	L_TOTAL.Text = c.GetString("PC_MONTO")
+	End If
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+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 ListView2_ItemClick (Position As Int, Value As Object)
+	ListView2.Visible = False
+	ListView1.Visible = True
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	ListView2.Visible = True
+	ListView1.Visible = False
+			 Dim label1 As Label
+
+	For i=0 To 20
+		label1 = ListView2.SingleLineLayout.Label
+			 label1.TextSize = 15
+			 label1.TextColor = Colors.Black
+		    ListView2.AddSingleLine(i)
+	
+	      Next
+End Sub

MAPA_RUTAS.bas

@@ -0,0 +1,321 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=9.3
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: False
+#End Region
+
+'Activity module
+Sub Process_Globals
+	Dim GPS As GPS
+	Dim rp As RuntimePermissions
+	Dim ruta As String
+'	Dim skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim c22 As Cursor
+	Dim c3 As Cursor
+End Sub
+
+Sub Globals
+	Private gmap As GoogleMap
+	Private MapFragment1 As MapFragment
+	Dim Latitud As Double = 0
+	Dim Longitud As Double = 0
+	Dim Lat2 As Double = 0
+	Dim Lon2 As Double = 0
+	Dim p1, p2 As Location
+	Dim Distance As Float
+	Dim boton1 As Button
+	Dim HUE_BLUE As Float
+	Dim HUE_RED As Float
+	Dim HUE_GREEN As Float
+	Private B_AZUL As Button
+	Private B_ROJO As Button
+	Private B_VERDE As Button
+	Private B_TODOS As Button
+	Dim Tienda As String
+	Dim LatitudRu As Double
+	Dim LongitudRU As Double
+	Dim LIST_AZUL As List
+	Dim LIST_ROJO As List
+	Dim LIST_VERDE As List
+	Dim MARK_AZUL As Marker
+	Dim MARK_ROJO As Marker
+	Dim MARK_VERDE As Marker
+	Dim MARK_CEDIS As Marker
+	Dim rojo As String
+	Dim azul As String
+	Dim verde As String
+	Dim todos As String
+	Dim NumSerie As Int
+	Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
+	Dim GoogleMapEXTRA As GoogleMapsExtras
+	Dim CODIGO As String
+	Private SEMANA As String
+
+	
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	Activity.LoadLayout("MAPA_RUTAS")
+'	If File.ExternalWritable Then
+'		ruta = File.DirDefaultExternal
+'	Else
+'		ruta = File.DirInternal
+'	End If
+'	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)
+	'GPS
+	If(FirstTime) Then
+		GPS.Initialize("GPS")
+	End If
+
+	If MapFragment1.IsGooglePlayServicesAvailable = False Then
+		ToastMessageShow("Please install Google Play Services.", True)
+	End If
+	
+	'Boton velocidad'
+'	boton1.Initialize(0)
+'	boton1.Text = 0 &" "&"km/h"
+'	boton1.TextColor = Colors.Red
+'	boton1.TextSize = 15
+'	Activity.AddView(boton1, 40%x, 5dip, 25%x, 40dip)
+	'Fin Boton velocidad'
+	'MARK_CEDIS.IsInitialized
+	MARK_AZUL.IsInitialized
+	MARK_ROJO.IsInitialized
+	MARK_VERDE.IsInitialized
+	
+	LIST_AZUL.Initialize
+	LIST_ROJO.Initialize
+	LIST_VERDE.Initialize
+
+	verde = 0
+	azul = 0
+	rojo = 0
+	todos = 1
+	c=starter.skmt.execQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SEMANA"))
+	c.Position =0
+	SEMANA = c.GetString("CUANTOS")
+	c.Close
+	
+	If SEMANA > 0 Then
+		c=Starter.skmt.execQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SEMANA"))
+		c.Position =0
+		SEMANA = c.GetString("CAT_VA_VALOR")
+		c.Close
+	End If
+
+	
+End Sub
+
+Sub MapFragment1_Ready
+	gmap = MapFragment1.GetMap
+	gmap.IsInitialized
+	'todos= 1
+	'permisos
+	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	gmap.MyLocationEnabled = Result
+		
+	Dim JavaMapsObject As JavaObject
+	JavaMapsObject = gmap.GetUiSettings
+	JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
+	
+	
+	'''''''----------------------------MARKER AZUL - POR VISITAR
+	If azul =1 Or todos = 1  Then
+		c.IsInitialized
+		c=starter.skmt.execQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 ")
+	
+'		skmt.Initialize(ruta,"kmt.db", True)
+		For i = 0 To c.RowCount -1
+			c.Position = i
+			LatitudRu = c.GetString("CAT_CL_LAT")
+			LongitudRU = c.GetString("CAT_CL_LONG")
+			CODIGO=c.GetString("CAT_CL_CODIGO")
+			Tienda= c.GetString("CAT_CL_NOMBRE")
+			MARK_AZUL = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_BLUE)
+			MARK_AZUL.Snippet = Tienda
+		
+		Next
+
+		c .Close
+		LIST_AZUL.Add(MARK_AZUL)
+	
+	End If
+
+	'''''''----------------------------MARKER VERDE - VENTA
+	If verde =1 Or todos = 1  Then
+		c2.IsInitialized
+		c2=starter.skmt.execQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		For i = 0 To c2.RowCount -1
+			c2.Position = i
+			LongitudRU = c2.GetString("CAT_CL_LONG")
+			LatitudRu = c2.GetString("CAT_CL_LAT")
+			CODIGO=c2.GetString("CAT_CL_CODIGO")
+			Tienda= c2.GetString("CAT_CL_NOMBRE")
+			MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
+			MARK_VERDE.Snippet = Tienda
+			
+		Next
+		
+	Else
+		If verde =1 Or todos = 1  Then
+			c2.IsInitialized
+			c2=starter.skmt.execQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+			For i = 0 To c2.RowCount -1
+				c2.Position = i
+				LongitudRU = c2.GetString("CAT_CL_LONG")
+				LatitudRu = c2.GetString("CAT_CL_LAT")
+				CODIGO=c2.GetString("CAT_CL_CODIGO")
+				Tienda= c2.GetString("CAT_CL_NOMBRE")
+				MARK_VERDE = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO,gmap.HUE_GREEN)
+				MARK_VERDE.Snippet = Tienda
+			Next
+			c2 .Close
+			LIST_VERDE.Add(MARK_VERDE)
+		End If
+	End If
+	
+'	'''''''----------------------------MARKER ROJO - NO VENTA
+	
+	If rojo =1 Or todos = 1 Then
+		c3.IsInitialized
+		c3=starter.skmt.execQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+		For i = 0 To c3.RowCount -1
+			c3.Position = i
+			LongitudRU = c3.GetDouble("CAT_CL_LONG")
+			LatitudRu = c3.GetDouble("CAT_CL_LAT")
+			Tienda= c3.GetString("CAT_CL_NOMBRE")
+			MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
+	
+		Next
+	
+	Else
+		If rojo =1 Or  todos = 1  Then
+			c3.IsInitialized
+			c3=starter.skmt.execQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0")
+			For i = 0 To c3.RowCount -1
+				c3.Position = i
+				LongitudRU = c3.GetDouble("CAT_CL_LONG")
+				LatitudRu = c3.GetDouble("CAT_CL_LAT")
+				Tienda= c3.GetString("CAT_CL_NOMBRE")
+				MARK_ROJO = gmap.AddMarker2(LatitudRu,LongitudRU,Tienda, gmap.HUE_RED)
+	
+			Next
+			LIST_ROJO.Add(MARK_ROJO)
+			c3.Close
+		End If
+	End If
+	''------------------------------
+
+'	MARK_CEDIS = gmap.AddMarker3("19.3961802","-99.0784293","CEDIS", LoadBitmap(File.DirAssets, "marker-azul-0.png"))
+'	If  MARK_VERDE.Visible Or MARK_ROJO.Visible  Then
+'		MARK_CEDIS.Remove
+'	End If
+	Dim aa As CameraPosition
+	aa.Initialize(LatitudRu,LongitudRU,15)''' RECOMENDABLE CAMBIAR A 10 PARA QUE SE VEAN MAS MARCADORES
+	gmap.AnimateCamera(aa)
+	
+	'''''---------------------- ESTO ES PARA LOS CLICK EN LAS VENTANAS D INFORMACION-----------
+	Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
+	OnInfoWindowClickListener1.Initialize("OnInfoWindowClickListener1")
+	GoogleMapEXTRA.SetOnInfoWindowClickListener(gmap, OnInfoWindowClickListener1)
+
+End Sub
+'
+''''--------------------------				PRUEBA CON MARKER _CLICK
+
+
+Sub OnInfoWindowClickListener1_click(Marker1 As Marker)
+	starter.skmt.execNonQuery("delete from CUENTAA")
+	starter.skmt.execNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title))
+	StartActivity(fila)
+End Sub
+
+
+Sub GPS_LocationChanged (Parametro As Location)
+	MARK_CEDIS.IsInitialized
+'	Dim sp As Int
+'	sp = Ceil(Parametro.Speed * 3.6)
+'	boton1.Text = sp &" "&"km/h"
+'	Latitud = Parametro.Latitude
+'	Longitud = Parametro.Longitude
+'	p2.Initialize2(Latitud,Longitud)
+'	p1.Initialize2(Lat2, Lon2)
+'	Distance  = p1.DistanceTo(p2)
+'	If Latitud <> 0 And Longitud <> 0 Then
+'		If Distance > 10 Then
+'			Lat2 = Latitud
+'			Lon2 = Longitud
+'			Dim cp As CameraPosition
+'			cp.Initialize2(Parametro.Latitude, Parametro.Longitude, gmap.CameraPosition.Zoom, Parametro.Bearing, 0)
+'			gmap.AnimateCamera(cp)
+'		End If
+'	End If
+End Sub
+
+Sub Activity_Resume
+	
+	If GPS.GPSEnabled = False Then
+		ToastMessageShow("Debe Activar el GPS del Equipo.", True)
+		StartActivity(GPS.LocationSettingsIntent)
+	Else
+		GPS.Start(0, 0)
+	End If
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	GPS.Stop
+End Sub
+
+
+Sub B_TODOS_Click
+	todos  =1
+	verde = 0
+	azul = 0
+	rojo = 0
+
+	MapFragment1_Ready
+
+End Sub
+
+Sub B_VERDE_Click
+	verde = 1
+	azul = 0
+	rojo = 0
+	todos = 0
+	gmap.Clear
+	MapFragment1_Ready
+
+End Sub
+
+Sub B_ROJO_Click
+	rojo = 1
+	verde = 0
+	azul = 0
+	todos = 0
+	gmap.Clear
+	
+	MapFragment1_Ready
+
+End Sub
+
+Sub B_AZUL_Click
+	azul = 1
+	verde = 0
+	rojo = 0
+	todos = 0
+	gmap.Clear
+	
+	MapFragment1_Ready
+
+End Sub

QR_MODULE.bas

@@ -0,0 +1,98 @@
+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.
+
+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 b,b1,b2 As ImageView
+    Dim bt As Button
+   
+    Dim qr As QRCode
+    Dim sc As Zxing_scanner
+	Dim CODIGO As String
+	
+   
+	Private Label1 As Label
+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("qr")
+   
+    b.Initialize("")
+    b1.Initialize("")
+    b1.Gravity=Gravity.FILL
+    b2.Initialize("")
+    b2.Gravity=Gravity.FILL
+   
+    Activity.AddView(b,0,0,100dip,100dip)
+    Activity.AddView(b1,0,110dip,300dip,100dip)
+    Activity.AddView(b2,0,220dip,300dip,100dip)
+   
+    qr.initialize
+	
+    b.Bitmap = qr.QR_Encode("TESTING QR CODES",100dip)
+    b1.Bitmap = qr.Ean13_Encode(calc_ean_checksum("123456789012"),100dip)  ' Not interested in this
+    b2.Bitmap = qr.Ean8_Encode(calc_ean_checksum("1234567"),100dip)        ' Not interested in this  
+   
+    bt.Initialize("bt")
+    bt.Text="Codigo"
+    Activity.AddView(bt,0,330dip,120dip,50dip)
+   
+End Sub
+
+Sub Activity_Resume
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+Sub bt_click
+    'ADDED BY JOHAN SCHOEMAN i.e OPTION TO CHANGE THE WIDTH AND HEIGHT OF THE VIEWING RECTANGLE
+    Dim scan_width As Int
+	Dim scan_height As Int
+	scan_width = 400
+	scan_height = 400
+	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+	
+End Sub
+Sub sc_result(atype As String,Values As String)
+    'Log("Type : " & atype)
+    'Log("Value : " & Values)
+	CODIGO = Values
+    b.Bitmap = qr.QR_Encode(Values,100dip)
+End Sub
+Sub sc_noScan
+    Log("nothing returned from the scan !!!!!")
+End Sub
+Sub calc_ean_checksum(number As String) As String           'this has now become redundant as I am only interested in QR Codes
+    Dim i As Int
+    Dim c As Char
+    Dim soma As Int
+    Dim n As Int
+    Dim digit As Float
+   
+    soma = 0
+    For i=0 To number.Length - 1
+        digit = number.SubString2(i,i+1)
+        n= digit * ((i Mod 2) * 2 + 1)   
+        soma=soma+n
+    Next
+    Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
+End Sub

Starter.bas

@@ -0,0 +1,46 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Service
+Version=11.5
+@EndOfDesignText@
+#Region  Service Attributes 
+	#StartAtBoot: False
+	#ExcludeFromLibrary: 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.
+	Public rp As RuntimePermissions
+	Dim skmt As SQL
+	Dim ruta As String
+End Sub
+
+Sub Service_Create
+	'This is the program entry point.
+	'This is a good place to load resources that are not specific to a single activity.
+
+End Sub
+
+Sub Service_Start (StartingIntent As Intent)
+	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
+	ruta = File.DirInternal
+	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)
+End Sub
+
+Sub Service_TaskRemoved
+	'This event will be raised when the user removes the app from the recent apps list.
+End Sub
+
+'Return true to allow the OS default exceptions handler to handle the uncaught exception.
+Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
+	Return True
+End Sub
+
+Sub Service_Destroy
+
+End Sub

colonia.bas

@@ -0,0 +1,258 @@
+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 ruta As String
+        Dim q_buscar As String
+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 skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim s As Cursor
+	Dim ListView1 As ListView
+	Dim entro As String
+	Dim gest As Button
+    Dim lfila As Label
+	Dim busca As EditText
+	Dim colonia As String
+	Private b_qr As Button
+	Private qr As QRCode
+    Dim sc As Zxing_scanner
+   Dim CODIGO As String
+   Dim STIME 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")
+    Activity.LoadLayout("fila")
+	'Dim ruta As String
+	entro ="2"
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	
+	' 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
+    qr.initialize
+	
+	
+End Sub
+
+Sub Activity_Resume
+'b_qr.Visible = True	
+busca.Text = ""
+'skmt.Initialize(ruta,"kmt.db", True)
+     entro ="2"
+	 colonia = 0
+	 ' esto es para rutas se quito por colonia c=starter.skmt.execQuery("select CAT_CL_RUTA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_RUTA order by CAT_CL_RUTA asc")
+	  'SE COMENTA EL SIGUIENTE CODIGO PARA QUE TODAS LAS TIENDAS APARESCAN.
+
+	  ' c=starter.skmt.execQuery("select CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 group by CAT_CL_COLONIA order by CAT_CL_COLONIA asc")
+	   c=Starter.skmt.execQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 ORDER BY CAT_CL_CODIGO")
+	   ListView1.Clear
+	   lfila.Text = "NOMBRE"
+	   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 = 13
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 13
+			 label2.TextColor = Colors.Black
+			  ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"))
+	      Next
+	   End If
+	    entro = "4"
+	   ' ESTE FUE EL FIN DEL CODIGO COMENTADO
+	   
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+
+    If colonia = 0 Then
+	colonia = Value 
+	End If
+	
+	
+	If entro = "2" Then
+		 c2=starter.skmt.execQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ",  Array As String(Value))
+	   ListView1.Clear
+   	   lfila.text = "Calle"
+
+	   If c2.RowCount>0 Then
+	      For i=0 To c2.RowCount -1
+		     c2.Position=i
+			 ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") )
+		  Next
+	   End If
+	   entro = "3"
+	Else If entro = "3" Then
+	 c2=starter.skmt.execQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 and  CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(Value, colonia))
+	   ListView1.Clear
+   	   lfila.text = "Nombre"
+	   If c2.RowCount>0 Then
+	      For i=0 To c2.RowCount -1
+		     c2.Position=i
+			 ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"))
+	      Next
+	   End If
+	   entro = "4"
+	Else If entro = "4" Then
+	  starter.skmt.execNonQuery("delete from CUENTAA")
+	  starter.skmt.execNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+		DateTime.TimeFormat = "HHmmss"
+		STIME=DateTime.Time(DateTime.Now)
+		
+		s=starter.skmt.execQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
+		s.Position = 0
+		If s.GetString("CUANTOS") = 1 Then
+			starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+		Else
+			starter.skmt.execNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
+			starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ?  where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
+		End If
+		
+		
+		starter.skmt.execNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ?  where HSO_INI = 0 ", Array As Object(STIME))
+		
+		DateTime.TimeFormat = "HH:mm:ss"
+
+	
+	  StartActivity(fila)
+	  
+	End If
+	
+End Sub
+Sub Activity_KeyPress (key As Int) As Boolean
+    ' BACK key pressed
+    If key=KeyCodes.KEYCODE_BACK Then
+      ' If entro = "3" Then
+	   'entro = "2"
+	   'Activity_Resume
+	   'Return True
+	   'Else If entro = "2" Then
+	   'entro = "1"
+	   'Activity_Resume
+	   'Return True
+	   'Else If entro = "1" Then
+	   
+			' I want to capture the key here so I return True
+			
+			StartActivity(seleccion)
+            Return False
+	   'End If
+    End If
+    ' Returning False signals the system to handle the key
+    
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	q_buscar = "%" & busca.Text & "%"
+'		skmt.Initialize(ruta,"kmt.db", True)
+
+	c2=starter.skmt.execQuery2("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
+	   ListView1.Clear
+   	   lfila.text = "Nombre y Calle"
+
+	   If c2.RowCount>0 Then
+	      For i=0 To c2.RowCount -1
+		     c2.Position=i
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 9
+			 label1.TextColor = Colors.White
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 17
+			 label2.TextColor = Colors.White
+			 ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE:  "& c2.GetString("CAT_CL_CALLE"))
+	      Next
+	   End If
+	   entro = "4"
+	
+    c2.Close
+End Sub
+
+
+
+Sub b_qr_Click
+    'StartActivity(QR_MODULE)
+	Dim scan_width As Int
+	Dim scan_height As Int
+	scan_width = 400
+	scan_height = 400
+	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+	
+End Sub
+
+
+Sub sc_result(atype As String,Values As String)
+    'Log("Type : " & atype)
+    'Log("Value : " & Values)
+	CODIGO = Values
+
+	c2=starter.skmt.execQuery2("select   COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ?  order by CAT_CL_NOMBRE ", Array As String(CODIGO))
+	c2.Position =0
+	If c2.GetString("ENCONTRADO") > 0 Then
+	s=starter.skmt.execQuery2("select   CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ?  order by CAT_CL_NOMBRE ", Array As String(CODIGO))
+		s.Position =0
+	starter.skmt.execNonQuery("delete from CUENTAA")
+	  starter.skmt.execNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
+	 s.Close
+	  b_qr.Visible = False
+	  StartActivity(fila)
+	Else
+		Msgbox("CODIGO " & CODIGO & " NO ENCONTRADO","AVISO")
+	End If  
+End Sub
+Sub sc_noScan
+    Log("nothing returned from the scan !!!!!")
+End Sub
+Sub calc_ean_checksum(number As String) As String           'this has now become redundant as I am only interested in QR Codes
+    Dim i As Int
+    Dim cO As Char
+    Dim soma As Int
+    Dim n As Int
+    Dim digit As Float
+   
+    soma = 0
+    For i=0 To number.Length - 1
+        digit = number.SubString2(i,i+1)
+        n= digit * ((i Mod 2) * 2 + 1)   
+        soma=soma+n
+    Next
+    Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
+End Sub

colonia2.bas

@@ -0,0 +1,492 @@
+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 ruta As String
+        Dim q_buscar As String
+		
+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 skmt As SQL
+	Dim c As Cursor
+	Dim c2 As Cursor
+	Dim C3 As Cursor
+	Dim s As Cursor
+	Dim ListView1 As ListView
+	Dim entro As String
+	Dim gest As Button
+	Dim lfila As Label
+    Dim marca As String
+	Dim tipo As String
+	Dim subtipo As String
+	Private BUSCA As EditText
+	Dim ya_entro As String
+	Dim TIENE_PROMOS As String
+	Dim RES As String
+	Dim S1 As Cursor
+	Dim bmp As Bitmap
+	Dim ciclo As String
+	Private b_qr As Button
+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")
+	Activity.RemoveAllViews
+    Activity.LoadLayout("fila")
+	'Dim ruta As String
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	
+	' 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)
+	ciclo = 1
+End Sub
+
+Sub Activity_Resume
+	
+	Starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1"))
+	Starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("ESTRATEGICO","2"))
+	Starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMETARIO","3"))
+	Starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0"))
+	Starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS"))
+	
+	If ya_entro <> "1" Then
+
+		BUSCA.Text =""
+'		skmt.Initialize(ruta,"kmt.db", True)
+		entro ="3"
+		ya_entro ="1"
+		
+'' esto es para la secuencia de los productos,
+		'' 		c=starter.skmt.execQuery("select CAT_GP_CLASIF, count(*) as cuantos from cat_gunaprod where CAT_GP_ALMACEN > 0 group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc")
+		If ciclo = 1 Then
+			c=Starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and CAT_GP_TIPOPROD = (?)  group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("PRIORITARIO") )
+			'c=starter.skmt.execQuery2("select (?) AS CAT_GP_TIPOPROD, count(*) as cuantos from CAT_NEXTBESTSKU where CAT_TIENDA IN (SELECT CUENTA FROM CUENTAA) ", Array As String("RECOMENDACIONES") )
+
+		else if ciclo = 2 Then
+			c=Starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) ) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("ESTRATEGICO") )
+
+'			c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and CAT_GP_TIPOPROD = (?)  group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("INICIATIVAS") )
+
+			'c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?)) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("INICIATIVAS","PAQUETES") )
+
+			'	Else IF ciclo = 3 Then
+			'c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?)) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("PROMOCIONAL","PAQUETES CLIENTE") )
+
+			'		c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?)) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("PROMOCIONAL","PAQUETES CLIENTE") )
+
+		else if ciclo = 3 Then
+			c=Starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) ) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("COMPLEMETARIO") )
+
+		else if ciclo = 4 Then
+			c=Starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) ) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("CATALOGO REGULAR") )
+	
+
+		Else
+			'c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) ) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("CATALOGO REGULAR") )
+			c=Starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) or CAT_GP_TIPOPROD = (?)) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("PROMOS","PAQUETES CLIENTE") )
+			'c=starter.skmt.execQuery2("select (?) AS CAT_GP_TIPOPROD, count(*) as cuantos from CAT_NEXTBESTSKU where CAT_TIENDA IN (SELECT CUENTA FROM CUENTAA) ", Array As String("RECOMENDACIONES") )
+
+			'c=starter.skmt.execQuery2("select CAT_GP_TIPOPROD, count(*) as cuantos from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0  and (CAT_GP_TIPOPROD = (?) ) group by CAT_GP_TIPOPROD order by CAT_GP_CLASIF asc", Array As String("PAQUETES CLIENTE") )
+			
+		End If
+
+		'ESTO ES PARA NO VER PROCTER
+		'c=starter.skmt.execQuery2("select CAT_GP_CLASIF, count(*) as cuantos from cat_gunaprod where CAT_GP_ALMACEN > 0 and cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?) group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc", Array As String("PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON"))
+'		ListView1.Clear
+'		lfila.Text = "MARCA"
+'		Dim label1 As Label
+'		label1 = ListView1.TwoLinesLayout.Label
+'		label1.TextSize = 13
+'		label1.TextColor = Colors.Black
+'		Dim label2 As Label
+'		label2 = ListView1.TwoLinesLayout.SecondLabel
+'		label2.TextSize = 10
+'		label2.TextColor = Colors.Black
+'		Dim label13 As Label
+'		label13 = ListView1.TwoLinesAndBitmap.Label
+'		label13.TextSize = 13
+'		label13.TextColor = Colors.Black
+'		Dim label14 As Label
+'		label14 = ListView1.TwoLinesAndBitmap.SecondLabel
+'		label14.TextSize = 10
+'		label14.TextColor = Colors.Black
+'			
+'		If c.RowCount>0 Then
+'			For i=0 To c.RowCount -1
+'				c.Position=i
+'				bmp = LoadBitmap(File.DirAssets, "palomita_verde.png")
+'
+'				ListView1.AddTwoLinesAndBitmap(c.GetString("CAT_GP_CLASIF"),c.GetString("cuantos"), bmp)
+
+		ListView1.Clear
+		lfila.Text = "CATALOGOS"
+		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 = 13
+				label1.TextColor = Colors.Black
+				Dim label2 As Label
+				label2 = ListView1.TwoLinesLayout.SecondLabel
+				label2.TextSize = 13
+				label2.TextColor = Colors.Black
+				Dim label13 As Label
+				label13 = ListView1.TwoLinesAndBitmap.Label
+				label13.TextSize = 13
+				label13.TextColor = Colors.Black
+				Dim label14 As Label
+				label14 = ListView1.TwoLinesAndBitmap.SecondLabel
+				label14.TextSize = 13
+				label14.TextColor = Colors.Black
+				' If c.GetString("CAT_GP_TIPOPROD") = "PROMOS" Then
+				'	 ListView1.AddTwoLines(c.GetString("CAT_GP_CLASIF")," ")
+				'Else
+				ListView1.AddTwoLines(c.GetString("CAT_GP_TIPOPROD"),c.GetString("cuantos"))
+ 	
+			Next
+		End If
+	End If
+ 
+  
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	'Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	'que_colonia = Value
+	'StartActivity(fila)
+	b_qr.Visible = True
+	b_qr.Text = "SIGUIENTE"
+	
+	If Value = "PROMOS" And fila.cuenta <> "N" Then
+		entro = "3"
+		marca = "PROMOS"
+		tipo = "PROMOS"
+	Else if Value = "PROMOS"  And fila.cuenta = "N"  Then
+		entro = "5"
+		StartActivity(fila)
+	End If
+'	If entro = "1" Then
+'		marca = Value
+'		skmt.Initialize(ruta,"kmt.db", True)
+'		c2=starter.skmt.execQuery2("select  COUNT(*) AS CUANTOS, CAT_GP_TIPO from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF = ? GROUP BY CAT_GP_TIPO ORDER BY CAT_GP_TIPO ASC", Array As String(Value))
+'		ListView1.Clear
+'		lfila.text = "TIPO"
+'		If c2.RowCount>0 Then
+'			For i=0 To c2.RowCount -1
+'				c2.Position=i
+'				ListView1.AddTwoLines(c2.GetString("CAT_GP_TIPO"),c2.GetString("CUANTOS"))
+'			Next
+'		End If
+'		entro = "2"
+'	Else If entro = "2" Then
+'		tipo = Value
+'		skmt.Initialize(ruta,"kmt.db", True)
+'		c2=starter.skmt.execQuery2("select  COUNT(*) AS CUANTOS, CAT_GP_SUBTIPO from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF = ? and CAT_GP_TIPO = ? GROUP BY CAT_GP_SUBTIPO ORDER BY CAT_GP_SUBTIPO ASC ", Array As String(marca, Value))
+'		ListView1.Clear
+'		lfila.text = "SUB-TIPO"
+'		If c2.RowCount>0 Then
+'			For i=0 To c2.RowCount -1
+'				c2.Position=i
+'				ListView1.AddTwoLines(c2.GetString("CAT_GP_SUBTIPO"),c2.GetString("CUANTOS"))
+'			Next
+'		End If
+'		entro = "3"
+'	   
+	If entro = "3" Then
+		If marca = "PROMOS" Then
+			c2=Starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND  CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value,marca, tipo))
+    
+		Else
+			c2=Starter.skmt.execQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? ", Array As String(Value))
+			'c2=starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  ", Array As String(marca, tipo, Value))
+		End If
+
+		'' antes del por categoria
+	
+		If Value = "PRIORITARIO" Then
+			ListView1.Clear
+			lfila.text = "PRIORITARIO"
+			Dim ins As InputStream
+			Dim bmp As Bitmap
+			Dim jpeg() As Byte
+			If c2.RowCount>0 Then
+				For i=0 To c2.RowCount -1
+					c2.Position=i
+					'jpeg = LoadBitmap(File.DirAssets, "ROJO.png")
+					'c2.GetBlob("CAT_GP_IMG")
+					'ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+					'bmp.Initialize2(ins)
+					S1=Starter.skmt.execQuery2("select COUNT(*) AS CUANTOS from HIST_VENTAS where HVD_PRONOMBRE =? and HVD_CLIENTE IN (Select cuenta from cuentaa)", Array As String(c2.GetString("CAT_GP_NOMBRE")))
+					S1.Position =0
+					If S1.GetString("CUANTOS") > 0 Then
+						s=Starter.skmt.execQuery2("select sum(HVD_CANT) AS SUMA from HIST_VENTAS where HVD_PRONOMBRE =? and HVD_CLIENTE IN (Select cuenta from cuentaa)", Array As String(c2.GetString("CAT_GP_NOMBRE")))
+						s.Position =0
+			 
+						'Msgbox(s.GetString("SUMA"),"DATO")
+						If s.GetString("SUMA") >=  c2.GetString("CAT_GP_INICIATIVA") Then
+							bmp = LoadBitmap(File.DirAssets, "VERDE.png")
+						Else  If s.GetString("SUMA") < c2.GetString("CAT_GP_INICIATIVA") And  s.GetString("SUMA") > 0 Then
+							bmp = LoadBitmap(File.DirAssets, "AMARILLO.png")
+						Else
+							bmp = LoadBitmap(File.DirAssets, "ROJO.png")
+				
+						End If
+						s.Close
+					Else
+						bmp = LoadBitmap(File.DirAssets, "ROJO.png")
+				
+					End If
+					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+				Next
+			End If
+			c2.Close
+	  
+		Else if  Value = "ESTRATEGICO" Then
+			ListView1.Clear
+			lfila.text = "ESTRATEGICO"
+			Dim ins As InputStream
+			Dim bmp As Bitmap
+			Dim jpeg() As Byte
+			If c2.RowCount>0 Then
+				For i=0 To c2.RowCount -1
+					c2.Position=i
+					jpeg = c2.GetBlob("CAT_GP_IMG")
+					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+					bmp.Initialize2(ins)
+
+					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+				Next
+			End If
+			c2.Close
+		
+		Else
+				
+			ListView1.Clear
+			lfila.text = "PRODUCTO"
+			Dim ins As InputStream
+			Dim bmp As Bitmap
+			Dim jpeg() As Byte
+			If c2.RowCount>0 Then
+				For i=0 To c2.RowCount -1
+					c2.Position=i
+					jpeg = c2.GetBlob("CAT_GP_IMG")
+					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+					bmp.Initialize2(ins)
+
+					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+				Next
+			End If
+			c2.Close
+		End If
+	
+'		skmt.Initialize(ruta,"kmt.db", True)
+'		c2=starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_TIPOPROD <> ? ", Array As String(marca, tipo, Value,"7"))
+'		ListView1.Clear
+'		lfila.text = "PRODUCTO"
+'		Dim ins As InputStream
+'		Dim bmp As Bitmap
+'		Dim jpeg() As Byte
+'		If c2.RowCount>0 Then
+'			For i=0 To c2.RowCount -1
+'				c2.Position=i
+'				jpeg = c2.GetBlob("CAT_GP_IMG")
+'				ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'				bmp.Initialize2(ins)
+'
+'				ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+'			Next
+'		End If
+'		
+'		C3=starter.skmt.execQuery("select count(*) as CUANTOS FROM HIST_PROMOS WHERE HP_CLIENTE IN (Select CUENTA from cuentaa)")
+'		C3.Position =0
+'		If C3.GetString("CUANTOS") > 0 Then
+'			c2=starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ?  ", Array As String("7"))
+'			
+'			Dim ins As InputStream
+'			Dim bmp As Bitmap
+'			Dim jpeg() As Byte
+'			If c2.RowCount>0 Then
+'				For i=0 To c2.RowCount -1
+'					c2.Position=i
+'					jpeg = c2.GetBlob("CAT_GP_IMG")
+'					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'					bmp.Initialize2(ins)
+'
+'					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+'				Next
+'			End If
+'			c2=starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_ID = ?  ", Array As String("PRO524"))
+'			
+'			Dim ins As InputStream
+'			Dim bmp As Bitmap
+'			Dim jpeg() As Byte
+'			If c2.RowCount>0 Then
+'				For i=0 To c2.RowCount -1
+'					c2.Position=i
+'					jpeg = c2.GetBlob("CAT_GP_IMG")
+'					ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'					bmp.Initialize2(ins)
+'
+'					ListView1.AddTwoLinesAndBitmap(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"),bmp)
+'				Next
+'			End If
+'		End If
+'		C3.Close
+'		
+		entro = "4"
+	Else If entro = "4" Then
+	  
+		Starter.skmt.execNonQuery("delete from PROID")
+		Starter.skmt.execNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(Value))
+		StartActivity(pedidos)
+	  
+	End If
+End Sub
+
+Sub Activity_KeyPress (key As Int) As Boolean
+    ' BACK key pressed
+    If key=KeyCodes.KEYCODE_BACK Then
+       	 ya_entro ="0"
+
+	   If entro = "4" Then
+	   entro = "3"
+	   Activity_Resume
+	   Return True
+	   Else If entro = "3" Then
+	 '  entro = "2"
+	  ' Activity_Resume
+	  ' Return True
+	  ' Else If entro = "2" Then
+	  ' entro = "1"
+	  ' Activity_Resume
+	  ' Return True
+	   'Else If entro = "1" Then
+	   
+			' I want to capture the key here so I return True
+			
+			StartActivity(fila)
+            Return False
+		Else
+			StartActivity(fila)
+			Return False
+	   End If
+    End If
+    ' Returning False signals the system to handle the key
+    
+End Sub
+
+Sub BUSCA_TextChanged (Old As String, New As String)
+	q_buscar = "%" & BUSCA.Text & "%"
+'	skmt.Initialize(ruta,"kmt.db", True)
+	 ' c=starter.skmt.execQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? AND cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?)  order by CAT_GP_NOMBRE asc", Array As String(q_buscar, "PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON"))
+	c=Starter.skmt.execQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO,CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? and CAT_GP_CLASIF <>  ?  order by CAT_GP_NOMBRE asc", Array As String(q_buscar,"PROMOS"))
+	'and CAT_GP_CLASIF <>  ? group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc", Array As String("PROMOS") )
+	
+	   ListView1.Clear
+	 
+	  Dim ins As InputStream
+             Dim bmp As Bitmap
+             Dim jpeg() As Byte
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+	         jpeg = c.GetBlob("CAT_GP_IMG")
+             ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+             bmp.Initialize2(ins)
+
+			 ListView1.AddTwoLinesAndBitmap(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO"),bmp)
+	      Next
+	   End If
+
+	 
+	 
+'	   If c.RowCount>0 Then
+'	      For i=0 To c.RowCount -1
+'		     c.Position=i
+'			  Dim label1 As Label
+'			 label1 = ListView1.SingleLineLayout.Label
+'			 label1.TextSize = 13
+'			 ListView1.AddSingleLine(c.GetString("CAT_GP_NOMBRE"))
+'	      Next
+'	   End If
+	c.Close
+	entro= "4"
+End Sub
+
+
+
+Sub b_QR_Click
+	If ciclo = 1 Then
+		ciclo = 2
+		b_qr.Visible = False
+		ya_entro  = "0"
+		'entro = 3
+		Activity_Resume
+	else if ciclo = 2 Then
+		ciclo = 3
+		'	ya_entro  = 0
+		ya_entro  = "0"
+
+		Activity_Resume
+		b_qr.Visible = False
+
+	else if ciclo = 3 Then
+		ciclo = 4
+		'	ya_entro  = 0
+		ya_entro  = "0"
+
+		Activity_Resume
+		b_qr.Visible = False
+	else if ciclo = 4 Then
+		ciclo = 5
+		'	ya_entro  = 0
+		ya_entro  = "0"
+
+		Activity_Resume
+		b_qr.Visible = False
+	else if ciclo = 5 Then
+		ciclo = 1
+		'	ya_entro  = 0
+		ya_entro  = "0"
+
+		Activity_Resume
+		b_qr.Visible = False
+	End If
+End Sub
+

danvit.b4a

@@ -0,0 +1,586 @@
+Build1=Default,gunav2.keymon.com.mx
+File1=alert2.png
+File10=fila.bal
+File11=fondo_kmt.jpg
+File12=foto.bal
+File13=guardagestion.bal
+File14=guna_viejo.png
+File15=Hacer pedido.jpg
+File16=info_gral.bal
+File17=infonavit1.jpg
+File18=itembuttonblue.png
+File19=keymon_logo.png
+File2=alerta.jpg
+File20=kmt.db
+File21=login.bal
+File22=LOGO SANFER.jpg
+File23=logo_exitus1.jpg
+File24=Malo.jpg
+File25=mapa.bal
+File26=MAPA_RUTAS.bal
+File27=nopago.bal
+File28=nuevocliente.bal
+File29=Nvo Cliente.jpg
+File3=alerta_amarilla.png
+File30=palomita_verde.png
+File31=pedido.bal
+File32=planfia_logo.png
+File33=planfia_logo_old.png
+File34=planfia_logo_old2.png
+File35=qr.bal
+File36=RESDIA.bal
+File37=ResDia.jpg
+File38=ROJO.png
+File39=salma.jpg
+File4=AMARILLO.png
+File40=salma.png
+File41=seleccion.bal
+File42=senial.jpg
+File43=sync.png
+File44=tache_rojo.png
+File45=tarjeta.bal
+File46=telefonos.bal
+File47=Ticket dia.jpg
+File48=Tiendita.jpg
+File49=VERDE.png
+File5=buscar.bal
+File6=carrito.png
+File7=COMIS.bal
+File8=detalle_promo.bal
+File9=durakelo.png
+FileGroup1=Default Group
+FileGroup10=Default Group
+FileGroup11=Default Group
+FileGroup12=Default Group
+FileGroup13=Default Group
+FileGroup14=Default Group
+FileGroup15=Default Group
+FileGroup16=Default Group
+FileGroup17=Default Group
+FileGroup18=Default Group
+FileGroup19=Default Group
+FileGroup2=Default Group
+FileGroup20=Default Group
+FileGroup21=Default Group
+FileGroup22=Default Group
+FileGroup23=Default Group
+FileGroup24=Default Group
+FileGroup25=Default Group
+FileGroup26=Default Group
+FileGroup27=Default Group
+FileGroup28=Default Group
+FileGroup29=Default Group
+FileGroup3=Default Group
+FileGroup30=Default Group
+FileGroup31=Default Group
+FileGroup32=Default Group
+FileGroup33=Default Group
+FileGroup34=Default Group
+FileGroup35=Default Group
+FileGroup36=Default Group
+FileGroup37=Default Group
+FileGroup38=Default Group
+FileGroup39=Default Group
+FileGroup4=Default Group
+FileGroup40=Default Group
+FileGroup41=Default Group
+FileGroup42=Default Group
+FileGroup43=Default Group
+FileGroup44=Default Group
+FileGroup45=Default Group
+FileGroup46=Default Group
+FileGroup47=Default Group
+FileGroup48=Default Group
+FileGroup49=Default Group
+FileGroup5=Default Group
+FileGroup6=Default Group
+FileGroup7=Default Group
+FileGroup8=Default Group
+FileGroup9=Default Group
+Group=Default Group
+Library1=baqrcode
+Library10=javaobject
+Library11=okhttputils2
+Library12=phone
+Library13=randomaccessfile
+Library14=reflection
+Library15=rspopupmenu
+Library16=serial
+Library17=sql
+Library18=togglelibrary
+Library19=zxing_scanner
+Library2=batteryprogressview
+Library20=runtimepermissions
+Library3=byteconverter
+Library4=camera
+Library5=core
+Library6=firebaseadmob
+Library7=googlemaps
+Library8=googlemapsextras
+Library9=gps
+ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~	  'End of default text.~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~	AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.ACCESS_FINE_LOCATION"~\n~  android:maxSdkVersion="29" />~\n~)~\n~	AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~  android:maxSdkVersion="28" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.READ_PHONE_STATE"~\n~  android:maxSdkVersion="28" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.READ_PRIVILEGED_PHONE_STATE"~\n~  android:maxSdkVersion="28" />~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText(<uses-permission~\n~	android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~	  ''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~   android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText(<uses-library android:name="org.apache.http.legacy" android:required="false"/>)~\n~''CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~	  'End of default text.~\n~	  ~\n~~\n~
+Module1=BatteryUtilities
+Module10=gestion
+Module11=Historico
+Module12=MAPA_RUTAS
+Module13=mapas
+Module14=nopago
+Module15=nuevocliente
+Module16=pedidos
+Module17=QR_MODULE
+Module18=seleccion
+Module19=Starter
+Module2=BUSCAR
+Module20=tarjeta
+Module21=telefonos
+Module3=CameraExClass
+Module4=colonia
+Module5=colonia2
+Module6=DBRequestManager
+Module7=detalle_promo
+Module8=fila
+Module9=foto
+NumberOfFiles=49
+NumberOfLibraries=20
+NumberOfModules=21
+Version=11.5
+@EndOfDesignText@
+#Region  Project Attributes 
+	#ApplicationLabel: Danvit-V
+	#VersionCode: 1
+	#VersionName: 1.12.06
+	'SupportedOrientations possible values: unspecified, landscape or portrait.
+	#SupportedOrientations: portrait
+	#CanInstallToExternalStorage: False
+	#MultiDex: True
+	'###########################################################################################################
+	'######################           PULL         #############################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
+	'###########################################################################################################
+	'######################           PUSH         #############################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
+	'###########################################################################################################
+	'######################      PUSH TORTOISE GIT     #########################################################
+	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../"&Args=/closeonend:2
+	'###########################################################################################################
+#End Region
+
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+#Region Service Attributes
+#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 reqManager As DBRequestManager
+	Dim ruta As String
+	Dim tgl As Toggle
+	Public rp As RuntimePermissions
+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 skmt As SQL
+	Dim user As EditText
+	Dim pass As EditText
+	Dim c As Cursor
+	Dim existe As String
+	Dim paso1 As String
+	Private IMEN As Label
+	Dim IMEI As String
+	Dim g As GPS
+	Dim server As String
+	Dim alterno As String
+	Private b_menu As Button
+	Dim PopupMenu As RSPopupMenu
+	Dim cmd As DBCommand
+	Private PDF As Button
+	Private bpv1 As BatteryProgressView
+	Dim batterystatus(11) As Int
+	Private bu As BatteryUtilities
+	Private l_version As Label
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	Log("================  Iniciamos App  ===================")
+	ruta = File.DirInternal
+	If(FirstTime) Then
+		g.Initialize("GPS")
+	End If
+	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=skmt.ExecQuery2("select COUNT(*) AS CUANTOS from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+	'c.Position =0
+    
+	'If c.GetString("CUANTOS") = 0 Then
+	'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("1","1","SERVER","http://masternoc.mx:1783"))
+	'skmt.ExecNonQuery2("INSERT INTO CAT_CODIGOS (CAT_CO_PONDERACION, CAT_CO_ACCION, CAT_CO_RESULTADO, CAT_CO_CONFIGURACION) VALUES (?,?,?,?)", Array As Object ("0","2","SERVER","http://masternoc1.mx:1783"))
+    
+	'End If
+	'c.Close
+	'c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+	'c.Position =0
+	'server = c.GetString("CAT_CO_CONFIGURACION")
+	'c.Close
+    
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INVENT_X_ENVIAR (ALMACEN TEXT, PROID TEXT, CANTIDAD TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_RESUM_APK (HIST_RA_OBJMES TEXT, HIST_RA_VENTA TEXT, HIST_RA_TENDENCIA TEXT, HIST_RA_ALCANCE TEXT, HISR_RA_DRAOBJ TEXT, HIST_RA_DRAVTA TEXT, HIST_RA_DSOBJ TEXT, HIST_RA_DSVTA TEXT, HIST_RA_VPOOBJ TEXT, HIST_RA_VPOVTA TEXT, HIST_RA_COBCCC TEXT, HIST_RA_CTES TEXT, HIST_RA_ECO TEXT, HIST_RA_VISITPLAN TEXT, HIST_RA_VISIREAL TEXT, HIST_RA_COBVISIT TEXT, HIST_RA_FRECCOMPOBJ TEXT, HIST_RA_FRECCOMREAL TEXT, HIST_RA_VENTAMES1 TEXT, HIST_RA_VENTAMES2 TEXT, HIST_RA_VENTAMES3 TEXT, HIST_RA_VENTAMES4 TEXT, HIST_RA_RECHAZO TEXT, HIST_RA_RECHAZOPORCEN TEXT, HIST_RA_SEMANA1 TEXT, HIST_RA_SEMANA1_DIAS TEXT, HIST_RA_SEMANA1_DRA TEXT, HIST_RA_SEMANA2 TEXT, HIST_RA_SEMANA2_DIAS TEXT, HIST_RA_SEMANA2_DRA TEXT, HIST_RA_SEMANA3 TEXT, HIST_RA_SEMANA3_DIAS TEXT, HIST_RA_SEMANA4 TEXT, HIST_RA_SEMANA3_DRA TEXT, HIST_RA_SEMANA4_DIAS TEXT, HIST_RA_SEMANA4_DRA TEXT, HIST_RA_SEMANA5 TEXT, HIST_RA_SEMANA5_DIAS TEXT, HIST_RA_SEMANA5_DRA TEXT, HIST_RA_SEMANA1_LPT TEXT, HIST_RA_SEMANA2_LPT TEXT, HIST_RA_SEMANA3_LPT TEXT, HIST_RA_SEMANA4_LPT TEXT, HIST_RA_SEMANA5_LPT TEXT, HIST_RA_RUTA TEXT, HIST_RA_IDALMACEN TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_COMISIONES_MOVIL (HCM_IDALMACEN TEXT, HCM_RUTA TEXT, HCM_TOTAL_V TEXT, HCM_TOTAL_VIVE TEXT, HCM_TOTAL_GUNA TEXT,	HCM_TOTAL_BEB TEXT)")
+	
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GEOCERCA (HGCLIENTE TEXT, HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
+	c=Starter.skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
+	C.Position = 0
+	If c.GetString("CUANTOS")  = 0 Then
+		Starter.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
+	End If
+	C.Close
+
+	server = "http://keymon.com.mx:1782"
+	'server = "http://201.99.139.28:1783"
+	If FirstTime Then
+		reqManager.Initialize(Me, server)
+	End If
+	Activity.LoadLayout("login")
+	'este codigo es para lo del menu
+	PopupMenu.Initialize("PopupMenu", b_menu)
+	PopupMenu.AddMenuItem(0, 0, "View")
+	PopupMenu.AddMenuItem(1, 1, "Edit")
+	PopupMenu.AddMenuItem(2, 2, "Details")
+	PopupMenu.AddMenuItem(3, 3, "Remove")
+	' menu fin
+'	Wait For (GetAdvertisingId) Complete (Id As String)
+'	Dim P As PhoneId
+'	IMEN.Text = P.GetDeviceId
+'	IMEI = P.GetDeviceId
+	l_version.Text = Application.VersionName
+End Sub
+
+Sub Activity_Resume
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Dim P As PhoneId
+		'user.Text = P.GetDeviceId
+		IMEI = "" 'P.GetDeviceId
+		IMEI = ""
+	Else
+		Log("Sin permisos para leer los datos del celular")
+	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Log("Con permisos de ubicacion")
+	Else
+		Log("SIN permisos de ubicacion")
+	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Log("Con permisos de almacenamiento")
+	Else
+		Log("Sin permisos de almacenamiento")
+	End If
+	'server = "http://201.99.139.28:1782"
+	'server = "http://keymon.com.mx:1782"
+	'server = "http://177.244.63.54:1782"
+	server = "http://187.189.244.154:1782"
+'	Log(File.DirInternal)
+'	If Not(skmt.IsInitialized) Then skmt.Initialize(ruta,"kmt.db", True) : Log("Reinicializamos skmt")
+	reqManager.Initialize(Me, server)
+	tgl.Initialize()
+'	tgl.ToggleGPS
+	'tgl.TurnGPSOn
+	g.Initialize("GPS")
+	g.Start(0,0)
+	c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
+	c.Position =0
+	If c.GetString("CUANTOS") = 0 Then
+		cmd.Initialize
+		cmd.Name = "select_fecha"
+		reqManager.ExecuteQuery(cmd , 0, "fecha")
+		Msgbox("AJUSTAR FECHA","AVISO")
+		Activity_Resume
+	Else
+		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
+		c.Position =0
+		Dim sDate,sTime As String
+		DateTime.DateFormat = "yyyyMMdd"
+		sDate=DateTime.Date(DateTime.Now)
+		If sDate > "20291001" Then
+			Msgbox("INSTALAR NUEVO APK" ,"AVISO")
+			Activity_Resume
+		End If
+		If c.GetString("CAT_VA_VALOR") > sDate Then
+			Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO")
+			Activity_Resume
+		End If
+	End If
+	bu.Initialize
+	batterystatus = bu.BatteryInformation
+'	Msgbox(batterystatus(0),"aviso")
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+Sub Entrar_Click
+	If user.Text = "ALTERNO" Then
+		c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+		c.Position =0
+		server = c.GetString("CAT_CO_CONFIGURACION")
+		alterno = c.GetString("CAT_CO_RESULTADO")
+		c.Close
+		If alterno = 1 Then
+			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+		Else if alterno = 2 Then
+			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+		End If
+		c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
+		c.Position =0
+		server = c.GetString("CAT_CO_CONFIGURACION")
+		user.Text = server
+		c.Close
+		reqManager.Initialize(Me, server)
+	else if user.Text = "KMTS1" Then
+		Starter.skmt.ExecNonQuery("delete from usuarioa")
+		Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+		Starter.skmt.ExecNonQuery("delete from cat_almacen")
+		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
+		Starter.skmt.ExecNonQuery("delete from VERSION")
+		Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
+		StartActivity(seleccion)
+	else if user.Text = "BERNA1" Then
+		Starter.skmt.ExecNonQuery("delete from usuarioa")
+		Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, "1"))
+		Starter.skmt.ExecNonQuery("delete from cat_almacen")
+		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object ("1"))
+		Starter.skmt.ExecNonQuery("delete from VERSION")
+		Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
+		StartActivity(seleccion)
+	else if user.Text = "IMEI" Then
+		user.Text = IMEI
+	End If
+	c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
+	c.Position=0
+	existe = c.GetString("EXISTE1")
+	'existe = 1
+	If existe = 0 Then
+		'skmt.ExecNonQuery("delete from usuarioa")
+
+'		If IMEI = "" Then
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "select_usuario_guna_DANV_1"
+'			cmd.Parameters = Array As Object(user.Text, pass.Text)
+'			reqManager.ExecuteQuery(cmd , 0, "usuario")
+'	
+		'Else
+'	If IMEI = "" Then
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_usuario_guna_DANV_10"
+		cmd.Parameters = Array As Object(user.Text, pass.Text)
+		reqManager.ExecuteQuery(cmd , 0, "usuario_10")
+'	Else
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "select_usuario_guna_DANV"
+'				cmd.Parameters = Array As Object(user.Text, pass.Text)
+'				reqManager.ExecuteQuery(cmd , 0, "usuario")
+'	End If
+		'
+		'End If
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_version_DANV"
+		reqManager.ExecuteQuery(cmd , 0, "version")
+	Else
+		StartActivity(seleccion)
+	End If
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	If Job.Success = False Then
+		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "version" Then 'query tag
+				For Each records() As Object In result.Rows
+					Starter.skmt.ExecNonQuery("delete from VERSION")
+					Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
+					Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
+				Next
+			End If
+		End If
+	 
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "agencia" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
+				Next
+			End If
+		End If
+	 
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "fecha" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
+					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
+					starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
+				Next
+        
+			End If
+		End If
+	 
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "usuario" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim name As String = records(result.Columns.Get("USUARIO"))
+					Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
+					Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
+				Next
+				paso1 = 1
+			End If
+		End If
+	 
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "usuario_10" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim name As String = records(result.Columns.Get("USUARIO"))
+					Dim ID_ALMACEN As String = records(result.Columns.Get("CAT_LO_AGENCIA"))
+					Dim IMEI_BASE As String = records(result.Columns.Get("CAT_LO_IDTELEFONO"))
+					IMEI_BASE = ""
+				Next
+				paso1 = 1
+			End If
+		End If
+		Job.Release
+	End If
+	If paso1 =1 Then
+		'If IMEI = "" Then
+		If name = "OKActivo"  Then
+			starter.skmt.ExecNonQuery("delete from usuarioa")
+			Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+			Starter.skmt.ExecNonQuery("delete from cat_almacen")
+			Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
+
+			StartActivity(seleccion)
+		Else If name  = "OKExpirado" Then
+			Msgbox("Usuario Expirado llamar al administrador","")
+		Else If name = "OKCancelado" Then
+			Msgbox("Usuario Cancelado llamar al administrador","")
+		Else
+			Msgbox("Usuario o password No validos","")
+		End If
+		paso1 = 0
+		'Else
+'	If name = "OKActivo" & IMEI And  IMEI = IMEI_BASE Then
+'		If name = "OKActivo" & IMEI Then
+'			skmt.ExecNonQuery("delete from usuarioa")
+'			skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
+'			skmt.ExecNonQuery("delete from cat_almacen")
+'			skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
+		'
+'			StartActivity(seleccion)
+'		Else If name  = "OKExpirado"& IMEI Then
+'			Msgbox("Usuario Expirado llamar al administrador","")
+'		Else If name = "OKCancelado"& IMEI Then
+'			Msgbox("Usuario Cancelado llamar al administrador","")
+'		Else
+'			Msgbox("Usuario o password No validos","")
+'		End If
+'		paso1 = 0
+'	Else IF  name = "OKActivo" Then
+'		Msgbox("Telefono no VALIDO!","")
+'	Else
+'		Msgbox("Usuario o password No validos","")
+'	End If
+		'End If
+	End If
+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(Main)
+		ExitApplication
+		'Return True
+	End If
+	' Returning False signals the system to handle the key
+	Return False
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+	If user.text = "GPS" Then
+		'user.Text=Location1.ConvertToMinutes(Location1.Latitude)
+		'pass.text=Location1.ConvertToMinutes(Location1.Longitude)
+		user.Text=Location1.Latitude
+		pass.text=Location1.Longitude
+		'btnTakePicture.Enabled = True
+		's.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
+	End If
+End Sub
+
+public Sub Initialize
+	'Initialize the PopupMenu
+End Sub
+
+Sub PopupMenu_Dismiss
+	ToastMessageShow("PopupMenu dismissed", False)
+End Sub
+
+Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
+	ToastMessageShow("Item " & ItemId & " clicked.", False)
+	Return False
+End Sub
+
+Sub b_menu_Click
+	PopupMenu.Show
+End Sub
+
+Sub PDF_Click
+
+End Sub
+
+Private Sub GetAdvertisingId As ResumableSub
+	Dim jo As JavaObject = Me
+	jo.RunMethod("GetAdvertisingId", Null)
+	Wait For AdvertisingId_Ready (Success As Boolean, Id As String)
+	Return Id
+End Sub
+
+
+#if Java
+import java.util.concurrent.Callable;
+import com.google.android.gms.ads.identifier.AdvertisingIdClient;
+import com.google.android.gms.ads.identifier.AdvertisingIdClient.Info;
+
+public static void GetAdvertisingId() {
+   BA.runAsync(processBA, mostCurrent, "advertisingid_ready", new Object[] {false, ""}
+       , new Callable<Object[]>() {
+                   @Override
+                   public Object[] call() throws Exception {
+                       String id = AdvertisingIdClient.getAdvertisingIdInfo(mostCurrent).getId();
+                       return new Object[] {true, id};
+                   }
+               }); }
+#End If

danvit.b4a.meta

@@ -0,0 +1,69 @@
+ModuleBookmarks0=
+ModuleBookmarks1=
+ModuleBookmarks10=
+ModuleBookmarks11=
+ModuleBookmarks12=
+ModuleBookmarks13=
+ModuleBookmarks14=
+ModuleBookmarks15=
+ModuleBookmarks16=
+ModuleBookmarks17=
+ModuleBookmarks18=
+ModuleBookmarks19=
+ModuleBookmarks2=
+ModuleBookmarks20=
+ModuleBookmarks21=
+ModuleBookmarks3=
+ModuleBookmarks4=
+ModuleBookmarks5=
+ModuleBookmarks6=
+ModuleBookmarks7=
+ModuleBookmarks8=
+ModuleBookmarks9=
+ModuleBreakpoints0=
+ModuleBreakpoints1=
+ModuleBreakpoints10=
+ModuleBreakpoints11=
+ModuleBreakpoints12=
+ModuleBreakpoints13=
+ModuleBreakpoints14=
+ModuleBreakpoints15=
+ModuleBreakpoints16=
+ModuleBreakpoints17=
+ModuleBreakpoints18=
+ModuleBreakpoints19=
+ModuleBreakpoints2=
+ModuleBreakpoints20=
+ModuleBreakpoints21=
+ModuleBreakpoints3=
+ModuleBreakpoints4=
+ModuleBreakpoints5=
+ModuleBreakpoints6=
+ModuleBreakpoints7=
+ModuleBreakpoints8=
+ModuleBreakpoints9=
+ModuleClosedNodes0=
+ModuleClosedNodes1=
+ModuleClosedNodes10=
+ModuleClosedNodes11=
+ModuleClosedNodes12=
+ModuleClosedNodes13=
+ModuleClosedNodes14=
+ModuleClosedNodes15=
+ModuleClosedNodes16=
+ModuleClosedNodes17=
+ModuleClosedNodes18=3
+ModuleClosedNodes19=
+ModuleClosedNodes2=
+ModuleClosedNodes20=
+ModuleClosedNodes21=
+ModuleClosedNodes3=
+ModuleClosedNodes4=
+ModuleClosedNodes5=3,4
+ModuleClosedNodes6=
+ModuleClosedNodes7=
+ModuleClosedNodes8=
+ModuleClosedNodes9=
+NavigationStack=seleccion,connecta_Click,1870,2,Visual Designer,seleccion.bal,-100,1,seleccion,Activity_KeyPress,1868,0,Main,Activity_Create,76,4,Main,Globals,33,0,fila,GPS_LocationChanged,408,0,fila,Guardar_Click,651,0,fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0
+SelectedBuild=0
+VisibleModules=19,2,4,5,7,8,9,12

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

durakelo.b4a.meta

@@ -0,0 +1,59 @@
+VisibleModules=1,2,3,4,5,6,7,8,9,10
+ModuleBreakpoints0=
+ModuleBookmarks0=
+ModuleClosedNodes0=
+ModuleBreakpoints1=
+ModuleBookmarks1=
+ModuleClosedNodes1=
+ModuleBreakpoints2=
+ModuleBookmarks2=
+ModuleClosedNodes2=
+ModuleBreakpoints3=
+ModuleBookmarks3=
+ModuleClosedNodes3=
+ModuleBreakpoints4=
+ModuleBookmarks4=
+ModuleClosedNodes4=
+ModuleBreakpoints5=
+ModuleBookmarks5=
+ModuleClosedNodes5=
+ModuleBreakpoints6=
+ModuleBookmarks6=
+ModuleClosedNodes6=
+ModuleBreakpoints7=
+ModuleBookmarks7=
+ModuleClosedNodes7=7,8,9
+ModuleBreakpoints8=
+ModuleBookmarks8=
+ModuleClosedNodes8=
+ModuleBreakpoints9=
+ModuleBookmarks9=
+ModuleClosedNodes9=
+ModuleBreakpoints10=
+ModuleBookmarks10=
+ModuleClosedNodes10=18,19,20
+ModuleBreakpoints11=
+ModuleBookmarks11=
+ModuleClosedNodes11=
+ModuleBreakpoints12=
+ModuleBookmarks12=
+ModuleClosedNodes12=
+ModuleBreakpoints13=
+ModuleBookmarks13=
+ModuleClosedNodes13=
+ModuleBreakpoints14=
+ModuleBookmarks14=
+ModuleClosedNodes14=
+ModuleBreakpoints15=
+ModuleBookmarks15=
+ModuleClosedNodes15=
+ModuleBreakpoints16=
+ModuleBookmarks16=
+ModuleClosedNodes16=
+ModuleBreakpoints17=
+ModuleBookmarks17=
+ModuleClosedNodes17=
+ModuleBreakpoints18=
+ModuleBookmarks18=
+ModuleClosedNodes18=
+SelectedBuild=0

fila.bas

@@ -0,0 +1,957 @@
+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
+	Dim ruta As String
+'	Dim skmt As SQL
+	Dim clie_id As String
+    Dim sDate,sTime As String
+	Dim usuario As String
+    Dim total_cliente As String
+	Dim m_lat As String
+	Dim m_lon As String
+	Dim btAdmin As BluetoothAdmin
+	Dim cmp20 As Serial
+	Dim printer As TextWriter
+	Dim PairedDevices As Map
+	Dim L As List
+	Dim TAMANO As Int
+	Dim ESPACIO As Int
+    Dim BLANCO As String
+	Dim cuenta As String
+	Dim tipo_venta As String
+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 s As Cursor
+	Dim c2 As Cursor
+	Dim ListView1 As ListView
+	Dim la_cuenta As Label
+	Dim La_nombre As Label
+	Dim la_Calle As Label
+	Dim la_numero As Label
+	Dim la_nint As Label
+	Dim la_edo As Label
+	Dim la_pob As Label
+	Dim la_col As Label
+	Dim la_cp As Label
+	Dim la_zona As Label
+	Dim gest As Button
+	Dim la_saldotot As Label
+	Dim la_saldooper As Label
+	
+	Dim Tels As Button
+	Dim Label10 As Label
+	Dim Label11 As Label
+	
+	Dim Tar As Button
+	
+	Dim la_comm As Label
+	Dim la_actdte As Label
+	Dim la_usuario As Label
+	Dim la_resultado As Label
+	Dim l_entre1 As Label
+	Dim l_entre2 As Label
+	Dim l_atiende As Label
+	Dim l_atiende2 As Label
+	Dim DATOS As Button
+	Dim Guardar As Button
+	Dim NUEVO As Button
+    Dim lat_gps, lon_gps As String
+
+	Dim l_total As Label
+	Dim c2 As Cursor
+	Dim S2 As Cursor
+	Private s As Cursor
+	Dim res As String
+	Private HIST As Button
+	Private MONTO_COMPRA As String
+	Private META As String
+	Private META2 As String
+	Private VERIFICA As String
+	Private L_QR As Label
+	Private BT_QR As Button
+		Private qr As QRCode
+    Dim sc As Zxing_scanner
+   Dim CODIGO As String
+
+	Private b_mapa As Button
+	Dim CUANTOS As String
+	Private B_IMP As Button
+	Dim Toggla As Toggle
+	Dim tgl As Toggle
+	Private Panel1 As Panel
+	Private I_COMPRA As EditText
+	Private B_GUARDA_C As Button
+	Private b_venta As Button
+	Dim ALMACEN As String
+	Private LA_GPS As Label
+	Private B_E_NEXT As Button
+	Private E_RES_E As EditText
+	Private t_tenc As Label
+	Private Panel2 As Panel
+	Private CONTADOR_E As String
+	Private HR_RES1 As String
+	Private HR_RES2 As String
+	Private HR_RES3 As String
+	Private EXISTE As String
+	Private TELEFONO As String
+	
+	
+	Private RB1 As RadioButton
+	Private RB2 As RadioButton
+	Private RB3 As RadioButton
+	Private RB4 As RadioButton
+	Private RB5 As RadioButton
+	
+	Private stay_hh As String
+	Private stay_mi As String
+	Private stay_ss As String
+	
+	Private LA_GEO As Label
+	Dim result As Int
+	Private cercavalor 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.RemoveAllViews
+    Activity.LoadLayout("info_gral")
+	
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	   
+'	End If
+'    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_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA  from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	    s=Starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	    s.Position=0
+
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
+			 cuenta = c.GetString("CAT_CL_CODIGO")
+			 La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
+			 la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
+			 la_col.Text = c.GetString("CAT_CL_COLONIA")
+			 la_edo.Text = c.GetString("CAT_CL_EDO")
+'			 la_cp.Text = c.GetString("CAT_CL_CP")
+			 l_entre1.Text = c.GetString("CAT_CL_CALLE1")
+			 l_entre2.Text = c.GetString("CAT_CL_CALLE2")
+			 l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
+			 l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
+			 la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
+			 la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
+			 l_total.Text = s.GetString("TOTAL_CLIE")
+			 total_cliente = s.GetString("TOTAL_CLIE")
+			 MONTO_COMPRA = c.GetString("CAT_CL_MTOCOMPRA")
+			 
+			' la_producto.Text = c.GetString("CDPROD")
+			 'la_numero.Text = c.GetString("CDNUMEXT")
+			 'la_nint.Text = c.GetString("CDNUMINT")
+			 'la_pob.Text = c.GetString("CFSDOGLOBAL")
+			 
+			 'la_saldooper.Text = c.GetString("CAT_CL_FALTA")
+			 'Label10.Text = "FECHA DE ALTA"
+			 'Label11.Text = "# ENCUESTAS"
+			 
+			'c=starter.skmt.execQuery("select MGCTA, MGACTT, MGGESTT, MGDTEACTT, COMM  from hist_gest where MGCTA In (Select cuenta from cuentaa)")
+	 		'c.Position=0
+			'la_comm.Text = c.GetString("COMM")
+			'la_actdte.Text = C.GetString("MGDTEACTT")
+			'la_usuario.Text = c.GetString("MGGESTT")
+			'la_resultado.Text = c.GetString("MGACTT")
+			
+			 
+			 'la_padre.Text = c.GetString("PR_CF_FECHA_DISP")
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+			 
+	' 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.
+			 'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
+	    '  Next
+	   'End If
+	If FirstTime Then
+		btAdmin.Initialize("BlueTeeth")
+		cmp20.Initialize("Printer")
+	End If
+End Sub
+
+Sub Activity_Resume
+	BT_QR.Enabled = False
+	tgl.Initialize
+	LA_GPS.TextColor = Colors.Red
+    LA_GPS.Text = "SIN UBICACION GPS"
+'	tgl.TurnGPSOn
+	gest.Visible = False
+	
+	c=Starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	If c.GetString("USUARIO") = "KMTS1" Then gest.Visible = True
+	
+	cercavalor = 0
+	
+	If g.GPSEnabled=False Then
+		  ToastMessageShow("Habilitar el GPS", True)
+		  StartActivity(g.LocationSettingsIntent)
+	 Else
+	'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
+	  g.Start(0,0)
+	  ToastMessageShow("Buscando ubicación", False)
+	 End If
+	
+'			skmt.Initialize(ruta,"kmt.db", True)
+		c=Starter.skmt.execQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO  from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	    s=Starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	    s.Position=0
+
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
+			 La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
+			 la_Calle.Text = c.GetString("CAT_CL_CALLE") & " " & c.GetString("CAT_CL_NOEXT")
+			 la_col.Text = c.GetString("CAT_CL_COLONIA")
+			 la_edo.Text = c.GetString("CAT_CL_EDO")
+	'		 la_cp.Text = c.GetString("CAT_CL_CP")
+			 l_entre1.Text = c.GetString("CAT_CL_CALLE1")
+			 l_entre2.Text = c.GetString("CAT_CL_CALLE2")
+			 l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
+			 l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
+			 TELEFONO  = c.GetString("CAT_CL_TELEFONO")
+			 'la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
+			 l_total.Text = s.GetString("TOTAL_CLIE")
+			 total_cliente = s.GetString("TOTAL_CLIE")
+			 m_lat =c.GetString("CAT_CL_LAT")
+			 m_lon =c.GetString("CAT_CL_LONG")
+	' ESTO ES PARA FORSAR A PEDIR LA FOTO Y EL GPS		 
+			' Msgbox(c.GetString("CAT_CL_NUM_SERIEFISICO"),"AVISO")
+	'		 If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0"  Then
+	'		 L_QR.Visible = True
+	'		 gest.Enabled = False
+	'		 Tels.Enabled = False
+	'		 Else
+	'		 L_QR.Visible = False
+			 gest.Enabled = True
+			 Tels.Enabled = True
+			 				
+	'		End If
+			S2=Starter.skmt.execQuery("select count(*) AS CUANTOS from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+		    S2.Position =0 
+			CUANTOS = S2.GetString("CUANTOS")
+			S2.Close
+			If CUANTOS > 0 Then
+			c2=Starter.skmt.execQuery("select sum(HVD_COSTO_TOT) AS TOTAL from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
+			c2.Position =0
+			 MONTO_COMPRA = c2.GetString("TOTAL")
+			c2.Close
+			Else
+			  MONTO_COMPRA = "0"
+			End If 
+			
+			 la_saldotot.Text = MONTO_COMPRA
+			 If MONTO_COMPRA <> "0" Then
+			 META2 = 300 -  MONTO_COMPRA
+			 Else
+			 	META2 = 300
+			 End If
+			 If META2 < 1 Then
+			 	META2 = "CUBIERTO"
+			End If
+		     la_saldooper.Text = META2
+			   
+			' la_producto.Text = c.GetString("CDPROD")
+			 'la_numero.Text = c.GetString("CDNUMEXT")
+			 'la_nint.Text = c.GetString("CDNUMINT")
+			 'la_pob.Text = c.GetString("CFSDOGLOBAL")
+			 
+			 'la_saldooper.Text = c.GetString("CAT_CL_FALTA")
+			 'Label10.Text = "FECHA DE ALTA"
+			 'Label11.Text = "# ENCUESTAS"
+			 
+	
+			 'c=starter.skmt.execQuery("select MGCTA, MGACTT, MGGESTT, MGDTEACTT, COMM  from hist_gest where MGCTA In (Select cuenta from cuentaa)")
+	 		'c.Position=0
+			'la_comm.Text = c.GetString("COMM")
+			'la_actdte.Text = C.GetString("MGDTEACTT")
+			'la_usuario.Text = c.GetString("MGGESTT")
+			'la_resultado.Text = c.GetString("MGACTT")
+'
+'
+'
+''''''''''''''''''esto es para los pup de validacion 
+'	
+'	
+'	s=starter.skmt.execQuery("select count(*) as CUANTOS from HIST_VERIFICACION where HVE_CLIENTE IN (Select cuenta from cuentaa)")	
+'	s.Position=0
+'	If s.GetString("CUANTOS") = 0 Then
+'		
+'			If MONTO_COMPRA > 300 Then
+'				META = "FELICIDADES ESTE CLIENTE YA ALCANZO LA META DE VENTA"
+'			Else
+'				META2 = 300 -  MONTO_COMPRA 
+'		
+'				META = "FALTA POR ALCANZAR META, LA VENTA MINIMA PARA HOY ES DE : " & META2
+'			   
+'			End If
+'		c=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_VERIFICACION")
+'	    c.Position=0
+'		If c.GetString("CUANTOS") <> 0 Then
+'			
+'		c2=starter.skmt.execQuery("select CAT_VE_IDPROD, CAT_VE_NOMBRE, CAT_VE_ORDEN FROM CAT_VERIFICACION ORDER BY CAT_VE_ORDEN ")
+ '        If c2.RowCount>0 Then
+'	      For i=0 To c2.RowCount -1
+''		  	c2.Position =i
+'			VERIFICA = VERIFICA & "-------VALIDAR-------   " & c2.GetString("CAT_VE_NOMBRE")
+'			
+'	      	
+'		  Next
+'		End If
+'	End If		
+'		c.Close
+'		c2.Close
+'			
+'		Msgbox(" Instrucciones:     " & META &" para este clinete el adicional " & VERIFICA &" y el cliente cuenta con 6 promos.","Indicaciones")
+
+'	c=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_VERIFICACION")
+'	    c.Position=0
+'	If c.GetString("CUANTOS") <> 0 Then
+'		c2=starter.skmt.execQuery("select CAT_VE_IDPROD, CAT_VE_NOMBRE, CAT_VE_ORDEN FROM CAT_VERIFICACION ORDER BY CAT_VE_ORDEN ")
+ '        If c2.RowCount>0 Then
+''	      For i=0 To c2.RowCount -1
+'		  	c2.Position =i
+'			'ToastMessageShow(c2.GetString("CAT_GP_NOMBRE"), True)
+'
+'		  	res =  Msgbox2("Tiene el cliente  " & c2.GetString("CAT_VE_NOMBRE"),"Verificacion", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+'	      	If res = DialogResponse.POSITIVE Then
+ '         	  starter.skmt.execNonQuery2("INSERT INTO HIST_VERIFICACION VALUES (?,?,?)", Array As Object(la_cuenta.Text,c2.GetString("CAT_VE_IDPROD"), 1))
+'	
+'			Else
+'		  	starter.skmt.execNonQuery2("INSERT INTO HIST_VERIFICACION VALUES (?,?,?)", Array As Object(la_cuenta.Text,c2.GetString("CAT_VE_IDPROD"), 0))
+'	
+'			End If
+'		  Next
+'		End If
+'	End If
+'	c.Close
+'	End If
+'	s.Close
+
+''''''''''''''''''''''''''' hasta aqui es todo para los pups de validacion.
+' para imprimir			  	
+'	Toggla.TurnBluetoothOn
+'	btAdmin.Initialize("BlueTeeth")
+'	cmp20.Initialize("Printer")
+'	StartPrinter
+	c=starter.skmt.execQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	C.Position =0
+	ALMACEN = C.GetString("ID_ALMACEN")
+	C.Close
+'	If ALMACEN = "34" Then
+'		b_venta.Visible = True
+'	Else
+'		b_venta.Visible = False
+'		
+'	End If
+'	C=starter.skmt.execQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
+'	C.Position =0
+'	If C.GetString("CUANTOS")  > 0 Then
+'	BOTON_PROMO
+'		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+'		
+'			
+'	Else
+'	
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.Latitude
+lon_gps=Location1.Longitude
+	BT_QR.Enabled = True
+	LA_GPS.TextColor = Colors.Blue
+	LA_GPS.Text = "CON UBICACION GPS"
+	
+	
+	Dim l1, l2 As Location
+	l1.Initialize2(lat_gps, lon_gps)
+	l2.Initialize2(m_lat, m_lon)
+   
+	'now we need the distance between our location and the target location
+
+	Dim distance As Long
+	distance =    l1.DistanceTo(l2)  'the result is in meter
+
+	gest.Visible = True
+	
+	If distance < 20 Then
+		LA_GEO.TextColor = Colors.Blue
+	Else
+		LA_GEO.TextColor = Colors.Red
+	'	If cercavalor = 0 Then
+	'	result = Msgbox2("No estas en las coordenadas del cliente registradas en sistema, Estas en el cliente?", "Coordenadas Erroneas", "SI", "", "NO", LoadBitmap(File.DirAssets, "alerta.jpg"))
+	'	If result = DialogResponse.Positive Then 
+	'		starter.skmt.execNonQuery2("INSERT INTO HIST_GEOCERCA (HGCLIENTE, HGDATE, HGLAT, HGLON) VALUES(?,?,?,?) ", Array As Object (cuenta, sDate & sTime, lat_gps,lon_gps))
+	'	End If
+	'	cercavalor = 1
+	'	End If
+	End If
+	LA_GEO.Text= distance
+	
+	
+	Starter.skmt.execNonQuery("DELETE FROM HIST_GPS")
+	
+	Starter.skmt.execNonQuery2("INSERT INTO  HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps,lon_gps))
+
+End Sub
+
+
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	
+End Sub
+
+Sub gest_Click
+    'StartActivity(telefonos)
+	
+	'   starter.skmt.execNonQuery("delete from PRODUCTOA")
+	'  starter.skmt.execNonQuery2("INSERT INTO PRODUCTOA VALUES (?)", Array As Object(la_producto.Text))
+	'  Dim cuantos As String
+  	'c=starter.skmt.execQuery("select count(*) as cuantos from HIST_VISITAS WHERE HIST_VI_CREDITO IN (SELECT CUENTA FROM CUENTAA) ")
+    '    c.Position = 0
+	'    cuantos = c.GetString("cuantos")
+	'	ToastMessageShow(cuantos,True)
+	'If cuantos > 0 Then
+	'StartActivity(gestion)
+	'Else If cuantos = 0 Then
+
+''''' ESTE CODIGO SIRVE PARA MANDAR EN PUPUP LA PROMOCIONES E IR PREGUNTANDO UNO A UNO.
+''' DESDE EL CURSOR Y TODO EL IF DE ABAJO SON 20 LINEAS.
+'	c=starter.skmt.execQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+'	    c.Position=0
+'	If c.GetString("CUANTOS") = 0 Then
+'		c2=starter.skmt.execQuery2("select  CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ?  AND CAT_GP_ID IN (SELECT HP_CODIGO_PROMOCION FROM HIST_PROMOS WHERE HP_CLIENTE IN (Select cuenta from cuentaa) )", Array As String("PROMOS", "PROMOS", "PROMOS"))
+ '        If c2.RowCount>0 Then
+'	      For i=0 To c2.RowCount -1
+'		  	c2.Position =i
+'			'ToastMessageShow(c2.GetString("CAT_GP_NOMBRE"), True)
+''
+'		  	res =  Msgbox2(" " & c2.GetString("CAT_GP_NOMBRE"),"IR......", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+'	      	If res = DialogResponse.POSITIVE Then
+ '        		starter.skmt.execNonQuery("delete from PROID")
+'	  			starter.skmt.execNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(c2.GetString("CAT_GP_NOMBRE")))
+'	  			StartActivity(pedidos)
+'		  		i = c2.RowCount
+'		  	else if i = c2.RowCount -1 Then
+'		  			StartActivity(colonia2)
+'		  	End If
+'		  Next
+'		Else
+'			StartActivity(colonia2)
+'		End If
+'	Else
+'		StartActivity(colonia2)
+'	End If
+'	c.Close
+	''''' HASTA AQUI TERMINA LO DE LOS PUPUPS
+'	c=starter.skmt.execQuery("select  ID_ALMACEN from CAT_ALMACEN")
+'	C.Position =0
+'	ALMACEN = C.GetString("ID_ALMACEN")
+'	C.Close
+'	
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
+'	s=starter.skmt.execQuery("select COUNT(*) AS CUANTOS   from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
+'	s.Position= 0
+'If s.GetString("CUANTOS") = 0 Then
+'
+'If  ALMACEN = 3  Then
+'
+'			res =  Msgbox2("VENDEN PEDEGREE?","PEDEGREE", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+'	If res = DialogResponse.POSITIVE Then
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,"PEDEGREE"))
+'				Panel2.Visible  = True
+'				CONTADOR_E = 1
+'				t_tenc.Text = "Donde lo compran"
+'				E_RES_E.InputType =E_RES_E.INPUT_TYPE_TEXT
+'				E_RES_E.Text = ""
+'		
+'		
+'	Else
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,"PEDEGREE"))
+'				tipo_venta = "PREVENTA"
+'				StartActivity(colonia2)
+'	End If
+'		Else
+'			tipo_venta = "PREVENTA"
+'			StartActivity(colonia2)
+'End If
+'
+'Else
+'		tipo_venta = "PREVENTA"
+'		StartActivity(colonia2)
+'	End If
+
+
+
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
+'	c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+'	c.Position=0
+'	clie_id = c.GetString("CUENTA")
+'	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+'	c.Position=0
+'	usuario = c.GetString("USUARIO")
+'	
+'	c=starter.skmt.execQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_CUENTA IN (Select CUENTA from cuentaa)")
+'	c.Position=0
+'	EXISTE  = c.GetString("CUANTOS")
+'	c.Close
+'	If EXISTE = 0 Then
+'	res = Msgbox2("Manejan/Venden toallas sanitarias Saba  SI/NO","Encuesta","SI","","NO",LoadBitmap(File.DirAssets,"alert2.png"))
+'	If res = DialogResponse.POSITIVE Then
+'		Panel2.Visible  = True
+'		CONTADOR_E = 1
+'		t_tenc.Text = "Buenas Noches con Alas 8 piezas"
+'		E_RES_E.InputType =E_RES_E.INPUT_TYPE_DECIMAL_NUMBERS
+'		E_RES_E.Text = ""
+'	Else
+'		starter.skmt.execNonQuery2("INSERT INTO HIST_ENCUESTA(HE_CUENTA, HE_MANEJA, HE_RES1, HE_RES2, HE_RES3, HE_RES4,HE_FECHA,HE_USUARIO) VALUES (?,?,?,?,?,?,?,?)", Array As Object(clie_id, "NO","0","0","0","0",sDate&sTime, usuario))
+'		Main.tipov = "PREVENTA"
+'		StartActivity(colonia2)
+'		
+'	End If
+'	Else
+'		Main.tipov = "PREVENTA"
+'		StartActivity(colonia2)
+'	End If
+
+		tipo_venta = "PREVENTA"
+		StartActivity(colonia2)
+
+End Sub
+
+Sub Tels_Click
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
+'	' starter.skmt.execNonQuery("delete from PEDIDO")
+'	c=starter.skmt.execQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CUESTIONARIO"))
+'	c.Position =0
+'	If c.GetString("CAT_VA_VALOR") = "1" Then
+'
+'		res =  Msgbox2("El cliente maneja CAMEL ?","CAMEL", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+'		If res = DialogResponse.POSITIVE Then
+'			starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,"TIENE"))
+'			res = Msgbox2("Donde compra Camel?","Donde Compra","BAT","OTRO","MAYOREO",LoadBitmap(File.DirAssets,"alert2.png"))
+'			If res = DialogResponse.POSITIVE Then
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "BAT",sDate & sTime,"COMPRA"))
+'			ELSE IF res = DialogResponse.CANCEL Then
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "OTRO",sDate & sTime,"COMPRA"))
+'			Else IF res = DialogResponse.NEGATIVE Then
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "MAYOREO",sDate & sTime,"COMPRA"))
+'	
+'			End If
+'			StartActivity(nopago)
+'		Else
+'			starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,"TIENE"))
+'	
+'			StartActivity(nopago)
+'		End If
+'	Else
+'	
+'		StartActivity(nopago)
+'	End If
+'	DateTime.DateFormat = "MM/dd/yyyy"
+'	sDate=DateTime.Date(DateTime.Now)
+'	sTime=DateTime.Time(DateTime.Now)
+'	s=starter.skmt.execQuery("select COUNT(*) AS CUANTOS   from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
+'	s.Position= 0
+'	If s.GetString("CUANTOS") = 0 Then
+'
+'		If  TELEFONO = "0" Then
+'
+'			res =  Msgbox2("Permanecera abierto los proximos días ?","Apertura", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+'			If res = DialogResponse.POSITIVE Then
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,"CBOCAS"))
+'				Panel2.Visible  = True
+'				CONTADOR_E = 1
+'				t_tenc.Text = "Teléfono del cliente"
+'				E_RES_E.InputType =E_RES_E.INPUT_TYPE_DECIMAL_NUMBERS
+'				E_RES_E.Text = ""
+'		
+'		
+'			Else
+'				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,"CBOCAS"))
+'				Panel2.Visible  = True
+'				CONTADOR_E = 1
+'				t_tenc.Text = "Teléfono del cliente"
+'				E_RES_E.InputType =E_RES_E.INPUT_TYPE_DECIMAL_NUMBERS
+'				E_RES_E.Text = ""
+'			End If
+'		Else
+'			StartActivity(nopago)
+'		End If
+'
+'	Else
+'		StartActivity(nopago)
+'	End If
+
+	StartActivity(nopago)
+	  
+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(colonia)
+            'Return True
+    End If
+    ' Returning False signals the system to handle the key
+    Return False
+End Sub
+
+Sub Tar_Click
+	 StartActivity(tarjeta)
+End Sub
+Sub DATOS_Click
+	 StartActivity(telefonos)
+End Sub
+Sub Guardar_Click
+	DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+    c=Starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c=Starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	c=Starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	If c.GetString("CUANTOS") > 0 Then
+	Starter.skmt.execNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
+	Starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	Starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps))
+	Starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+	End If
+	c.Close
+	DateTime.TimeFormat = "HHmmss"
+	sTime=DateTime.Time(DateTime.Now)
+	Starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ?  where HSS_OUT = 0 AND  HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
+'  starter.skmt.execNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
+	
+Try
+c=Starter.skmt.execQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
+	"	Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end  MINUTOS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
+	"	Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _
+	"	from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
+	c.Position = 0
+	stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
+	stay_mi = c.GetString("MINUTOS_TOTALES") * 60
+	stay_ss = c.GetString("SEGUNDOS_TOTALES")
+	
+	starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
+	
+
+	starter.skmt.execNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ?  ", Array As Object(sTime))
+Catch
+	ToastMessageShow(".",True)
+End Try	
+	DateTime.TimeFormat = "HH:mm:ss"
+	
+	StartActivity(seleccion)
+End Sub
+Sub NUEVO_Click
+	StartActivity(nuevocliente)
+End Sub
+Sub HIST_Click
+	StartActivity(Historico)
+End Sub
+
+Sub BT_QR_Click
+	
+'ESTO HACE EL CODIGO QR
+    'StartActivity(QR_MODULE)
+'	Dim scan_width As Int
+'	Dim scan_height As Int
+'	scan_width = 400
+'	scan_height = 400
+'	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+' FIN CODIGO QR
+	'CODIGO PARA TOMAR LA FOTO
+Msgbox("Recuerda este punto se tomara como la ubicación de la tienda","AVISO")
+	StartActivity(foto)
+	
+End Sub
+
+
+
+
+Sub sc_result(atype As String,Values As String)
+    'Log("Type : " & atype)
+    'Log("Value : " & Values)
+	CODIGO = Values
+
+	starter.skmt.execNonQuery2("UPDATE kmt_info set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(CODIGO, lon_gps, lat_gps))
+	  
+End Sub
+Sub sc_noScan
+    Log("nothing returned from the scan !!!!!")
+End Sub
+Sub calc_ean_checksum(number As String) As String           'this has now become redundant as I am only interested in QR Codes
+    Dim i As Int
+    Dim cO As Char
+    Dim soma As Int
+    Dim n As Int
+    Dim digit As Float
+   
+    soma = 0
+    For i=0 To number.Length - 1
+        digit = number.SubString2(i,i+1)
+        n= digit * ((i Mod 2) * 2 + 1)   
+        soma=soma+n
+    Next
+    Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
+End Sub
+
+Sub b_mapa_Click
+	StartActivity(mapas)
+End Sub
+
+Sub B_IMP_Click
+	TAMANO = 0
+	ESPACIO = 21
+	BLANCO = " "
+	printer.Initialize(cmp20.OutputStream)
+	printer.WriteLine("DURAKELO S.A. de C.V.")
+	printer.WriteLine("RFC: DUR-011025-T12")
+	printer.WriteLine("Tel.: 618-826-0104")
+	printer.WriteLine("Vendedor: KMTS ")
+	printer.WriteLine("Tienda: " & La_nombre.Text)
+	printer.WriteLine("-----------PREVENTA-----------")
+	s=starter.skmt.execQuery("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	If S.RowCount>0 Then
+	  For i=0 To S.RowCount -1
+	S.Position=i
+	printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
+	TAMANO = s.GetLong("L_CANT") + TAMANO
+	TAMANO = s.GetLong("L_COSTOU") + TAMANO
+	TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+	ESPACIO = ESPACIO - TAMANO
+	
+	For E=0 To ESPACIO -1 
+		BLANCO = " " & BLANCO
+	Next
+			printer.WriteLine(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") )
+			TAMANO = 0
+			ESPACIO = 21
+			BLANCO = " "
+	 
+	 Next
+	End If
+	printer.WriteLine("Total Preventa:   $" & total_cliente)
+	printer.WriteLine("------------VENTA-------------")
+	printer.WriteLine(" ")
+	printer.WriteLine("TOTAL:   $" & total_cliente)
+	printer.WriteLine(" ")
+	printer.WriteLine("----ESTE TICKET NO ES UN -----")
+	printer.WriteLine("--COMPROBANTE FISCAL, SOLO ES-")
+	printer.WriteLine("--------INFORMATIVO-----------")
+	printer.WriteLine("------------------------------")
+	printer.WriteLine(" ")
+	printer.Flush
+'	printer.Close
+	
+End Sub
+
+Sub Printer_Connected (Success As Boolean)
+	If Success Then
+		
+    B_IMP.Enabled = True
+			
+	Else
+		B_IMP.Enabled = False
+		If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then
+			StartPrinter
+		End If
+	End If
+End Sub
+
+Sub StartPrinter
+	Dim PairedDevices As Map
+	Dim L As List
+	Dim resimp As Int
+
+	ToastMessageShow("Printing.....",True)
+
+	PairedDevices.Initialize
+
+	Try
+		PairedDevices = cmp20.GetPairedDevices
+	Catch
+		Msgbox("Getting Paired Devices","Printer Error")
+		printer.Close
+		cmp20.Disconnect
+	End Try
+
+	If PairedDevices.Size = 0 Then
+		Msgbox("Error Connecting to Printer - Printer Not Found","")
+		Return
+	End If
+
+	If PairedDevices.Size = 1 Then
+		Try
+			cmp20.ConnectInsecure(btAdmin,PairedDevices.Get(PairedDevices.GetKeyAt(0)),1)
+		Catch
+			Msgbox("Connecting","Printer Error")
+			printer.Close
+			cmp20.Disconnect
+		End Try
+	Else
+		L.Initialize
+
+		For i = 0 To PairedDevices.Size - 1
+			L.Add(PairedDevices.GetKeyAt(i))
+		Next
+
+		resimp = InputList(L, "Choose device", -1)
+
+		If resimp <> DialogResponse.CANCEL Then
+			cmp20.Connect(PairedDevices.Get(L.Get(resimp)))
+			
+		End If
+	End If
+End Sub
+
+
+Sub B_GUARDA_C_Click
+	
+		
+	starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, I_COMPRA.Text,sDate & sTime,"COMPRA"))
+	Panel1.Visible = False
+	BT_QR.Visible= True
+		
+	StartActivity(colonia2)
+End Sub
+
+Sub b_venta_Click
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	s=starter.skmt.execQuery("select COUNT(*) AS CUANTOS   from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
+	s.Position= 0
+	If s.GetString("CUANTOS") = 0 Then
+
+		c=starter.skmt.execQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CUESTIONARIO"))
+		c.Position =0
+		If c.GetString("CAT_VA_VALOR") = "2" Then
+
+			res =  Msgbox2("El cliente maneja CAZARES ?","CAZARES", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+			If res = DialogResponse.POSITIVE Then
+				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,"TIENE"))
+				Panel1.Visible =True
+				I_COMPRA.Text = ""
+				BT_QR.Visible= False
+		
+		
+			Else
+				starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,"TIENE"))
+				tipo_venta = "VENTA"
+				StartActivity(colonia2)
+			End If
+		Else
+			tipo_venta = "VENTA"
+			StartActivity(colonia2)
+		End If
+
+	Else
+		tipo_venta = "VENTA"
+		StartActivity(colonia2)
+	End If
+End Sub
+
+Sub B_E_NEXT_Click
+	
+	If E_RES_E.Text <> "" Then
+		
+			
+			starter.skmt.execNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, E_RES_E.Text,sDate & sTime,"DONDE"))
+			'Main.tipov = "PREVENTA"
+			Panel2.Visible = False
+			
+			StartActivity(colonia2)
+
+	Else
+		Msgbox("SIN RESPUESTA","AVISO")
+	End If
+	
+	
+End Sub
+
+Sub RB1_CheckedChange(Checked As Boolean)
+	If RB1.Checked = True Then
+		E_RES_E.Text = "CENTRAL DE ABASTOS"
+	End If
+End Sub
+
+Sub RB2_CheckedChange(Checked As Boolean)
+	If RB2.Checked = True Then
+		E_RES_E.Text = "AUTOSERVICIO"
+	End If
+	
+End Sub
+
+Sub RB3_CheckedChange(Checked As Boolean)
+	If RB3.Checked = True Then
+		E_RES_E.Text = "CLUB DE PRECIO"
+	End If
+	
+End Sub
+
+Sub RB4_CheckedChange(Checked As Boolean)
+	If RB4.Checked = True Then
+		E_RES_E.Text = "DIRECTO PEDEGREE"
+	End If
+	
+End Sub

fila2.bas

@@ -0,0 +1,138 @@
+Type=Activity
+Version=3
+@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.
+
+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 g As GPS
+    Dim skmt As SQL
+	Dim c As Cursor
+	Dim ListView1 As ListView
+	Dim la_cuenta As Label
+	Dim La_nombre As Label
+	Dim la_Calle As Label
+	Dim la_numero As Label
+	Dim la_nint As Label
+	Dim la_edo As Label
+	Dim la_pob As Label
+	Dim la_col As Label
+	Dim la_cp As Label
+	Dim la_zona As Label
+	Dim la_entre1 As Label
+	Dim la_entre2 As Label
+	Dim gest As Button
+	Dim la_saldotot As Label
+	Dim la_saldooper As Label
+	Dim la_saldof1 As Label
+	Dim la_penal As Label
+	Dim la_producto As Label
+	Dim la_padre As Label
+	Dim la_no_ird As Label
+
+	Dim Tels As Button
+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("info_gral")
+	Dim ruta As String
+	
+	' valido donde escribo el archivo de la base de datos de kmt
+	If File.ExternalWritable Then
+	   ruta = File.DirDefaultExternal
+	Else
+	   ruta = File.DirInternal
+	   
+	End If
+	
+	' 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=skmt.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, PR_CA_CONVENIO,PR_CF_MTO_PRESTAMO,PR_CF_FECHA_DISP,PR_CF_SALDO_ACORT,PR_CF_SALDO_VEN,PR_CF_SALDO_PAGARE,PR_CF_CAPITAL from kmt_info where pr_cd_credito In (select cuenta from cuentaa)")
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 la_cuenta.Text = c.GetString("pr_cd_credito")
+			 La_nombre.Text = 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_CF_CAPITAL")
+			 '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_CA_CONVENIO")
+			 la_saldooper.Text = c.GetString("PR_CF_MTO_PRESTAMO")
+			 la_saldof1.Text = c.GetString("PR_CF_SALDO_VEN")
+			 la_penal.Text = c.GetString("PR_CF_SALDO_PAGARE")
+			 la_producto.Text = c.GetString("pr_kt_producto")
+			 la_padre.Text = c.GetString("PR_CF_FECHA_DISP")
+			 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
+If g.GPSEnabled=False Then
+	  ToastMessageShow("Habilitar el GPS", True)
+	  StartActivity(g.LocationSettingsIntent)
+	 Else
+	  g.Start(0,0)
+	 End If
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	
+End Sub
+
+Sub gest_Click
+	StartActivity(gestion)
+End Sub
+
+Sub Tels_Click
+    StartActivity(telefonos)	
+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

foto.bas

@@ -0,0 +1,216 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=6.8
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: False
+	
+#End Region
+Sub Process_Globals
+	Private frontCamera As Boolean = False
+	Dim ruta As String
+	Dim g As GPS
+	Dim foto_g () As Byte
+	Dim foto_g1 () As Byte
+	Dim foto_g2 () As Byte
+	Dim foto_g3 () As Byte
+	Dim foto_g4 () As Byte
+	Dim existe_gestion As String
+
+
+End Sub
+
+Sub Globals
+	Private Panel1 As Panel
+	Private camEx As CameraExClass
+	Dim btnTakePicture As Button
+'	Dim skmt As SQL
+	Dim c As Cursor
+	Dim cuenta As String
+	Dim lat_gps As String
+	Dim lon_gps As String
+
+	Private Panel2 As Panel
+	Private b_guardar As Button
+	Private i_foto As ImageView
+	Dim contador As String
+	Private LA_TIPO As Label
+	Dim tgl As Toggle
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	If(FirstTime) Then
+		g.Initialize("GPS")
+	End If
+	Activity.LoadLayout("foto")
+'	If File.ExternalWritable Then
+'		ruta = File.DirDefaultExternal
+'	Else
+'		ruta = File.DirInternal
+'	End If
+	
+'	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 cuenta from cuentaa")
+	c.Position = 0
+	cuenta = c.GetString("CUENTA")
+		
+End Sub
+
+Sub Activity_Resume
+	i_foto.Visible = False
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'	If g.GPSEnabled=False Then
+'		ToastMessageShow("Habilitar el GPS", True)
+'		StartActivity(g.LocationSettingsIntent)
+'	Else
+		g.Start(0,0)
+'	End If
+	InitializeCamera
+	'lon_gps = "-99:52:38,682"
+	'lat_gps = "16:51:38,022"
+	contador = 1
+End Sub
+
+Private Sub InitializeCamera
+	camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
+	frontCamera = camEx.Front
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	camEx.Release
+End Sub
+Sub GPS_LocationChanged (Location1 As Location)
+
+	lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+	lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+	'btnTakePicture.Enabled = True
+	's.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE,HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, lat_gps, lon_gps))
+End Sub
+
+Sub Camera1_Ready (Success As Boolean)
+	If Success Then
+		camEx.SetJpegQuality(90)
+		camEx.CommitParameters
+		camEx.StartPreview
+		Log(camEx.GetPreviewSize)
+	Else
+		ToastMessageShow("Cannot open camera.", True)
+	End If
+End Sub
+
+Sub btnTakePicture_Click
+	Dim ps As CameraSize
+	ps.Width =640
+	ps.Height =480
+	camEx.SetPictureSize(ps.Width, ps.Height)
+	'ToastMessageShow(ps.Width & "x" & ps.Height, False)
+	camEx.CommitParameters
+	camEx.TakePicture
+End Sub
+
+Sub btnFocus_Click
+	camEx.FocusAndTakePicture
+End Sub
+
+Sub Camera1_PictureTaken (Data() As Byte)
+	Dim filename As String = "1.jpg"
+	Dim dir As String = File.DirRootExternal
+	
+	camEx.SavePictureToFile(Data, dir, filename)
+	camEx.StartPreview 'restart preview
+	i_foto.Visible = True
+
+	i_foto.Bitmap = LoadBitmap(File.DirRootExternal, "1.jpg")
+	Dim ins As InputStream
+	Dim bmp As Bitmap
+	Dim jpeg() As Byte
+	Dim InputStream1 As InputStream
+	InputStream1 = File.OpenInput(File.DirRootExternal, "1.jpg")
+	Dim OutputStream1 As OutputStream
+	OutputStream1.InitializeToBytesArray(500)
+	File.Copy2(InputStream1, OutputStream1)
+	foto_g = OutputStream1.ToBytesArray
+	
+End Sub
+
+Sub ChangeCamera_Click
+	camEx.Release
+	frontCamera = Not(frontCamera)
+	InitializeCamera
+End Sub
+
+Sub btnEffect_Click
+	Dim effects As List = camEx.GetSupportedColorEffects
+	If effects.IsInitialized = False Then
+		ToastMessageShow("Effects not supported.", False)
+		Return
+	End If
+	Dim effect As String = effects.Get((effects.IndexOf(camEx.GetColorEffect) + 1) Mod effects.Size)
+	camEx.SetColorEffect(effect)
+	ToastMessageShow(effect, False)
+	camEx.CommitParameters
+End Sub
+
+Sub btnFlash_Click
+	Dim f() As Float = camEx.GetFocusDistances
+	Log(f(0) & ", " & f(1) & ", " & f(2))
+	Dim flashModes As List = camEx.GetSupportedFlashModes
+	If flashModes.IsInitialized = False Then
+		ToastMessageShow("Flash not supported.", False)
+		Return
+	End If
+	Dim flash As String = flashModes.Get((flashModes.IndexOf(camEx.GetFlashMode) + 1) Mod flashModes.Size)
+	camEx.SetFlashMode(flash)
+	ToastMessageShow(flash, False)
+	camEx.CommitParameters
+End Sub
+Sub btnPictureSize_Click
+	Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes
+	Dim current As CameraSize = camEx.GetPictureSize
+	For i = 0 To pictureSizes.Length - 1
+		If pictureSizes(i).Width = current.Width And pictureSizes(i).Height = current.Height Then Exit
+	Next
+	Dim ps As CameraSize = pictureSizes((i + 1) Mod pictureSizes.Length)
+	camEx.SetPictureSize(ps.Width, ps.Height)
+	ToastMessageShow(ps.Width & "x" & ps.Height & i, False)
+	camEx.CommitParameters
+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 b_guardar_Click
+	Dim sDate,sTime As String
+
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		starter.skmt.execNonQuery2("UPDATE kmt_info set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_FOTO =? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object("OK", lon_gps, lat_gps, foto_g))
+
+		'send a broadcast intent to the media scanner to force it to scan the saved file.
+		'Dim Phone As Phone
+		'Dim i As Intent
+		'i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
+		'	"file://" & File.Combine(dir, filename))
+		'Phone.SendBroadcastIntent(i)
+		'ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)
+		StartActivity(fila)
+	
+End Sub

gestion.bas

@@ -0,0 +1,274 @@
+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
+	Dim tgl As Toggle
+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
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	
+	' 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
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'     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

gitpull.bat

@@ -0,0 +1 @@
+git pull

guna.b4a.meta

@@ -0,0 +1,66 @@
+ModuleBookmarks0=
+ModuleBookmarks1=
+ModuleBookmarks10=
+ModuleBookmarks11=
+ModuleBookmarks12=
+ModuleBookmarks13=
+ModuleBookmarks14=
+ModuleBookmarks15=
+ModuleBookmarks16=
+ModuleBookmarks17=
+ModuleBookmarks18=
+ModuleBookmarks19=
+ModuleBookmarks2=
+ModuleBookmarks20=
+ModuleBookmarks3=
+ModuleBookmarks4=
+ModuleBookmarks5=
+ModuleBookmarks6=
+ModuleBookmarks7=
+ModuleBookmarks8=
+ModuleBookmarks9=
+ModuleBreakpoints0=
+ModuleBreakpoints1=
+ModuleBreakpoints10=
+ModuleBreakpoints11=
+ModuleBreakpoints12=
+ModuleBreakpoints13=
+ModuleBreakpoints14=
+ModuleBreakpoints15=
+ModuleBreakpoints16=
+ModuleBreakpoints17=
+ModuleBreakpoints18=
+ModuleBreakpoints19=
+ModuleBreakpoints2=
+ModuleBreakpoints20=
+ModuleBreakpoints3=
+ModuleBreakpoints4=
+ModuleBreakpoints5=
+ModuleBreakpoints6=
+ModuleBreakpoints7=
+ModuleBreakpoints8=
+ModuleBreakpoints9=
+ModuleClosedNodes0=4,5,6,11
+ModuleClosedNodes1=2,3,4,5
+ModuleClosedNodes10=2,3,4,5,6,7
+ModuleClosedNodes11=4,5
+ModuleClosedNodes12=
+ModuleClosedNodes13=2,3,4,5,6,7
+ModuleClosedNodes14=3,4
+ModuleClosedNodes15=
+ModuleClosedNodes16=2,3,4
+ModuleClosedNodes17=3,4,5
+ModuleClosedNodes18=2,3,4,5,7,9,10,12,14,15,16,17,18,19,20,22,23,25,26,28
+ModuleClosedNodes19=3,4,5,6
+ModuleClosedNodes2=3,4,5,6,7
+ModuleClosedNodes20=
+ModuleClosedNodes3=
+ModuleClosedNodes4=2,4,6
+ModuleClosedNodes5=3,4,5,8,9
+ModuleClosedNodes6=1,2,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18
+ModuleClosedNodes7=2,3,4,5,6,7,8
+ModuleClosedNodes8=
+ModuleClosedNodes9=4,5,6
+NavigationStack=DBRequestManager,ExecuteQuery,32,0,DBRequestManager,HandleJob,180,0,DBRequestManager,ReadBytesFully,153,0,DBRequestManager,ExecuteBatch,39,0,seleccion,Activity_Resume,537,6,pedidos,Activity_Resume,251,0,pedidos,Activity_Pause,276,0,Main,Globals,26,0,Main,Activity_Resume,174,6
+SelectedBuild=0
+VisibleModules=18,10,9,6,4,5,15,2,8,16

kmt1.b4a.meta

@@ -0,0 +1,38 @@
+VisibleModules=1,2,3,4,5,6,7,8,11
+ModuleBreakpoints0=
+ModuleClosedNodes0=
+ModuleBreakpoints1=
+ModuleClosedNodes1=1,3,4,5,6,7,9,10,11,12,13,14,15,16,17
+ModuleBreakpoints2=
+ModuleClosedNodes2=1
+ModuleBreakpoints3=
+ModuleClosedNodes3=1
+ModuleBreakpoints4=
+ModuleClosedNodes4=
+ModuleBreakpoints5=
+ModuleClosedNodes5=1,2,3,4,5,6,7,8,9,10,11,13,14,15,16
+ModuleBreakpoints6=
+ModuleClosedNodes6=1
+ModuleBreakpoints7=
+ModuleClosedNodes7=1,8
+ModuleBreakpoints8=
+ModuleClosedNodes8=1,2,3,4,6,8
+ModuleBreakpoints9=
+ModuleClosedNodes9=1,2,4,6
+ModuleBreakpoints10=
+ModuleClosedNodes10=1,4,5,6,7,8,9
+ModuleBreakpoints11=
+ModuleClosedNodes11=
+ModuleBreakpoints12=
+ModuleClosedNodes12=1
+ModuleBreakpoints13=
+ModuleClosedNodes13=1
+ModuleBreakpoints14=
+ModuleClosedNodes14=1
+ModuleBreakpoints15=
+ModuleClosedNodes15=1
+ModuleBreakpoints16=
+ModuleClosedNodes16=
+ModuleBreakpoints17=
+ModuleClosedNodes17=
+SelectedBuild=0

mapas.bas

@@ -0,0 +1,51 @@
+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.
+	
+    
+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 WebView1 As WebView
+	Dim reg As Button
+	Dim a_url 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")
+	 Activity.LoadLayout("mapa")
+a_url ="http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=400x300&maptype=roadmap&markers=color:blue%7C" & "19.072205" & ",%20"& "-98.226863" & "&sensor=false"
+	 
+WebView1.LoadUrl("http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=800x800&maptype=roadmap&markers=color:blue%7Clabel:1%7C19.076514,%20-98.228184&markers=color:red%7Clabel:C%7C19.076514,%20-98.238184&sensor=false")
+'http://maps.googleapis.com/maps/api/staticmap?zoom=16&size=800x800&maptype=roadmap&markers=color:blue%7Clabel:1%7C19.076514,%20-98.228184&markers=color:red%7Clabel:C%7C19.076514,%20-98.238184&path=color:0xff0000ff|weight:5|19.076514,-98.228184|19.076514,-98.238184&sensor=False
+' la parte del path 
+End Sub
+
+Sub Activity_Resume
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub reg_Click
+	StartActivity(fila)
+End Sub

nopago.bas

@@ -0,0 +1,155 @@
+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
+	Dim ruta As String
+'	Dim skmt As SQL
+	Dim c As Cursor
+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 CANCELA As Button
+	Dim GUARDA As Button
+	Dim r_1 As RadioButton
+	Dim r_2 As RadioButton
+	Dim r_3 As RadioButton
+	Dim e_comm As EditText
+	Dim motivo As String
+	Dim cuenta As String
+	Dim usuario As String
+    Dim sDate,sTime As String
+	Dim lat_gps, lon_gps As String
+	Dim tgl As Toggle
+	Dim r_4 As RadioButton
+	
+	Private stay_hh As String
+	Private stay_mi As String
+	Private stay_ss 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:
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+    
+	Activity.LoadLayout("nopago")
+    
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	   
+'	End If
+'    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)
+	
+End Sub
+
+Sub Activity_Resume
+	e_comm.Text=""
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'    If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+	  g.Start(0,0)
+'	 End If
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	g.Start(0,0)
+
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+
+
+Sub CANCELA_Click
+	StartActivity(fila)
+End Sub
+Sub GUARDA_Click
+If r_1.Checked Then
+motivo = "CERRADO"
+Else If r_2.Checked Then
+motivo = "NO COMPRA"
+Else If r_3.Checked Then
+motivo = "CON PRODUCTO"
+Else
+motivo = "NO ESTA EL ENCARGADO"
+End If
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+        c=starter.skmt.execQuery("select CUENTA from cuentaa")
+        c.Position = 0
+	    cuenta = c.GetString("CUENTA")
+	    c=Starter.skmt.execQuery("select usuario from usuarioa")
+		c.Position = 0
+		usuario = c.GetString("USUARIO")
+		c=Starter.skmt.execQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
+	    If c.RowCount>0 Then
+	       For i=0 To c.RowCount -1
+		      c.Position=i
+		      Starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+	       Next
+	    End If
+	
+	
+	    Starter.skmt.execNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	    Starter.skmt.execNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	
+     	Starter.skmt.execNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text,lat_gps,lon_gps))
+	Starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	DateTime.TimeFormat = "HHmmss"
+	sTime=DateTime.Time(DateTime.Now)
+	starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
+	'  starter.skmt.execNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
+	
+
+	c=starter.skmt.execQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
+	"	Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end  MINUTOS_TOTALES, " & _
+	"Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
+	"	Else (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) end SEGUNDOS_TOTALES " & _
+	"	from HIST_STAY_STORE where HSS_CODIGO In (Select cuenta from cuentaa) ")
+	c.Position = 0
+	stay_hh = c.GetString("HORAS_TOTALES") * 60 * 60
+	stay_mi = c.GetString("MINUTOS_TOTALES") * 60
+	stay_ss = c.GetString("SEGUNDOS_TOTALES")
+	
+	starter.skmt.execNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
+	
+
+	starter.skmt.execNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ?  ", Array As Object(sTime))
+	
+	DateTime.TimeFormat = "HH:mm:ss"
+	
+	StartActivity(seleccion)
+End Sub

nuevocliente.bas

@@ -0,0 +1,116 @@
+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
+	Dim ruta As String
+'	Dim skmt As SQL
+	Dim c As Cursor
+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 CANCELA As Button
+	Dim GUARDA As Button
+	Dim cuenta As String
+	Dim usuario As String
+    Dim sDate,sTime As String
+	Dim lat_gps, lon_gps As Double
+	Dim no_cliente As String
+	Dim no_ruta As String
+	
+	Dim r_4 As RadioButton
+	Dim E_NOMBRE As EditText
+	Dim tgl As Toggle
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+    
+	Activity.LoadLayout("nuevocliente")
+    
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	   
+'	End If
+'    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)
+	
+End Sub
+
+Sub Activity_Resume
+	E_NOMBRE.Text =  ""
+	
+	
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'    If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+	  g.Start(0,0)
+'	 End If
+GUARDA.Visible = False
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	g.Start(0,0)
+
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.Latitude
+lon_gps=Location1.Longitude
+GUARDA.Visible = True
+
+End Sub
+
+
+
+Sub CANCELA_Click
+	StartActivity(seleccion)
+End Sub
+Sub GUARDA_Click
+If E_NOMBRE.Text =  "" Then
+ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True)
+Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+        c=starter.skmt.execQuery("select CAT_CL_RUTA FROM kmt_info")
+		c.Position=0
+		no_ruta= c.GetString("CAT_CL_RUTA")
+		no_cliente= "N" & sTime & no_ruta
+		c.Close
+		
+	    Starter.skmt.execNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",lon_gps,lat_gps))
+		Starter.skmt.execNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
+		Starter.skmt.execNonQuery("delete from CUENTAA")
+	    Starter.skmt.execNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
+	    StartActivity(fila)
+		
+End If
+End Sub

pedidos.bas

@@ -0,0 +1,836 @@
+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
+	Dim ruta As String
+'	Dim skmt As SQL
+	Private t3 As Timer
+	Dim p As Phone
+	Dim sb As StringBuilder
+	Dim reqManager As DBRequestManager
+
+	
+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 e As Cursor
+	Dim f As Cursor
+	Dim h As Cursor
+	Dim CC As Cursor
+	Dim DD As Cursor
+	Dim l_tipo As Label
+	Dim l_sub As Label
+	Dim l_marca As Label
+	Dim l_desc As Label
+	Dim l_precio As Label
+	Dim l_bodega As Label
+	Dim cantidad As EditText
+	Dim guardar As Button
+	Dim Terminar As Button
+	Dim img_prod As ImageView
+	Dim IMG_PASO() As Byte
+	Dim L_PROID As Label
+	Dim clie_id As String
+    Dim sDate,sTime As String
+	Dim usuario As String
+    Dim lat_gps, lon_gps As String
+	Dim t_venta As Label
+	Dim PROMO_C As String
+	Dim i_fotol As ImageView
+	Private DESC_PROMO As Button
+	Private nopromo As Button
+	Dim TOT_ART_PROMO As String
+	Dim cambio As String
+	Dim COSTO_TOT As String
+	Dim ALMACEN As String
+	Dim preciosin As String
+	Dim cl_ruta As String
+	Dim d As Cursor
+	Dim TOT_ART_PROMOR As String
+	Dim PROMO_CR As String
+	Dim TOTAL_PROMO As String
+	Dim HCCP_CANT As String
+	Dim tgl As Toggle
+	Dim precio_Cero As String
+	Private BONSABOR As String
+	Private BONSABOR2 As String
+	Dim cmd As DBCommand
+	
+	
+	
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+	Activity.LoadLayout("pedido")
+	i_fotol.Visible = False
+	
+	If FirstTime Then
+		reqManager.Initialize(Me, "http://177.244.63.54:1782")
+	End If
+	' valido donde escribo el archivo de la base de datos de kmt
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+	ruta = File.DirInternal
+'	   
+'	End If
+'    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)
+		
+			 'la_padre.Text = c.GetString("PR_CF_FECHA_DISP")
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+			 
+	' 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.
+			 'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
+	    '  Next
+	   'End If
+End Sub
+
+Sub Activity_Resume
+	tgl.Initialize
+BONSABOR = 0
+BONSABOR2 = 0
+'	tgl.TurnGPSOn
+'	If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+	  g.Start(0,0)
+'	 End If
+	 cantidad.Text = ""
+	 c=Starter.skmt.execQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	C.Position =0
+	ALMACEN = C.GetString("ID_ALMACEN")
+	C.Close
+	i_fotol.Visible = False
+	sb.Initialize
+'	p.Shell("ping -c1 -W1 177.244.63.54",Null, sb,Null)
+'		skmt.Initialize(ruta,"kmt.db", True)
+ c=Starter.skmt.execQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV  from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 L_PROID.Text = c.GetString("CAT_GP_ID")
+			 l_tipo.Text = c.GetString("CAT_GP_TIPO")
+			 l_sub.Text = c.GetString("CAT_GP_SUBTIPO")
+			 l_marca.Text = c.GetString("CAT_GP_CLASIF")
+			 l_desc.Text = c.GetString("CAT_GP_NOMBRE")
+			 l_precio.Text = c.GetDouble("CAT_GP_PRECIO")
+			 l_bodega.Text = c.GetString("CAT_GP_ALMACEN")
+ 			IMG_PASO = c.GetBlob("CAT_GP_IMG")
+            PROMO_C = c.GetString("CAT_GP_STS")
+			cambio = c.GetString("CAT_GP_DEV")
+    		 preciosin = c.GetString("CAT_GP_IMP2")
+			 PROMO_CR = c.GetString("CAT_GP_IMP1")
+			 
+	cambio = "0"
+	
+	
+	e=Starter.skmt.execQuery2("select count(*) as CUANTOS FROM pedido WHERE PE_CEDIS = ? AND PE_CLIENTE  IN (Select cuenta from cuentaa) ", Array As String(c.GetString("CAT_GP_ID")))
+	e.Position =0
+	If e.GetString("CUANTOS") = 0 Then
+	
+			
+			If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
+				DESC_PROMO.Visible = True
+				CC=Starter.skmt.execQuery2("select count(*) as CUANTOS FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID"))) 
+				CC.Position =0
+				If CC.GetString("CUANTOS") = 0 Then
+					l_bodega.Text = "0" ' se modifica a cero para evitar error en la promo especial de unilever mayo
+				Else
+					CC.Close
+					CC=Starter.skmt.execQuery2("select CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID"))) 
+			CC.Position =0
+' SE MODIFICA LA APLICACION PARA QUE VEA EL HISTORIAL DE VENTA DEL CLIENTE.				
+			DD=Starter.skmt.execQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
+			DD.Position =0
+			If DD.GetString("CUANTOS")  = 0 Then
+				HCCP_CANT = 0
+				
+			Else
+				DD.Close
+				
+				DD=Starter.skmt.execQuery2("SELECT HCCP_CANT FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
+				DD.Position =0
+				HCCP_CANT = DD.GetString("HCCP_CANT")
+				DD.Close
+			End If
+ BONSABOR = HCCP_CANT
+ 
+			'			
+			DD=Starter.skmt.execQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
+			DD.Position =0
+			If DD.GetString("CUANTOS")  = 0 Then
+				HCCP_CANT = 0
+				
+			Else
+				DD.Close
+				
+				DD=Starter.skmt.execQuery2("SELECT SUM(HVD_CANT) AS HCCP_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
+				DD.Position =0
+				HCCP_CANT = DD.GetString("HCCP_CANT")
+				DD.Close
+			End If
+			DD=starter.skmt.execQuery2("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN  (Select cuenta from cuentaa) AND  PE_PROID IN (select CAT_GP_ID   from CAT_GUNAPROD where CAT_GP_CLASIF = ?) ",Array As String(c.GetString("CAT_GP_NOMBRE")))
+			DD.Position =0
+			BONSABOR2 = DD.GetString("CUANTOS")
+			DD.Close
+			
+			
+			TOTAL_PROMO = CC.GetString("CAT_PA_MAXPROMCLIE") - HCCP_CANT
+					If HCCP_CANT = 0 Then
+				
+						l_bodega.Text = CC.GetString("CAT_PA_MAXPROM")
+					Else IF TOTAL_PROMO > CC.GetString("CAT_PA_MAXPROMREC") Then
+						l_bodega.Text = 	CC.GetString("CAT_PA_MAXPROMREC")
+		    		Else 
+		    			l_bodega.Text = TOTAL_PROMO
+					End If
+			
+	
+				End If
+			Else
+			DESC_PROMO.Visible = False
+			End If
+            	
+				c.Close
+	       c=Starter.skmt.execQuery("select CASE WHEN pe_costo_tot is null then 0 else  sum( pe_costo_tot ) end as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+           c.Position=0
+		   t_venta.Text = c.GetString("TOTAL_CLIE")
+		   c.Close
+		  ' If t_venta.Text < 100  AND l_tipo.Text = "PROMOS" Then
+		   'Terminar.Visible = False
+		   'guardar.Visible = False
+		   'cantidad.Visible = False
+		   'nopromo.Visible = True
+		   'Else
+		   Terminar.Visible = True
+		   guardar.Visible = True
+		   cantidad.Visible = True
+		   If cambio = "1" Then
+		   nopromo.Visible = True
+		   Else
+		   nopromo.Visible = False
+		   End If
+		   'End If
+		   
+			Dim out As OutputStream
+			out = File.OpenOutput(ruta, "1.jpg", False)
+			out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
+	    	out.Close
+			 img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
+			TOT_ART_PROMO = "0"
+			TOT_ART_PROMOR = "0"
+			If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And l_bodega.Text = "0"  Then
+				Msgbox("ALERTA","EL CLIENTE NO PUEDE TENER ESTA PROMOCION")
+				StartActivity(colonia2)
+			ELSE IF l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And L_PROID.Text = "PROUNI1" And BONSABOR <> "1" And BONSABOR2 = 0 Then
+				Msgbox("ALERTA","EL CLIENTE NO PUEDE TENER ESTA PROMOCION")
+				StartActivity(colonia2)
+			
+		End If
+'		If sb.Length  > 2 And sb.ToString.SubString2(110,114) <> "smit" Then
+'			cmd.Initialize
+'			cmd.Name = "select_cat_gunaprod_i_GV2"
+'			cmd.Parameters = Array As Object(ALMACEN,L_PROID.Text)
+'			reqManager.ExecuteQuery(cmd , 0, "almacen")
+''		Msgbox("MANDA " & sb,"ALERTA")
+'
+'		End If
+	Else
+		Msgbox("ALERTA","EL CLIENTE YA COMPRO ESTE PRODUCTO REVISAR NOTA")
+		StartActivity(colonia2)
+	End If
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	g.Start(0,0)
+
+End Sub
+'
+'Sub JobDone(Job As HttpJob)
+'	If Job.Success = False Then
+'		'ToastMessageShow("Error: " & Job.ErrorMessage, True)
+'		
+'	Else
+'	 If Job.JobName = "DBRequest" Then
+'       Dim RESULT As DBResult = reqManager.HandleJob(Job)
+'       If RESULT.Tag = "almacen" Then 'query tag
+'	     For Each records() As Object In RESULT.Rows
+'        
+'					Dim cat_gp_almacen As String = records(RESULT.Columns.Get("RESULTADO"))
+'		   
+'		   l_bodega.Text = cat_gp_almacen 
+'		  ' Msgbox("pasa","alerta")
+'					starter.skmt.execNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_ALMACEN = (?) WHERE CAT_GP_ID = ? ", Array As Object(cat_gp_almacen,L_PROID.text))
+'					
+'         Next
+'	   
+'       End If
+'	   
+'	 End If
+'	
+'	End If
+'End Sub
+
+Sub guardar_Click
+	If cantidad.Text = "" Then
+		StartActivity(colonia2)
+		
+	ELSE If cantidad.Text > l_bodega.Text Then
+		Msgbox("Exede la existencia", "ADVERTENCIA")
+	Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
+		starter.skmt.execNonQuery("delete from PROIDID")
+		
+		starter.skmt.execNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		'c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+		c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
+		
+		c.Position =0
+		If c.GetString("CUANTOSD") = 0 Then
+			Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+		Else
+			c=starter.skmt.execQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+			C.Position =0
+			TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+			COSTO_TOT = C.GetString("COSTO_TOT")
+			C.Close
+		
+			c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+			c.Position =0
+			If c.GetString("CUANTOSD") = 0 Then
+				TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+			Else
+				c=starter.skmt.execQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+				C.Position =0
+				TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
+			End If
+			C.Close
+		
+		
+			PROMO_C = PROMO_C * cantidad.Text
+			PROMO_CR = PROMO_CR * cantidad.Text
+		
+			If  TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
+				' anterior a 29/06/2015
+				'starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(l_precio.text/(TOT_ART_PROMO/cantidad.Text),l_precio.text/(TOT_ART_PROMO/cantidad.Text)))
+				'en pe_cedis meto el codigo de promocion para hacer esta validacion.
+				starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
+				D=starter.skmt.execQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+			 
+						starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+    	
+					Next
+				End If
+				D.Close
+				D=starter.skmt.execQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
+				If D.RowCount>0 Then
+					For i=0 To D.RowCount -1
+						D.Position=i
+			 
+						starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+    	
+					Next
+				End If
+				D.Close
+	    
+		
+	    
+				'starter.skmt.execNonQuery("UPDATE PEDIDO SET PE_COSTO_TOT = 0.01 WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))")
+        
+				DateTime.DateFormat = "MM/dd/yyyy"
+				sDate=DateTime.Date(DateTime.Now)
+				sTime=DateTime.Time(DateTime.Now)
+   		
+				c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+				c.Position=0
+				clie_id = c.GetString("CUENTA")
+		
+				c.Close
+		
+				c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+				c.Position=0
+				cl_ruta = c.GetString("CAT_CL_RUTA")
+				c.Close
+		
+				c=starter.skmt.execQuery("select USUARIO from usuarioa")
+				c.Position=0
+				usuario = c.GetString("USUARIO")
+				'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
+				'para insertar la promo de ades el de regalo en 0
+				e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
+				' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+				e.Position =0
+				If e.GetString("CUANTOS") > 0 Then
+					F=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) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+					'meter el otro
+					'si jala copiar para guna y el resto
+					If f.RowCount>0 Then
+						For i=0 To f.RowCount -1
+							f.Position=i
+					
+							'F.Position =0
+							precio_Cero = f.GetString("CAT_DP_PRECIO")
+							h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+							h.Position=0
+							'0
+							starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
+							h.Close
+						Next
+					End If
+					f.Close
+				End If
+				e.Close
+				'0
+
+				
+				
+				'	e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)")
+				'	e.Position =0
+				'	If e.GetString("CUANTOS") > 0 Then
+				'		F=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) and CAT_DP_TIPO = 0 AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)")
+				'		'meter el otro
+				'		F.Position =0
+				'		precio_Cero = f.GetString("CAT_DP_PRECIO")
+				'		h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+				'		h.Position=0
+				'		'0
+				'		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
+				'		h.Close
+				'		f.Close
+				'	End If
+				'	e.Close
+				'0
+				starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+				'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *cantidad.text , precio_Cero, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta))
+				starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+			Else
+				Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA")
+			End If
+		End If
+		
+		cantidad.Text = ""
+		StartActivity(colonia2)
+	else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
+		starter.skmt.execNonQuery("delete from PROIDID")
+		
+		starter.skmt.execNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		
+		c.Close
+	
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+ 
+		c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		
+		c=starter.skmt.execQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
+		'para insertar la promo de ades el de regalo en 0
+		e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
+		e.Position =0
+		If e.GetString("CUANTOS") > 0 Then
+			F=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)")
+			For i =0 To f.RowCount -1
+				F.Position =i
+			
+				h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+				h.Position=0
+				starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+				h.Close
+			Next
+			f.Close
+		End If
+		e.Close
+		'0
+		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+		starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		cantidad.Text = ""
+		c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	
+		StartActivity(colonia2)
+   
+	Else
+	
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+		c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		c.Close
+		c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		
+		c=starter.skmt.execQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+	
+		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin,fila.tipo_venta))
+		starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+		c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+		c.Position=0
+		starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+		starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+		
+		
+'		sb.Initialize
+'		p.Shell("ping -c1 177.244.63.54",Null, sb,Null)
+'
+'		If sb.Length  > 2 Then
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "insert_invetnario_actual_GV2"
+'			cmd.Parameters = Array As Object(ALMACEN, L_PROID.Text,cantidad.text)
+'			reqManager.ExecuteQuery(cmd , 0,"ins_pedidos")
+'			t3.Initialize("T3", 1000) ' 1000 = 1 second
+'			t3.Enabled = True
+'			Wait For  t3_tick
+'		Else
+			starter.skmt.execNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
+			
+'		End If
+		
+			StartActivity(colonia2)
+		End If
+	End Sub
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+End Sub
+
+Sub Terminar_Click
+	If cantidad.Text = "" Then
+			StartActivity(fila) 
+		
+	ELSE If cantidad.Text > l_bodega.Text Then
+	Msgbox("Exede la existencia", "ADVERTENCIA")
+	Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
+    	starter.skmt.execNonQuery("delete from PROIDID")
+		
+		starter.skmt.execNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		'c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+		c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
+		
+		c.Position =0 
+		If c.GetString("CUANTOSD") = 0 Then
+		Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+		Else
+		c=starter.skmt.execQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
+		C.Position =0
+		TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+		COSTO_TOT = C.GetString("COSTO_TOT")
+		C.Close
+		
+			c=starter.skmt.execQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+		c.Position =0 
+		If c.GetString("CUANTOSD") = 0 Then
+		TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+		Else
+				c=starter.skmt.execQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa)  and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
+		C.Position =0
+		TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
+		End If
+		C.Close
+		
+		
+		PROMO_C = PROMO_C * cantidad.Text
+		PROMO_CR = PROMO_CR * cantidad.Text
+		
+		If  TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
+		' anterior a 29/06/2015
+		'starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(l_precio.text/(TOT_ART_PROMO/cantidad.Text),l_precio.text/(TOT_ART_PROMO/cantidad.Text)))
+        'en pe_cedis meto el codigo de promocion para hacer esta validacion.
+		starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
+		D=starter.skmt.execQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+    	
+	     Next
+	    End If
+		D.Close
+				D=starter.skmt.execQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		starter.skmt.execNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND  PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
+    	
+	     Next
+	    End If
+		D.Close
+	    
+		
+	    
+		'starter.skmt.execNonQuery("UPDATE PEDIDO SET PE_COSTO_TOT = 0.01 WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))")
+        
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+   		
+		 c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		
+		c.Close
+		
+		c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		
+		c=starter.skmt.execQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
+				'para insertar la promo de ades el de regalo en 0
+		
+				e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
+				' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+				e.Position =0
+				If e.GetString("CUANTOS") > 0 Then
+					F=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) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
+					'meter el otro
+					'si jala copiar para guna y el resto
+					If f.RowCount>0 Then
+						For i=0 To f.RowCount -1
+							f.Position=i
+					
+							'F.Position =0
+							precio_Cero = f.GetString("CAT_DP_PRECIO")
+							h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+							h.Position=0
+							'0
+							starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+							h.Close
+						Next
+					End If
+					f.Close
+				End If
+				e.Close
+				'0
+
+		
+		
+	'			e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)")
+	'	e.Position =0
+	'	If e.GetString("CUANTOS") > 0 Then
+	'				F=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) and CAT_DP_TIPO = 0 AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)")
+	'	'meter el otro
+	'	F.Position =0
+	'				precio_Cero = f.GetString("CAT_DP_PRECIO")
+	'	h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+	'	h.Position=0
+	'	'0
+	'				starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *  f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
+	'	h.Close
+	'	f.Close
+	'	End If
+	'	e.Close
+				'0
+				starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+				'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero *cantidad.text , precio_Cero, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta))
+		starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+    	Else
+		Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA")
+ 		End If
+        End If
+		
+    cantidad.Text = ""
+		StartActivity(fila)
+     else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
+		starter.skmt.execNonQuery("delete from PROIDID")
+		
+		starter.skmt.execNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		 c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		
+		c.Close
+	
+			DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+ 
+	c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		
+		c=starter.skmt.execQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
+		'para insertar la promo de ades el de regalo en 0
+		e=starter.skmt.execQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
+		e.Position =0
+		If e.GetString("CUANTOS") > 0 Then
+		F=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)")
+		For i =0 To f.RowCount -1
+		F.Position =i
+			
+        h=starter.skmt.execQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+		h.Position=0
+		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+		h.Close
+		Next
+		f.Close
+		End If
+		e.Close
+		'0
+		starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,fila.tipo_venta))
+		starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+     cantidad.Text = ""
+	 c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+	starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+	
+		StartActivity(fila)
+   
+	Else
+	
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+    c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+		c=starter.skmt.execQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+		c.Position=0
+		cl_ruta = c.GetString("CAT_CL_RUTA")
+		c.Close
+		
+	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin,fila.tipo_venta))
+    starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+    c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
+		starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	
+'		sb.Initialize
+'		p.Shell("ping -c1 177.244.63.54",Null, sb,Null)
+'
+'		If sb.Length  > 2 Then
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "insert_invetnario_actual_GV2"
+'			cmd.Parameters = Array As Object(ALMACEN, L_PROID.Text,cantidad.text)
+'			reqManager.ExecuteQuery(cmd , 0,"ins_pedidos")
+'			
+'			t3.Initialize("T3", 1000) ' 1000 = 1 second
+'			t3.Enabled = True
+'			Wait For  t3_tick
+'		Else
+			starter.skmt.execNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
+			
+'		End If
+	
+	StartActivity(fila)
+    End If
+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(colonia2)
+			Msgbox("Presione Boton Terminar.","ADVERTENCIA")
+            'Return True
+    End If
+    ' Returning False signals the system to handle the key
+    Return False
+End Sub
+Sub img_prod_Click
+     i_fotol.Visible = True
+	 i_fotol.Bitmap = LoadBitmap(ruta,"1.jpg")
+	
+End Sub
+Sub i_fotol_Click
+i_fotol.Visible = False
+
+End Sub
+
+Sub DESC_PROMO_Click
+	  starter.skmt.execNonQuery("delete from PROIDID")
+	  starter.skmt.execNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+
+	StartActivity(detalle_promo)
+End Sub
+Sub nopromo_Click
+	If cantidad.Text = "" Then
+	Msgbox("Cantidad no puede ser 0","Cantidad")
+	Else If cantidad.Text > l_bodega.Text Then
+	Msgbox("Exede la existencia", "ADVERTENCIA")
+	Else
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+    c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	starter.skmt.execNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,fila.tipo_venta))
+	starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
+    	
+
+    cantidad.Text = ""
+		StartActivity(colonia2)
+    
+	End If
+End Sub

primero.bas

@@ -0,0 +1,35 @@
+Type=Activity
+Version=3
+@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.
+
+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.
+
+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")
+	Msgbox("Welcome to Basic4android!", "")
+End Sub
+
+Sub Activity_Resume
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+

qr.bas

@@ -0,0 +1,97 @@
+Type=Activity
+Version=5.8
+ModulesStructureVersion=1
+B4A=true
+@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.
+
+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 b,b1,b2 As ImageView
+    Dim bt As Button
+   
+    Dim qr As QRCode
+    Dim sc As Zxing_scanner
+	Dim CODIGO As String
+	
+   
+	Private Label1 As Label
+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("qr")
+   
+    b.Initialize("")
+    b1.Initialize("")
+    b1.Gravity=Gravity.FILL
+    b2.Initialize("")
+    b2.Gravity=Gravity.FILL
+   
+    Activity.AddView(b,0,0,100dip,100dip)
+    Activity.AddView(b1,0,110dip,300dip,100dip)
+    Activity.AddView(b2,0,220dip,300dip,100dip)
+   
+    qr.initialize
+	
+    b.Bitmap = qr.QR_Encode("TESTING QR CODES",100dip)
+    b1.Bitmap = qr.Ean13_Encode(calc_ean_checksum("123456789012"),100dip)  ' Not interested in this
+    b2.Bitmap = qr.Ean8_Encode(calc_ean_checksum("1234567"),100dip)        ' Not interested in this  
+   
+    bt.Initialize("bt")
+    bt.Text="Codigo"
+    Activity.AddView(bt,0,330dip,120dip,50dip)
+   
+End Sub
+
+Sub Activity_Resume
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+Sub bt_click
+    'ADDED BY JOHAN SCHOEMAN i.e OPTION TO CHANGE THE WIDTH AND HEIGHT OF THE VIEWING RECTANGLE
+    Dim scan_width As Int
+	Dim scan_height As Int
+	scan_width = 400
+	scan_height = 400
+	sc.BeginScan("sc","CODIGO CLIENTE",scan_width,scan_height)
+	
+End Sub
+Sub sc_result(atype As String,Values As String)
+    'Log("Type : " & atype)
+    'Log("Value : " & Values)
+	CODIGO = Values
+    b.Bitmap = qr.QR_Encode(Values,100dip)
+End Sub
+Sub sc_noScan
+    Log("nothing returned from the scan !!!!!")
+End Sub
+Sub calc_ean_checksum(number As String) As String           'this has now become redundant as I am only interested in QR Codes
+    Dim i As Int
+    Dim c As Char
+    Dim soma As Int
+    Dim n As Int
+    Dim digit As Float
+   
+    soma = 0
+    For i=0 To number.Length - 1
+        digit = number.SubString2(i,i+1)
+        n= digit * ((i Mod 2) * 2 + 1)   
+        soma=soma+n
+    Next
+    Return number & ( ( 10 - ( soma Mod 10 )) Mod 10 )
+End Sub

salma.b4a.meta

@@ -0,0 +1,40 @@
+VisibleModules=1,2,3,4,5,6,7,8,9,10
+ModuleBreakpoints0=
+ModuleClosedNodes0=11
+ModuleBreakpoints1=
+ModuleClosedNodes1=2,3,4,5,6,7,8,9,10,11,13,14,15,16,17,18
+ModuleBreakpoints2=
+ModuleClosedNodes2=9,10,11,12,13
+ModuleBreakpoints3=
+ModuleClosedNodes3=
+ModuleBreakpoints4=
+ModuleClosedNodes4=
+ModuleBreakpoints5=
+ModuleClosedNodes5=8
+ModuleBreakpoints6=
+ModuleClosedNodes6=2,6
+ModuleBreakpoints7=
+ModuleClosedNodes7=1,2,3,4,6,7,8,9,10,11
+ModuleBreakpoints8=
+ModuleClosedNodes8=7
+ModuleBreakpoints9=
+ModuleClosedNodes9=
+ModuleBreakpoints10=
+ModuleClosedNodes10=3,4,6,7,8,9
+ModuleBreakpoints11=
+ModuleClosedNodes11=
+ModuleBreakpoints12=
+ModuleClosedNodes12=
+ModuleBreakpoints13=
+ModuleClosedNodes13=
+ModuleBreakpoints14=
+ModuleClosedNodes14=
+ModuleBreakpoints15=
+ModuleClosedNodes15=
+ModuleBreakpoints16=
+ModuleClosedNodes16=
+ModuleBreakpoints17=
+ModuleClosedNodes17=
+ModuleBreakpoints18=
+ModuleClosedNodes18=
+SelectedBuild=0

scat.b4a.meta

@@ -0,0 +1,59 @@
+VisibleModules=1,2,3,4,5,6,7,8,9,10
+ModuleBreakpoints0=
+ModuleBookmarks0=
+ModuleClosedNodes0=
+ModuleBreakpoints1=
+ModuleBookmarks1=
+ModuleClosedNodes1=5,10,11,12
+ModuleBreakpoints2=
+ModuleBookmarks2=
+ModuleClosedNodes2=
+ModuleBreakpoints3=
+ModuleBookmarks3=
+ModuleClosedNodes3=
+ModuleBreakpoints4=
+ModuleBookmarks4=
+ModuleClosedNodes4=
+ModuleBreakpoints5=
+ModuleBookmarks5=
+ModuleClosedNodes5=
+ModuleBreakpoints6=
+ModuleBookmarks6=
+ModuleClosedNodes6=
+ModuleBreakpoints7=
+ModuleBookmarks7=
+ModuleClosedNodes7=
+ModuleBreakpoints8=
+ModuleBookmarks8=
+ModuleClosedNodes8=
+ModuleBreakpoints9=
+ModuleBookmarks9=
+ModuleClosedNodes9=
+ModuleBreakpoints10=
+ModuleBookmarks10=
+ModuleClosedNodes10=22,23,24
+ModuleBreakpoints11=
+ModuleBookmarks11=
+ModuleClosedNodes11=
+ModuleBreakpoints12=
+ModuleBookmarks12=
+ModuleClosedNodes12=
+ModuleBreakpoints13=
+ModuleBookmarks13=
+ModuleClosedNodes13=
+ModuleBreakpoints14=
+ModuleBookmarks14=
+ModuleClosedNodes14=
+ModuleBreakpoints15=
+ModuleBookmarks15=
+ModuleClosedNodes15=
+ModuleBreakpoints16=
+ModuleBookmarks16=
+ModuleClosedNodes16=
+ModuleBreakpoints17=
+ModuleBookmarks17=
+ModuleClosedNodes17=
+ModuleBreakpoints18=
+ModuleBookmarks18=
+ModuleClosedNodes18=
+SelectedBuild=0

tarjeta.bas

@@ -0,0 +1,314 @@
+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
+	 Dim g As GPS
+	Dim clie_id As String
+    Dim sDate,sTime As String
+	Dim usuario As String
+    
+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 ListView1 As ListView
+	Dim L_CANT As Label
+	Dim L_TOTAL As Label
+	Dim borra As Button
+	Dim Existe As String
+	Dim result As String
+    Dim lat_gps, lon_gps As String
+    Dim DESC As String
+
+	Private Titulo As Label
+	Private b_desc As Button
+	Dim DESCUENTO As String
+	Dim folio As String
+	Dim tgl As Toggle
+	private almacen as String
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+
+'	If File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+	    Activity.LoadLayout("tarjeta")
+		borra.Visible = True
+		Titulo.Text = "Pedido Actual"
+	' 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)
+'	starter.skmt.execNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+	   c=Starter.skmt.execQuery("select count(*) as EXISTE from pedido_cliente WHERE pc_cliente IN (Select CUENTA from cuentaa)")
+	   C.Position=0
+	   Existe = C.GetString("EXISTE")
+	   C.Close
+	   c=Starter.skmt.execQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE 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 = 15
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("PE_PRONOMBRE"),"Cantidad #"& c.GetString("PE_CANT")& " SubTotal $"& c.GetString("PE_COSTO_TOT")& " Folio "& c.GetString("PE_FOLIO"))
+  		  	folio = c.GetString("PE_FOLIO")	      
+		  Next
+	   End If
+	If Existe <> 0 Then
+	c=Starter.skmt.execQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	C.Position=0
+	L_CANT.Text = c.GetString("PC_NOART")
+	L_TOTAL.Text = c.GetString("PC_MONTO")
+	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
+	tgl.Initialize
+
+'	tgl.TurnGPSOn
+'If g.GPSEnabled=False Then
+'	  ToastMessageShow("Habilitar el GPS", True)
+'	  StartActivity(g.LocationSettingsIntent)
+'	 Else
+	  g.Start(0,0)
+	'End If
+	c=Starter.skmt.execQuery("select  ID_ALMACEN from CAT_ALMACEN")
+	C.Position =0
+	almacen = C.GetString("ID_ALMACEN")
+	C.Close
+L_CANT.Text =""
+L_TOTAL.Text=""
+'	starter.skmt.execNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+
+ c=Starter.skmt.execQuery("select count(*) as EXISTE from pedido_cliente WHERE pc_cliente IN (Select CUENTA from cuentaa)")
+	   C.Position=0
+	   Existe = C.GetString("EXISTE")
+	   C.Close
+    c=Starter.skmt.execQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE 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 = 15
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 label2.TextColor = Colors.Blue
+			 ListView1.AddTwoLines(c.GetString("PE_PRONOMBRE"),"Cantidad #"& c.GetString("PE_CANT")& " SubTotal $"& c.GetString("PE_COSTO_TOT")& " Folio "& c.GetString("PE_FOLIO"))
+		  	folio = c.GetString("PE_FOLIO")	      
+	      Next
+	   End If
+	If Existe <> 0 Then
+	c=starter.skmt.execQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	C.Position=0
+	L_CANT.Text = c.GetString("PC_NOART")
+	L_TOTAL.Text = c.GetString("PC_MONTO")
+	c.Close
+    c=starter.skmt.execQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+    c.Position=0
+	DESC = c.GetString("DESCUENTO")	
+	'If L_TOTAL.Text > 1000 And DESC = 0 Then 
+	
+	'b_desc.Visible = True
+	'b_desc.Text = "- 5% DESC"
+	'DESCUENTO = "MENOS"
+	'Else if L_TOTAL.Text > 1000 Then
+	'b_desc.Visible = True
+	'b_desc.Text = "Cancela Desc"
+	'DESCUENTO =  "MAS"
+    'Else
+	b_desc.Visible = False
+		
+	'End If
+	End If
+			 'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
+		
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+Sub GPS_LocationChanged (Location1 As Location)
+lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
+lon_gps=Location1.ConvertToSeconds(Location1.Longitude)
+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 borra_Click
+If folio <> "" Then	
+	result =  Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	
+	c=starter.skmt.execQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+			 starter.skmt.execNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
+	
+		  Next
+	   
+	   End If
+	
+	
+	starter.skmt.execNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	starter.skmt.execNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 0  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+   Activity_Resume
+	End If
+Else
+Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO")
+End If
+
+End Sub
+Sub ListView1_ItemLongClick (Position As Int, Value As Object)
+	result =  Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	
+	If result = DialogResponse.POSITIVE Then
+	 c=starter.skmt.execQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
+	        c.Position=0
+			 starter.skmt.execNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+		starter.skmt.execNonQuery2("INSERT INTO  INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
+	 c.Close 
+	 c=starter.skmt.execQuery2("select count(*) AS CUANTOS from cat_gunaprod where  CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
+	 c.Position=0
+	 If c.GetString("CUANTOS") > 0 Then
+	 starter.skmt.execNonQuery2("delete from pedido where  pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
+     Else
+	 starter.skmt.execNonQuery2("delete from pedido where  pe_pronombre = ?  and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
+     End If
+	 DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+    c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	If c.GetString("CUANTOS") > 0 Then
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps))
+	starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+	Else
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery("UPDATE kmt_info set gestion = 0  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+	End If
+    Activity_Resume
+
+
+	 End If
+End Sub
+Sub b_desc_Click
+	If DESCUENTO = "MENOS" Then
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+    c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+    c.Close
+	result =  Msgbox2("Seguro que desa dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	starter.skmt.execNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")		
+	c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps))
+    c.Close
+	Activity_Resume
+	End If
+	ELSE IF DESCUENTO = "MAS" Then
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+    c=starter.skmt.execQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+	c=starter.skmt.execQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+    c.Close
+	result =  Msgbox2("Seguro que desa CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	starter.skmt.execNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")		
+	c=starter.skmt.execQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	c.Position=0
+	starter.skmt.execNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	starter.skmt.execNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), lon_gps, lat_gps))
+    c.Close
+	Activity_Resume
+	End If
+	End If
+End Sub

telefonos.bas

@@ -0,0 +1,132 @@
+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 Regresa As Button
+	
+	Dim Agrega As Button
+	Dim e_atiende1 As EditText
+	Dim e_atiende2 As EditText
+	Dim e_tel As EditText
+	Dim e_email As EditText
+	Dim e_edo As EditText
+	Dim e_mpo As EditText
+	Dim e_cp As EditText
+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 File.ExternalWritable Then
+'	   ruta = File.DirDefaultExternal
+'	Else
+'	   ruta = File.DirInternal
+'	End If
+'	    Activity.LoadLayout("telefonos")
+'    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_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT  from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 e_edo.Text = c.GetString("CAT_CL_EDO")
+			 If e_edo.Text <> "" Or e_edo.text <> "null" Then
+			 e_edo.Enabled = False
+			 End If
+			 e_cp.Text = c.GetString("CAT_CL_CP")
+			 If e_cp.Text <> "" Then
+			 e_cp.Enabled = False
+			 End If
+			 e_mpo.Text = c.GetString("CAT_CL_MUNI")
+			 If e_mpo.Text <> "" Then
+			 e_mpo.Enabled = False
+			 End If
+			 e_email.Text = c.GetString("CAT_CL_EMAIL")
+			 e_tel.Text = c.GetString("CAT_CL_TELEFONO")
+			 e_atiende1.Text = c.GetString("CAT_CL_ATIENDE1")
+			 e_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
+			 
+	' 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.
+	
+
+End Sub
+
+Sub Activity_Resume
+'		skmt.Initialize(ruta,"kmt.db", True)
+		c=starter.skmt.execQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT  from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
+	  ' ListView1.Clear
+	   
+	   'If c.RowCount>0 Then
+	    '  For i=0 To c.RowCount -1
+		     c.Position=0
+			 e_edo.Text = c.GetString("CAT_CL_EDO")
+			 If e_edo.Text <> "" Or e_edo.text <> "null" Then
+			 e_edo.Enabled = False
+			 End If
+			 e_cp.Text = c.GetString("CAT_CL_CP")
+			 If e_cp.Text <> "" Then
+			 e_cp.Enabled = False
+			 End If
+			 e_mpo.Text = c.GetString("CAT_CL_MUNI")
+			 If e_mpo.Text <> "" Then
+			 e_mpo.Enabled = False
+			 End If
+			 e_email.Text = c.GetString("CAT_CL_EMAIL")
+			 e_tel.Text = c.GetString("CAT_CL_TELEFONO")
+			 e_atiende1.Text = c.GetString("CAT_CL_ATIENDE1")
+			 e_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub Regresa_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 Agrega_Click
+     c=Starter.skmt.execQuery("Select CUENTA from cuentaa")
+     C.Position =0
+    	Starter.skmt.execNonQuery2("insert into CLIE_ACT(CLIENTE,ATIENDE1, ATIENDE2,TEL,EMAIL,EDO,CP, MPO) VALUES (?,?,?,?,?,?,?,?)", Array As Object(c.GetString("CUENTA"),e_atiende1.Text ,e_atiende2.Text,e_tel.text,e_email.Text,e_edo.Text,e_cp.Text,e_mpo.Text))
+    c.Close
+	StartActivity(seleccion)
+End Sub