cheveguerra/Izca_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Izca_Multiventa.git synced 2026-04-17 21:06:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Por si las dudas

Browse Source
This commit is contained in:
Javier
2025-11-06 11:27:44 -06:00
parent 76a26a92bb
commit a15d332863
21 changed files with 2750 additions and 346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
B4A/B4XMainPage.bas
View File

@@ -127,6 +127,11 @@ Sub Class_Globals
Private B_Can_Monto As Button Private B_Can_Monto As Button
Private B_Aceptar_Monto As Button Private B_Aceptar_Monto As Button
Private ET_Add_Monto As EditText Private ET_Add_Monto As EditText
Private b_bypass As Button
Private p_bypass As Panel
Private et_bypass As EditText
Private b_cancelabypass As Button
Private b_acepbypass As Button
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -190,6 +195,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info32 (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_BCREDITO TEXT, CAT_CL_BCOORDENADAS TEXT, CAT_CL_LIMITECREDITO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info3 (CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC, CAT_CL_BCREDITO TEXT, CAT_CL_BCOORDENADAS TEXT, CAT_CL_LIMITECREDITO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS POLIGONO (LAT TEXT, LONG TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS POLIGONO (LAT TEXT, LONG TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GEOCERCA (ACTIVA TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GEOCERCA (ACTIVA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COORDS_ALMACEN (LAT TEXT, LONG TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COORDS_ALMACEN (LAT TEXT, LONG TEXT)")
@@ -223,9 +230,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT") Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT") Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT") Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT")
Subs.agregaColumna("kmt_info", "CAT_CL_BCREDITO", "TEXT") Subs.agregaColumna("kmt_info3", "CAT_CL_BCREDITO", "TEXT")
Subs.agregaColumna("kmt_info", "CAT_CL_BCOORDENADAS", "TEXT") Subs.agregaColumna("kmt_info3", "CAT_CL_BCOORDENADAS", "TEXT")
Subs.agregaColumna("kmt_info", "CAT_CL_LIMITECREDITO", "TEXT") Subs.agregaColumna("kmt_info3", "CAT_CL_LIMITECREDITO", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_CONVERSION1", "TEXT") Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_CONVERSION1", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "TEXT") Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT") Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT")
@@ -237,6 +244,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_COLONIA", "TEXT") Subs.agregaColumna("CLIENTES_NUEVOS", "CN_COLONIA", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_TELEFONO", "TEXT") Subs.agregaColumna("CLIENTES_NUEVOS", "CN_TELEFONO", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_CP", "TEXT") Subs.agregaColumna("CLIENTES_NUEVOS", "CN_CP", "TEXT")
Subs.agregaColumna("COORDS_ALMACEN", "BANDERA", "TEXT")
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ") c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
' '
' skmt.ExecNonQuery2("INSERT INTO POLIGONO(LAT,LONG) VALUES(?,?) ", Array As Object(19.534596, -99.148633)) ' skmt.ExecNonQuery2("INSERT INTO POLIGONO(LAT,LONG) VALUES(?,?) ", Array As Object(19.534596, -99.148633))
@@ -331,6 +339,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
P_CIEGO.Width = Root.Width P_CIEGO.Width = Root.Width
p_validacion.Height = Root.Height p_validacion.Height = Root.Height
p_validacion.Width = Root.Width p_validacion.Width = Root.Width
p_bypass.Height = Root.Height
p_bypass.Width = Root.Width
p_add_monto.Height = Root.Height p_add_monto.Height = Root.Height
p_add_monto.Width = Root.Width p_add_monto.Width = Root.Width
End Sub End Sub
@@ -559,7 +569,7 @@ Sub JobDone(Job As HttpJob)
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position = 0 f.Position = 0
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
a.Position = 0 a.Position = 0
@@ -785,6 +795,9 @@ Private Sub B4XPage_CloseRequest As ResumableSub
Else If p_validacion.IsInitialized And p_validacion.Visible Then Else If p_validacion.IsInitialized And p_validacion.Visible Then
p_validacion.Visible = False p_validacion.Visible = False
Return False Return False
Else If p_bypass.IsInitialized And p_bypass.Visible Then
p_bypass.Visible = False
Return False
Else If P_CIEGO.IsInitialized And P_CIEGO.Visible Then Else If P_CIEGO.IsInitialized And P_CIEGO.Visible Then
MsgboxAsync("Debes de terminar el proceso para regresar a la pantalla principal","Atención") MsgboxAsync("Debes de terminar el proceso para regresar a la pantalla principal","Atención")
Return False Return False
@@ -914,7 +927,8 @@ Sub i_engrane_Click
' l_server.Text = Starter.DBReqServer ' l_server.Text = Starter.DBReqServer
et_server.Text = Starter.DBReqServer et_server.Text = Starter.DBReqServer
Subs.panelVisible(p_appUpdate,0,0) Subs.panelVisible(p_appUpdate,0,0)
If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False ' If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
If user.Text.trim = "KMTS1" Then b_bypass.Visible = True Else b_bypass.Visible = False
End Sub End Sub
Sub b_regesar_Click Sub b_regesar_Click
@@ -1071,7 +1085,7 @@ Private Sub B_PC_ENV_Click
Dim idText As String = idLabel.As(Label).Text Dim idText As String = idLabel.As(Label).Text
Dim idParts() As String = Regex.Split(CRLF, idText) Dim idParts() As String = Regex.Split(CRLF, idText)
' Log(idParts(1)) ' Log(idParts(1))
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1130,7 +1144,7 @@ Private Sub b_terpc_Click
Dim idText As String = idLabel.As(Label).Text Dim idText As String = idLabel.As(Label).Text
Dim idParts() As String = Regex.Split(CRLF, idText) Dim idParts() As String = Regex.Split(CRLF, idText)
' Log(idParts(1)) ' Log(idParts(1))
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1175,7 +1189,7 @@ Private Sub b_terpc_Click
End Sub End Sub
Private Sub b_aceptar_Click Private Sub b_aceptar_Click
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1200,7 +1214,7 @@ Private Sub B_Aceptar_Monto_Click
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1298,7 +1312,7 @@ Private Sub b_recarga_Click
End Sub End Sub
Private Sub b_CargarMonto_Click Private Sub b_CargarMonto_Click
c = skmt.ExecQuery("SELECT * FROM kmt_info") c = skmt.ExecQuery("SELECT * FROM kmt_info3")
c.Position = 0 c.Position = 0
If c.RowCount < 0 Or c.RowCount = 0 Then If c.RowCount < 0 Or c.RowCount = 0 Then
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención") MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
@@ -1319,3 +1333,42 @@ End Sub
Private Sub p_add_monto_Click Private Sub p_add_monto_Click
End Sub End Sub
Private Sub b_bypass_Click
c = skmt.ExecQuery("SELECT * FROM kmt_info3")
If c.RowCount > 0 Then
Subs.panelVisible(p_bypass,0,0)
p_bypass.Visible = True
Else
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
End If
End Sub
Private Sub b_acepbypass_Click
DateTime.TimeFormat = "HH:mm:ss"
DateTime.DateFormat = "dd/MM/yyyy"
sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now)
Dim datebypass() As String = Regex.Split("/",sDate)
Dim timebypass() As String = Regex.Split(":",sTime)
If et_bypass.Text = datebypass(0) & timebypass(0) & timebypass(1) Then
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GEOCERCA set ACTIVA = ? ", Array As Object(0))
et_bypass.Text = ""
MsgboxAsync("Geocerca Deshabilitada","Atención")
p_bypass.Visible = False
End If
End Sub
Private Sub b_cancelabypass_Click
p_bypass.Visible = False
et_bypass.Text = ""
End Sub
Private Sub p_bypass_Click
End Sub

208
B4A/C_Cliente.bas
View File

@@ -74,7 +74,7 @@ Sub Class_Globals
Dim Guardar As Button Dim Guardar As Button
Dim NUEVO As Button Dim NUEVO As Button
' Dim lat_gps, lon_gps As String ' Dim lat_gps, lon_gps As String
Dim bandera_almacen As string
Dim l_total As Label Dim l_total As Label
Dim c2 As Cursor Dim c2 As Cursor
Dim S2 As Cursor Dim S2 As Cursor
@@ -187,7 +187,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db") File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If End If
skmt.Initialize(ruta,"kmt.db", True) 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,CAT_CL_MTOCOMPRA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") 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,CAT_CL_MTOCOMPRA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
s = 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 = 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)")
b = skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b = skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)")
b.Position = 0 b.Position = 0
@@ -227,6 +227,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
Log(la_cuenta.Text)
If la_cuenta.Text = "0" Then
m_lat = 0
m_lon = 0
End If
' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA") ' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
' h.Position = 0 ' h.Position = 0
' Log(h.GetString("CUENTA")) ' Log(h.GetString("CUENTA"))
@@ -247,6 +253,9 @@ End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
' banderaimp = 0 ' banderaimp = 0
Guardar.Enabled = True Guardar.Enabled = True
gest.Enabled = True gest.Enabled = True
b_cxc.Enabled = True b_cxc.Enabled = True
@@ -268,7 +277,7 @@ Sub B4XPage_Appear
Subs.centraPanel(p_abono, Root.Width) Subs.centraPanel(p_abono, Root.Width)
Subs.centraPanel(p_credito, Root.Width) Subs.centraPanel(p_credito, Root.Width)
skmt.Initialize(ruta,"kmt.db", True) skmt.Initialize(ruta,"kmt.db", True)
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info32 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
s=B4XPages.MainPage.skmt.ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))") s=B4XPages.MainPage.skmt.ExecQuery("Select SUM(PE_COSTO_TOT) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))")
b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)")
b.Position = 0 b.Position = 0
@@ -278,6 +287,13 @@ Sub B4XPage_Appear
Else Else
b_cxc.Visible = True b_cxc.Visible = True
End If End If
gest.Enabled = True
b_venta_credito.Enabled = True
If Subs.Chechapedidocontado Then
b_venta_credito.Enabled = False
Else If Subs.Chechapedidocredito Then
gest.Enabled = False
End If
s.Position=0 s.Position=0
If c.RowCount > 0 Then If c.RowCount > 0 Then
@@ -317,13 +333,15 @@ Sub B4XPage_Appear
End If End If
End If End If
Dim cor_al As Cursor = Starter.skmt.ExecQuery("SELECT LAT, LONG FROM COORDS_ALMACEN") Dim cor_al As Cursor = Starter.skmt.ExecQuery("SELECT LAT, LONG, BANDERA FROM COORDS_ALMACEN")
If cor_al.RowCount > 0 Then If cor_al.RowCount > 0 Then
cor_al.Position = 0 cor_al.Position = 0
m_lat_al = cor_al.GetString("LAT") m_lat_al = cor_al.GetString("LAT")
m_lon_al = cor_al.GetString("LONG") m_lon_al = cor_al.GetString("LONG")
bandera_almacen = cor_al.GetString("BANDERA")
End If End If
c.Close c.Close
s.Close s.Close
S2=B4XPages.MainPage.skmt.ExecQuery("select count(*) AS CUANTOS from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)") S2=B4XPages.MainPage.skmt.ExecQuery("select count(*) AS CUANTOS from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -398,14 +416,7 @@ Sub B4XPage_Appear
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
End If End If
CallSubDelayed(Tracker, "Track")
CallSubDelayed(Tracker, "StartFLPSmall")
If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
End If
' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA") ' h = B4XPages.MainPage.skmt.ExecQuery("SELECT CUENTA from CUENTAA")
' h.Position = 0 ' h.Position = 0
@@ -428,7 +439,7 @@ Sub B4XPage_Appear
Else Else
p_cbFactura.Visible = True p_cbFactura.Visible = True
l_factura.Visible = True l_factura.Visible = True
b_ventaabordo.Visible = False b_ventaabordo.Visible = True
End If End If
@@ -452,9 +463,41 @@ Sub B4XPage_Appear
pre_act = Subs.traeTotalClientepreventaparacredito pre_act = Subs.traeTotalClientepreventaparacredito
'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) 'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM kmt_info3 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)
Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO2 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If la_cuenta.Text = "0" Then
gest.Text = "Abordo"
B4XPages.MainPage.recarga = "0"
Else If la_cuenta.Text = "1" Then
gest.Text = "Recarga"
B4XPages.MainPage.recarga = "1"
Else
gest.Text = "Pre-Venta a Contado"
' gest.Text = "Preventa"
B4XPages.MainPage.recarga = "0"
End If
LogColor(B4XPages.MainPage.recarga,Colors.Blue)
' If banderaimp = 1 Then
' Guardar_Click
' End If
Log(la_cuenta.Text)
If la_cuenta.Text = "0" Then
m_lat = 0
m_lon = 0
End If
CallSubDelayed(Tracker, "Track")
CallSubDelayed(Tracker, "StartFLPSmall")
If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
End If
End Sub
Sub checacredito
Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM kmt_info3 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM kmt_info32 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Log(credi2.RowCount) Log(credi2.RowCount)
If credi2.RowCount > 0 Then If credi2.RowCount > 0 Then
credi2.Position = 0 credi2.Position = 0
@@ -464,7 +507,7 @@ Sub B4XPage_Appear
Log(credi2.GetString("SALDO_PENDIENTE")) Log(credi2.GetString("SALDO_PENDIENTE"))
If credi2.GetString("SALDO_PENDIENTE") > 0 Then If credi2.GetString("SALDO_PENDIENTE") > 0 Then
Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO2 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM kmt_info3 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM kmt_info32 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If credi3.RowCount > 0 Then If credi3.RowCount > 0 Then
credi3.Position = 0 credi3.Position = 0
Dim total As String = 0 Dim total As String = 0
@@ -479,7 +522,7 @@ Sub B4XPage_Appear
b_venta_credito.Visible = False b_venta_credito.Visible = False
Else If credi2.GetString ("SALDO_PENDIENTE") = credi3.GetString ("a_abono") Then Else If credi2.GetString ("SALDO_PENDIENTE") = credi3.GetString ("a_abono") Then
Log("AQUI ESTOY SI VISIBLE BOTON") Log("AQUI ESTOY SI VISIBLE BOTON")
b_venta_credito.Visible = False ''' AQUI ACTIVAR PARA CREDITOS b_venta_credito.Visible = True
End If End If
Else Else
MsgboxAsync("La venta sera en efectivo por que hay un pagare pendiente de pago","Atención") MsgboxAsync("La venta sera en efectivo por que hay un pagare pendiente de pago","Atención")
@@ -487,14 +530,14 @@ Sub B4XPage_Appear
End If End If
credi3.Close credi3.Close
Else If credi2.GetString("SALDO_PENDIENTE") = 0 Then Else If credi2.GetString("SALDO_PENDIENTE") = 0 Then
b_venta_credito.Visible = False '' AQUI ACTIVAR b_venta_credito.Visible = True
End If End If
Else Else
Log(1) Log(1)
b_venta_credito.Visible = False b_venta_credito.Visible = False
If credi2.GetString("SALDO_PENDIENTE") > 0 Then If credi2.GetString("SALDO_PENDIENTE") > 0 Then
Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM KMT_INFO2 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") Private credi3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT a_abono, CAT_CL_CODIGO FROM kmt_info3 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT a_abono, CAT_CL_CODIGO FROM kmt_info32 INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If credi3.RowCount > 0 Then If credi3.RowCount > 0 Then
credi3.Position = 0 credi3.Position = 0
@@ -519,21 +562,6 @@ Sub B4XPage_Appear
End If End If
End If End If
credi2.Close credi2.Close
If la_cuenta.Text = "0" Then
gest.Text = "Abordo"
B4XPages.MainPage.recarga = "0"
Else If la_cuenta.Text = "1" Then
gest.Text = "Recarga"
B4XPages.MainPage.recarga = "1"
Else
' gest.Text = "Pre-Venta a Contado"
gest.Text = "Preventa"
B4XPages.MainPage.recarga = "0"
End If
LogColor(B4XPages.MainPage.recarga,Colors.Blue)
' If banderaimp = 1 Then
' Guardar_Click
' End If
End Sub End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)
@@ -546,7 +574,13 @@ Sub GPS_LocationChanged (Location1 As Location)
Dim l1, l2,l3 As Location Dim l1, l2,l3 As Location
l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
' Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$) If la_cuenta.Text = "0" Then
m_lat = Tracker.FLP.GetLastKnownLocation.Latitude
m_lon = Tracker.FLP.GetLastKnownLocation.Longitude
End If
Log(la_cuenta.Text)
Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
l2.Initialize2(m_lat, m_lon) l2.Initialize2(m_lat, m_lon)
l3.Initialize2(m_lat_al,m_lon_al) l3.Initialize2(m_lat_al,m_lon_al)
BT_QR.Enabled = True BT_QR.Enabled = True
@@ -564,20 +598,52 @@ Sub GPS_LocationChanged (Location1 As Location)
If geo.GetInt("ACTIVA") = 0 Then If geo.GetInt("ACTIVA") = 0 Then
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
Else If geo.GetInt("ACTIVA") = 1 Then b_ventaabordo.Visible = True
If distance2 < 100 Then checacredito
Log("aqui")
' b_venta_credito.Visible = True
Else If geo.GetInt("ACTIVA") = 1 Then
Log("aqui")
Log(distance2)
Log(distance)
Log(bandera_almacen)
If distance2 < 100 And bandera_almacen = "1" Then
LA_GEO.TextColor = Colors.Blue LA_GEO.TextColor = Colors.Blue
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
b_ventaabordo.Visible = True
checacredito
Log("aqui")
' b_venta_credito.Visible = True
Else Else
If distance < 50 Then If distance < 50 Then
LA_GEO.TextColor = Colors.Blue LA_GEO.TextColor = Colors.Blue
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
b_ventaabordo.Visible = True
checacredito
Log("aqui")
' b_venta_credito.Visible = True
Else Else
If la_cuenta.Text = "0" Then
LA_GEO.TextColor = Colors.Red
Tels.Visible = False
gest.Visible = True
b_ventaabordo.Visible = False
b_venta_credito.Visible = False
Else
LA_GEO.TextColor = Colors.Red
Tels.Visible = False
gest.Visible = False
b_ventaabordo.Visible = False
b_venta_credito.Visible = False
End If
LA_GEO.TextColor = Colors.Red LA_GEO.TextColor = Colors.Red
Tels.Visible = False Tels.Visible = False
gest.Visible = False gest.Visible = False
b_ventaabordo.Visible = False
b_venta_credito.Visible = False
Log("aqui")
End If End If
End If End If
End If End If
@@ -721,29 +787,29 @@ Sub Guardar_Click
Dim costo As String = fg.GetString("COSTO") Dim costo As String = fg.GetString("COSTO")
If costo > 0 And costo < 1000 Then If costo > 0 And costo < 1000 Then
Msgbox2Async($"¿Desea continuar?${CRLF}Si acepta, el pedido a crédito se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) ' Msgbox2Async($"¿Desea continuar?${CRLF}Si acepta, el pedido a crédito se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
Wait For Msgbox_Result (resultado As Int) ' Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then ' If resultado = DialogResponse.POSITIVE Then
Subs.borraPedidoCredito ' Subs.borraPedidoCredito
GuardaVenta GuardaVenta
' End If ' End If
End If ' End If
Else If costo >= 1000 Then Else If costo >= 1000 Then
Dim cPagares As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") ' Dim cPagares As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
cPagares.Position = 0 ' cPagares.Position = 0
If cPagares.GetString("REGISTRADO") = 0 Then ' If cPagares.GetString("REGISTRADO") = 0 Then
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), costo, usuario, la_cuenta.Text)) ' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), costo, usuario, la_cuenta.Text))
Log("Aqui inserto: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<") ' Log("Aqui inserto: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
GuardaVenta GuardaVenta
p_credito.Visible = False ' p_credito.Visible = False
Else ' Else
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text)) ' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
Log("Aqui actualizo: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<") ' Log("Aqui actualizo: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
GuardaVenta GuardaVenta
p_credito.Visible = False ' p_credito.Visible = False
End If ' End If
cPagares.Close ' cPagares.Close
GuardaVenta ' GuardaVenta
End If End If
fg.Close fg.Close
End If End If
@@ -752,8 +818,8 @@ Sub Guardar_Click
'----------------------- '-----------------------
' If la_cuenta.Text <> 0 Then ' If la_cuenta.Text <> 0 Then
' Credi = B4XPages.MainPage.skmt.ExecQuery("Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP) UNION Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info2 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP)") ' Credi = B4XPages.MainPage.skmt.ExecQuery("Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info3 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP) UNION Select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info32 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) and CAT_CL_CODIGO NOT IN (SELECT CLIENTE FROM ABONOSP)")
' 'INNER JOIN KMT_INFO2 ON CAT_CL_CODIGO = CL_CUENTA ' 'INNER JOIN kmt_info32 ON CAT_CL_CODIGO = CL_CUENTA
' If Credi.RowCount > 0 Then ' If Credi.RowCount > 0 Then
' Credi.Position = 0 ' Credi.Position = 0
' If Credi.GetString("CAT_CL_BCREDITO") = "1" Then ' If Credi.GetString("CAT_CL_BCREDITO") = "1" Then
@@ -764,7 +830,7 @@ Sub Guardar_Click
' If resultado = DialogResponse.POSITIVE Then ' If resultado = DialogResponse.POSITIVE Then
' p_credito.Visible = True ' p_credito.Visible = True
' Dim limitcred As Cursor ' Dim limitcred As Cursor
' limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") ' limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
' limitcred.Position = 0 ' limitcred.Position = 0
' l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO") ' l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
' If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then ' If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
@@ -786,7 +852,7 @@ Sub Guardar_Click
' GuardaVenta ' GuardaVenta
' End If ' End If
' Else ' Else
' Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM KMT_INFO2 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") ' Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM kmt_info3 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM kmt_info32 INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
' If credi2.RowCount > 0 Then ' If credi2.RowCount > 0 Then
' credi2.Position = 0 ' credi2.Position = 0
' Dim total As String = 0 ' Dim total As String = 0
@@ -804,7 +870,7 @@ Sub Guardar_Click
' If resultado = DialogResponse.POSITIVE Then ' If resultado = DialogResponse.POSITIVE Then
' p_credito.Visible = True ' p_credito.Visible = True
' Dim limitcred As Cursor ' Dim limitcred As Cursor
' limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") ' limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
' limitcred.Position = 0 ' limitcred.Position = 0
' l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO") ' l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
' If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then ' If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
@@ -849,7 +915,7 @@ Private Sub b_acred_Click
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
sDate = DateTime.Date(DateTime.Now) sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now) sTime = DateTime.Time(DateTime.Now)
limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_LIMITECREDITO FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
limitcred.Position = 0 limitcred.Position = 0
l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO") l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
@@ -946,8 +1012,8 @@ Sub GUADAVENTA2
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info2 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info32 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
c.Close c.Close
DateTime.TimeFormat = "HHmmss" DateTime.TimeFormat = "HHmmss"
@@ -1013,7 +1079,7 @@ Sub GUADAVENTA2
B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura)) B4XPages.MainPage.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ENVIO_OK, PC_FACTURA) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, 0, cbFactura))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
c.Close c.Close
DateTime.TimeFormat = "HHmmss" DateTime.TimeFormat = "HHmmss"
@@ -1077,7 +1143,7 @@ Sub sc_result(atype As String,Values As String, image As Bitmap)
'Log("Type : " & atype) 'Log("Type : " & atype)
'Log("Value : " & Values) 'Log("Value : " & Values)
CODIGO = Values CODIGO = Values
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM kmt_info WHERE CAT_CL_NUM_SERIEFISICO = ?", Array As String(CODIGO)) DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM kmt_info3 WHERE CAT_CL_NUM_SERIEFISICO = ?", Array As String(CODIGO))
DD.Position =0 DD.Position =0
If DD.GetString("CUANTOS") > 0 Then If DD.GetString("CUANTOS") > 0 Then
MsgboxAsync("Código ya asignado", "AVISO") MsgboxAsync("Código ya asignado", "AVISO")
@@ -1086,7 +1152,7 @@ Sub sc_result(atype As String,Values As String, image As Bitmap)
Msgbox2Async("El código "& CODIGO & " es correcto?" , "Title", "Yes", "Cancel", "No", Null, False) Msgbox2Async("El código "& CODIGO & " es correcto?" , "Title", "Yes", "Cancel", "No", Null, False)
Wait For Msgbox_Result (resultado As Int) Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then If resultado = DialogResponse.POSITIVE Then
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_NUM_SERIEFISICO = ?, CAT_CL_LONG = ?, CAT_CL_LAT =? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
L_QR.TEXT =CODIGO L_QR.TEXT =CODIGO
L_QR.TextColor = Colors.Blue L_QR.TextColor = Colors.Blue
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_CODIGO_BARRAS(CODIGOKMTS, CODIGOB, LAT, LON) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text,CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_CODIGO_BARRAS(CODIGOKMTS, CODIGOB, LAT, LON) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text,CODIGO, B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
@@ -2026,7 +2092,7 @@ End Sub
' Dim result As Int ' Dim result As Int
' result = Msgbox2("Esta seguro de cambiar las coordenadas de este cliente", "Aviso GPS", "SI", "", "NO", LoadBitmap(File.DirAssets, "alerta.jpg")) 'Ignore ' result = Msgbox2("Esta seguro de cambiar las coordenadas de este cliente", "Aviso GPS", "SI", "", "NO", LoadBitmap(File.DirAssets, "alerta.jpg")) 'Ignore
' If result = DialogResponse.Positive Then ' If result = DialogResponse.Positive Then
' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info SET CAT_CL_LAT = ?, CAT_CL_LONG = ? where CAT_CL_CODIGO In (Select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) ' B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 SET CAT_CL_LAT = ?, CAT_CL_LONG = ? where CAT_CL_CODIGO In (Select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
' B4XPage_Appear ' B4XPage_Appear
' End If ' End If
'End Sub 'End Sub
@@ -2172,7 +2238,7 @@ Sub mandaPendientesrecarga
Dim PCNoArts As String Dim PCNoArts As String
Dim PCMonto As String Dim PCMonto As String
If usuario <> "KMTS1" Then If usuario <> "KMTS1" Then
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
d = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1") d = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1")
c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1") c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 0 AND PC_CLIENTE = 1")
@@ -2856,7 +2922,7 @@ End Sub
Private Sub b_act_coords_Click Private Sub b_act_coords_Click
h = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCOORDENADAS,0) AS CAT_CL_BCOORDENADAS from kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") h = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCOORDENADAS,0) AS CAT_CL_BCOORDENADAS from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
h.Position = 0 h.Position = 0
Log(h.GetInt("CAT_CL_BCOORDENADAS")) Log(h.GetInt("CAT_CL_BCOORDENADAS"))
If h.GetInt("CAT_CL_BCOORDENADAS") <= 2 Then If h.GetInt("CAT_CL_BCOORDENADAS") <= 2 Then
@@ -2866,11 +2932,11 @@ Private Sub b_act_coords_Click
If coord.RowCount = 0 Then If coord.RowCount = 0 Then
skmt.ExecNonQuery2("INSERT INTO COORDENADAS(LAT,LONG,CLIENTE,CANTIDAD) VALUES (?,?,?,?)", Array As String (B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,Subs.traeCliente,(h.GetInt("CAT_CL_BCOORDENADAS")+1))) skmt.ExecNonQuery2("INSERT INTO COORDENADAS(LAT,LONG,CLIENTE,CANTIDAD) VALUES (?,?,?,?)", Array As String (B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,Subs.traeCliente,(h.GetInt("CAT_CL_BCOORDENADAS")+1)))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1))) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1)))
MsgboxAsync("Coordenadas actualizadas.","Atención") MsgboxAsync("Coordenadas actualizadas.","Atención")
Else Else
skmt.ExecNonQuery2("UPDATE COORDENADAS SET LAT = ?, LONG = ?,CANTIDAD = ? where CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String (B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1))) skmt.ExecNonQuery2("UPDATE COORDENADAS SET LAT = ?, LONG = ?,CANTIDAD = ? where CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String (B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1)))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1))) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO In (select cuenta from cuentaa)", Array As Object(B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,(h.GetInt("CAT_CL_BCOORDENADAS")+1)))
MsgboxAsync("Coordenadas actualizadas.","Atención") MsgboxAsync("Coordenadas actualizadas.","Atención")
End If End If

32
B4A/C_Clientes.bas
View File

@@ -75,7 +75,7 @@ Sub B4XPage_Appear
busca.Text = "" busca.Text = ""
entro ="2" entro ="2"
colonia = 0 colonia = 0
c=B4XPages.MainPage.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 <> ${"1"} ORDER BY CAST(CAT_CL_NUM_SERIEFISICO AS INTEGER) ASC"$) c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info3 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAST(CAT_CL_NUM_SERIEFISICO AS INTEGER) ASC"$)
ListView1.Clear ListView1.Clear
lfila.Text = "NOMBRE" lfila.Text = "NOMBRE"
@@ -99,7 +99,7 @@ Sub B4XPage_Appear
cxc.Visible = True cxc.Visible = True
End If End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue) ' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then If d.RowCount > 0 Then
d.Position = 0 d.Position = 0
@@ -205,7 +205,7 @@ Sub ListView1_ItemClick (Position As Int, value As Object)
colonia = value colonia = value
End If End If
If entro = "2" Then If entro = "2" Then
c2=B4XPages.MainPage.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)) c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info3 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 ListView1.Clear
lfila.text = "Calle" lfila.text = "Calle"
If c2.RowCount>0 Then If c2.RowCount>0 Then
@@ -216,7 +216,7 @@ Sub ListView1_ItemClick (Position As Int, value As Object)
End If End If
entro = "3" entro = "3"
Else If entro = "3" Then Else If entro = "3" Then
c2=B4XPages.MainPage.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)) c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info3 where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(value, colonia))
ListView1.Clear ListView1.Clear
lfila.text = "Nombre" lfila.text = "Nombre"
If c2.RowCount>0 Then If c2.RowCount>0 Then
@@ -272,7 +272,7 @@ End Sub
Sub BUSCA_TextChanged (Old As String, New As String) Sub BUSCA_TextChanged (Old As String, New As String)
If CHECK = 0 Then If CHECK = 0 Then
q_buscar = "%" & busca.Text & "%" q_buscar = "%" & busca.Text & "%"
c2=B4XPages.MainPage.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 <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} order by CAT_CL_CODIGO "$, Array As String(q_buscar,q_buscar,q_buscar)) c2=B4XPages.MainPage.skmt.ExecQuery2($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info3 where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} order by CAT_CL_CODIGO "$, Array As String(q_buscar,q_buscar,q_buscar))
ListView1.Clear ListView1.Clear
lfila.text = "Nombre y Calle" lfila.text = "Nombre y Calle"
@@ -287,7 +287,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
cxc.Visible = True cxc.Visible = True
End If End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$) d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue) ' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then If d.RowCount > 0 Then
d.Position = 0 d.Position = 0
@@ -321,7 +321,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
c2.Close c2.Close
Else If CHECK = 1 Then Else If CHECK = 1 Then
q_buscar = "%" & busca.Text & "%" q_buscar = "%" & busca.Text & "%"
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_CODIGO ", Array As String(q_buscar,q_buscar,q_buscar)) c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info32 where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_CODIGO ", Array As String(q_buscar,q_buscar,q_buscar))
ListView1.Clear ListView1.Clear
lfila.text = "Nombre y Calle" lfila.text = "Nombre y Calle"
@@ -335,7 +335,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
Else Else
cxc.Visible = True cxc.Visible = True
End If End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$) d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info32 WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue) ' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then If d.RowCount > 0 Then
d.Position = 0 d.Position = 0
@@ -379,10 +379,10 @@ End Sub
Sub sc_result(atype As String,Values As String) Sub sc_result(atype As String,Values As String)
CODIGO = Values CODIGO = Values
c2=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) c2=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS ENCONTRADO from kmt_info3 where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO))
c2.Position =0 c2.Position =0
If c2.GetString("ENCONTRADO") > 0 Then If c2.GetString("ENCONTRADO") > 0 Then
s=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO)) s=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CODIGO from kmt_info3 where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO))
s.Position =0 s.Position =0
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA") B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO"))) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
@@ -424,7 +424,7 @@ Private Sub p_datosclie_Click
colonia = Sender.As(Panel).tag colonia = Sender.As(Panel).tag
End If End If
If entro = "2" Then If entro = "2" Then
c2=B4XPages.MainPage.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(Sender.As(Panel).tag)) c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info3 where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(Sender.As(Panel).tag))
ListView1.Clear ListView1.Clear
lfila.text = "Calle" lfila.text = "Calle"
If c2.RowCount>0 Then If c2.RowCount>0 Then
@@ -435,7 +435,7 @@ Private Sub p_datosclie_Click
End If End If
entro = "3" entro = "3"
Else If entro = "3" Then Else If entro = "3" Then
c2=B4XPages.MainPage.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(Sender.As(Panel).tag, colonia)) c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info3 where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(Sender.As(Panel).tag, colonia))
ListView1.Clear ListView1.Clear
lfila.text = "Nombre" lfila.text = "Nombre"
If c2.RowCount>0 Then If c2.RowCount>0 Then
@@ -478,7 +478,7 @@ Private Sub b_buscar_Click
busca.Text = "" busca.Text = ""
entro ="2" entro ="2"
colonia = 0 colonia = 0
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAT_CL_CODIGO"$) c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info32 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAT_CL_CODIGO"$)
ListView1.Clear ListView1.Clear
lfila.Text = "NOMBRE" lfila.Text = "NOMBRE"
ListView1.Clear ListView1.Clear
@@ -493,7 +493,7 @@ Private Sub b_buscar_Click
cxc.Visible = True cxc.Visible = True
End If End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info2 WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info32 WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue) ' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then If d.RowCount > 0 Then
d.Position = 0 d.Position = 0
@@ -532,7 +532,7 @@ Private Sub b_buscar_Click
busca.Text = "" busca.Text = ""
entro ="2" entro ="2"
colonia = 0 colonia = 0
c=B4XPages.MainPage.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 <> ${"1"} ORDER BY CAT_CL_CODIGO"$) c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info3 where gestion = 0 AND CAT_CL_CODIGO <> ${"0"} AND CAT_CL_CODIGO <> ${"1"} ORDER BY CAT_CL_CODIGO"$)
ListView1.Clear ListView1.Clear
lfila.Text = "NOMBRE" lfila.Text = "NOMBRE"
ListView1.Clear ListView1.Clear
@@ -547,7 +547,7 @@ Private Sub b_buscar_Click
cxc.Visible = True cxc.Visible = True
End If End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$) d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info3 WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue) ' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then If d.RowCount > 0 Then
d.Position = 0 d.Position = 0

4
B4A/C_NoVenta.bas
View File

@@ -109,10 +109,10 @@ Sub GUARDA_Click
Dim cRevisa As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT distinct NV_CLIENTE FROM NOVENTA WHERE NV_CLIENTE = '${cuenta}'"$) Dim cRevisa As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT distinct NV_CLIENTE FROM NOVENTA WHERE NV_CLIENTE = '${cuenta}'"$)
If cRevisa.RowCount > 0 Then If cRevisa.RowCount > 0 Then
cRevisa.Position = 0 cRevisa.Position = 0
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Else Else
B4XPages.MainPage.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, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) B4XPages.MainPage.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, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
DateTime.TimeFormat = "HHmmss" DateTime.TimeFormat = "HHmmss"
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)

10
B4A/C_Nota.bas
View File

@@ -218,7 +218,7 @@ Sub borra_Click
End If End If
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPage_Appear B4XPage_Appear
End If End If
End Sub End Sub
@@ -307,10 +307,10 @@ End Sub
' If c.GetString("CUANTOS") > 0 Then ' If c.GetString("CUANTOS") > 0 Then
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
' B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) ' B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
' Else ' Else
' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") ' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
' End If ' End If
' B4XPage_Appear ' B4XPage_Appear
' End If ' End If
@@ -410,10 +410,10 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
If c.GetString("CUANTOS") > 0 Then If c.GetString("CUANTOS") > 0 Then
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Else Else
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
B4XPage_Appear B4XPage_Appear
End If End If

21
B4A/C_NuevoCliente.bas
View File

@@ -104,6 +104,7 @@ Sub B4XPage_Appear
ET_Atiende.Text = "" ET_Atiende.Text = ""
et_colonia.Text = "" et_colonia.Text = ""
et_telefono.Text = "" et_telefono.Text = ""
et_cp.Text = ""
If Not(Starter.gps.GPSEnabled) Then If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True) ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent) StartActivity(Starter.gps.LocationSettingsIntent)
@@ -261,11 +262,12 @@ Sub GUARDA_Click
Private mins As String = sTime.SubString2(2,4) Private mins As String = sTime.SubString2(2,4)
Private segs As String = sTime.SubString(4) Private segs As String = sTime.SubString(4)
sTime = hora & ":" & mins & ":" & segs sTime = hora & ":" & mins & ":" & segs
Dim Fechacliente() As String = Regex.Split("/",sDate)
Log("////////////// sTime: "&sTime&" ////////////////") Log("////////////// sTime: "&sTime&" ////////////////")
c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info3")
c.Position = 0 c.Position = 0
no_ruta = c.GetString("CAT_CL_RUTA") no_ruta = c.GetString("CAT_CL_RUTA")
no_cliente = "N" & sTime & no_ruta no_cliente = "N" & Fechacliente(1) & ":" & Fechacliente(0) & ":" & Fechacliente(2) & ":" & sTime & no_ruta
Log("++ ++ no_cliente = "&no_cliente) Log("++ ++ no_cliente = "&no_cliente)
c.Close c.Close
@@ -290,7 +292,7 @@ Sub GUARDA_Click
sDate2 = DateTime.Date(DateTime.Now) sDate2 = DateTime.Date(DateTime.Now)
sTime2 = DateTime.Time(DateTime.Now) sTime2 = DateTime.Time(DateTime.Now)
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO,CAT_CL_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?,?) ", Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem,et_cp.Text)) Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO,CAT_CL_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?,?) ", Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem,et_cp.Text))
Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA,CN_COLONIA, CN_TELEFONO,CN_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(no_cliente, sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text, et_direccion.Text, ALMACEN, no_ruta, cb_giro.SelectedItem, ET_Atiende.Text,et_colonia.Text,et_telefono.Text,et_cp.Text)) Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA,CN_COLONIA, CN_TELEFONO,CN_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(no_cliente, sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text, et_direccion.Text, ALMACEN, no_ruta, cb_giro.SelectedItem, ET_Atiende.Text,et_colonia.Text,et_telefono.Text,et_cp.Text))
' fototomada = "0" ' fototomada = "0"
B4XPages.ShowPage("Cliente") B4XPages.ShowPage("Cliente")
@@ -430,8 +432,6 @@ Private Sub cb_giro_SelectedIndexChanged (Index As Int)
giros = cb_giro.SelectedItem giros = cb_giro.SelectedItem
End Sub End Sub
Private Sub et_cp_TextChanged (Old As String, New As String) Private Sub et_cp_TextChanged (Old As String, New As String)
If New.Length > 5 Then If New.Length > 5 Then
et_cp.Text = Old et_cp.Text = Old
@@ -441,4 +441,15 @@ Private Sub et_cp_TextChanged (Old As String, New As String)
End If End If
End If End If
End Sub
Private Sub et_telefono_TextChanged (Old As String, New As String)
If New.Length > 10 Then
et_telefono.Text = Old
Else If New.Length > 1 And New.Length <= 10 Then
If New.Contains(Chr(10)) Or New.Contains(Chr(13)) Or New.Contains(Chr(34)) Then
et_telefono.Text = Old
End If
End If
End Sub End Sub

20
B4A/C_Pedidos.bas
View File

@@ -256,7 +256,7 @@ Sub guardar_Click
c.Position=0 c.Position=0
clie_id = c.GetString("CUENTA") clie_id = c.GetString("CUENTA")
c.Close c.Close
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -302,7 +302,7 @@ Sub guardar_Click
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -333,7 +333,7 @@ Sub guardar_Click
c.Position=0 c.Position=0
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN"))) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
Else Else
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -343,7 +343,7 @@ Sub guardar_Click
c.Position=0 c.Position=0
clie_id = c.GetString("CUENTA") clie_id = c.GetString("CUENTA")
c.Close c.Close
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -356,7 +356,7 @@ Sub guardar_Click
c.Position=0 c.Position=0
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN"))) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End If End If
@@ -425,7 +425,7 @@ Sub Terminar_Click
c.Position=0 c.Position=0
clie_id = c.GetString("CUENTA") clie_id = c.GetString("CUENTA")
c.Close c.Close
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -473,7 +473,7 @@ Sub Terminar_Click
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -504,7 +504,7 @@ Sub Terminar_Click
c.Position=0 c.Position=0
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN"))) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.ShowPage("Cliente") B4XPages.ShowPage("Cliente")
Else Else
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
@@ -514,7 +514,7 @@ Sub Terminar_Click
c.Position=0 c.Position=0
clie_id = c.GetString("CUENTA") clie_id = c.GetString("CUENTA")
c.Close c.Close
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
@@ -528,7 +528,7 @@ Sub Terminar_Click
c.Position=0 c.Position=0
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN"))) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps,ALMACEN,cl_ruta,c.GetString("TOTAL_CLIE_SIN")))
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (ALMACEN,L_PROID.Text,cantidad.text))
B4XPages.ShowPage("Cliente") B4XPages.ShowPage("Cliente")
End If End If

177
B4A/C_Principal.bas
View File

@@ -276,18 +276,18 @@ Private Sub B4XPage_Created (Root1 As B4XView)
b.Position=0 b.Position=0
Cuantos = b.GetString("CUANTOS") Cuantos = b.GetString("CUANTOS")
b.Close b.Close
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info3 where gestion = 0")
d.Position=0 d.Position=0
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info") e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info3")
e.Position=0 e.Position=0
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA") l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close f.Close
If l_ruta.Text = 0 Then If l_ruta.Text = 0 Then
l_ruta.Text =0 l_ruta.Text =0
Else Else
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA") l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close f.Close
@@ -333,7 +333,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_rutasuplencia.Visible = True l_rutasuplencia.Visible = True
l_rutasuplencia.Text = s.GetString("RS_RUTA") l_rutasuplencia.Text = s.GetString("RS_RUTA")
End If End If
Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$) Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info32 (${getTableColumnList(Starter.skmt, "kmt_info3")})"$)
End Sub End Sub
Sub chkIfTableExists(db As SQL, table As String) As Boolean 'ignore Sub chkIfTableExists(db As SQL, table As String) As Boolean 'ignore
@@ -442,11 +442,11 @@ Sub B4XPage_Appear
Cuantos = b.GetString("CUANTOS") Cuantos = b.GetString("CUANTOS")
b.Close b.Close
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(Cuantos , True) ' If Starter.marcaCel <> "Sony" Then ToastMessageShow(Cuantos , True)
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0") d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info3 where gestion = 0")
d.Position=0 d.Position=0
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info WHERE CAT_CL_CODIGO <>0 OR CAT_CL_CODIGO <>1 ") e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info3 WHERE CAT_CL_CODIGO <>0 OR CAT_CL_CODIGO <>1 ")
e.Position=0 e.Position=0
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO <>0 OR CAT_CL_CODIGO <>1 ") f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info3 WHERE CAT_CL_CODIGO <>0 OR CAT_CL_CODIGO <>1 ")
f.Position=0 f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA") l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close f.Close
@@ -457,7 +457,7 @@ Sub B4XPage_Appear
Else Else
p_b_tabulador.Visible = False p_b_tabulador.Visible = False
pnlBtnCobranza.Visible = False pnlBtnCobranza.Visible = False
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info3")
f.Position=0 f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA") l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close f.Close
@@ -632,24 +632,24 @@ Sub B4XPage_Appear
' d.Close ' d.Close
'----------------------------- '-----------------------------
Dim fg As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(SUM(CASE WHEN PE_FOLIO = 'PREVENTA_CREDITO' THEN PE_COSTO_TOT ELSE 0 END), 0) AS COSTO_CRED, IFNULL(SUM(CASE WHEN PE_FOLIO = 'PREVENTA_CONTADO' THEN PE_COSTO_TOT ELSE 0 END), 0) AS COSTO_CONTADO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO IN ('PREVENTA_CREDITO', 'PREVENTA_CONTADO')") ' Dim fg As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(SUM(CASE WHEN PE_FOLIO = 'PREVENTA_CREDITO' THEN PE_COSTO_TOT ELSE 0 END), 0) AS COSTO_CRED, IFNULL(SUM(CASE WHEN PE_FOLIO = 'PREVENTA_CONTADO' THEN PE_COSTO_TOT ELSE 0 END), 0) AS COSTO_CONTADO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO IN ('PREVENTA_CREDITO', 'PREVENTA_CONTADO')")
'
fg.Position = 0 ' fg.Position = 0
Dim COSTO_CRED As Double = fg.GetDouble("COSTO_CRED") ' Dim COSTO_CRED As Double = fg.GetDouble("COSTO_CRED")
Dim COSTO_CONTADO As Double = fg.GetDouble("COSTO_CONTADO") ' Dim COSTO_CONTADO As Double = fg.GetDouble("COSTO_CONTADO")
'
Log("Costo Crédito: " & COSTO_CRED & "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<") ' Log("Costo Crédito: " & COSTO_CRED & "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
Log("Costo Contado: " & COSTO_CONTADO & "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<") ' Log("Costo Contado: " & COSTO_CONTADO & "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
'
If COSTO_CRED > 0 And COSTO_CRED < 1000 Then ' If COSTO_CRED > 0 And COSTO_CRED < 1000 Then
Msgbox2Async($"Se ha detectado venta a crédito menor a $1000 pesos. ¿Desea borrarla?"$, "Venta Mínima de Crédito", "Sí", "", "", LoadBitmap(File.DirAssets, "alert2.png"), False) ' Msgbox2Async($"Se ha detectado venta a crédito menor a $1000 pesos. ¿Desea borrarla?"$, "Venta Mínima de Crédito", "Sí", "", "", LoadBitmap(File.DirAssets, "alert2.png"), False)
Wait For Msgbox_Result (resultado As Int) ' Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then ' If resultado = DialogResponse.POSITIVE Then
Subs.borraPedidoCredito ' Subs.borraPedidoCredito
End If ' End If
End If ' End If
'
fg.Close ' fg.Close
CallSubDelayed(Tracker, "Track") CallSubDelayed(Tracker, "Track")
CallSubDelayed(Tracker, "StartFLPSmall") CallSubDelayed(Tracker, "StartFLPSmall")
@@ -770,35 +770,35 @@ Sub Subir_Click
c.Close c.Close
' ENVIO DE LOS CODIGOS QR ' ENVIO DE LOS CODIGOS QR
'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) ' 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info3 where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) ' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
If c.RowCount>0 Then ' If c.RowCount>0 Then
For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
c.Position=i ' c.Position=i
Dim cmd As DBCommand ' Dim cmd As DBCommand
cmd.Initialize ' cmd.Initialize
cmd.Name = "insert_QR_2_IZCA" ' cmd.Name = "insert_QR_2_IZCA"
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text ) ' cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text )
reqManager.ExecuteCommand(cmd , "ins_QR") ' reqManager.ExecuteCommand(cmd , "ins_QR")
Next ' Next
End If ' End If
c.Close ' c.Close
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO IS NOT NULL") ' c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO, CAT_CL_CODIGO, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info3 where CAT_CL_NUM_SERIEFISICO IS NOT NULL")
If c.RowCount>0 Then ' If c.RowCount>0 Then
For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
c.Position=i ' c.Position=i
's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) ' 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
's.Position =0 ' 's.Position =0
foto1 = c.GetBlob("CAT_CL_FOTO") ' foto1 = c.GetBlob("CAT_CL_FOTO")
Dim cmd As DBCommand ' Dim cmd As DBCommand
cmd.Initialize ' cmd.Initialize
cmd.Name = "insert_QR_IZCA" ' cmd.Name = "insert_QR_IZCA"
cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text ) ' cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text )
reqManager.ExecuteCommand(cmd , "ins_QR") ' reqManager.ExecuteCommand(cmd , "ins_QR")
Next ' Next
End If ' End If
c.Close ' c.Close
' 'Envio de Pagares ' 'Envio de Pagares
' c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PAGARES") ' c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PAGARES")
@@ -909,16 +909,18 @@ Sub Subir_Click
c.Position = i c.Position = i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_pedido4_IZCA" 'CON TOTALES INCLUIDOS cmd.Name = "insert_pedido5_IZCA" 'CON TOTALES INCLUIDOS
' Log(c.GetString("PE_CEDIS")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN) ' Log(c.GetString("PE_CEDIS")&", "&ALMACEN&", "&c.GetString("PE_COSTO_TOT")&", "&c.GetString("PE_COSTOU")&", "&c.GetString("PE_CANT")&", "&c.GetString("PE_PRONOMBRE")&", "&c.GetString("PE_PROID")&", "&c.GetString("PE_CLIENTE")&", "&c.GetString("PE_FECHA")&", "&c.GetString("PE_USUARIO")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Then If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA") cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA",0)
Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA") cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA",1)
Else If c.GetString("PE_FOLIO") = "ABORDO" Then Else If c.GetString("PE_FOLIO") = "ABORDO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO") cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO",0)
Else If c.GetString("PE_FOLIO") = "RECARGA" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"RECARAGA",0)
Else Else
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"VENTA") cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),ALMACEN,c.GetString("PE_COSTO_TOT"),c.GetString("PE_COSTOU"),c.GetString("PE_CANT"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CLIENTE"),c.GetString("PE_FECHA"),c.GetString("PE_USUARIO"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"VENTA",0)
End If End If
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$) reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
Next Next
@@ -961,7 +963,7 @@ Sub Subir_Click
c.Close c.Close
' Cambio ubicaciones ' Cambio ubicaciones
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_LAT, CAT_CL_LONG, CAT_CL_CODIGO, CAT_CL_BCOORDENADAS from kmt_info where CAT_CL_BCOORDENADAS <> 0") c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_LAT, CAT_CL_LONG, CAT_CL_CODIGO, CAT_CL_BCOORDENADAS from kmt_info3 where CAT_CL_BCOORDENADAS <> 0")
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
@@ -1137,7 +1139,7 @@ Sub cargar_Click
PB2.Progress = 0 PB2.Progress = 0
EJECUTANDO = 1 EJECUTANDO = 1
'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)") 'c=skmt.ExecQuery("CREATE TABLE kmt_info3 (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)")
TOPE = 0 TOPE = 0
' NUEVOS CLIENTE ' NUEVOS CLIENTE
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA")
@@ -1145,8 +1147,8 @@ Sub cargar_Click
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM GEOCERCA") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM GEOCERCA")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM COORDS_ALMACEN") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM COORDS_ALMACEN")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO") B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info32")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
@@ -1399,7 +1401,7 @@ Sub JobDone(Job As HttpJob)
End If End If
If Job.Success = False Then If Job.Success = False Then
Log("ERROR") Log("ERROR")
LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red) LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
Log("ex") Log("ex")
Log(2) Log(2)
' Job.Release ' Job.Release
@@ -1506,11 +1508,11 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
Dim CAT_CL_BCOORDENADAS As String = records(RESULT.Columns.Get("CAT_CL_BCOORDENADAS")) Dim CAT_CL_BCOORDENADAS As String = records(RESULT.Columns.Get("CAT_CL_BCOORDENADAS"))
B4XPages.MainPage.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, CAT_CL_LIMITECREDITO, gestion,CAT_CL_BCOORDENADAS) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0,?)", Array As Object (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, CAT_CL_LIMITECREDITO,CAT_CL_BCOORDENADAS)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(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, CAT_CL_LIMITECREDITO, gestion,CAT_CL_BCOORDENADAS) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0,?)", Array As Object (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, CAT_CL_LIMITECREDITO,CAT_CL_BCOORDENADAS))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
Next Next
' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("1",e_ruta.TEXT, "VENTA RECARGA","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL")) ' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("1",e_ruta.TEXT, "VENTA RECARGA","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
Listo1 = 1 Listo1 = 1
S_CC.Text = "LISTO" S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True) If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
@@ -1593,7 +1595,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO")) Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO")) Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA")) Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?,?,?)", Array As Object (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_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info32(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?,?,?)", Array As Object (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_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
Next Next
Listo1 = 1 Listo1 = 1
@@ -1717,7 +1719,8 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Dim CAT_AL_LATITUD As String = records(RESULT.Columns.Get("CAT_AL_LATITUD")) Dim CAT_AL_LATITUD As String = records(RESULT.Columns.Get("CAT_AL_LATITUD"))
Dim CAT_AL_LONGITUD As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD")) Dim CAT_AL_LONGITUD As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO COORDS_ALMACEN(LAT,LONG) VALUES (?,?)", Array As Object (CAT_AL_LATITUD,CAT_AL_LONGITUD)) Dim CAT_AL_BVENTA_ALMACEN As String = records(RESULT.Columns.Get("CAT_AL_BVENTA_ALMACEN"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO COORDS_ALMACEN(LAT,LONG,BANDERA) VALUES (?,?,?)", Array As Object (CAT_AL_LATITUD,CAT_AL_LONGITUD,CAT_AL_BVENTA_ALMACEN))
Next Next
End If End If
End If End If
@@ -2403,7 +2406,7 @@ Sub connecta_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_ruta_IZCA5" cmd.Name = "select_ruta_IZCA6"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text,usuario) cmd.Parameters = Array As Object(ALMACEN, e_ruta.text,usuario)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$) ' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta") reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2464,7 +2467,9 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa") B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act") B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2") ' B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info32")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod3") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod3")
@@ -2487,13 +2492,6 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS") Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_MONEDAS")
Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES") Starter.skmt.ExecNonQuery("DELETE FROM TABULADOR_BILLETES")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
cmd.Initialize
cmd.Name ="insert_drop_IZCA"
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","FIN DIA",ALMACEN,Application.VersionName)
'usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN,Application.VersionName
reqManager.ExecuteCommand(cmd , "inst_noventa")
B4XPage_Appear B4XPage_Appear
l_rutasuplencia.Visible = False l_rutasuplencia.Visible = False
Label22.Visible = False Label22.Visible = False
@@ -2625,7 +2623,7 @@ Sub B_OK_PAS_Click
If cn.RowCount > 0 Then If cn.RowCount > 0 Then
For gh = 0 To cn.RowCount -1 For gh = 0 To cn.RowCount -1
cn.Position = gh cn.Position = gh
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (cn.GetString("CN_ID"),cn.GetString("CN_RUTA"), cn.GetString("CN_NOMBRE"),"null","null","null","null","null","null","null","null","null","null","null","null","null",cn.GetString("CN_LON"),cn.GetString("CN_LAT"), cn.GetString("CN_GIRO"))) Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (cn.GetString("CN_ID"),cn.GetString("CN_RUTA"), cn.GetString("CN_NOMBRE"),"null","null","null","null","null","null","null","null","null","null","null","null","null",cn.GetString("CN_LON"),cn.GetString("CN_LAT"), cn.GetString("CN_GIRO")))
Next Next
End If End If
@@ -2666,7 +2664,7 @@ Sub B_OK_PAS_Click
Resumen.Visible= True Resumen.Visible= True
img2.Visible=False img2.Visible=False
Subs.panelVisible(p_principal, 0, 0) Subs.panelVisible(p_principal, 0, 0)
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info") B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result") B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest") B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod") B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
@@ -3146,24 +3144,25 @@ Private Sub iv_abordo_Click
Starter.skmt.ExecNonQuery("delete from CUENTAA") Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0")) Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
B4XPages.MainPage.tipo_venta = "ABORDO" B4XPages.MainPage.tipo_venta = "ABORDO"
Log("aqui")
B4XPages.ShowPage("Productos") B4XPages.ShowPage("Productos")
End Sub End Sub
Sub checaPedido Sub checaPedido
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)") Starter.skmt.ExecNonQuery("Update kmt_info3 set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If End If
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA") Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then If c.RowCount > 0 Then
Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") Starter.skmt.ExecNonQuery("Update kmt_info3 set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If End If
Private coord As Cursor = Starter.skmt.ExecQuery("SELECT * FROM COORDENADAS") Private coord As Cursor = Starter.skmt.ExecQuery("SELECT * FROM COORDENADAS")
If coord.RowCount > 0 Then If coord.RowCount > 0 Then
For cor = 0 To coord.RowCount -1 For cor = 0 To coord.RowCount -1
coord.Position = cor coord.Position = cor
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO = ?", Array As Object(coord.GetString("LAT"), coord.GetString("LONG"),(coord.GetInt("CANTIDAD")+1),coord.GetString("CLIENTE"))) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_LONG = ?, CAT_CL_LAT =?, CAT_CL_BCOORDENADAS = ? where CAT_CL_CODIGO = ?", Array As Object(coord.GetString("LAT"), coord.GetString("LONG"),(coord.GetInt("CANTIDAD")+1),coord.GetString("CLIENTE")))
Next Next
End If End If
End Sub End Sub
@@ -3182,7 +3181,7 @@ Private Sub btnCobranza_Click
pnlCobranza.BringToFront pnlCobranza.BringToFront
pnlCobranza.Visible = True pnlCobranza.Visible = True
pnlTotal.Visible = True pnlTotal.Visible = True
Dim ct As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT IFNULL(sum(IFNULL(a.a_abono,0)),0) as suma_abono FROM kmt_info2 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$) Dim ct As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT IFNULL(sum(IFNULL(a.a_abono,0)),0) as suma_abono FROM kmt_info32 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$)
ct.Position = 0 ct.Position = 0
If ct.RowCount > 0 Then If ct.RowCount > 0 Then
lblTotal.Text = "El total abonado es: $" & ct.getString("suma_abono") lblTotal.Text = "El total abonado es: $" & ct.getString("suma_abono")
@@ -3202,7 +3201,7 @@ Private Sub CargarDatosCobranza
End If End If
End If End If
Next Next
c = B4XPages.MainPage.skmt.ExecQuery($"SELECT ROW_NUMBER() OVER (ORDER BY ki.CAT_CL_NOMBRE) AS Secuencia, ki.CAT_CL_CODIGO, ki.CAT_CL_NOMBRE, ap.SALDO_PENDIENTE, IFNULL(a.a_abono,0) as a_abono FROM kmt_info2 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$) c = B4XPages.MainPage.skmt.ExecQuery($"SELECT ROW_NUMBER() OVER (ORDER BY ki.CAT_CL_NOMBRE) AS Secuencia, ki.CAT_CL_CODIGO, ki.CAT_CL_NOMBRE, ap.SALDO_PENDIENTE, IFNULL(a.a_abono,0) as a_abono FROM kmt_info32 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$)
Log("Número de registros: " & c.RowCount) Log("Número de registros: " & c.RowCount)
clvCobranza.Clear clvCobranza.Clear
@@ -3258,7 +3257,7 @@ End Sub
'Private Sub clvCobranza_ItemClick (Index As Int, Value As Object) 'Private Sub clvCobranza_ItemClick (Index As Int, Value As Object)
' Dim CodigoCliente As Cursor = Value ' Dim CodigoCliente As Cursor = Value
' CodigoCliente = B4XPages.MainPage.skmt.ExecQuery($"SELECT ROW_NUMBER() OVER (ORDER BY ki.CAT_CL_NOMBRE) AS Secuencia, ki.CAT_CL_NOMBRE, ap.SALDO_PENDIENTE, IFNULL(a.a_abono,0) as a_abono FROM kmt_info2 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$) ' CodigoCliente = B4XPages.MainPage.skmt.ExecQuery($"SELECT ROW_NUMBER() OVER (ORDER BY ki.CAT_CL_NOMBRE) AS Secuencia, ki.CAT_CL_NOMBRE, ap.SALDO_PENDIENTE, IFNULL(a.a_abono,0) as a_abono FROM kmt_info32 ki LEFT JOIN ABONOSP ap ON ki.CAT_CL_CODIGO = ap.CLIENTE LEFT JOIN ABONOS a ON ki.CAT_CL_CODIGO = a.a_cliente WHERE CAST(ap.SALDO_PENDIENTE AS REAL) > 0"$)
' B4XPages.ShowPage("cliente") ' B4XPages.ShowPage("cliente")
'End Sub 'End Sub
@@ -3284,7 +3283,7 @@ Private Sub b_productos_Click
p_prod.BringToFront p_prod.BringToFront
Private c As Cursor = Starter.skmt.ExecQuery("select CAT_GP_NOMBRE AS HVD_PRONOMBRE, IFNULL(CAT_GP_PRECIO, 0) AS HVD_RECHAZOCANT from CAT_GUNAPROD WHERE CAT_GP_TIPO <> 'PROMOS' AND CAT_GP_SUBTIPO <> 'PROMOS' order by CAT_GP_NOMBRE asc") Private c As Cursor = Starter.skmt.ExecQuery("select CAT_GP_NOMBRE AS HVD_PRONOMBRE, IFNULL(CAT_GP_PRECIO, 0) AS HVD_RECHAZOCANT from CAT_GUNAPROD order by CAT_GP_NOMBRE asc")
lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.Black lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.Black
lv_prod_Prin.Clear lv_prod_Prin.Clear
@@ -3295,7 +3294,7 @@ Private Sub b_productos_Click
itemText = $"${c.GetString("HVD_PRONOMBRE")} ${CRLF} ${CRLF}Precio: ${(c.GetDouble("HVD_RECHAZOCANT"))}"$ itemText = $"${c.GetString("HVD_PRONOMBRE")} ${CRLF}Precio: ${(c.GetDouble("HVD_RECHAZOCANT"))}"$
lv_prod_Prin.AddSingleLine(itemText) lv_prod_Prin.AddSingleLine(itemText)

68
B4A/C_Productos.bas
View File

@@ -1071,23 +1071,23 @@ Sub b_terminar1_Click
Subs.centraPanel(p_vistaPrevia, Root.Width) Subs.centraPanel(p_vistaPrevia, Root.Width)
' If Subs.pedidoGuardado Then b_rechazar.Enabled = False Else b_rechazar.Enabled = True ' If Subs.pedidoGuardado Then b_rechazar.Enabled = False Else b_rechazar.Enabled = True
Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") ' Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO, PE_FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
fg.Position = 0 ' fg.Position = 0
Dim costo As String = fg.GetString("COSTO") ' Dim costo As String = fg.GetString("COSTO")
If costo > 0 And costo < 1000 And fg.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then ' If costo > 0 And costo < 1000 And fg.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
result = Msgbox2($"¿Desea continuar?${CRLF}Si acepta, el pedido se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) ' result = Msgbox2($"¿Desea continuar?${CRLF}Si acepta, el pedido se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
If result = DialogResponse.POSITIVE Then ' If result = DialogResponse.POSITIVE Then
Subs.borraPedidoCredito ' Subs.borraPedidoCredito
' B4XPages.MainPage.promos.promosMap.Initialize '' B4XPages.MainPage.promos.promosMap.Initialize
B4XPages.ShowPage("Cliente") B4XPages.ShowPage("Cliente")
Else ' Else
lv_catalogos.Visible = True ' lv_catalogos.Visible = True
End If ' End If
Else ' Else
p_vistaPrevia.Visible=True ' p_vistaPrevia.Visible=True
p_vistaPreviaTrans.Visible=True ' p_vistaPreviaTrans.Visible=True
End If ' End If
fg.Close ' fg.Close
End Sub End Sub
Private Sub b_continuar_Click Private Sub b_continuar_Click
@@ -1112,21 +1112,21 @@ Private Sub b_continuar_Click
prodsPedidoActual = m.Get("productos") prodsPedidoActual = m.Get("productos")
montoPedidoActual = m.Get("monto") montoPedidoActual = m.Get("monto")
Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'") ' Dim fg As Cursor = Starter.skmt.ExecQuery("Select IFNULL(sum(PE_COSTO_TOT),0) AS COSTO FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND PE_FOLIO = 'PREVENTA_CREDITO'")
fg.Position = 0 ' fg.Position = 0
Dim costo As String = fg.GetString("COSTO") ' Dim costo As String = fg.GetString("COSTO")
'
If costo > 0 And costo < 1000 Then ' If costo > 0 And costo < 1000 Then
result = Msgbox2($"¿Desea continuar?${CRLF}Si acepta, el pedido se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) ' result = Msgbox2($"¿Desea continuar?${CRLF}Si acepta, el pedido se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
If result = DialogResponse.POSITIVE Then ' If result = DialogResponse.POSITIVE Then
Subs.borraPedidoCredito ' Subs.borraPedidoCredito
B4XPages.MainPage.promos.promosMap.Initialize ' B4XPages.MainPage.promos.promosMap.Initialize
B4XPages.ShowPage("Cliente") B4XPages.ShowPage("Cliente")
Else ' Else
lv_catalogos.Visible = True ' lv_catalogos.Visible = True
End If ' End If
End If ' End If
fg.Close ' fg.Close
End Sub End Sub
Private Sub l_prodX_LongClick Private Sub l_prodX_LongClick
@@ -1316,7 +1316,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps)) B4XPages.MainPage.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"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
Log($"select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )"$) Log($"select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )"$)
h.Position=0 h.Position=0
@@ -1326,7 +1326,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
Else Else
Log("aqui6") Log("aqui6")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)") B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )") Private h As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(PE_CANT) as PC_NOART, sum (PE_COSTO_TOT) as PC_MONTO from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
h.Position=0 h.Position=0
l_cant.Text = 0 l_cant.Text = 0

612
B4A/C_Promos.bas
View File

@@ -4,6 +4,608 @@ ModulesStructureVersion=1
Type=Class Type=Class
Version=11.5 Version=11.5
@EndOfDesignText@ @EndOfDesignText@
'Sub Class_Globals
' Private Root As B4XView 'ignore
' Private xui As XUI
' Private l_promoDesc As Label
' Private lv_prodsFijos As ListView
' Private clv_prodsVariabes, clv_prodsVariabes2 As CustomListView
' Private l_prodsFijos As Label
' Private l_prodsVariables, l_prodsVariables2 As Label
' Private i_prod As ImageView
' Private l_prodX As Label
' Private p_prods As Panel
' Private b_prodMenos, b_prodMenos2 As Button
' Private et_pCant As EditText
' Private b_prodMas, b_prodMas2 As Button
' Private l_pCant As Label
' Dim totalProds As Int = 0
' Dim prodsVar1 As Int = 0
' Dim prodsVar2 As Int = 0
' Dim prodsVarReq As Int = 0
' Dim prodsVarReq_ As Int = 0
' Dim prodsVarReq2 As Int = 0
' Dim prodsVarReq2_ As Int = 0
' Dim totalCompra As Float = 0
' Dim prodsFijosTot As Float = 0
' Dim tpf As Int = 0
' Dim tpf2 As Int = 0
' Dim maxCantPromos As Int = 1
' Private l_totProds As Label
' Private l_total As Label
' Private b_terminar1 As Button
' Private p_promociones As Panel
' Dim prodsIds, prodsCants, prodsPrecios, prodsIds2, prodsCants2, prodsPrecios2 As List
' Dim estaPromo, esteCliente As String
' Private b_promoMas As Button
' Private b_promoMenos As Button
' Private et_promoCant As EditText
' Private l_promosCant As Label
' Private b_continuar As Button
' Private p_prodsVariables, p_prodsVariables2 As Panel
' Dim laPromo = "", elCliente = "" As String
' Dim prodsPedidoActual As String
' Dim montoPedidoActual As String
' Dim promosMap As Map
' Dim su As StringUtils
'End Sub
'
''You can add more parameters here.
'Public Sub Initialize As Object
' Return Me
'End Sub
'
''This event will be called once, before the page becomes visible.
'Private Sub B4XPage_Created (Root1 As B4XView)
' Root = Root1
' 'load the layout to Root
' Root.LoadLayout("promociones")
'
' p_promociones.Height= Root.Height
' p_promociones.Width= Root.Width
'
' promosMap.Initialize
' p_promociones.Top=0
' p_promociones.Left=0
' b_terminar1.Left = Root.Width - (b_terminar1.Width + 10)
' b_continuar.Left = Root.Width - b_terminar1.Width - (b_continuar.Width + 20)
'End Sub
'
'Sub B4XPage_Appear
'' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.blue)
' prodsIds.Initialize
' prodsCants.Initialize
' prodsPrecios.Initialize
' prodsIds2.Initialize
' prodsCants2.Initialize
' prodsPrecios2.Initialize
' Dim m As Map = Subs.traeTotalesClienteActual
' prodsPedidoActual = m.Get("productos")
' montoPedidoActual = m.Get("monto")
'' Log($"laPromo=${laPromo}, el cliente=${elCliente}"$)
' If laPromo <> "" Then muestraPromo(laPromo, elCliente)
'End Sub
''You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
'
'Sub muestraPromo(promo As String, cliente As String)
' Private thisLog As Boolean = False
'' If thisLog Then Log(promo)
' estaPromo = promo
' esteCliente = cliente
' Private mp As Map = Subs.traePromo(promo, cliente)
' Private prodsPromo As Map = mp.Get("productos") 'Los productos de la promoción.
' Private invDispPromo As Map = Subs.traemosInventarioDisponibleParaPromo(promo)
'' If thisLog Then Log($"invDispPromo=${invDispPromo}"$)
' If thisLog Then Log("Max promos por inv de prods FIJOS: " & Subs.revisaMaxPromosProdsFijosPorInventario(mp))
' If thisLog Then Log("Max promos por inv de prods VARIABLES: " & Subs.revisaMaxPromosProdsVariablesPorInventario(mp))
' maxCantPromos = Subs.revisaMaxPromosProdsVariablesPorInventario(mp)
' et_promoCant.Text = 1
' l_promosCant.text = "Max promos: " & maxCantPromos
' Private cs As CSBuilder
' cs.Initialize
' If thisLog Then Log(mp)
' If thisLog Then Log(prodsPromo)
' Private listaPV As List = mp.Get("prodsVariables")
' Private listaPreciosPV As List = mp.Get("prodsVariablesPrecios")
' Private listaPV2 As List = mp.Get("prodsVariables2")
' Private listaPreciosPV2 As List = mp.Get("prodsVariablesPrecios2")
'' Log("============ " & CRLF & listaPV)
' 'Ponemos la promo y descripción.
'' Dim desc As String = $"Promoción: ${promo}${CRLF}${mp.Get("descripcion")}"$
'' Dim desc As String = cs.append("Promocion: ").Color(Colors.RGB(100,149,237)).Append(promo).pop.append(CRLF).Append(mp.Get("descripcion")).Popall
' l_promoDesc.Text = cs.Color(Colors.RGB(100,149,237)).append("Promocion: ").pop.append(CRLF).Append(promo).append(CRLF).Append(mp.Get("descripcion")).Popall
' prodsFijosTot = 0
' 'Ponemos el texto en las etiquetas de la cantidad de productos.
'' Dim pf As List = mp.Get("prodsFijos")
' Dim pv As List = mp.Get("prodsVariables")
' Dim pv2 As List = mp.Get("prodsVariables2")
' If thisLog Then Log(mp)
' tpf = 0
' For Each pfp As Int In mp.Get("prodsFijosPiezas").As(List)
' tpf = tpf + pfp
' Next
' tpf2 = tpf
'' tpf = tpf * maxCantPromos
' l_prodsFijos.Text = $"Productos fijos (${tpf})"$
' prodsVarReq = mp.Get("prodsVariablesRequeridos")
' prodsVarReq_ = prodsVarReq
' prodsVarReq2 = mp.Get("prodsVariables2Requeridos")
' prodsVarReq2_ = prodsVarReq2
'' Log("========= " & prodsVarReq2)
' l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq}"$
' l_prodsVariables2.Text = $"Productos variables2 requeridos: ${prodsVarReq2}"$
' If prodsVarReq = 0 Then
' p_prodsVariables.Visible = False
' Else
' p_prodsVariables.Visible = True
' End If
' 'Llenamos el listview con los productos fijos.
' Dim label1 As Label
' label1 = lv_prodsFijos.SingleLineLayout.Label
' label1.TextSize = 13
' label1.TextColor = Colors.black
' lv_prodsFijos.SingleLineLayout.ItemHeight = 30dip
' lv_prodsFijos.Clear
'' If pf.Size < 1 Then pf.Add("Sin productos fijos.")
' lv_prodsFijos.Clear
' agregaFijosALista(mp, True)
' If thisLog Then Log("Total prods fijos = " & prodsFijosTot)
'' If thisLog Then Log("======="&prodsMap)
' l_totProds.text = $"Productos: ${tpf}"$
' l_total.Text = $"Total: $$1.2{prodsFijosTot}"$
'' Dim ins As InputStream
'' Dim bmp As Bitmap
'' Dim jpeg() As Byte
'
' 'Llenamos el listview con los productos variables.
' If thisLog Then Log($"PV1: ${pv.Size}, ${pv}"$)
' If thisLog Then Log($"PV2: ${pv2.Size}, ${pv2}"$)
' If thisLog Then Log("invDisp=" & invDispPromo)
' clv_prodsVariabes.Clear
' clv_prodsVariabes2.Clear
' For Each p As String In pv
' If invDispPromo.ContainsKey(p) Then 'Si no esta en la lista de productos con inventario no lo mostramos.
' Private indicePV = listaPV.IndexOf(p)
'' Log(p & "|" & indicePV & "|" & listaPreciosPV.Get(indicePV))
' Private estePrecio = listaPreciosPV.Get(indicePV)
'' c2.Position=i
'' jpeg = c2.GetBlob("CAT_GP_IMG")
'' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
'' bmp.Initialize2(ins)
' Private thisProd As Map = prodsPromo.Get(p)
' If thisLog Then Log(thisProd)
' clv_prodsVariabes.Add(CreateListItem(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & estePrecio, estePrecio, invDispPromo.Get(p), clv_prodsVariabes.AsView.Width, 50dip, Null, p), p)
' End If
' Next
' For Each p As String In pv2
' If invDispPromo.ContainsKey(p) Then 'Si no esta en la lista de productos con inventario no lo mostramos.
'' Log(p)
'' Log($"${invDispPromo}$"$)
'' Log($"${listaPV2}"$)
'' Log("listaPrecios:"&listaPreciosPV2)
' Private indicePV2 = listaPV2.IndexOf(p)
'' Log($"${indicePV2}"$)
'' Log(p & "|" & indicePV & "|" & listaPreciosPV2.Get(indicePV2))
' Private estePrecio = listaPreciosPV2.Get(indicePV2)
'' c2.Position=i
'' jpeg = c2.GetBlob("CAT_GP_IMG")
'' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
'' bmp.Initialize2(ins)
' Private thisProd As Map = prodsPromo.Get(p)
' If thisLog Then Log(thisProd)
' clv_prodsVariabes2.Add(CreateListItem2(Subs.traeProdNombre(p)&CRLF&"Hay " & invDispPromo.Get(p) & " $" & estePrecio, estePrecio, invDispPromo.Get(p), clv_prodsVariabes2.AsView.Width, 50dip, Null, p), p)
' End If
' Next
' If pv2.Size = 0 Then
'' Log("PV2 = 0")
' l_prodsVariables2.Visible = False
' p_prodsVariables2.Visible = False
'
' p_prodsVariables.Height = 410dip
' clv_prodsVariabes.GetBase.Height = p_prodsVariables.Height - 20
'' p_prodsVariables.Height = 380dip
'' clv_prodsVariabes.GetBase.Height = 380dip 'Cambiamos el tamaño y posición de la lista de productos
''' clv_prodsVariabes.GetBase.Width =
' clv_prodsVariabes.Base_Resize(clv_prodsVariabes.GetBase.Width, p_prodsVariables.Height - 20) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
' Else
' l_prodsVariables2.Visible = True
' p_prodsVariables2.Visible = True
' p_prodsVariables.Height = 210dip
' clv_prodsVariabes.GetBase.Height = p_prodsVariables.Height - 20
' End If
' b_terminar1.Visible = False
' b_continuar.Visible = False
' cuentaProds
'End Sub
'
''Agregamos los productos fijos a una lista para despues meterlos en el pedido.
'Sub agregaFijosALista(mp As Map, addListItem As Boolean)
' Private thisLog As Boolean = False
' Private cont As Int = 0
' prodsFijosTot = 0
' Dim pf As List = mp.Get("prodsFijos")
' If pf.Size < 1 Then pf.Add("Sin productos fijos.")
'' Private m As Map
'' prodsMap.Put(estaPromo, CreateMap("cant":1, "precio":0))
'' prodsIds.Add(estaPromo)
' prodsIds.clear
' prodsCants.clear
' prodsPrecios.clear
' prodsIds.Add(estaPromo)
' prodsCants.Add(et_promoCant.text.As(Int))
' prodsPrecios.Add(0)
' For Each p As String In pf
'' Log($"cont=${cont}, mp=${mp}"$)
' If mp.Get("prodsFijosPiezas").As(List).Size > 0 Then
' Private tpi As String = mp.Get("prodsFijosPiezas").As(List).Get(cont)
' Else
' Private tpi As String = 0
' End If
' If mp.Get("prodsFijosPrecios").As(List).Size > 0 Then
' Private tpr As String = mp.Get("prodsFijosPrecios").As(List).Get(cont)
' Else
' Private tpr As String = 0
' End If
' prodsFijosTot = prodsFijosTot + (tpi * tpr)
' If thisLog Then Log("|"&tpi&"|"&p)
' Private ntpi As Int = tpi * et_promoCant.text
' If addListItem And tpi > 0 Then lv_prodsFijos.AddSingleLine(ntpi & " " & Subs.traeProdNombre(p) & " - $" & tpr)
' cont = cont+1
'' m=CreateMap("cant":tpi, "precio":tpr)
'' prodsMap.Put(p, m)
' prodsIds.Add(p)
' prodsCants.Add(tpi.As(Int)*et_promoCant.text.As(Int))
' prodsPrecios.Add(tpr) '*et_promoCant.text.As(Int)
' Next
'End Sub
'
'Sub CreateListItem(Text As String, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String) As Panel 'ignore
' Dim p As B4XView = xui.CreatePanel("")
' p.SetLayoutAnimated(0, 0, 0, Width, Height)
' p.LoadLayout("prodItem1")
' l_prodX.TextSize = 15
' l_prodX.Text = Text
' l_prodX.TextSize = 15
'' p_prods.Height = Height + 70
'' l_prodX.Height = Height
' p_prods.height = su.MeasureMultilineTextHeight(l_prodX, l_prodX.Text) + 20 'Calculamos la altura del panel de acuerdo al texto contenido.
' If p_prods.Height < Height Then p_prods.Height = Height
' l_prodX.Height = p_prods.Height
' l_pCant.Tag = precioU&"|"&inv&"|"&prodId
' et_pCant.Tag = precioU&"|"&inv&"|"&prodId
' et_pCant.BringToFront
'' i_prod.Bitmap = img
' p.Height = p_prods.Height
' Return p
'End Sub
'
'Sub CreateListItem2(Text As String, precioU As String, inv As Int, Width As Int, Height As Int, img As Bitmap, prodId As String) As Panel 'ignore
' Dim p As B4XView = xui.CreatePanel("")
' p.SetLayoutAnimated(0, 0, 0, Width, Height)
' p.LoadLayout("prodItem2")
' l_prodX.TextSize = 15
' l_prodX.Text = Text
' l_prodX.TextSize = 15
'' p_prods.Height = Height
'' l_prodX.Height = Height
' p_prods.height = su.MeasureMultilineTextHeight(l_prodX, l_prodX.Text) + 20 'Calculamos la altura del panel de acuerdo al texto contenido.
' If p_prods.Height < Height Then p_prods.Height = Height
' l_prodX.Height = p_prods.Height
'' l_pCant.Text = 0
' l_pCant.Tag = precioU&"|"&inv&"|"&prodId
' et_pCant.Tag = precioU&"|"&inv&"|"&prodId
' et_pCant.BringToFront
'' i_prod.Bitmap = img
' p.Height = p_prods.Height
' Return p
'End Sub
'
'Sub b_prodMenos_Click
' Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
' Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
' Dim pnl As B4XView = pnl0.GetView(0)
'' Dim laCant As B4XView = pnl.GetView(5)
' Dim laCant As B4XView = pnl.GetView(2).GetView(4)
'' Log($"precio|stock:${laCant.tag}"$)
' laCant.Text = $"$1.0{laCant.Text-1}"$
' If laCant.Text < 0 Then laCant.Text = 0
'
'' Log(Regex.Split("\|", laCant.tag)(0))
' Private precio As String = Regex.Split("\|", laCant.tag)(0)
'' Private inv As String = Regex.Split("\|", laCant.tag)(1)
' Private prodId As String = Regex.Split("\|", laCant.tag)(2)
' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
'' Log(tmpMap)
' promosMap.Put(prodId, tmpMap)
' If laCant.Text = 0 Then promosMap.Remove(prodId)
'' LogColor(promosMap, Colors.Magenta)
' cuentaProds
'' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
'' l_totProds.text = $"Total Productos: ${totalProds}"$
'End Sub
'
'Sub b_prodMas_Click
' If prodsVar1 < prodsVarReq Then
' Dim index As Int = clv_prodsVariabes.GetItemFromView(Sender)
' Dim pnl0 As B4XView = clv_prodsVariabes.GetPanel(index)
' Dim pnl As B4XView = pnl0.GetView(0)
'' Dim laCant As B4XView = pnl.GetView(5)
' Dim laCant As B4XView = pnl.GetView(2).GetView(4)
'' Log($"precio|stock:${laCant.tag}"$)
'' Log($"Indice: ${index}, cant:${laCant.Text+1}, precioU: ${laCant.tag}"$)
' Dim esteTag As List = Regex.Split("\|", laCant.Tag)
'' Log(esteTag)
' If laCant.Text + 1 <= esteTag.get(1) Then
' laCant.Text = $"$1.0{laCant.Text+1}"$
' cuentaProds
' End If
'
'' Log(Regex.Split("\|", laCant.tag)(0))
' Private precio As String = Regex.Split("\|", laCant.tag)(0)
'' Private inv As String = Regex.Split("\|", laCant.tag)(1)
' Private prodId As String = Regex.Split("\|", laCant.tag)(2)
' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
'' Log(tmpMap)
' promosMap.Put(prodId, tmpMap)
'' LogColor(promosMap, Colors.Magenta)
' End If
'' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
'' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
'' l_totProds.text = $"Total Productos: ${totalProds}"$
'End Sub
'
'
'Sub b_prodMenos2_Click
' Dim index As Int = clv_prodsVariabes2.GetItemFromView(Sender)
' Dim pnl0 As B4XView = clv_prodsVariabes2.GetPanel(index)
' Dim pnl As B4XView = pnl0.GetView(0)
'' Dim laCant As B4XView = pnl.GetView(5)
' Dim laCant As B4XView = pnl.GetView(2).GetView(4)
'' Log($"precio|stock:${laCant.tag}"$)
' laCant.Text = $"$1.0{laCant.Text-1}"$
' If laCant.Text < 0 Then laCant.Text = 0
'
'' Log(Regex.Split("\|", laCant.tag)(0))
' Private precio As String = Regex.Split("\|", laCant.tag)(0)
'' Private inv As String = Regex.Split("\|", laCant.tag)(1)
' Private prodId As String = Regex.Split("\|", laCant.tag)(2)
' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
'' Log(tmpMap)
' promosMap.Put(prodId, tmpMap)
' If laCant.Text = 0 Then promosMap.Remove(prodId)
'' LogColor(promosMap, Colors.Magenta)
' cuentaProds
'' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
'' l_totProds.text = $"Total Productos: ${totalProds}"$
'End Sub
'
'Sub b_prodMas2_Click
'' Log(prodsVarReq & "|" & prodsVarReq2 & "|" & tpf & "|" & prodsVar2)
' If prodsVar2 < prodsVarReq2 Then
' Dim index As Int = clv_prodsVariabes2.GetItemFromView(Sender)
' Dim pnl0 As B4XView = clv_prodsVariabes2.GetPanel(index)
' Dim pnl As B4XView = pnl0.GetView(0)
'' Dim laCant As B4XView = pnl.GetView(5)
' Dim laCant As B4XView = pnl.GetView(2).GetView(4)
'' Log($"precio|stock:${laCant.tag}"$)
'' Log($"Indice: ${index}, cant:${laCant.Text+1}, precioU: ${laCant.tag}"$)
' Dim esteTag As List = Regex.Split("\|", laCant.Tag)
'' Log(esteTag)
' If laCant.Text + 1 <= esteTag.get(1) Then
' laCant.Text = $"$1.0{laCant.Text+1}"$
' cuentaProds
' End If
'
'' Log(Regex.Split("\|", laCant.tag)(0))
' Private precio As String = Regex.Split("\|", laCant.tag)(0)
'' Private inv As String = Regex.Split("\|", laCant.tag)(1)
' Private prodId As String = Regex.Split("\|", laCant.tag)(2)
' Private tmpMap As Map = CreateMap("precio":precio, "cant":laCant.Text, "almacen":estaPromo)
'' Log(tmpMap)
' promosMap.Put(prodId, tmpMap)
'' LogColor(promosMap, Colors.Magenta)
' End If
'' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
'' l_total.Text = $"Total Compra: $$1.2{totalCompra}"$
'' l_totProds.text = $"Total Productos: ${totalProds}"$
'End Sub
'
'
'Private Sub et_pCant_TextChanged (Old As String, New As String)
'' LogColor("txt changed",Colors.Magenta)
' cuentaProds
'End Sub
'
'Sub cuentaProds
'' Log("=====================================================")
'' Log("Inicia cuentaProds")
' Private thisLog As Boolean = False
'' LogColor($"ProdsFijos=${tpf}, totalProds=${totalProds}, totalCompra=${totalCompra}"$, Colors.Red)
' prodsIds2.Clear
' prodsCants2.Clear
' prodsPrecios2.Clear
' lv_prodsFijos.Clear
' prodsVar1 = 0
' prodsVar2 = 0
' agregaFijosALista(Subs.traePromo(estaPromo, esteCliente), True)
'' Log(prodsIds)
' Private tcpf As Float = 0 'Total de compra de productos fijos.
' For pf = 0 To prodsIds.Size - 1
' If thisLog Then Log($"${tcpf} + ${prodsCants.Get(pf)} * ${prodsPrecios.Get(pf)} = ${(prodsPrecios.Get(pf) * prodsCants.Get(pf))}"$)
' tcpf = tcpf + (prodsPrecios.Get(pf) * prodsCants.Get(pf))
' Next
'' Log("Total compra prodsFijos = " & tcpf)
' totalCompra = tcpf
' totalProds = tpf 'Cantidad total de productos fijos.
' 'Variables1
' For i = 0 To clv_prodsVariabes.GetSize - 1
' Private p0 As B4XView = clv_prodsVariabes.GetPanel(i)
' Private p As B4XView = p0.GetView(0)
' Private cant1 As B4XView = p.GetView(2).GetView(4)
' If cant1.Text = "" Then cant1.Text = 0
' totalProds = totalProds + cant1.Text
' prodsVar1 = prodsVar1 + cant1.Text
' Private esteTag As List = Regex.Split("\|", cant1.Tag)
' If cant1.Text > esteTag.Get(1) Then cant1.Text = esteTag.Get(1)
' If cant1.Text > 0 Then
'' Log(esteTag.Get(2) & "|" & cant1.Text)
' totalCompra = totalCompra + (esteTag.get(0) * cant1.text)
' If thisLog Then Log($"Cant: ${cant1.Text}, Suma: ${totalCompra}"$)
' prodsIds2.Add(esteTag.Get(2))
' prodsCants2.Add(cant1.Text)
' prodsPrecios2.Add(esteTag.get(0))
' End If
' l_total.Text = $"Total: $$1.2{totalCompra}"$
' l_totProds.text = $"Productos: ${totalProds}"$
' Next
' 'Variables2
' For i = 0 To clv_prodsVariabes2.GetSize - 1
' Private p0 As B4XView = clv_prodsVariabes2.GetPanel(i)
' Private p As B4XView = p0.GetView(0)
' Private cant2 As B4XView = p.GetView(2).GetView(4)
' totalProds = totalProds + cant2.Text
' prodsVar2 = prodsVar2 + cant2.Text
' Private esteTag As List = Regex.Split("\|", cant2.Tag)
' If cant2.Text > esteTag.Get(1) Then cant2.Text = esteTag.Get(1)
' If cant2.Text > 0 Then
'' Log(esteTag.Get(2) & "|" & cant2.Text)
' totalCompra = totalCompra + (esteTag.get(0) * cant2.text)
' If thisLog Then Log($"Cant: ${cant2.Text}, Suma: ${totalCompra}"$)
' prodsIds2.Add(esteTag.Get(2))
' prodsCants2.Add(cant2.Text)
' prodsPrecios2.Add(esteTag.get(0))
' End If
' l_total.Text = $"Total: $$1.2{totalCompra}"$
' l_totProds.text = $"Productos: ${totalProds}"$
' Next
'
' If thisLog Then Log($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$)
' l_total.Text = $"Total: $$1.2{totalCompra}"$
' l_totProds.text = $"Productos: ${totalProds}"$
' If totalProds < prodsVarReq + prodsVarReq2 + tpf Or totalProds > prodsVarReq + prodsVarReq2 + tpf Then
'' Log("INCOMPLETA")
' b_terminar1.Visible = False
' b_continuar.Visible = False
' Else
'' Log("COMPLETA")
' b_terminar1.Visible = True
' b_continuar.Visible = True
' End If
' If thisLog Then LogColor($"${prodsIds}${CRLF}${prodsCants}${CRLF}${prodsPrecios}"$, Colors.blue)
' If thisLog Then LogColor($"${prodsIds2}${CRLF}${prodsCants2}${CRLF}${prodsPrecios2}"$, Colors.Magenta)
'' LogColor($"Total Prods: ${totalProds}, Total: $$1.2{totalCompra}"$, Colors.Blue)
'End Sub
'
'Private Sub et_pCant_FocusChanged (HasFocus As Boolean)
' LogColor("focus changed", Colors.Magenta)
' cuentaProds
'End Sub
'
'Private Sub b_promoMenos_Click
' If et_promoCant.Text > 1 Then
' et_promoCant.Text = et_promoCant.Text.As(Int) - 1
' End If
' l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
' l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq_ * et_promoCant.Text.As(Int)}"$
' l_prodsVariables2.Text = $"Productos variables2 requeridos: ${prodsVarReq2_ * et_promoCant.Text.As(Int)}"$
' tpf = tpf2 * et_promoCant.Text.As(Int)
' prodsVarReq = prodsVarReq_ * et_promoCant.Text.As(Int)
' prodsVarReq2 = prodsVarReq2_ * et_promoCant.Text.As(Int)
' Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf}, "$)
' cuentaProds
'End Sub
'
'Private Sub b_promoMas_Click
' If et_promoCant.Text < maxCantPromos Then
' et_promoCant.Text = et_promoCant.Text.As(Int) + 1
' l_prodsFijos.Text = $"Productos fijos (${tpf2 * et_promoCant.Text.As(Int)})"$
' l_prodsVariables.Text = $"Productos variables requeridos: ${prodsVarReq_ * et_promoCant.Text.As(Int)}"$
' l_prodsVariables2.Text = $"Productos variables2 requeridos: ${prodsVarReq2_ * et_promoCant.Text.As(Int)}"$
' tpf = tpf2 * et_promoCant.Text.As(Int)
' prodsVarReq = prodsVarReq_ * et_promoCant.Text.As(Int)
' prodsVarReq2 = prodsVarReq2_ * et_promoCant.Text.As(Int)
' Log($"Max promos=${et_promoCant.Text.As(Int)}, Prods fijos=${tpf}, "$)
' End If
' If et_promoCant.text > maxCantPromos Then et_promoCant.Text = maxCantPromos
' cuentaProds
'End Sub
'
'Private Sub b_terminar1_Click
' cuentaProds
' Log("====================================================================")
' For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
' Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
' If prodsCants.Get(t) > 0 Then Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta(Subs.traeCliente), 0, B4XPages.MainPage.tipo_venta,0,0)
' Next
' For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
' Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
' Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta(Subs.traeCliente), 0, B4XPages.MainPage.tipo_venta,0,0)
' Next
'' Log(B4XPages.MainPage.productos.prodsMap)
'' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
'' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
''' Log(tmpMap)
'' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
'' Next
'' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
'' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
''' Log(tmpMap)
'' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
'' Next
'' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)
' lv_prodsFijos.Clear
' B4XPages.MainPage.bTerminarClicked = True
' B4XPages.ShowPage("productos")
' B4XPages.MainPage.productos.b_terminar1_Click
'End Sub
'
'Private Sub b_continuar_Click
' cuentaProds
' Log("====================================================================")
' For t = 0 To prodsIds.Size - 1 'Guardamos los productos fijos de la promocion en pedido.
' Private pn As String = Subs.traeProdNombre(prodsIds.Get(t))
' Subs.guardaProductoSinGestion(estaPromo, prodsPrecios.Get(t), prodsCants.Get(t), pn, prodsIds.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta(Subs.traeCliente), 0, B4XPages.MainPage.tipo_venta,0,0)
' Next
' For t = 0 To prodsIds2.Size - 1 'Guardamos los productos variables de la promocion en pedido.
' Private pn As String = Subs.traeProdNombre(prodsIds2.Get(t))
' Subs.guardaProductoSinGestion(estaPromo, prodsPrecios2.Get(t), prodsCants2.Get(t), pn, prodsIds2.Get(t), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta(Subs.traeCliente), 0, B4XPages.MainPage.tipo_venta,0,0)
' Next
'' Log(B4XPages.MainPage.productos.prodsMap)
'' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
'' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
''' Log(tmpMap)
'' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
'' Next
'' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
'' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
''' Log(tmpMap)
'' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
'' Next
'' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)
' lv_prodsFijos.Clear
'' Activity_KeyPress(KeyCodes.KEYCODE_BACK)
'' CallSubDelayed2(productos, "Activity_KeyPress", KeyCodes.KEYCODE_BACK)
' Private prodspage As C_Productos
' If prodspage.IsInitialized Then
' prodspage.lv_catalogos.Visible = True
' prodspage.lv_promos.Visible = False
' prodspage.clv_productos.AsView.Visible = False
' End If
' B4XPages.MainPage.bTerminarClicked = True
' B4XPages.ShowPage("productos")
'End Sub
'
''Sub Activity_KeyPress (key As Int) As Boolean 'ignore
'' ' BACK key pressed
'' Log("Keypress")
'' If key=KeyCodes.KEYCODE_BACK Then
'' Log("BACK")
'' Return False
'' End If
'' Return False
'' ' Returning False signals the system to handle the key
''End Sub
Sub Class_Globals Sub Class_Globals
Private Root As B4XView 'ignore Private Root As B4XView 'ignore
Private xui As XUI Private xui As XUI
@@ -205,7 +807,7 @@ Sub muestraPromo(promo As String, cliente As String)
clv_prodsVariabes.GetBase.Height = p_prodsVariables.Height - 20 clv_prodsVariabes.GetBase.Height = p_prodsVariables.Height - 20
' p_prodsVariables.Height = 380dip ' p_prodsVariables.Height = 380dip
' clv_prodsVariabes.GetBase.Height = 380dip 'Cambiamos el tamaño y posición de la lista de productos ' clv_prodsVariabes.GetBase.Height = 380dip 'Cambiamos el tamaño y posición de la lista de productos
'' clv_prodsVariabes.GetBase.Width = '' clv_prodsVariabes.GetBase.Width =
clv_prodsVariabes.Base_Resize(clv_prodsVariabes.GetBase.Width, p_prodsVariables.Height - 20) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño. clv_prodsVariabes.Base_Resize(clv_prodsVariabes.GetBase.Width, p_prodsVariables.Height - 20) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
Else Else
l_prodsVariables2.Visible = True l_prodsVariables2.Visible = True
@@ -544,12 +1146,12 @@ Private Sub b_terminar1_Click
' Log(B4XPages.MainPage.productos.prodsMap) ' Log(B4XPages.MainPage.productos.prodsMap)
' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra. ' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo) ' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
'' Log(tmpMap) '' Log(tmpMap)
' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap) ' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
' Next ' Next
' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra. ' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo) ' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
'' Log(tmpMap) '' Log(tmpMap)
' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap) ' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
' Next ' Next
' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red) ' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)
@@ -573,12 +1175,12 @@ Private Sub b_continuar_Click
' Log(B4XPages.MainPage.productos.prodsMap) ' Log(B4XPages.MainPage.productos.prodsMap)
' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra. ' For o=0 To prodsIds.Size - 1 'Ponemos los productos fijos en el mapa de la compra.
' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo) ' Private tmpMap As Map = CreateMap("precio":prodsPrecios.Get(o), "cant":prodsCants.Get(o), "almacen":estaPromo)
'' Log(tmpMap) '' Log(tmpMap)
' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap) ' If prodsCants.Get(o) > 0 Then B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds.Get(o), tmpMap)
' Next ' Next
' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra. ' For o=0 To prodsIds2.Size - 1 'Ponemos los productos variables en el mapa de la compra.
' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo) ' Private tmpMap As Map = CreateMap("precio":prodsPrecios2.Get(o), "cant":prodsCants2.Get(o), "almacen":estaPromo)
'' Log(tmpMap) '' Log(tmpMap)
' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap) ' B4XPages.MainPage.productos.prodsMap.Put(estaPromo&"|"&prodsIds2.Get(o), tmpMap)
' Next ' Next
' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red) ' LogColor(B4XPages.MainPage.productos.prodsMap, Colors.red)

