Salma_Reparto/fila.bas

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 clie_id As String
	Dim sDate,sTime As String
	Dim usuario As String
	Dim cuenta As String
	Dim btAdmin As BluetoothAdmin
	Dim cmp20 As Serial
	Dim printer As TextWriter
	Dim PairedDevices As Map
	Dim L As List
	Dim TAMANO As Int
	Dim ESPACIO As Int
	Dim BLANCO As String
	
	Dim LONGITUD As String
	Dim LATITUD As String
	Dim NOMBRE As String

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Dim c As Cursor
	Dim s As Cursor
	Dim ListView1 As ListView
	Dim la_cuenta As Label
	Dim La_nombre As Label
	Dim la_Calle As Label
	Dim la_numero As Label
	Dim la_nint As Label
	Dim la_edo As Label
	Dim la_pob As Label
	Dim la_col As Label
	Dim la_cp As Label
	Dim la_zona As Label
	Dim gest As Button
	Dim la_saldotot As Label
	Dim la_saldooper As Label
	
	Dim Tels As Button
	Dim Label10 As Label
	Dim Label11 As Label
	
	Dim Tar As Button
	Private L_QR As Label
	Private BT_QR As Button
	
	Dim la_comm As Label
	Dim la_actdte As Label
	Dim la_usuario As Label
	Dim la_resultado As Label
	Dim l_entre1 As Label
	Dim l_entre2 As Label
	Dim l_atiende As Label
	Dim l_atiende2 As Label
	Dim DATOS As Button
	Dim Guardar As Button
	Dim NUEVO As Button
	'    Dim lat_gps, lon_gps As String

	Private l_total As Label
	Private HIST As Button
	Dim PASA_IMP As String
	Private B_IMP As Button
	Dim total_cliente As String
	Dim CREDITO As String
	Private p_principal As Panel
	Private B_PASO2 As Button
	Private b_picking As Button
	Private p_picking 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("Layout1")
	If(FirstTime) Then
		g.Initialize("GPS")
	End If
	Activity.LoadLayout("info_gral")
	
	' valido donde escribo el archivo de la base de datos de kmt
'	ruta = Main.ruta
'	If File.Exists(Starter.ruta, "kmt.db") = False Then
'		File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
'	End If
'	skmt.Initialize(Starter.ruta,"kmt.db", True)
	c=Starter.skmt.ExecQuery("select 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)")
	s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
	s.Position=0

	' ListView1.Clear
	   
	'If c.RowCount>0 Then
	'  For i=0 To c.RowCount -1
	c.Position=0
	la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
	La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
	la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
	la_col.Text = c.GetString("CAT_CL_COLONIA")
	la_edo.Text = c.GetString("CAT_CL_EDO")
	la_cp.Text = c.GetString("CAT_CL_CP")
	l_entre1.Text = c.GetString("CAT_CL_CALLE1")
	l_entre2.Text = c.GetString("CAT_CL_CALLE2")
	If c.GetString("CAT_CL_ATIENDE1") <> Null And c.GetString("CAT_CL_ATIENDE1") <> "null" Then
		l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
	Else
		l_atiende.Text = " "
	End If
	If c.GetString("CAT_CL_ATIENTE2") <> Null And c.GetString("CAT_CL_ATIENTE2") <> "NULL" Then
		l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
		Log("|"&c.GetString("CAT_CL_ATIENTE2")&"|")
	Else
		l_atiende2.Text = " "
	End If
	la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
	la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
	l_total.Text = s.GetString("TOTAL_CLIE")
	' la_producto.Text = c.GetString("CDPROD")
	'la_numero.Text = c.GetString("CDNUMEXT")
	'la_nint.Text = c.GetString("CDNUMINT")
	'la_pob.Text = c.GetString("CFSDOGLOBAL")
			 
	'la_saldooper.Text = c.GetString("CAT_CL_FALTA")
	'Label10.Text = "FECHA DE ALTA"
	'Label11.Text = "# ENCUESTAS"
			 
	'c=skmt.ExecQuery("select MGCTA, MGACTT, MGGESTT, MGDTEACTT, COMM  from hist_gest where MGCTA In (Select cuenta from cuentaa)")
	'c.Position=0
	'la_comm.Text = c.GetString("COMM")
	'la_actdte.Text = C.GetString("MGDTEACTT")
	'la_usuario.Text = c.GetString("MGGESTT")
	'la_resultado.Text = c.GetString("MGACTT")
			
			 
	'la_padre.Text = c.GetString("PR_CF_FECHA_DISP")
	'la_no_ird.Text = c.GetString("PR_CF_SALDO_ACORT")
			 
	' se crea o no el archivo de la base de ddatos de kmt
	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
	'SI SE REGRESA A ESTE ACTIVIDAD.
	'ListView1.AddTwoLines(c.GetString("pr_cd_nombre"),c.GetString("pr_cd_colonia"))
	'  Next
	'End If
	If FirstTime Then
		btAdmin.Initialize("BlueTeeth")
		cmp20.Initialize("Printer")
	End If

