Commit inicial

.gitignore

@@ -0,0 +1,3 @@
+**/Objects
+**/AutoBackups
+*.meta

BUSCAR.bas

@@ -0,0 +1,172 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+     Dim skmt As SQL
+End Sub
+
+Sub Globals
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+    Dim c As Cursor
+	Dim ruta As String
+	Dim ListView1 As ListView
+	Dim b_noventa As Button
+	Dim nombre_boton As String
+	End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+
+	   ruta = File.DirInternal
+
+	    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=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=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)
+	skmt.ExecNonQuery("delete from CUENTAA")
+	skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+	StartActivity(fila)
+End Sub
+Sub b_noventa_Click
+
+If nombre_boton = "NOVENTA" Then
+nombre_boton = "VENTA"
+b_noventa.Text ="VENTA"
+
+c=skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM FROM NOVENTA ORDER BY NV_CLIENTE asc")
+	   ListView1.Clear
+	  
+	   If c.RowCount>0 Then
+	      For i=0 To c.RowCount -1
+		     c.Position=i
+			 Dim label1 As Label
+			 label1 = ListView1.TwoLinesLayout.Label
+			 label1.TextSize = 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"),"Motivo #"& c.GetString("NV_MOTIVO")& " Comentario $"& c.GetString("NV_COMM"))
+	      Next
+	   End If
+Else
+nombre_boton = "NOVENTA"
+b_noventa.Text ="NO VENTA"
+	c=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

CameraExClass.bas

@@ -0,0 +1,290 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=7.01
+@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=7.01
+@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,185 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+     Dim skmt As SQL
+	 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
+	Private B_RMI As Button
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+
+
+	   ruta = File.DirInternal
+
+	    Activity.LoadLayout("tarjeta")
+		B_RMI.Visible = True
+		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
+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=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=skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_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("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT")& " FECHA " &c.GetString("HVD_FECHA") )
+	      Next
+	   End If
+	If Existe <> 0 Then
+	c=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
+	B_RMI.Visible = False
+	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
+
+Sub B_RMI_Click
+	c=skmt.ExecQuery("select HR_CLIENTE,HR_PRONOMBRE,HR_CANT from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa)")
+	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("HR_PRONOMBRE"),"Cantidad #"& c.GetString("HR_CANT") )
+		Next
+	End If
+End Sub

QR_MODULE.bas

@@ -0,0 +1,98 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+
+#Region  Activity Attributes
+    #FullScreen: False
+    #IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+    'These global variables will be declared once when the application starts.
+    'These variables can be accessed from all modules.
+
+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

colonia.bas

@@ -0,0 +1,237 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+   
+		Dim 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
+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
+
+	   ruta = File.DirInternal
+
+	
+	' se crea o no el archivo de la base de ddatos de kmt
+	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE 
+	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
+	'SI SE REGRESA A ESTE ACTIVIDAD.
+	If File.Exists(ruta, "kmt.db") = False Then
+		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+	End If
+    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=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=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=skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where  gestion = 0 and cat_cl_codigo <> 0  AND CAT_CL_CODIGO NOT IN (SELECT NV_CLIENTE FROM NOVENTA) AND CAT_CL_CODIGO NOT IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE) 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 = 10
+			 label1.TextColor = Colors.Black
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 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=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=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
+	  skmt.ExecNonQuery("delete from CUENTAA")
+	  skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
+	  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=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 AND CAT_CL_CODIGO NOT IN (SELECT NV_CLIENTE FROM NOVENTA) AND CAT_CL_CODIGO NOT IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE) 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 = 10
+			 label1.TextColor = Colors.White
+			 Dim label2 As Label
+			 label2 = ListView1.TwoLinesLayout.SecondLabel
+			 label2.TextSize = 10
+			 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=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=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
+	skmt.ExecNonQuery("delete from CUENTAA")
+	  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

db/ruta2

