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_Aceptar_Monto As Button
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
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)")
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 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 GEOCERCA (ACTIVA 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_BCAJAS", "TEXT")
Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT")
Subs.agregaColumna("kmt_info", "CAT_CL_BCREDITO", "TEXT")
Subs.agregaColumna("kmt_info", "CAT_CL_BCOORDENADAS", "TEXT")
Subs.agregaColumna("kmt_info", "CAT_CL_LIMITECREDITO", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_BCREDITO", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_BCOORDENADAS", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_LIMITECREDITO", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_CONVERSION1", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "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_TELEFONO", "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 ")
'
' 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_validacion.Height = Root.Height
p_validacion.Width = Root.Width
p_bypass.Height = Root.Height
p_bypass.Width = Root.Width
p_add_monto.Height = Root.Height
p_add_monto.Width = Root.Width
End Sub
@@ -559,7 +569,7 @@ Sub JobDone(Job As HttpJob)
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(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
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
a.Position = 0
@@ -785,6 +795,9 @@ Private Sub B4XPage_CloseRequest As ResumableSub
Else If p_validacion.IsInitialized And p_validacion.Visible Then
p_validacion.Visible = 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
MsgboxAsync("Debes de terminar el proceso para regresar a la pantalla principal","Atención")
Return False
@@ -914,7 +927,8 @@ Sub i_engrane_Click
' l_server.Text = Starter.DBReqServer
et_server.Text = Starter.DBReqServer
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
Sub b_regesar_Click
@@ -1071,7 +1085,7 @@ Private Sub B_PC_ENV_Click
Dim idText As String = idLabel.As(Label).Text
Dim idParts() As String = Regex.Split(CRLF, idText)
' 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
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 idParts() As String = Regex.Split(CRLF, idText)
' 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
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1175,7 +1189,7 @@ Private Sub b_terpc_Click
End Sub
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
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)
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
a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
@@ -1298,7 +1312,7 @@ Private Sub b_recarga_Click
End Sub
Private Sub b_CargarMonto_Click
c = skmt.ExecQuery("SELECT * FROM kmt_info")
c = skmt.ExecQuery("SELECT * FROM kmt_info3")
c.Position = 0
If c.RowCount < 0 Or c.RowCount = 0 Then
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
@@ -1319,3 +1333,42 @@ End Sub
Private Sub p_add_monto_Click
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