End Sub

Sub Activity_Resume
'	If g.GPSEnabled=False Then
'		ToastMessageShow("Habilitar el GPS", True)
'		StartActivity(g.LocationSettingsIntent)
'	Else
'		g.Start(0,0)
'	End If
	Subs.centraPanel(p_principal, Activity.Width)
	Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
	c=Starter.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_BCREDITO  from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
	s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
	s.Position=0

	' ListView1.Clear

	'If c.RowCount>0 Then
	'  For i=0 To c.RowCount -1
	c.Position=0
	la_cuenta.Text = c.GetString("CAT_CL_CODIGO")
	La_nombre.Text = c.GetString("CAT_CL_NOMBRE")
	NOMBRE = c.GetString("CAT_CL_NOMBRE")
	LONGITUD = c.GetString("CAT_CL_LONG")
	LATITUD = c.GetString("CAT_CL_LAT")
	la_Calle.Text = c.GetString("CAT_CL_CALLE") & c.GetString("CAT_CL_NOEXT")
	la_col.Text = c.GetString("CAT_CL_COLONIA")
	la_edo.Text = c.GetString("CAT_CL_EDO")
	la_cp.Text = c.GetString("CAT_CL_CP")
	l_entre1.Text = c.GetString("CAT_CL_CALLE1")
	l_entre2.Text = c.GetString("CAT_CL_CALLE2")
	If c.GetString("CAT_CL_ATIENDE1") <> Null And c.GetString("CAT_CL_ATIENDE1") <> "null" Then
		l_atiende.Text = c.GetString("CAT_CL_ATIENDE1")
	Else
		l_atiende.Text = " "
	End If
	If c.GetString("CAT_CL_ATIENTE2") <> Null And c.GetString("CAT_CL_ATIENTE2") <> "NULL" Then
		l_atiende2.Text = c.GetString("CAT_CL_ATIENTE2")
	Else
		l_atiende2.Text = " "
	End If
	la_saldotot.Text = c.GetString("CAT_CL_TELEFONO")
	la_saldooper.Text = c.GetString("CAT_CL_EMAIL")
	l_total.Text = s.GetString("TOTAL_CLIE")
	CREDITO = C.GetString("CAT_CL_BCREDITO")
			 
	If CREDITO = "1" Then
		Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
	End If
	' la_producto.Text = c.GetString("CDPROD")
	'la_numero.Text = c.GetString("CDNUMEXT")
	'la_nint.Text = c.GetString("CDNUMINT")
	'la_pob.Text = c.GetString("CFSDOGLOBAL")
			 
	'la_saldooper.Text = c.GetString("CAT_CL_FALTA")
	'Label10.Text = "FECHA DE ALTA"
	'Label11.Text = "# ENCUESTAS"
			 
	
	'c=skmt.ExecQuery("select MGCTA, MGACTT, MGGESTT, MGDTEACTT, COMM  from hist_gest where MGCTA In (Select cuenta from cuentaa)")
	'c.Position=0
	'la_comm.Text = c.GetString("COMM")
	'la_actdte.Text = C.GetString("MGDTEACTT")
	'la_usuario.Text = c.GetString("MGGESTT")
	'la_resultado.Text = c.GetString("MGACTT")