@@ -0,0 +1,50 @@
+"PE_COSTO_SIN","PE_RUTA","PE_CEDIS","PE_COSTO_TOT","PE_COSTOU","PE_CANT","PE_PRONOMBRE","PE_PROID","PE_CLIENTE","PE_FECHA","PE_USUARIO"
+"133.8","2","2","144.5","144.5","1","KINDER SORPRESA C/12 PZS MONSTER HIGH","FERR042","N11:35:13","07/03/201511:37:34","RUTA02GUNAVA"
+"313.8","2","2","364","91","4","NEW MIX SIX TORONJA 475ML","HERR006","155117","07/03/201511:49:41","RUTA02GUNAVA"
+"0.0","2","2","108","108","1","VANISH BARRA + DOS NUGGET DE REGALO","PAQU303","155118","07/03/201512:07:20","RUTA02GUNAVA"
+"58.5","2","2","58.5","58.5","1","KNORR CAMARON EXH 12PZ","UNI142","N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:17:28","RUTA02GUNAVA"
+"0.0","2","2","115","115","1","TIRA KNORR SUIZA + 2 NUGGET","PAQU40","N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:17:40","RUTA02GUNAVA"
+"35.5","2","2","35.5","35.5","1","KNORR MI ARROZ TIRA 10 AJO Y CEB","UNI028","N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:18:39","RUTA02GUNAVA"
+"35.5","2","2","35.5","35.5","1","KNORR MI ARROZ TIRA 10 TOMATE","UNI019","N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:18:48","RUTA02GUNAVA"
+"79.6","2","2","79.6","39.8","2","KNORR SOPA DE LETRAS 95GR","UNI044","N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:24:16","RUTA02GUNAVA"
+"39.8","2","2","39.8","39.8","1","KNORR SOPA CODITOS 95GR","UNI043","N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:24:35","RUTA02GUNAVA"
+"39.8","2","2","39.8","39.8","1","KNORR SOPA MUNICION 95GR","UNI045","N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:24:43","RUTA02GUNAVA"
+"58.5","2","2","58.5","58.5","1","KNORR CAMARON EXH 12PZ","UNI142","N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201512:26:02","RUTA02GUNAVA"
+"44.91","2","2","48.5","48.5","1","KINDER CHOCOLATE MAXI T1 10X28","FERR030","155119","07/03/201512:32:19","RUTA02GUNAVA"
+"113.8","2","2","132","132","1","CHARMIN RESIST PLUS 4X6IT 300H ROJO","PYG081","155122","07/03/201512:47:33","RUTA02GUNAVA"
+"50.16","2","2","58.2","9.7","6","FABULOSO LAVANDA 500ML","CP007","155123","07/03/201512:59:44","RUTA02GUNAVA"
+"181.08","2","2","210","35","6","AXE DEO BS DARK 12X96G/150ML","UNI334","10962","07/03/201513:07:51","RUTA02GUNAVA"
+"25.87","2","2","30","30","1","SEDAL SH 2 EN 1 CERAMIDAS 15 ML.","UNI035","10962","07/03/201513:13:30","RUTA02GUNAVA"
+"112.8","2","2","130.8","10.9","12","ZEST NEUTRO 180GR","PYG047","10962","07/03/201513:15:38","RUTA02GUNAVA"
+"58.5","2","2","58.5","58.5","1","KNORR CAMARON EXH 12PZ","UNI142","155124","07/03/201513:30:51","RUTA02GUNAVA"
+"19.0","2","2","19","19","1","KNORR COSTILLA 12 CUB","UNI141","155124","07/03/201513:36:22","RUTA02GUNAVA"
+"35.5","2","2","35.5","35.5","1","KNORR MI ARROZ TIRA 10 TOMATE","UNI019","N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201513:45:00","RUTA02GUNAVA"
+"0.0","2","2","49.9","49.9","1","COMBO AWK AEROSOL 226GR 3X2    $49.90","PAQU286","N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201513:45:14","RUTA02GUNAVA"
+"0.0","2","2","108","108","1","VANISH BARRA + DOS NUGGET DE REGALO","PAQU303","N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201513:45:38","RUTA02GUNAVA"
+"79.6","2","2","79.6","39.8","2","KNORR SOPA FIDEO 95","UNI020","N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201514:02:37","RUTA02GUNAVA"
+"79.6","2","2","79.6","39.8","2","KNORR SOPA CODITOS 95GR","UNI043","N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201514:02:46","RUTA02GUNAVA"
+"0.0","2","2","230","115","2","TIRA KNORR SUIZA + 2 NUGGET","PAQU40","N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201514:03:12","RUTA02GUNAVA"
+"0.0","2","2","230","115","2","TIRA KNORR SUIZA + 2 NUGGET","PAQU40","N14:20:03N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201514:20:49","RUTA02GUNAVA"
+"85.39","2","2","103","103","1","JACK DANIEL`S MANZANA","HERR002","10512","07/03/201514:26:05","RUTA02GUNAVA"
+"88.79","2","2","103","103","1","JACK DANIEL´S GINGER","HERR008","10512","07/03/201514:26:11","RUTA02GUNAVA"
+"88.79","2","2","103","103","1","JACK DANIEL´S COLA","HERR009","10512","07/03/201514:26:16","RUTA02GUNAVA"
+"88.79","2","2","103","103","1","JACK DANIEL´S AGUA MINERAL","HERR014","10512","07/03/201514:26:26","RUTA02GUNAVA"
+"39.8","2","2","39.8","39.8","1","KNORR SOPA DE LETRAS 95GR","UNI044","10512","07/03/201514:28:37","RUTA02GUNAVA"
+"17","2","PAQU293","68","17","4","ADES MANZANA 12*946 ML.","UNI001","155127","07/03/201514:47:49","RUTA02GUNAVA"
+"17","2","PAQU293","68","17","4","ADES MANGO 12*946 ML.","UNI002","155127","07/03/201514:47:54","RUTA02GUNAVA"
+"0","2","2","0","0","2","6 ADES 946 ML + 1 ADES DE REGALO NARANJA 946ML $102","PAQU293","155127","07/03/201514:48:20","RUTA02GUNAVA"
+"68.0","2","2","68","17","4","ADES NARANJA 12*946 ML.","UNI029","155127","07/03/201514:49:26","RUTA02GUNAVA"
+"133.8","2","2","144.5","144.5","1","KINDER SORPRESA MINIONS C/12PZ","FERR045","N14:51:49N14:20:03N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201514:52:59","RUTA02GUNAVA"
+"19.4","2","PAQU289","22.5","22.5","1","ZK GUAYABA 25 GRS CUBO","TRML009","N15:03:52","07/03/201515:04:14","RUTA02GUNAVA"
+"19.4","2","PAQU289","22.5","22.5","1","ZK JAMAICA 25 GRS CUBO","TRML020","N15:03:52","07/03/201515:04:19","RUTA02GUNAVA"
+"19.4","2","PAQU289","22.5","22.5","1","ZK TAMARINDO 25 GRS CUBO","TRML024","N15:03:52","07/03/201515:04:24","RUTA02GUNAVA"
+"19.4","2","PAQU289","22.5","22.5","1","ZK MANZANA 25 GRS CUBO","TRML004","N15:03:52","07/03/201515:04:50","RUTA02GUNAVA"
+"19.4","2","PAQU289","22.5","22.5","1","ZK SANDIA 25 GRS CUBO","TRML011","N15:03:52","07/03/201515:05:48","RUTA02GUNAVA"
+"0","2","PAQU289","0","0","2","SPACHETTI 200G VEGETAL LUCCHETTI","TRML046","N15:03:52","07/03/201515:06:24","RUTA02GUNAVA"
+"0","2","2","0","0","1","5 ZUKOS + 2 SOPAS LUCCHETTI","PAQU289","N15:03:52","07/03/201515:06:36","RUTA02GUNAVA"
+"85.28","2","2","103","103","1","VIVE 100 340ML MEDIA CAJA","QUAL085","155119","07/03/201516:48:53","RUTA02GUNAVA"
+"170.56","2","2","206","103","2","VIVE 100 340ML MEDIA CAJA","QUAL085","N14:51:49N14:20:03N14:00:35N13:43:02N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201516:49:41","RUTA02GUNAVA"
+"85.28","2","2","103","103","1","VIVE 100 340ML MEDIA CAJA","QUAL085","N12:35:29N12:23:56N12:09:53N12:09:02N11:53:01N11:35:13","07/03/201516:51:06","RUTA02GUNAVA"
+"41.67","2","2","45","45","1","NUTELA T 350 X 15","FERR012","10842","07/03/201516:52:29","RUTA02GUNAVA"
+"39.23","2","2","45.5","45.5","1","VANISH WHITE LIQ + COLOR PROTEC PACK 925ML","REC025","10842","07/03/201516:52:58","RUTA02GUNAVA"
+"30.17","2","2","35","35","1","BRASSO ANTIGRASA + REPUESTO 650ML","REC001","10842","07/03/201516:58:44","RUTA02GUNAVA"