2
B4A/C_Subs.bas
View File

@@ -524,7 +524,7 @@ End Sub
Sub traeRuta As String 'ignore Sub traeRuta As String 'ignore
Private c As Cursor Private c As Cursor
Private r As String Private r As String
c = db.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c = db.ExecQuery("select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
r = "0" r = "0"
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position=0 c.Position=0

6
B4A/C_TicketsDia.bas
View File

@@ -56,7 +56,7 @@ End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
nombre_boton = "NOVENTA" nombre_boton = "NOVENTA"
c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info2 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc") c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info3 where cat_cl_codigo = pc_cliente UNION select CAT_CL_NOMBRE from kmt_info32 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
Dim noArticulos As Int = 0 Dim noArticulos As Int = 0
ListView1.Clear ListView1.Clear
@@ -120,7 +120,7 @@ Sub b_noventa_Click
If nombre_boton = "NOVENTA" Then If nombre_boton = "NOVENTA" Then
nombre_boton = "VENTA" nombre_boton = "VENTA"
b_noventa.Text ="VENTA" b_noventa.Text ="VENTA"
c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc") c=B4XPages.MainPage.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info3 where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
ListView1.Clear ListView1.Clear
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
@@ -139,7 +139,7 @@ Sub b_noventa_Click
Else Else
nombre_boton = "NOVENTA" nombre_boton = "NOVENTA"
b_noventa.Text ="NO VENTA" b_noventa.Text ="NO VENTA"
c=B4XPages.MainPage.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") c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info3 where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
ListView1.Clear ListView1.Clear
If c.RowCount>0 Then If c.RowCount>0 Then

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

BIN
B4A/Files/login.bal
View File

Binary file not shown.

BIN
B4A/Files/nuevocliente.bal
View File

Binary file not shown.

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

2
B4A/IZCA.b4a
View File

@@ -199,7 +199,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: IZCA #ApplicationLabel: IZCA
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.08.11 #VersionName: 5.09.20
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/IZCA.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Tracker,StartFLPSmall,103,0,C_NuevoCliente,B4XPage_Appear,117,0,C_NuevoCliente,cb_giro_SelectedIndexChanged,438,0,C_NuevoCliente,PointInPolygon,216,0,C_NuevoCliente,p_nuevoCliente_Click,392,0,Diseñador Visual,nuevocliente.bal,-100,6,C_NuevoCliente,et_cp_TextChanged,433,6,C_Cliente,GPS_LocationChanged,566,0,C_NuevoCliente,GUARDA_Click,243,2,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2399,0 NavigationStack=C_Principal,B4XPage_Created,305,0,C_Cliente,b_venta_Click,2007,0,C_Cliente,b_ventaabordo_Click,2708,0,Starter,ENVIA_ULTIMA_GPS,100,0,C_Cliente,GPS_LocationChanged,577,1,C_Principal,e_ruta_EnterPressed,2463,0,C_Principal,B4XPage_Appear,613,2,Diseñador Visual,principal.bal,-100,5,Main,Process_Globals,18,0,Main,Activity_Create,28,0,Main,Activity_ActionBarHomeClick,35,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,13 VisibleModules=1,2,3,4,5,6,7,8,9,10

4
B4A/MAPA_CLIENTE.bas
View File

@@ -55,7 +55,7 @@ Sub MapFragment1_Ready
JavaMapsObject = gmap.GetUiSettings JavaMapsObject = gmap.GetUiSettings
JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True)) JavaMapsObject.RunMethod("setMapToolbarEnabled", Array As Object(True))
Dim marcador1 As Marker = gmap.AddMarker (latmarker,longmarker, "TIENDA") Dim marcador1 As Marker = gmap.AddMarker (latmarker,longmarker, "TIENDA")
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0
@@ -102,7 +102,7 @@ Sub Activity_Resume
Else Else
GPS.Start(0, 0) GPS.Start(0, 0)
End If End If
c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info2 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") c = Starter.skmt.ExecQuery("SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info3 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION ALL SELECT CAT_CL_LAT, CAT_CL_LONG, CAT_CL_NOMBRE FROM kmt_info32 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0