'	StartPrinter
		 
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)

	
	Dim sDate,sTime As String
		
	DateTime.DateFormat = "MM/dd/yyyy"
	sDate=DateTime.Date(DateTime.Now)
	sTime=DateTime.Time(DateTime.Now)
			   
	Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
	Starter.skmt.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, Main.lat_gps,Main.lon_gps))
End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	
End Sub

Sub gest_Click
	DateTime.DateFormat = "MM/dd/yyyy"
	sDate=DateTime.Date(DateTime.Now)
	sTime=DateTime.Time(DateTime.Now)
	c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
	c.Position = 0
	cuenta = c.GetString("CUENTA")
	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	c.Close
	Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
	Starter.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, "ENTREGA","ENTREGA COMPLETA",Main.lat_gps,Main.lon_gps))
	Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2  where CAT_CL_CODIGO In (select cuenta from cuentaa) ")
	Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
	StartActivity(seleccion)
End Sub

Sub Tels_Click
	' skmt.ExecNonQuery("delete from PEDIDO")
	StartActivity(nopago)
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
	' BACK key pressed
	If key=KeyCodes.KEYCODE_BACK Then
		' I want to capture the key here so I return True
		StartActivity(colonia)
		'Return True
	End If
	' Returning False signals the system to handle the key
	Return False
End Sub

Sub Tar_Click
	StartActivity(colonia2)
End Sub

Sub DATOS_Click
	StartActivity(telefonos)
End Sub

Sub Guardar_Click
	StartActivity(seleccion)
End Sub

Sub NUEVO_Click
	StartActivity(MAPA_CLIENTE)
End Sub

Sub HIST_Click
	StartActivity(Historico)
End Sub

Sub B_IMP_Click
	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
	c.Position=0
	usuario = c.GetString("USUARIO")
	DateTime.DateFormat = "MM/dd/yyyy"
	sDate=DateTime.Date(DateTime.Now)
	sTime=DateTime.Time(DateTime.Now)
	TAMANO = 0
	ESPACIO = 21
	BLANCO = " "
	CREDITO ="1"
	If CREDITO = "1" Then
		DateTime.DateFormat = "MM/dd/yyyy"
		sDate=DateTime.Date(DateTime.Now)
		sTime=DateTime.Time(DateTime.Now)
		printer.Initialize(cmp20.OutputStream)
		printer.WriteLine("DBC.")
		printer.WriteLine("RFC: ")
		printer.WriteLine(sDate)
		printer.WriteLine(sTime)
		printer.WriteLine("Tienda: " & La_nombre.Text)
		s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
		s.Position=0
		printer.WriteLine("Debo (emos) y pagare (mos)      incondicionamelte a la orden de DBC a la cantidad de $"  & s.GetString("PC_MONTO") & " PESOS _______________________________________________________________________________________________________________ ")
		printer.WriteLine("en esta ciudad o en cualquier   otra que se requiera de pago,   valor recibido a mi entera satisfaccion y que me obligo a cumplir el dia______________________.")
		printer.WriteLine(" ")
		printer.WriteLine("Si este pagare no fuera cubiertoa su vencimiento Me (nos) obligo (amos) a pagar intereses moratorios a razon de 3 % mensual")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine(" ")
		printer.WriteLine("------------------------------")
		printer.WriteLine("    NOMBRE Y FIRMA ")
		printer.WriteLine("------------------------------")
		printer.WriteLine(" ")
		printer.Flush
	
	End If

	printer.Initialize(cmp20.OutputStream)
	printer.WriteLine("INTMEX")
	printer.WriteLine("RFC: ")
	printer.WriteLine("Tel.:")
	printer.WriteLine(sDate)
	printer.WriteLine(sTime)
	printer.WriteLine("Vendedor:" & usuario)
	printer.WriteLine("Tienda: " & La_nombre.Text)
	s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
	s.Position=0
	c=Starter.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
	C.Position=0
	
	printer.WriteLine("Total :   $" & (s.GetString("PC_MONTO") + c.GetString("PE_COSTO_TOT")))
	s.Close
	printer.WriteLine("-----------ENTREGA------------")
	S=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,length(HVD_cant) as L_CANT,HVD_COSTO_TOT,length(HVD_COSTO_TOT) as L_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ")

	's=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE  PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
	If S.RowCount>0 Then
		For i=0 To S.RowCount -1
			S.Position=i
			'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
			'	printer.WriteLine(s.GetString("PE_PRONOMBRE"))
				
			'Else
				
			printer.WriteLine(s.GetString("HVD_CANT") & " " & s.GetString("HVD_PRONOMBRE"))
			TAMANO = s.GetLong("L_CANT") + TAMANO
			'TAMANO = s.GetLong("L_COSTOU") + TAMANO
			TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
	
			ESPACIO = ESPACIO - TAMANO
	
			For E=0 To ESPACIO -1
				BLANCO = " " & BLANCO
			Next
			printer.WriteLine("$" & s.GETSTRING("HVD_COSTO_TOT") )
			TAMANO = 0
			ESPACIO = 21
			BLANCO = " "
			'End If
		Next
	End If
	s.Close
	
	s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE  PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
	If S.RowCount>0 Then
		For i=0 To S.RowCount -1
			S.Position=i
			'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
			'	printer.WriteLine(s.GetString("PE_PRONOMBRE"))
				
			'Else
				
			printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
			TAMANO = s.GetLong("L_CANT") + TAMANO
			'TAMANO = s.GetLong("L_COSTOU") + TAMANO
			TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
	
			ESPACIO = ESPACIO - TAMANO
	
			For E=0 To ESPACIO -1
				BLANCO = " " & BLANCO
			Next
			printer.WriteLine("$" & s.GETSTRING("PE_COSTO_TOT") )
			TAMANO = 0
			ESPACIO = 21
			BLANCO = " "
			'End If
		Next
	End If
	s.Close
	
	
	
	
	printer.WriteLine("------------------------------")
	printer.WriteLine("---NO ES UN COMPROBANTE ------")
	printer.WriteLine("---------FISCAL---------------")
	printer.WriteLine("---COMPROBANTE DE ENTREGA-----")
	printer.WriteLine("------------------------------")
	
	printer.Flush
	'	printer.Close
	