db/ruta8

@@ -0,0 +1,22 @@
+"PE_COSTO_SIN","PE_RUTA","PE_CEDIS","PE_COSTO_TOT","PE_COSTOU","PE_CANT","PE_PRONOMBRE","PE_PROID","PE_CLIENTE","PE_FECHA","PE_USUARIO"
+"0.0","8","2","115","115","1","TIRA KNORR SUIZA + 2 NUGGET","PAQU40","N12:44:59N12:40:32N12:33:30N12:32:12N12:30:44N12:29:01","07/03/201512:45:26","RUTA08GUNAVA"
+"0.0","8","2","115","115","1","TIRA KNORR SUIZA + 2 NUGGET","PAQU40","N13:41:51","07/03/201513:42:00","RUTA08GUNAVA"
+"85.28","8","2","103","103","1","VIVE 100 450ML media caja","QUAL085","N13:41:51","07/03/201513:42:41","RUTA08GUNAVA"
+"85.28","8","2","103","103","1","VIVE 100 450ML media caja","QUAL085","N13:47:50N13:44:29N13:41:51","07/03/201513:50:33","RUTA08GUNAVA"
+"69.9","8","2","69.9","69.9","1","KNORR TOM EXH 24","UNI048","N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201513:56:01","RUTA08GUNAVA"
+"85.28","8","2","103","103","1","VIVE 100 450ML media caja","QUAL085","N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201513:56:10","RUTA08GUNAVA"
+"133.8","8","2","144.5","144.5","1","KINDER SORPRESA MINIONS C/12PZ","FERR045","N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:01:17","RUTA08GUNAVA"
+"35.5","8","2","35.5","35.5","1","KNORR MI ARROZ TIRA 10 AJO Y CEB","UNI028","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:38:25","RUTA08GUNAVA"
+"40.0","8","2","40","20","2","PROMOCION SH Y AC ENLIVEN","PRO120","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:46:42","RUTA08GUNAVA"
+"19.4","8","PAQU289","22.5","22.5","1","ZK DURAZNO 25 GRS CUBO","TRML006","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:47:05","RUTA08GUNAVA"
+"19.4","8","PAQU289","22.5","22.5","1","ZK MANGO 25 GRS CUBO","TRML003","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:47:19","RUTA08GUNAVA"
+"19.4","8","PAQU289","22.5","22.5","1","ZK MANZANA 25 GRS CUBO","TRML004","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:47:34","RUTA08GUNAVA"
+"19.4","8","PAQU289","22.5","22.5","1","ZK MANDARINA 25 GRS CUBO","TRML007","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:47:43","RUTA08GUNAVA"
+"19.4","8","PAQU289","22.5","22.5","1","ZK GUANABANA 25 GRS CUBO","TRML010","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:47:49","RUTA08GUNAVA"
+"0","8","PAQU289","0","0","2","FIDEO 2 200G VEGETAL LUCCHETTI","TRML043","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:48:01","RUTA08GUNAVA"
+"","8","2","0","0","1","5 ZUKOS + 2 SOPAS LUCCHETTI","PAQU289","N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:48:09","RUTA08GUNAVA"
+"85.28","8","2","103","103","1","VIVE 100 450ML media caja","QUAL085","N14:54:42N14:51:31N14:12:08N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201514:55:00","RUTA08GUNAVA"
+"19.0","8","2","19","19","1","KNORR COSTILLA 12 CUB","UNI141","N15:06:15N14:57:35N14:56:28N14:54:42N14:51:31N14:12:08N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201515:06:37","RUTA08GUNAVA"
+"58.5","8","2","58.5","58.5","1","KNORR CAMARON EXH 12PZ","UNI142","N15:06:15N14:57:35N14:56:28N14:54:42N14:51:31N14:12:08N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201515:06:44","RUTA08GUNAVA"
+"40.5","8","2","40.5","13.5","3","KNORR ARROZ BLANCO 160GR","UNI041","N15:06:15N14:57:35N14:56:28N14:54:42N14:51:31N14:12:08N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201515:07:10","RUTA08GUNAVA"
+"85.28","8","2","103","103","1","VIVE 100 450ML media caja","QUAL085","N16:52:20N16:32:26N16:22:20N16:18:20N16:17:23N16:09:26N16:01:03N15:50:24N15:06:15N14:57:35N14:56:28N14:54:42N14:51:31N14:12:08N14:10:00N14:02:02N14:01:03N13:55:16N13:47:50N13:44:29N13:41:51","07/03/201516:52:30","RUTA08GUNAVA"