10
B4A/MAPA_RUTAS.bas
View File

@@ -166,7 +166,7 @@ Sub MapFragment1_Ready
'''''''----------------------------MARKER AZUL - POR VISITAR '''''''----------------------------MARKER AZUL - POR VISITAR
If azul = 1 Or todos = 1 Then If azul = 1 Or todos = 1 Then
c.IsInitialized c.IsInitialized
c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") c=skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_NOMBRE,CAT_CL_LAT,CAT_CL_LONG from kmt_info3 where gestion = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_LAT <> ' ' and CAT_CL_LONG <> ' ' and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
' skmt.Initialize(ruta,"kmt.db", True) ' skmt.Initialize(ruta,"kmt.db", True)
Log($"============== Resultados = ${c.RowCount}"$) Log($"============== Resultados = ${c.RowCount}"$)
If c.RowCount > 0 Then If c.RowCount > 0 Then
@@ -193,7 +193,7 @@ Sub MapFragment1_Ready
'''''''----------------------------MARKER VERDE - VENTA '''''''----------------------------MARKER VERDE - VENTA
If verde = 1 Or todos = 1 Then If verde = 1 Or todos = 1 Then
c2.IsInitialized c2.IsInitialized
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info2 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1 UNION select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info32 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
Log($"============== Resultados = ${c2.RowCount}"$) Log($"============== Resultados = ${c2.RowCount}"$)
For i = 0 To c2.RowCount -1 For i = 0 To c2.RowCount -1
c2.Position = i c2.Position = i
@@ -210,7 +210,7 @@ Sub MapFragment1_Ready
Else Else
If verde = 1 Or todos = 1 Then If verde = 1 Or todos = 1 Then
c2.IsInitialized c2.IsInitialized
c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") c2=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 2 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
Log($"============== Resultados = ${c2.RowCount}"$) Log($"============== Resultados = ${c2.RowCount}"$)
For i = 0 To c2.RowCount -1 For i = 0 To c2.RowCount -1
c2.Position = i c2.Position = i
@@ -230,7 +230,7 @@ Sub MapFragment1_Ready
If rojo = 1 Or todos = 1 Then If rojo = 1 Or todos = 1 Then
c3.IsInitialized c3.IsInitialized
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
Log($"============== Resultados = ${c3.RowCount}"$) Log($"============== Resultados = ${c3.RowCount}"$)
For i = 0 To c3.RowCount -1 For i = 0 To c3.RowCount -1
c3.Position = i c3.Position = i
@@ -245,7 +245,7 @@ Sub MapFragment1_Ready
Else Else
If rojo = 1 Or todos = 1 Then If rojo = 1 Or todos = 1 Then
c3.IsInitialized c3.IsInitialized
c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1") c3=skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT from kmt_info3 where gestion = 3 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0 and CAT_CL_CODIGO <> 0 and CAT_CL_CODIGO <> 1")
Log($"============== Resultados = ${c3.RowCount}"$) Log($"============== Resultados = ${c3.RowCount}"$)
For i = 0 To c3.RowCount -1 For i = 0 To c3.RowCount -1
c3.Position = i c3.Position = i

1843
B4A/Subs.bas
View File

File diff suppressed because it is too large Load Diff