End Sub

Sub Printer_Connected (Success As Boolean)
	If Success Then
		
		B_IMP.Enabled = True
		PASA_IMP = "1"
	Else
		B_IMP.Enabled = False
		If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
			StartPrinter
		End If
	End If
End Sub

Sub StartPrinter
	Dim PairedDevices As Map
	Dim L As List
	Dim resimp As Int

	ToastMessageShow("Printing.....",True)

	PairedDevices.Initialize

	Try
		PairedDevices = cmp20.GetPairedDevices
	Catch
		Msgbox("Getting Paired Devices","Printer Error") 'ignore
		printer.Close
		cmp20.Disconnect
	End Try

	If PairedDevices.Size = 0 Then
		Msgbox("Error Connecting to Printer - Printer Not Found","") 'ignore
		Return
	End If

	If PairedDevices.Size = 1 Then
		Try
			'FLEOS
			cmp20.ConnectInsecure(btAdmin,PairedDevices.Get(PairedDevices.GetKeyAt(0)),1)
			'cmp20.Connect(PairedDevices.Get(PairedDevices.GetKeyAt(0)))
			
		Catch
			Msgbox("Connecting","Printer Error") 'ignore
			printer.Close
			cmp20.Disconnect
		End Try
	Else
		L.Initialize

		For i = 0 To PairedDevices.Size - 1
			L.Add(PairedDevices.GetKeyAt(i))
		Next

		resimp = InputList(L, "Choose device", -1) 'ignore

		If resimp <> DialogResponse.CANCEL Then
			cmp20.Connect(PairedDevices.Get(L.Get(resimp)))
			
		End If
	End If
End Sub



Sub B_PASO2_Click
	DateTime.DateFormat = "MM/dd/yyyy"
	sDate=DateTime.Date(DateTime.Now)
	sTime=DateTime.Time(DateTime.Now)
	c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
	c.Position = 0
	cuenta = c.GetString("CUENTA")
	c=Starter.skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	c.Close
	Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
	Starter.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, "PASO","PASO ESPERA",Main.lat_gps,Main.lon_gps))
	StartActivity(seleccion)
End Sub