detalle_promo.bas

@@ -0,0 +1,138 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+     Dim skmt As SQL
+End Sub
+
+Sub Globals
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+    Dim c As Cursor
+	Dim ruta As String
+	Dim 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)
+
+	   ruta = File.DirInternal
+
+	    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=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=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=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=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

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,129 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+	
+#End Region
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+    Dim ruta As String
+    Dim g As GPS
+	Private frontCamera As Boolean = False
+
+End Sub
+
+Sub Globals
+	Dim camera1 As Camera
+	Dim btnTakePicture As Button
+	Dim Panel1 As Panel
+    Dim skmt As SQL
+	Dim c As Cursor
+	Dim cuenta As String
+	Dim lat_gps As String
+	Dim lon_gps As String
+    Private camEx As CameraExClass
+
+
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+
+	Activity.LoadLayout("foto")
+	btnTakePicture.Enabled = False
+	camera1.Initialize(Panel1, "Camera1")
+		
+	   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)
+	c=skmt.ExecQuery("select cuenta from cuentaa")
+        c.Position = 0
+	    cuenta = c.GetString("CUENTA")
+End Sub
+Sub Camera1_Ready (Success As Boolean)
+	If Success Then
+	    
+		camera1.StartPreview
+		
+		btnTakePicture.Enabled = True
+	Else
+		ToastMessageShow("No se puede abrir la camara.", True)
+	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
+	btnTakePicture.Enabled = False
+	camera1.Initialize(Panel1, "Camera1")
+	
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	camera1.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_PictureTaken (Data() As Byte)
+	camera1.StartPreview
+	'Dim out As OutputStream
+    	c=skmt.ExecQuery("select cuenta from cuentaa")
+        c.Position = 0
+	    cuenta = c.GetString("CUENTA")
+        Dim sDate,sTime As String
+
+		DateTime.DateFormat = "MM/dd/yyyy"
+		sDate=DateTime.Date(DateTime.Now)
+		sTime=DateTime.Time(DateTime.Now)
+	skmt.ExecNonQuery2("INSERT INTO  HIST_VISITAS (HIST_VI_IMAGEN, HIST_VI_CREDITO,HIST_VI_DTEVISITA, HIST_VI_LONGITUD, HIST_VI_LATITUD) VALUES(?,?,?,?,?) ", Array As Object (Data, cuenta,sDate & sTime, lon_gps,lat_gps))
+
+	'out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
+	'out.WriteBytes(Data, 0, Data.Length)
+	'out.Close
+	'ToastMessageShow("Gestion Salvada ", True)
+	
+	btnTakePicture.Enabled = True
+	'CallSubDelayed(seleccion,"seleccion")
+	StartActivity(fila)
+End Sub
+
+Sub btnTakePicture_Click
+	btnTakePicture.Enabled = False
+	camera1.TakePicture
+	'camera1.TakePicture
+	
+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

gestion.bas

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

mapas.bas

@@ -0,0 +1,51 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+	
+    
+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,119 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+    Dim 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 r_4 As RadioButton
+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
+
+	   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 Activity_Resume
+	e_comm.Text=""
+    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=skmt.ExecQuery("select CUENTA from cuentaa")
+        c.Position = 0
+	    cuenta = c.GetString("CUENTA")
+	    c=skmt.ExecQuery("select usuario from usuarioa")
+		c.Position = 0
+		usuario = c.GetString("USUARIO")
+		c=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
+		      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
+	
+	
+	    skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	    skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	
+     	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))
+        skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
+	StartActivity(seleccion)
+End Sub

nuevocliente.bas

@@ -0,0 +1,103 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+    Dim 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 String
+	Dim no_cliente As String
+	Dim no_ruta As String
+	
+	Dim r_4 As RadioButton
+	Dim E_NOMBRE 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:
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+    
+	Activity.LoadLayout("nuevocliente")
+    
+	' valido donde escribo el archivo de la base de datos de kmt
+
+	   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 Activity_Resume
+    E_NOMBRE.Text =  ""
+    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(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=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
+		
+		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,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,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","null","null"))
+		skmt.ExecNonQuery("delete from CUENTAA")
+	    skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
+	    StartActivity(fila)
+		
+End If
+End Sub

pedidos.bas

@@ -0,0 +1,555 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+    Dim g As GPS
+	Dim ruta As String
+	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 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
+	Private Panel1 As Panel
+	
+	
+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("PRODUCTOS")
+	i_fotol.Visible = False
+
+	' valido donde escribo el archivo de la base de datos de kmt
+
+	   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)
+		
+			 '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
+	
+	c=skmt.ExecQuery("Select SUBSTR(CUENTA,1,1) AS CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	If clie_id = "N" Then
+		nopromo.Visible = False
+	Else
+		nopromo.Visible = True
+		
+	End If
+	c.Close
+	
+	
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+	g.Start(0,0)
+
+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
+    	skmt.ExecNonQuery("delete from PROIDID")
+		
+		skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=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)")
+		c.Position =0 
+		If c.GetString("CUANTOSD") = 0 Then
+		Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+		Else
+		c=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)")
+		C.Position =0
+		TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+		COSTO_TOT = C.GetString("COSTO_TOT")
+		C.Close
+		
+		c=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 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=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 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
+		'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.
+		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=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")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		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=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 AND CAT_DP_TIPO = 1")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		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
+	    
+		
+	    
+		'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=skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		
+		c.Close
+		
+		c=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=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'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=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")
+		
+			 
+		If e.GetString("CUANTOS") > 0 Then
+		
+		F=skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 AND CAT_DP_PRECIO = 0")
+		'se coloco el if por la mala promocion.
+		
+		For i=0 To F.RowCount -1
+		F.Position=i
+		
+		h=skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+		h.Position=0
+		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,0, 0, 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
+	    
+		
+		
+		f.Close
+		End If
+		e.Close
+		
+		
+		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,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta))
+		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
+		skmt.ExecNonQuery("delete from PROIDID")
+		
+		skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		 c=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=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=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'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=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=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=skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+		h.Position=0
+		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_TIPO) 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,Main.tipov))
+		h.Close
+		Next
+		f.Close
+		End If
+		e.Close
+		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_TIPO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov))
+		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=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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")))
+	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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+		c=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=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	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_TIPO) 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,Main.tipov))
+    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=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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")))
+	skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+			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
+    	skmt.ExecNonQuery("delete from PROIDID")
+		
+		skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		c=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)")
+		c.Position =0 
+		If c.GetString("CUANTOSD") = 0 Then
+		Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
+		Else
+		c=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)")
+		C.Position =0
+		TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
+		COSTO_TOT = C.GetString("COSTO_TOT")
+		C.Close
+		
+		c=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 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=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 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
+		'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.
+		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=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")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		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=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 AND CAT_DP_TIPO = 1")
+		If D.RowCount>0 Then
+	     For i=0 To D.RowCount -1
+		     D.Position=i
+			 
+		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
+	    
+		
+	    
+		'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=skmt.ExecQuery("Select CUENTA from cuentaa")
+		c.Position=0
+		clie_id = c.GetString("CUENTA")
+		
+		c.Close
+		
+		c=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=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'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=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")
+		e.Position =0
+		If e.GetString("CUANTOS") > 0 Then
+		F=skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 AND CAT_DP_PRECIO = 0")
+		'meter el otro
+		F.Position =0
+        h=skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+		h.Position=0
+		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_TIPO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov))
+		h.Close
+		f.Close
+		End If
+		e.Close
+		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_TIPO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov))
+		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
+		skmt.ExecNonQuery("delete from PROIDID")
+		
+		skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
+		 c=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=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=skmt.ExecQuery("select USUARIO from usuarioa")
+		c.Position=0
+		usuario = c.GetString("USUARIO")
+		'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=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=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=skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
+		h.Position=0
+		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_TIPO) 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,Main.tipov))
+		h.Close
+		Next
+		f.Close
+		End If
+		e.Close
+		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_TIPO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov))
+		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=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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")))
+	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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+		c=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=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	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_TIPO) 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,Main.tipov))
+    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=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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")))
+	skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+			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
+	  skmt.ExecNonQuery("delete from PROIDID")
+	  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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	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_TIPO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,Main.tipov))
+	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
+
+

profina3.b4a

@@ -0,0 +1,647 @@
+Build1=Default,profina.keymon.com.mx
+File1=alcancia.png
+File10=durakelo1.png
+File11=engrane.jpg
+File12=fila.bal
+File13=fondo_kmt.jpg
+File14=foto.bal
+File15=guardagestion.bal
+File16=guna_viejo.png
+File17=info_gral.bal
+File18=infonavit1.jpg
+File19=itembuttonblue.png
+File2=alert2.png
+File20=kelloggs.png
+File21=keymon_logo.png
+File22=kmt.db
+File23=login.bal
+File24=LOGO SANFER.jpg
+File25=logo_exitus1.jpg
+File26=Malo.jpg
+File27=mapa.bal
+File28=nopago.bal
+File29=nuevocliente.bal
+File3=alerta.jpg
+File30=palomita_verde.png
+File31=pedido.bal
+File32=planfia_logo.png
+File33=planfia_logo_old.png
+File34=planfia_logo_old2.png
+File35=PRODUCTOS.bal
+File36=PROFINA.png
+File37=qr.bal
+File38=rechazo.jpg
+File39=ROJO.png
+File4=alerta_amarilla.png
+File40=salma.jpg
+File41=seleccion.bal
+File42=senial.jpg
+File43=sync.png
+File44=tache_rojo.png
+File45=tarjeta.bal
+File46=telefonos.bal
+File47=Tiendita.jpg
+File48=VERDE.png
+File5=AMARILLO.png
+File6=buscar.bal
+File7=carrito.png
+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
+FileGroup5=Default Group
+FileGroup6=Default Group
+FileGroup7=Default Group
+FileGroup8=Default Group
+FileGroup9=Default Group
+Group=Default Group
+Library1=baqrcode
+Library10=reflection
+Library11=rspopupmenu
+Library12=runtimepermissions
+Library13=serial
+Library14=sql
+Library15=togglelibrary
+Library16=zxing_scanner
+Library17=printing
+Library2=bitmapcreator
+Library3=byteconverter
+Library4=camera
+Library5=core
+Library6=gps
+Library7=okhttputils2
+Library8=phone
+Library9=randomaccessfile
+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="28"/>~\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~	  '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="30" />~\n~)
+Module1=BUSCAR
+Module10=gestion
+Module11=Historico
+Module12=mapas
+Module13=nopago
+Module14=nuevocliente
+Module15=pedidos
+Module16=QR_MODULE
+Module17=seleccion
+Module18=tarjeta
+Module19=telefonos
+Module2=CameraExClass
+Module3=colonia
+Module4=colonia2
+Module5=DBRequestManager
+Module6=detalle_promo
+Module7=EscPosPrinter
+Module8=fila
+Module9=foto
+NumberOfFiles=48
+NumberOfLibraries=17
+NumberOfModules=19
+Version=12.5
+@EndOfDesignText@
+#Region  Project Attributes 
+	#ApplicationLabel: Profina-Venta
+	#VersionCode: 3
+	#VersionName: PILOTO 3.08.15
+	'SupportedOrientations possible values: unspecified, landscape or portrait.
+	#SupportedOrientations: portrait
+	#CanInstallToExternalStorage: False
+	
+	'###########################################################################################################
+	'######################           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 tipov As String
+	Dim mac_impresora As String
+	Private Serial1 As Serial
+
+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
+	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 IMEN As EditText
+	Private Entrar As Button
+	Private Panel1 As Panel
+	Private ImageView4 As ImageView
+	Private E_SERVER As EditText
+	Private B_SERVER As Button
+	Private B_FECHA As Button
+	Private CUANTOS As String
+	
+	Private ListView1 As ListView
+	Private E_MAC_IMP As EditText
+	Dim rp As RuntimePermissions
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	
+	
+	   ruta = File.DirInternal
+
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	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.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
+    'server = "http://201.99.139.28:1782"
+	'server = "http://177.244.63.54:1782"
+	'server = "http://keymon.com.mx:1782"
+	server = "http://keymon.lat:1781"
+	'server = "http://38.123.201.97:1782"
+	
+	Dim sDate,sTime As String
+	DateTime.DateFormat = "yyyyMMdd"
+	sDate=DateTime.Date(DateTime.Now)
+		If sDate = "20190523" Then
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",server))
+			
+	End If
+
+	
+	c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+	c.Position =0
+	If c.GetString("CUANTOS") = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",server))
+	Else
+		c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+		c.Position =0
+		server = c.GetString("CAT_VA_VALOR")
+	End If
+	
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_GPS(CLIENTE TEXT, LAT TEXT, LON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TMP_PROMO_ESP_REGALO(CLIENTE TEXT, MONTO TEXT, REGALO TEXT)")
+	
+	
+	If FirstTime Then
+		reqManager.Initialize(Me, server)
+	End If
+	Activity.LoadLayout("login")
+	Dim P As PhoneId
+'	user.Text = P.GetDeviceId
+'	IMEI = P.GetDeviceId
+'	IMEI = ""
+'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
+End Sub
+
+Sub Activity_PermissionResult (Permission As String, Result As Boolean)
+    If Permission = rp.PERMISSION_ACCESS_COARSE_LOCATION Then
+        Result = True
+  End If
+End Sub
+
+Sub Activity_Resume
+	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+	
+	server = "http://keymon.lat:1781"
+	'server = "http://201.99.139.28:1782"
+	'server = "http://177.244.63.54:1782"
+	'server = "http://38.123.201.97:1782"
+		reqManager.Initialize(Me, server)
+		
+		
+	If g.GPSEnabled=False Then
+    	  ToastMessageShow("Habilitar el GPS", True)
+    	  StartActivity(g.LocationSettingsIntent)
+    Else
+    	  g.Start(0,0)
+    End If
+	'	 user.Text ="GPS"
+	c=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=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 c.GetString("CAT_VA_VALOR") > sDate Then
+		Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO")
+		Activity_Resume
+		End If	
+	End If
+	c.Close
+	c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
+	c.Position =0
+	CUANTOS = c.GetString("CUANTOS") 
+	
+	c.Close
+	If CUANTOS > 0 Then
+	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CODIGO"))
+	c.Position =0
+	If c.GetString("CAT_VA_VALOR") = "743" Then
+		Entrar.Visible = True
+	End If
+	c.Close
+	Else
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO","743"))
+
+	End If
+	
+	c=skmt.ExecQuery2("select COUNT(*) AS CUANTOS  from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
+	c.Position =0
+	If c.GetString("CUANTOS") = 0 Then
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
+	End If
+	skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+	skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",server))
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+
+Sub Entrar_Click
+    If user.Text = "ALTERNO" Then
+	c=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
+	skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
+	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
+	skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
+	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=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 = "ROOT" 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 (pass.Text))
+
+       skmt.ExecNonQuery("delete from VERSION")
+	       
+		  skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
+	
+	StartActivity(seleccion)
+	
+	
+		
+	End If
+	
+	
+	
+    c=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")
+
+    Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_usuario_guna_PRO"
+	cmd.Parameters = Array As Object(user.Text, pass.Text)
+	reqManager.ExecuteQuery(cmd , 0, "usuario")
+	
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "select_version_PRO"
+	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
+           skmt.ExecNonQuery("delete from VERSION")
+		   Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
+           
+		  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"))
+		  skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
+		  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
+	 
+	 
+	 
+   Job.Release
+     
+	End If
+	If paso1 =1 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))
+			skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
+			skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))
+		
+
+	  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
+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
+
+
+Sub IMEN_EnterPressed
+	If IMEN.Text <> "0" Then
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("CODIGO"))
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CODIGO",IMEN.TEXT))
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("RUTA"))
+		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("RUTA",user.TEXT))
+	
+	End If
+	IMEN.Visible =False
+	If IMEN.Text = "743" Then
+	Entrar.Visible = True
+	End If
+	
+	
+End Sub
+
+Sub user_EnterPressed
+ If user.Text = "CODIGO" Then
+IMEN.Visible = True
+user.Text = ""
+End If		
+End Sub
+
+Sub ImageView4_Click
+	
+	Entrar.Visible = False
+	'server = "http://201.99.139.28:1782"
+	'server = "http://177.244.63.54:1782"
+	'server = "http://keymon.com.mx:1782"
+	server = "http://keymon.lat:1781"
+	ListView1.Clear
+	Dim label1 As Label
+	label1 = ListView1.SingleLineLayout.Label
+	label1.TextSize = 20
+	label1.TextColor = Colors.Black
+	ListView1.AddSingleLine("http://keymon.lat:1781")
+'	ListView1.AddSingleLine("http://177.244.63.54:1782")
+'	ListView1.AddSingleLine("http://keymon.com.mx:1782")
+	
+	
+	c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
+	c.Position =0
+	E_SERVER.text = c.GetString("CAT_VA_VALOR")
+	Panel1.Visible = True
+End Sub
+
+Sub B_SERVER_Click
+	skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+	skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",E_SERVER.text))
+	Panel1.Visible = False
+	Entrar.Visible = True
+	   
+End Sub
+
+Sub B_FECHA_Click
+	
+	
+	skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
+	skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP","0"))
+	Panel1.Visible = False
+	
+	
+	
+	    
+End Sub
+
+Sub ListView1_ItemClick (Position As Int, Value As Object)
+	E_SERVER.text = Value
+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

tarjeta.bas

@@ -0,0 +1,316 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+     Dim skmt As SQL
+	 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 TIPO As String
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	If(FirstTime) Then
+	 g.Initialize("GPS")
+	End If
+
+
+	   ruta = File.DirInternal
+
+	    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)
+	skmt.ExecNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+	   c=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=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=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
+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=""
+	skmt.ExecNonQuery("update pedido set pe_folio = 0 where pe_folio is null")
+
+ c=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=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=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=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 desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	
+			c=skmt.ExecQuery("select PE_PROID,PE_CANT, PE_TIPO 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
+			 
+					TIPO = c.GetString("PE_TIPO")
+					If c.GetString("PE_TIPO") = "VENTA" Then
+						skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+					Else
+						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")))
+					End If
+	      Next
+	   End If
+	
+	
+	skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+	skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+	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=skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_TIPO FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
+	        c.Position=0
+		TIPO = c.GetString("PE_TIPO") 
+			 If c.GetString("PE_TIPO") = "VENTA" Then
+			 skmt.ExecNonQuery2("update cat_gunaprod2 set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
+	         Else
+			 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")))
+	         End If
+	 c.Close 
+	 If TIPO = "VENTA" Then
+	 c=skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod2 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))
+	 Else
+	 c=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))
+	 End If	
+	 c.Position=0
+	 If c.GetString("CUANTOS") > 0 Then
+	 skmt.ExecNonQuery2("delete from pedido where pe_folio = 0 and pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
+     Else
+	 skmt.ExecNonQuery2("delete from pedido where pe_folio = 0  and 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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	
+	c=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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))
+	skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa)")		
+	Else
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+	c=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+    c.Close
+		result =  Msgbox2("Seguro que desea dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")		
+	c=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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=skmt.ExecQuery("Select CUENTA from cuentaa")
+	c.Position=0
+	clie_id = c.GetString("CUENTA")
+	c.Close
+	c=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+    c.Close
+		result =  Msgbox2("Seguro que desea CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
+	If result = DialogResponse.POSITIVE Then
+	skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")		
+	c=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
+	skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
+	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,130 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=7.01
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+    Dim skmt As SQL
+End Sub
+
+Sub Globals
+	'These global variables will be redeclared each time the activity is created.
+	'These variables can only be accessed from this module.
+    
+	Dim c As Cursor
+	Dim ruta As String
+	
+	Dim 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")
+
+	   ruta = File.DirInternal
+
+	    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=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=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=skmt.ExecQuery("Select CUENTA from cuentaa")
+     C.Position =0
+    	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