mirror of
https://github.com/KeymonSoft/Mariana.git
synced 2026-04-20 22:29:29 +00:00
22/9/23 - Cambios en Nota y nuevo servicio "NotificationService"
- Se modifico "Nota" para que cuando ya este guardado el pedido, ya no se puedan borrar los productos individuales. - Se agregó el servicio "NotificationService" para interceptar notificaciones y por medio de un mensaje de WhatsApp (#NS http://10.0.0.205:1782), cambiar el servidor de DBReq. - Se estandarizó el DBreqServer en Starter.DBReqServer.
This commit is contained in:
@@ -21,6 +21,9 @@ Version=9.85
|
|||||||
#End Region
|
#End Region
|
||||||
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
|
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
|
||||||
|
|
||||||
|
'- Se modifico "Nota" para que cuando ya este guardado el pedido, ya no se puedan borrar los productos individuales.
|
||||||
|
'- Se agregó el servicio "NotificationService" para interceptar notificaciones y por medio de un mensaje de WhatsApp (#NS http://10.0.0.205:1782), cambiar el servidor de DBReq.
|
||||||
|
|
||||||
Sub Class_Globals
|
Sub Class_Globals
|
||||||
Private Root As B4XView
|
Private Root As B4XView
|
||||||
Private xui As XUI
|
Private xui As XUI
|
||||||
@@ -47,9 +50,9 @@ Sub Class_Globals
|
|||||||
Dim lat_gps, lon_gps As String
|
Dim lat_gps, lon_gps As String
|
||||||
Dim usuario As String
|
Dim usuario As String
|
||||||
Dim batt As Int
|
Dim batt As Int
|
||||||
Dim skmt As SQL
|
' Dim Starter.skmt As SQL
|
||||||
Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
|
Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
|
||||||
Dim server, fechaRuta As String
|
Dim DBReqServer, fechaRuta As String
|
||||||
Dim Logger As Boolean
|
Dim Logger As Boolean
|
||||||
Dim mac_impresora As String
|
Dim mac_impresora As String
|
||||||
Dim Phn As PhoneId
|
Dim Phn As PhoneId
|
||||||
@@ -63,7 +66,7 @@ Sub Class_Globals
|
|||||||
Dim IMEI As String = ""
|
Dim IMEI As String = ""
|
||||||
Dim alterno As String
|
Dim alterno As String
|
||||||
Private b_menu As Button
|
Private b_menu As Button
|
||||||
Dim PopupMenu As RSPopupMenu
|
' Dim PopupMenu As RSPopupMenu
|
||||||
Dim cmd As DBCommand
|
Dim cmd As DBCommand
|
||||||
Private PDF As Button
|
Private PDF As Button
|
||||||
Private bpv1 As BatteryProgressView
|
Private bpv1 As BatteryProgressView
|
||||||
@@ -82,7 +85,7 @@ Sub Class_Globals
|
|||||||
Dim bTerminarClicked As Boolean = False
|
Dim bTerminarClicked As Boolean = False
|
||||||
Private lv_server As ListView
|
Private lv_server As ListView
|
||||||
Private l_server As Label
|
Private l_server As Label
|
||||||
Private et_server As EditText
|
Dim et_server As EditText
|
||||||
Private b_server As Button
|
Private b_server As Button
|
||||||
Private b_envioBD As Button
|
Private b_envioBD As Button
|
||||||
Public Provider As FileProvider
|
Public Provider As FileProvider
|
||||||
@@ -140,80 +143,80 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
Log(File.DirAssets)
|
Log(File.DirAssets)
|
||||||
LogColor("copiamos kmt.db de "&File.DirAssets & " a " & ruta,Colors.Green)
|
LogColor("copiamos kmt.db de "&File.DirAssets & " a " & ruta,Colors.Green)
|
||||||
End If
|
End If
|
||||||
Log(ruta)
|
' Log(ruta)
|
||||||
skmt.Initialize(ruta,"kmt.db", True)
|
' Starter.skmt.Initialize(ruta,"kmt.db", True)
|
||||||
Subs.guardaAppInfo(skmt)
|
s.guardaAppInfo(Starter.skmt)
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INVENT_X_ENVIAR (ALMACEN TEXT, PROID TEXT, CANTIDAD TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS INVENT_X_ENVIAR (ALMACEN TEXT, PROID TEXT, CANTIDAD TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_RESUM_APK (HIST_RA_OBJMES TEXT, HIST_RA_VENTA TEXT, HIST_RA_TENDENCIA TEXT, HIST_RA_ALCANCE TEXT, HISR_RA_DRAOBJ TEXT, HIST_RA_DRAVTA TEXT, HIST_RA_DSOBJ TEXT, HIST_RA_DSVTA TEXT, HIST_RA_VPOOBJ TEXT, HIST_RA_VPOVTA TEXT, HIST_RA_COBCCC TEXT, HIST_RA_CTES TEXT, HIST_RA_ECO TEXT, HIST_RA_VISITPLAN TEXT, HIST_RA_VISIREAL TEXT, HIST_RA_COBVISIT TEXT, HIST_RA_FRECCOMPOBJ TEXT, HIST_RA_FRECCOMREAL TEXT, HIST_RA_VENTAMES1 TEXT, HIST_RA_VENTAMES2 TEXT, HIST_RA_VENTAMES3 TEXT, HIST_RA_VENTAMES4 TEXT, HIST_RA_RECHAZO TEXT, HIST_RA_RECHAZOPORCEN TEXT, HIST_RA_SEMANA1 TEXT, HIST_RA_SEMANA1_DIAS TEXT, HIST_RA_SEMANA1_DRA TEXT, HIST_RA_SEMANA2 TEXT, HIST_RA_SEMANA2_DIAS TEXT, HIST_RA_SEMANA2_DRA TEXT, HIST_RA_SEMANA3 TEXT, HIST_RA_SEMANA3_DIAS TEXT, HIST_RA_SEMANA4 TEXT, HIST_RA_SEMANA3_DRA TEXT, HIST_RA_SEMANA4_DIAS TEXT, HIST_RA_SEMANA4_DRA TEXT, HIST_RA_SEMANA5 TEXT, HIST_RA_SEMANA5_DIAS TEXT, HIST_RA_SEMANA5_DRA TEXT, HIST_RA_SEMANA1_LPT TEXT, HIST_RA_SEMANA2_LPT TEXT, HIST_RA_SEMANA3_LPT TEXT, HIST_RA_SEMANA4_LPT TEXT, HIST_RA_SEMANA5_LPT TEXT, HIST_RA_RUTA TEXT, HIST_RA_IDALMACEN TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_RESUM_APK (HIST_RA_OBJMES TEXT, HIST_RA_VENTA TEXT, HIST_RA_TENDENCIA TEXT, HIST_RA_ALCANCE TEXT, HISR_RA_DRAOBJ TEXT, HIST_RA_DRAVTA TEXT, HIST_RA_DSOBJ TEXT, HIST_RA_DSVTA TEXT, HIST_RA_VPOOBJ TEXT, HIST_RA_VPOVTA TEXT, HIST_RA_COBCCC TEXT, HIST_RA_CTES TEXT, HIST_RA_ECO TEXT, HIST_RA_VISITPLAN TEXT, HIST_RA_VISIREAL TEXT, HIST_RA_COBVISIT TEXT, HIST_RA_FRECCOMPOBJ TEXT, HIST_RA_FRECCOMREAL TEXT, HIST_RA_VENTAMES1 TEXT, HIST_RA_VENTAMES2 TEXT, HIST_RA_VENTAMES3 TEXT, HIST_RA_VENTAMES4 TEXT, HIST_RA_RECHAZO TEXT, HIST_RA_RECHAZOPORCEN TEXT, HIST_RA_SEMANA1 TEXT, HIST_RA_SEMANA1_DIAS TEXT, HIST_RA_SEMANA1_DRA TEXT, HIST_RA_SEMANA2 TEXT, HIST_RA_SEMANA2_DIAS TEXT, HIST_RA_SEMANA2_DRA TEXT, HIST_RA_SEMANA3 TEXT, HIST_RA_SEMANA3_DIAS TEXT, HIST_RA_SEMANA4 TEXT, HIST_RA_SEMANA3_DRA TEXT, HIST_RA_SEMANA4_DIAS TEXT, HIST_RA_SEMANA4_DRA TEXT, HIST_RA_SEMANA5 TEXT, HIST_RA_SEMANA5_DIAS TEXT, HIST_RA_SEMANA5_DRA TEXT, HIST_RA_SEMANA1_LPT TEXT, HIST_RA_SEMANA2_LPT TEXT, HIST_RA_SEMANA3_LPT TEXT, HIST_RA_SEMANA4_LPT TEXT, HIST_RA_SEMANA5_LPT TEXT, HIST_RA_RUTA TEXT, HIST_RA_IDALMACEN TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_COMISIONES_MOVIL (HCM_IDALMACEN TEXT, HCM_RUTA TEXT, HCM_TOTAL_V TEXT, HCM_TOTAL_VIVE TEXT, HCM_TOTAL_GUNA TEXT, HCM_TOTAL_BEB TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_COMISIONES_MOVIL (HCM_IDALMACEN TEXT, HCM_RUTA TEXT, HCM_TOTAL_V TEXT, HCM_TOTAL_VIVE TEXT, HCM_TOTAL_GUNA TEXT, HCM_TOTAL_BEB TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GEOCERCA (HGCLIENTE TEXT, HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GEOCERCA (HGCLIENTE TEXT, HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FACE (HFCLIENTE TEXT, HFALIAS TEXT, HFRUTA TEXT, HFALMACEN TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_FACE (HFCLIENTE TEXT, HFALIAS TEXT, HFRUTA TEXT, HFALMACEN TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS CATALOGO AS Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD UNION Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD GROUP BY CAT_GP_CLASIF, CAT_GP_ID")
|
Starter.skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS CATALOGO AS Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD UNION Select CAT_GP_CLASIF, CAT_GP_ID FROM CAT_GUNAPROD GROUP BY CAT_GP_CLASIF, CAT_GP_ID")
|
||||||
skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS total_marcas AS Select cat_gp_clasif, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
Starter.skmt.ExecNonQuery("CREATE VIEW IF NOT EXISTS total_marcas AS Select cat_gp_clasif, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_MARCAS_CUOTAS (HMC_MARCA TEXT, HMC_TOTAL TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_MARCAS_CUOTAS (HMC_MARCA TEXT, HMC_TOTAL TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
|
||||||
' skmt.ExecNonQuery("drop table kmt_info")
|
' Starter.skmt.ExecNonQuery("drop table kmt_info")
|
||||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info (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_DIASEMANA TEXT, CAT_CL_SECUENCIA INT)")
|
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info (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_DIASEMANA TEXT, CAT_CL_SECUENCIA INT)")
|
||||||
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "TEXT")
|
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "TEXT")
|
||||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_DIASEMANA" en la tabla
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_DIASEMANA" en la tabla
|
||||||
c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_DIASEMANA'")
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_DIASEMANA'")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
||||||
skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
||||||
End If
|
End If
|
||||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
Try
|
Try
|
||||||
skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_DIASEMANA TEXT")
|
||||||
Catch
|
Catch
|
||||||
Log(LastException)
|
Log(LastException)
|
||||||
End Try
|
End Try
|
||||||
End Try
|
End Try
|
||||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_GP_TIPOPROD2" en la tabla
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_GP_TIPOPROD2" en la tabla
|
||||||
c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('CAT_GUNAPROD') WHERE name='CAT_GP_TIPOPROD2'")
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('CAT_GUNAPROD') WHERE name='CAT_GP_TIPOPROD2'")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
||||||
skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
||||||
End If
|
End If
|
||||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
Try
|
Try
|
||||||
skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE CAT_GUNAPROD ADD COLUMN CAT_GP_TIPOPROD2 TEXT")
|
||||||
Catch
|
Catch
|
||||||
Log(LastException)
|
Log(LastException)
|
||||||
End Try
|
End Try
|
||||||
End Try
|
End Try
|
||||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_SECUENCIA" en la tabla
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_SECUENCIA" en la tabla
|
||||||
c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_SECUENCIA'")
|
c=Starter.skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_SECUENCIA'")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna FECHA la agregamos
|
||||||
skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
||||||
End If
|
End If
|
||||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
Try
|
Try
|
||||||
skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
Starter.skmt.ExecNonQuery("ALTER TABLE kmt_info ADD COLUMN CAT_CL_SECUENCIA INT")
|
||||||
Catch
|
Catch
|
||||||
Log(LastException)
|
Log(LastException)
|
||||||
End Try
|
End Try
|
||||||
End Try
|
End Try
|
||||||
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
|
c=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
|
||||||
C.Position = 0
|
C.Position = 0
|
||||||
If c.GetString("CUANTOS") = 0 Then
|
If c.GetString("CUANTOS") = 0 Then
|
||||||
skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
Starter.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
||||||
End If
|
End If
|
||||||
C.Close
|
C.Close
|
||||||
l_version.Text = Application.VersionName
|
l_version.Text = Application.VersionName
|
||||||
'este codigo es para lo del menu
|
'este codigo es para lo del menu
|
||||||
PopupMenu.Initialize("PopupMenu", b_menu)
|
' PopupMenu.Initialize("PopupMenu", b_menu)
|
||||||
PopupMenu.AddMenuItem(0, 0, "View")
|
' PopupMenu.AddMenuItem(0, 0, "View")
|
||||||
PopupMenu.AddMenuItem(1, 1, "Edit")
|
' PopupMenu.AddMenuItem(1, 1, "Edit")
|
||||||
PopupMenu.AddMenuItem(2, 2, "Details")
|
' PopupMenu.AddMenuItem(2, 2, "Details")
|
||||||
PopupMenu.AddMenuItem(3, 3, "Remove")
|
' PopupMenu.AddMenuItem(3, 3, "Remove")
|
||||||
' menu fin
|
' menu fin
|
||||||
montoActual = 0
|
montoActual = 0
|
||||||
clientesTotal = 0
|
clientesTotal = 0
|
||||||
@@ -279,15 +282,15 @@ Sub B4XPage_Appear
|
|||||||
Dim ph As Phone 'Get Id Device
|
Dim ph As Phone 'Get Id Device
|
||||||
Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase
|
Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase
|
||||||
LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
|
LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
|
||||||
server = Starter.server
|
DBReqServer = Starter.DBReqServer
|
||||||
reqManager.Initialize(Me, Starter.server)
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
tgl.Initialize()
|
tgl.Initialize()
|
||||||
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)
|
||||||
Sleep(500)
|
Sleep(500)
|
||||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||||
End If
|
End If
|
||||||
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("CUANTOS") = 0 Then
|
If c.GetString("CUANTOS") = 0 Then
|
||||||
LogColor($"No hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Red)
|
LogColor($"No hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Red)
|
||||||
@@ -298,7 +301,7 @@ Sub B4XPage_Appear
|
|||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
Else
|
Else
|
||||||
' LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
|
' LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
|
||||||
c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||||
c.Position =0
|
c.Position =0
|
||||||
Dim sDate, sTime As String
|
Dim sDate, sTime As String
|
||||||
DateTime.DateFormat = "yyyyMMdd"
|
DateTime.DateFormat = "yyyyMMdd"
|
||||||
@@ -317,6 +320,26 @@ Sub B4XPage_Appear
|
|||||||
'Obtenemos el usuario registrado
|
'Obtenemos el usuario registrado
|
||||||
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
|
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
|
||||||
dameUsuario
|
dameUsuario
|
||||||
|
If Not(CheckNotificationAccess) Then
|
||||||
|
Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True)
|
||||||
|
Wait For Msgbox_Result (resultado As Int)
|
||||||
|
If resultado = DialogResponse.POSITIVE Then
|
||||||
|
Dim In As Intent
|
||||||
|
In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "")
|
||||||
|
StartActivity(In)
|
||||||
|
End If
|
||||||
|
' Private cd1 As ColorDrawable
|
||||||
|
' cd1.Initialize(Colors.red, 10dip)
|
||||||
|
' b_notifAccess.Background = cd1
|
||||||
|
' b_notifAccess.TextColor = Colors.White
|
||||||
|
' b_notifAccess.Text = "Activar Permisos"
|
||||||
|
Else
|
||||||
|
' Private cd1 As ColorDrawable
|
||||||
|
' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip)
|
||||||
|
' b_notifAccess.Background = cd1
|
||||||
|
' b_notifAccess.TextColor = Colors.White
|
||||||
|
' b_notifAccess.Text = "Permisos Activos"
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||||
|
|
||||||
@@ -324,6 +347,7 @@ Sub Entrar_Click
|
|||||||
Dim r As Reflector
|
Dim r As Reflector
|
||||||
Dim Api As Int
|
Dim Api As Int
|
||||||
Dim PP As Phone
|
Dim PP As Phone
|
||||||
|
user.Text = user.Text.Trim
|
||||||
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
|
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
|
||||||
If Api < 9 Then
|
If Api < 9 Then
|
||||||
'Old device
|
'Old device
|
||||||
@@ -348,45 +372,45 @@ Sub Entrar_Click
|
|||||||
' Log("IMEI = " & IMEI)
|
' Log("IMEI = " & IMEI)
|
||||||
|
|
||||||
If user.Text = "ALTERNO" Then
|
If user.Text = "ALTERNO" Then
|
||||||
c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
||||||
c.Position =0
|
c.Position =0
|
||||||
server = c.GetString("CAT_CO_CONFIGURACION")
|
DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
|
||||||
alterno = c.GetString("CAT_CO_RESULTADO")
|
alterno = c.GetString("CAT_CO_RESULTADO")
|
||||||
c.Close
|
c.Close
|
||||||
If alterno = 1 Then
|
If alterno = 1 Then
|
||||||
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
||||||
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
||||||
Else if alterno = 2 Then
|
Else if alterno = 2 Then
|
||||||
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
|
||||||
skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
|
||||||
End If
|
End If
|
||||||
c=skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
|
||||||
c.Position =0
|
c.Position =0
|
||||||
server = c.GetString("CAT_CO_CONFIGURACION")
|
DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
|
||||||
user.Text = server
|
user.Text = DBReqServer
|
||||||
c.Close
|
c.Close
|
||||||
' reqManager.Initialize(Me, server)
|
' reqManager.Initialize(Me, DBReqServer)
|
||||||
else if user.Text = "KMTS1" Then
|
else if user.Text = "KMTS1" Then
|
||||||
skmt.ExecNonQuery("delete from usuarioa")
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
||||||
skmt.ExecNonQuery("delete from cat_almacen")
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (pass.Text))
|
||||||
skmt.ExecNonQuery("delete from VERSION")
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
||||||
B4XPages.ShowPage("Clientes")
|
B4XPages.ShowPage("Clientes")
|
||||||
else if user.Text = "BERNA1" Then
|
else if user.Text = "BERNA1" Then
|
||||||
skmt.ExecNonQuery("delete from usuarioa")
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, "1"))
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, "1"))
|
||||||
skmt.ExecNonQuery("delete from cat_almacen")
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object ("1"))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object ("1"))
|
||||||
skmt.ExecNonQuery("delete from VERSION")
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object ("2.1"))
|
||||||
B4XPages.ShowPage("Clientes")
|
B4XPages.ShowPage("Clientes")
|
||||||
else if user.Text = "IMEI" Then
|
else if user.Text = "IMEI" Then
|
||||||
user.Text = IMEI
|
user.Text = IMEI
|
||||||
End If
|
End If
|
||||||
|
|
||||||
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
||||||
c.Position=0
|
c.Position=0
|
||||||
existe = c.GetString("EXISTE1")
|
existe = c.GetString("EXISTE1")
|
||||||
If existe = 0 Then
|
If existe = 0 Then
|
||||||
@@ -432,9 +456,9 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||||
If result.Tag = "version" Then 'query tag
|
If result.Tag = "version" Then 'query tag
|
||||||
For Each records() As Object In result.Rows
|
For Each records() As Object In result.Rows
|
||||||
skmt.ExecNonQuery("delete from VERSION")
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
|
Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
|
||||||
skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -461,8 +485,8 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If result.Tag = "fecha" Then 'query tag
|
If result.Tag = "fecha" Then 'query tag
|
||||||
For Each records() As Object In result.Rows
|
For Each records() As Object In result.Rows
|
||||||
Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
|
Dim FECHA_HOY As String = records(result.Columns.Get("FECHA"))
|
||||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -503,10 +527,10 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If IMEI = "" Then
|
If IMEI = "" Then
|
||||||
If user.Text = "KMTS1" Then name = "OKActivo"
|
If user.Text = "KMTS1" Then name = "OKActivo"
|
||||||
If name = "OKActivo" Then
|
If name = "OKActivo" Then
|
||||||
skmt.ExecNonQuery("delete from usuarioa")
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
||||||
skmt.ExecNonQuery("delete from cat_almacen")
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
|
||||||
usuario = user.Text
|
usuario = user.Text
|
||||||
B4XPages.ShowPage("Principal")
|
B4XPages.ShowPage("Principal")
|
||||||
Else If name = "OKExpirado" Then
|
Else If name = "OKExpirado" Then
|
||||||
@@ -520,10 +544,10 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Else
|
Else
|
||||||
If name = "OKActivo" & IMEI And IMEI = IMEI_BASE Then
|
If name = "OKActivo" & IMEI And IMEI = IMEI_BASE Then
|
||||||
If name = "OKActivo" & IMEI Then
|
If name = "OKActivo" & IMEI Then
|
||||||
skmt.ExecNonQuery("delete from usuarioa")
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||||
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text))
|
||||||
skmt.ExecNonQuery("delete from cat_almacen")
|
Starter.skmt.ExecNonQuery("delete from cat_almacen")
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
|
||||||
usuario = user.Text
|
usuario = user.Text
|
||||||
B4XPages.ShowPage("Clientes")
|
B4XPages.ShowPage("Clientes")
|
||||||
Else If name = "OKExpirado"& IMEI Then
|
Else If name = "OKExpirado"& IMEI Then
|
||||||
@@ -575,7 +599,7 @@ Sub PopupMenu_MenuItemClick (ItemId As Int) As Boolean
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub b_menu_Click
|
Sub b_menu_Click
|
||||||
PopupMenu.Show
|
' PopupMenu.Show
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub PDF_Click
|
Sub PDF_Click
|
||||||
@@ -590,12 +614,12 @@ End Sub
|
|||||||
'End Sub
|
'End Sub
|
||||||
|
|
||||||
Sub dameUsuario
|
Sub dameUsuario
|
||||||
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
c=Starter.skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
||||||
c.Position=0
|
c.Position=0
|
||||||
existe = c.GetString("EXISTE1")
|
existe = c.GetString("EXISTE1")
|
||||||
c.Close
|
c.Close
|
||||||
If existe > 0 Then
|
If existe > 0 Then
|
||||||
c=skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
Else
|
Else
|
||||||
@@ -666,8 +690,8 @@ Sub i_engrane_Click
|
|||||||
lv_server.Clear
|
lv_server.Clear
|
||||||
lv_server.AddSingleLine("http://keymon.lat:1782")
|
lv_server.AddSingleLine("http://keymon.lat:1782")
|
||||||
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
|
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
|
||||||
' l_server.Text = Starter.server
|
' l_server.Text = Starter.DBReqServer
|
||||||
et_server.Text = Starter.server
|
et_server.Text = Starter.DBReqServer
|
||||||
Subs.panelVisible(p_appUpdate,0,0)
|
Subs.panelVisible(p_appUpdate,0,0)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -681,12 +705,10 @@ Sub i_engrane_LongClick
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub B_SERVER_Click
|
Sub B_SERVER_Click
|
||||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
|
Starter.DBReqServer = et_server.text
|
||||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text))
|
If Logger Then Log("Inicializamos reqManager con " & Starter.DBReqServer)
|
||||||
Starter.server = et_server.text
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
If Logger Then Log("Inicializamos reqManager con " & Starter.server)
|
CallSubDelayed2(Starter, "reinicializaReqManager", Starter.DBReqServer)
|
||||||
reqManager.Initialize(Me, Starter.server)
|
|
||||||
CallSubDelayed(Starter, "reinicializaReqManager")
|
|
||||||
s.reqManagerReInit 'Inicializamos el reqManager de C_Subs.
|
s.reqManagerReInit 'Inicializamos el reqManager de C_Subs.
|
||||||
Subs.panelVisible(p_Main,0,0)
|
Subs.panelVisible(p_Main,0,0)
|
||||||
p_appUpdate.Visible = False
|
p_appUpdate.Visible = False
|
||||||
@@ -698,7 +720,7 @@ Sub Entrar_LongClick
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
|
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
|
||||||
Starter.server = Value
|
Starter.DBReqServer = Value
|
||||||
' l_server.Text = Value
|
' l_server.Text = Value
|
||||||
et_server.Text = Value
|
et_server.Text = Value
|
||||||
Starter.reqManager.Initialize(Me, Value)
|
Starter.reqManager.Initialize(Me, Value)
|
||||||
@@ -722,4 +744,14 @@ Private Sub b_envioBD_Click
|
|||||||
Dim in As Intent = email.GetIntent
|
Dim in As Intent = email.GetIntent
|
||||||
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
|
||||||
StartActivity(in)
|
StartActivity(in)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Revisa si la aplicación tiene permiso para acceder a las notificaciones.
|
||||||
|
Sub CheckNotificationAccess As Boolean
|
||||||
|
Dim ph As Phone
|
||||||
|
Dim nstr, pstr As String
|
||||||
|
Dim r As Reflector
|
||||||
|
pstr = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
|
||||||
|
nstr = ph.GetSettings("enabled_notification_listeners")
|
||||||
|
Return nstr.Contains(pstr)
|
||||||
End Sub
|
End Sub
|
||||||
@@ -190,7 +190,7 @@ End Sub
|
|||||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||||
|
|
||||||
Sub B4XPage_Appear
|
Sub B4XPage_Appear
|
||||||
reqManager.Initialize(Me, Starter.server)
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
||||||
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
|
' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
|
||||||
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
|
||||||
|
|||||||
@@ -68,7 +68,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, CAT_CL_NOEXT, CAT_CL_CALLE1, CAT_CL_SECUENCIA from kmt_info where gestion = 0 ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO")
|
c=Starter.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_NOEXT, CAT_CL_CALLE1, CAT_CL_SECUENCIA from kmt_info where gestion = 0 ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO")
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
' Log("LIMPIAMOS LISTVIEW")
|
' Log("LIMPIAMOS LISTVIEW")
|
||||||
lfila.Text = "NOMBRE"
|
lfila.Text = "NOMBRE"
|
||||||
@@ -107,7 +107,7 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
|
|||||||
Log("-------------------------------" & value2(0))
|
Log("-------------------------------" & value2(0))
|
||||||
|
|
||||||
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(value2(0)))
|
c2=Starter.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(value2(0)))
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
lfila.text = "Calle"
|
lfila.text = "Calle"
|
||||||
If c2.RowCount>0 Then
|
If c2.RowCount>0 Then
|
||||||
@@ -118,7 +118,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(value2(0), colonia))
|
c2=Starter.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(value2(0), colonia))
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
lfila.text = "Nombre"
|
lfila.text = "Nombre"
|
||||||
If c2.RowCount>0 Then
|
If c2.RowCount>0 Then
|
||||||
@@ -129,20 +129,20 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
|
|||||||
End If
|
End If
|
||||||
entro = "4"
|
entro = "4"
|
||||||
Else If entro = "4" Then
|
Else If entro = "4" Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(value2(0)))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(value2(0)))
|
||||||
DateTime.TimeFormat = "HHmmss"
|
DateTime.TimeFormat = "HHmmss"
|
||||||
STIME=DateTime.Time(DateTime.Now)
|
STIME=DateTime.Time(DateTime.Now)
|
||||||
|
|
||||||
s=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
s=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = ? AND HSS_CODIGO In (select cuenta from cuentaa)", Array As String("0"))
|
||||||
s.Position = 0
|
s.Position = 0
|
||||||
If s.GetString("CUANTOS") = 1 Then
|
If s.GetString("CUANTOS") = 1 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||||
Else
|
Else
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (value2(0)))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (value2(0)))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||||
End If
|
End If
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(STIME))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_INI = ? where HSO_INI = 0 ", Array As Object(STIME))
|
||||||
DateTime.TimeFormat = "HH:mm:ss"
|
DateTime.TimeFormat = "HH:mm:ss"
|
||||||
|
|
||||||
Subs.guardaClienteHoraInicio(value2(0))
|
Subs.guardaClienteHoraInicio(value2(0))
|
||||||
@@ -166,7 +166,7 @@ Sub BUSCA_TextChanged (Old As String, New As String)
|
|||||||
If Old <> "" And New <> "" Then
|
If Old <> "" And New <> "" Then
|
||||||
' Log("BUSCA_TEXTCHANGED")
|
' Log("BUSCA_TEXTCHANGED")
|
||||||
q_buscar = "%" & busca.Text & "%"
|
q_buscar = "%" & busca.Text & "%"
|
||||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO,CAT_CL_SECUENCIA, CAT_CL_CALLE1 from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE1 LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
|
c2=Starter.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO,CAT_CL_SECUENCIA, CAT_CL_CALLE1 from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE1 LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar))
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
lfila.text = "Nombre y Calle"
|
lfila.text = "Nombre y Calle"
|
||||||
' Log("=========================================================================")
|
' Log("=========================================================================")
|
||||||
@@ -203,13 +203,13 @@ 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=Starter.skmt.ExecQuery2("select COUNT(*) AS ENCONTRADO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO))
|
||||||
c2.Position =0
|
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=Starter.skmt.ExecQuery2("select CAT_CL_CODIGO from kmt_info where CAT_CL_NUM_SERIEFISICO = ? order by CAT_CL_NOMBRE ", Array As String(CODIGO))
|
||||||
s.Position =0
|
s.Position =0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(s.GetString("CAT_CL_CODIGO")))
|
||||||
s.Close
|
s.Close
|
||||||
' b_qr.Visible = False
|
' b_qr.Visible = False
|
||||||
B4XPages.ShowPage("clientes")
|
B4XPages.ShowPage("clientes")
|
||||||
|
|||||||
@@ -61,11 +61,11 @@ Sub B4XPage_Appear
|
|||||||
End If
|
End If
|
||||||
L_CANT.Text =""
|
L_CANT.Text =""
|
||||||
L_TOTAL.Text=""
|
L_TOTAL.Text=""
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
C.Position=0
|
C.Position=0
|
||||||
Existe = C.GetString("EXISTE")
|
Existe = C.GetString("EXISTE")
|
||||||
C.Close
|
C.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
|
c=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
|
||||||
ListView1.Clear
|
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
|
||||||
@@ -82,7 +82,7 @@ Sub B4XPage_Appear
|
|||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
If Existe <> 0 Then
|
If Existe <> 0 Then
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||||
C.Position=0
|
C.Position=0
|
||||||
L_CANT.Text = c.GetString("PC_NOART")
|
L_CANT.Text = c.GetString("PC_NOART")
|
||||||
L_TOTAL.Text = c.GetString("PC_MONTO")
|
L_TOTAL.Text = c.GetString("PC_MONTO")
|
||||||
|
|||||||
@@ -54,7 +54,7 @@ End Sub
|
|||||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||||
|
|
||||||
Sub B4XPage_Appear
|
Sub B4XPage_Appear
|
||||||
reqManager.Initialize(Me, Starter.server)
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
e_comm.Text=""
|
e_comm.Text=""
|
||||||
tgl.Initialize
|
tgl.Initialize
|
||||||
If Not(Starter.gps.GPSEnabled) Then
|
If Not(Starter.gps.GPSEnabled) Then
|
||||||
@@ -84,32 +84,32 @@ Sub GUARDA_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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
cuenta = c.GetString("CUENTA")
|
cuenta = c.GetString("CUENTA")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
c=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||||
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
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
Starter.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)")
|
Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_ENVIO) VALUES(?,?,?,?,?,?,?,0) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_ENVIO) VALUES(?,?,?,?,?,?,?,0) ", 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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
DateTime.TimeFormat = "HHmmss"
|
DateTime.TimeFormat = "HHmmss"
|
||||||
sTime=DateTime.Time(DateTime.Now)
|
sTime=DateTime.Time(DateTime.Now)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
|
||||||
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
|
' Starter.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
c=Starter.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
|
||||||
"Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
|
"Case when (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
|
||||||
" Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _
|
" Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end MINUTOS_TOTALES, " & _
|
||||||
"Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
|
"Case when (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then (substr(HSS_OUT,5,2) + 60 - substr(HSS_IN,5,2)) " & _
|
||||||
@@ -120,11 +120,11 @@ Sub GUARDA_Click
|
|||||||
stay_mi = c.GetString("MINUTOS_TOTALES") * 60
|
stay_mi = c.GetString("MINUTOS_TOTALES") * 60
|
||||||
stay_ss = c.GetString("SEGUNDOS_TOTALES")
|
stay_ss = c.GetString("SEGUNDOS_TOTALES")
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ? where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ? ", Array As Object(sTime))
|
||||||
DateTime.TimeFormat = "HH:mm:ss"
|
DateTime.TimeFormat = "HH:mm:ss"
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, cuenta))
|
Starter.skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, cuenta))
|
||||||
LogColor($"actualizamos "${cuenta}, hora_final=${DateTime.now}"$,Colors.Red)
|
LogColor($"actualizamos "${cuenta}, hora_final=${DateTime.now}"$,Colors.Red)
|
||||||
|
|
||||||
mandaPendientesnoventa
|
mandaPendientesnoventa
|
||||||
@@ -133,7 +133,7 @@ End Sub
|
|||||||
|
|
||||||
Sub mandaPendientesnoventa
|
Sub mandaPendientesnoventa
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA where NV_ENVIO <> 1")
|
c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA where NV_ENVIO <> 1")
|
||||||
Log($"NOVENYA_Cliente PENDIENTE: ${c.RowCount}"$)
|
Log($"NOVENYA_Cliente PENDIENTE: ${c.RowCount}"$)
|
||||||
If c.RowCount>0 Then
|
If c.RowCount>0 Then
|
||||||
For i=0 To c.RowCount -1
|
For i=0 To c.RowCount -1
|
||||||
@@ -162,7 +162,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Private cliente As String= resultado.Tag
|
Private cliente As String= resultado.Tag
|
||||||
cliente = cliente.SubString(cliente.IndexOf("_")+24)
|
cliente = cliente.SubString(cliente.IndexOf("_")+24)
|
||||||
Log($"Cliente1:${cliente}"$)
|
Log($"Cliente1:${cliente}"$)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update NOVENTA SET NV_ENVIO = ? WHERE NV_CLIENTE = ? AND NV_ENVIO <> 1",Array As String ("1", cliente))
|
Starter.skmt.ExecNonQuery2("update NOVENTA SET NV_ENVIO = ? WHERE NV_CLIENTE = ? AND NV_ENVIO <> 1",Array As String ("1", cliente))
|
||||||
For Each records() As Object In resultado.Rows
|
For Each records() As Object In resultado.Rows
|
||||||
For Each k As String In resultado.Columns.Keys
|
For Each k As String In resultado.Columns.Keys
|
||||||
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
|
||||||
|
|||||||
120
B4A/C_Nota.bas
120
B4A/C_Nota.bas
@@ -49,7 +49,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
borra.Visible = True
|
borra.Visible = True
|
||||||
Titulo.Text = "Pedido Actual"
|
Titulo.Text = "Pedido Actual"
|
||||||
' If Existe <> 0 Then
|
' If Existe <> 0 Then
|
||||||
' c=B4XPages.MainPage.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
' c=Starter.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
||||||
' C.Position=0
|
' C.Position=0
|
||||||
' L_CANT.Text = c.GetString("PC_NOART")
|
' L_CANT.Text = c.GetString("PC_NOART")
|
||||||
' L_TOTAL.Text = c.GetString("PC_MONTO")
|
' L_TOTAL.Text = c.GetString("PC_MONTO")
|
||||||
@@ -63,17 +63,17 @@ Sub B4XPage_Appear
|
|||||||
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
ToastMessageShow("Es necesario tener el GPS encendido", True)
|
||||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||||
End If
|
End If
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
almacen = C.GetString("ID_ALMACEN")
|
almacen = C.GetString("ID_ALMACEN")
|
||||||
C.Close
|
C.Close
|
||||||
L_CANT.Text =""
|
L_CANT.Text =""
|
||||||
L_TOTAL.Text=""
|
L_TOTAL.Text=""
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select count(*) as EXISTE from pedido_cliente WHERE pc_cliente IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select count(*) as EXISTE from pedido_cliente WHERE pc_cliente IN (Select CUENTA from cuentaa)")
|
||||||
C.Position=0
|
C.Position=0
|
||||||
Existe = C.GetString("EXISTE")
|
Existe = C.GetString("EXISTE")
|
||||||
C.Close
|
C.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE")
|
c=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE")
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
Private cs As CSBuilder
|
Private cs As CSBuilder
|
||||||
If c.RowCount>0 Then
|
If c.RowCount>0 Then
|
||||||
@@ -97,13 +97,13 @@ Sub B4XPage_Appear
|
|||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
If Existe <> 0 Then
|
If Existe <> 0 Then
|
||||||
c =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 ) ")
|
c =Starter.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 ) ")
|
||||||
' c=B4XPages.MainPage.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
' c=Starter.skmt.ExecQuery("select pc_noart, pc_monto from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
||||||
C.Position=0
|
C.Position=0
|
||||||
L_CANT.Text = c.GetString("PC_NOART")
|
L_CANT.Text = c.GetString("PC_NOART")
|
||||||
L_TOTAL.Text = c.GetString("PC_MONTO")
|
L_TOTAL.Text = c.GetString("PC_MONTO")
|
||||||
c.Close
|
c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select SUM(IFNULL(PE_DESC,0)) AS DESCUENTO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
DESC = c.GetString("DESCUENTO")
|
DESC = c.GetString("DESCUENTO")
|
||||||
b_desc.Visible = False
|
b_desc.Visible = False
|
||||||
@@ -131,17 +131,17 @@ Sub borra_Click
|
|||||||
If folio <> "" Then
|
If folio <> "" Then
|
||||||
result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
If result = DialogResponse.POSITIVE Then
|
If result = DialogResponse.POSITIVE Then
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
c=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||||
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
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
Starter.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)")
|
Starter.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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
@@ -150,40 +150,44 @@ Sub borra_Click
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
If Not(Subs.pedidoGuardado) Then
|
||||||
If result = DialogResponse.POSITIVE Then
|
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
If result = DialogResponse.POSITIVE Then
|
||||||
c.Position=0
|
c=Starter.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||||
c.Close
|
Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
c.Close
|
||||||
c.Position=0
|
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
||||||
If c.GetString("CUANTOS") > 0 Then
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
If c.GetString("CUANTOS") > 0 Then
|
||||||
Else
|
Starter.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
Else
|
||||||
|
Starter.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||||
|
End If
|
||||||
|
DateTime.DateFormat = "MM/dd/yyyy"
|
||||||
|
sDate=DateTime.Date(DateTime.Now)
|
||||||
|
sTime=DateTime.Time(DateTime.Now)
|
||||||
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
|
c.Position=0
|
||||||
|
clie_id = c.GetString("CUENTA")
|
||||||
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
|
c.Position=0
|
||||||
|
usuario = c.GetString("USUARIO")
|
||||||
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
|
c.Position=0
|
||||||
|
If c.GetString("CUANTOS") > 0 Then
|
||||||
|
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||||
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||||
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
|
Else
|
||||||
|
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||||
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
|
End If
|
||||||
|
B4XPage_Appear
|
||||||
End If
|
End If
|
||||||
DateTime.DateFormat = "MM/dd/yyyy"
|
Else
|
||||||
sDate=DateTime.Date(DateTime.Now)
|
ToastMessageShow("El pedido ya fue guardado, no se puden borrar productos.", True)
|
||||||
sTime=DateTime.Time(DateTime.Now)
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
|
||||||
c.Position=0
|
|
||||||
clie_id = c.GetString("CUENTA")
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
|
||||||
c.Position=0
|
|
||||||
usuario = c.GetString("USUARIO")
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
|
||||||
c.Position=0
|
|
||||||
If c.GetString("CUANTOS") > 0 Then
|
|
||||||
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.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
|
||||||
Else
|
|
||||||
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)")
|
|
||||||
End If
|
|
||||||
B4XPage_Appear
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -192,21 +196,21 @@ Sub b_desc_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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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 USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
result = Msgbox2("Seguro que desea dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
result = Msgbox2("Seguro que desea dar descuento del 5%?","Dar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
If result = DialogResponse.POSITIVE Then
|
If result = DialogResponse.POSITIVE Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
Starter.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT * .95, PE_DESC = 5 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||||
c.Close
|
c.Close
|
||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
End If
|
End If
|
||||||
@@ -214,21 +218,21 @@ Sub b_desc_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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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 USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
result = Msgbox2("Seguro que desea CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
result = Msgbox2("Seguro que desea CANCELAR el descuento?","Cancelar descuento", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
If result = DialogResponse.POSITIVE Then
|
If result = DialogResponse.POSITIVE Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
Starter.skmt.ExecNonQuery("UPDATE pedido SET PE_COSTO_TOT = PE_COSTO_TOT / .95, PE_DESC = 0 WHERE PE_CLIENTE In (select cuenta from cuentaa)")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||||
c.Close
|
c.Close
|
||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -110,7 +110,7 @@ Sub B4XPage_Appear
|
|||||||
End If
|
End If
|
||||||
CallSubDelayed(Tracker, "StartFLPSmall")
|
CallSubDelayed(Tracker, "StartFLPSmall")
|
||||||
|
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("SELECT GIRO FROM CAT_GIRO order by 1")
|
c = Starter.skmt.ExecQuery("SELECT GIRO FROM CAT_GIRO order by 1")
|
||||||
Dim Items As List
|
Dim Items As List
|
||||||
Items.Initialize
|
Items.Initialize
|
||||||
Items.Add("SELECCIONA UNA OPCIÓN")
|
Items.Add("SELECCIONA UNA OPCIÓN")
|
||||||
@@ -168,35 +168,35 @@ Sub GUARDA_Click
|
|||||||
Private segs As String = sTime.SubString(4)
|
Private segs As String = sTime.SubString(4)
|
||||||
sTime = hora&":"&mins&":"&segs
|
sTime = hora&":"&mins&":"&segs
|
||||||
Log("////////////// sTime: "&sTime&" ////////////////")
|
Log("////////////// sTime: "&sTime&" ////////////////")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
|
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
|
||||||
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" & sTime & no_ruta
|
||||||
Log("++ ++ no_cliente = "&no_cliente)
|
Log("++ ++ no_cliente = "&no_cliente)
|
||||||
c.Close
|
c.Close
|
||||||
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, gestion, CAT_CL_GIRO) 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))
|
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 (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))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
If c.RowCount>0 Then
|
If c.RowCount>0 Then
|
||||||
C.Position=0
|
C.Position=0
|
||||||
ALMACEN = C.GetString("ID_ALMACEN")
|
ALMACEN = C.GetString("ID_ALMACEN")
|
||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA, NOM_FOTO) VALUES(?,?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta, fototomada))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA, NOM_FOTO) VALUES(?,?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta, fototomada))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_LAT,NV_LON,NV_NOMBRE,NV_DIRECCION) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (no_cliente,sDate & sTime, usuario, "NUEVO CLIENTE", lat, lon, E_NOMBRE.Text,et_direccion.Text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_LAT,NV_LON,NV_NOMBRE,NV_DIRECCION) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (no_cliente,sDate & sTime, usuario, "NUEVO CLIENTE", lat, lon, E_NOMBRE.Text,et_direccion.Text))
|
||||||
|
|
||||||
DateTime.DateFormat = "dd/MM/yyyy"
|
DateTime.DateFormat = "dd/MM/yyyy"
|
||||||
DateTime.Timeformat = "HH:mm:ss"
|
DateTime.Timeformat = "HH:mm:ss"
|
||||||
sDate2=DateTime.Date(DateTime.Now)
|
sDate2=DateTime.Date(DateTime.Now)
|
||||||
sTime2=DateTime.Time(DateTime.Now)
|
sTime2=DateTime.Time(DateTime.Now)
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?)",Array As String(no_cliente,sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text,et_direccion.Text, fototomada, ALMACEN, no_ruta,cb_giro.SelectedItem))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?)",Array As String(no_cliente,sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text,et_direccion.Text, fototomada, ALMACEN, no_ruta,cb_giro.SelectedItem))
|
||||||
fototomada = "0"
|
fototomada = "0"
|
||||||
B4XPages.ShowPage("Principal")
|
B4XPages.ShowPage("Principal")
|
||||||
CallSubDelayed(Tracker, "StartFLP")
|
CallSubDelayed(Tracker, "StartFLP")
|
||||||
|
|||||||
@@ -89,7 +89,7 @@ Sub B4XPage_Appear
|
|||||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||||
End If
|
End If
|
||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
ALMACEN = C.GetString("ID_ALMACEN")
|
ALMACEN = C.GetString("ID_ALMACEN")
|
||||||
C.Close
|
C.Close
|
||||||
@@ -97,7 +97,7 @@ Sub B4XPage_Appear
|
|||||||
sb.Initialize
|
sb.Initialize
|
||||||
p.Shell("ping -c1 -W1 177.244.63.54",Null, sb,Null)
|
p.Shell("ping -c1 -W1 177.244.63.54",Null, sb,Null)
|
||||||
skmt.Initialize(ruta,"kmt.db", True)
|
skmt.Initialize(ruta,"kmt.db", True)
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
|
c=Starter.skmt.ExecQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
L_PROID.Text = c.GetString("CAT_GP_ID")
|
L_PROID.Text = c.GetString("CAT_GP_ID")
|
||||||
l_tipo.Text = c.GetString("CAT_GP_TIPO")
|
l_tipo.Text = c.GetString("CAT_GP_TIPO")
|
||||||
@@ -113,44 +113,44 @@ Sub B4XPage_Appear
|
|||||||
PROMO_CR = c.GetString("CAT_GP_IMP1")
|
PROMO_CR = c.GetString("CAT_GP_IMP1")
|
||||||
cambio = "0"
|
cambio = "0"
|
||||||
|
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS FROM pedido WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select cuenta from cuentaa) ", Array As String(c.GetString("CAT_GP_ID")))
|
e=Starter.skmt.ExecQuery2("select count(*) as CUANTOS FROM pedido WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select cuenta from cuentaa) ", Array As String(c.GetString("CAT_GP_ID")))
|
||||||
e.Position =0
|
e.Position =0
|
||||||
If e.GetString("CUANTOS") = 0 Then
|
If e.GetString("CUANTOS") = 0 Then
|
||||||
If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
|
If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
|
||||||
DESC_PROMO.Visible = True
|
DESC_PROMO.Visible = True
|
||||||
CC=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
|
CC=Starter.skmt.ExecQuery2("select count(*) as CUANTOS FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
|
||||||
CC.Position =0
|
CC.Position =0
|
||||||
If CC.GetString("CUANTOS") = 0 Then
|
If CC.GetString("CUANTOS") = 0 Then
|
||||||
l_bodega.Text = "0" ' se modifica a cero para evitar error en la promo especial de unilever mayo
|
l_bodega.Text = "0" ' se modifica a cero para evitar error en la promo especial de unilever mayo
|
||||||
Else
|
Else
|
||||||
CC.Close
|
CC.Close
|
||||||
CC=B4XPages.MainPage.skmt.ExecQuery2("select CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
|
CC=Starter.skmt.ExecQuery2("select CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE FROM PROMOS_COMP WHERE CAT_PA_ID = ?", Array As String(c.GetString("CAT_GP_ID")))
|
||||||
CC.Position =0
|
CC.Position =0
|
||||||
' SE MODIFICA LA APLICACION PARA QUE VEA EL HISTORIAL DE VENTA DEL CLIENTE.
|
' SE MODIFICA LA APLICACION PARA QUE VEA EL HISTORIAL DE VENTA DEL CLIENTE.
|
||||||
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
|
DD=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
|
||||||
DD.Position =0
|
DD.Position =0
|
||||||
If DD.GetString("CUANTOS") = 0 Then
|
If DD.GetString("CUANTOS") = 0 Then
|
||||||
HCCP_CANT = 0
|
HCCP_CANT = 0
|
||||||
Else
|
Else
|
||||||
DD.Close
|
DD.Close
|
||||||
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT HCCP_CANT FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
|
DD=Starter.skmt.ExecQuery2("SELECT HCCP_CANT FROM HIST_CLIENTE_CANT_PROMOS WHERE HCCP_CLIENTE IN (Select cuenta from cuentaa) AND HCCP_PROMO =?", Array As String(c.GetString("CAT_GP_ID")))
|
||||||
DD.Position =0
|
DD.Position =0
|
||||||
HCCP_CANT = DD.GetString("HCCP_CANT")
|
HCCP_CANT = DD.GetString("HCCP_CANT")
|
||||||
DD.Close
|
DD.Close
|
||||||
End If
|
End If
|
||||||
BONSABOR = HCCP_CANT
|
BONSABOR = HCCP_CANT
|
||||||
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
|
DD=Starter.skmt.ExecQuery2("SELECT COUNT(*) AS CUANTOS FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
|
||||||
DD.Position =0
|
DD.Position =0
|
||||||
If DD.GetString("CUANTOS") = 0 Then
|
If DD.GetString("CUANTOS") = 0 Then
|
||||||
HCCP_CANT = 0
|
HCCP_CANT = 0
|
||||||
Else
|
Else
|
||||||
DD.Close
|
DD.Close
|
||||||
DD=B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(HVD_CANT) AS HCCP_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
|
DD=Starter.skmt.ExecQuery2("SELECT SUM(HVD_CANT) AS HCCP_CANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select cuenta from cuentaa) AND HVD_PRONOMBRE =?", Array As String(c.GetString("CAT_GP_NOMBRE")))
|
||||||
DD.Position =0
|
DD.Position =0
|
||||||
HCCP_CANT = DD.GetString("HCCP_CANT")
|
HCCP_CANT = DD.GetString("HCCP_CANT")
|
||||||
DD.Close
|
DD.Close
|
||||||
End If
|
End If
|
||||||
DD=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PROID IN (select CAT_GP_ID from CAT_GUNAPROD where CAT_GP_CLASIF = ?) ",Array As String(c.GetString("CAT_GP_NOMBRE")))
|
DD=Starter.skmt.ExecQuery2("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) AND PE_PROID IN (select CAT_GP_ID from CAT_GUNAPROD where CAT_GP_CLASIF = ?) ",Array As String(c.GetString("CAT_GP_NOMBRE")))
|
||||||
DD.Position =0
|
DD.Position =0
|
||||||
BONSABOR2 = DD.GetString("CUANTOS")
|
BONSABOR2 = DD.GetString("CUANTOS")
|
||||||
DD.Close
|
DD.Close
|
||||||
@@ -167,7 +167,7 @@ Sub B4XPage_Appear
|
|||||||
DESC_PROMO.Visible = False
|
DESC_PROMO.Visible = False
|
||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select CASE WHEN pe_costo_tot is null then 0 else sum( pe_costo_tot ) end as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select CASE WHEN pe_costo_tot is null then 0 else sum( pe_costo_tot ) end as TOTAL_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
t_venta.Text = c.GetString("TOTAL_CLIE")
|
t_venta.Text = c.GetString("TOTAL_CLIE")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -205,24 +205,24 @@ Sub guardar_Click
|
|||||||
ELSE If cantidad.Text > l_bodega.Text Then
|
ELSE If cantidad.Text > l_bodega.Text Then
|
||||||
Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
|
Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
|
||||||
Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
|
Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
|
Starter.skmt.ExecNonQuery("delete from PROIDID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
|
||||||
c.Position =0
|
c.Position =0
|
||||||
If c.GetString("CUANTOSD") = 0 Then
|
If c.GetString("CUANTOSD") = 0 Then
|
||||||
Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
|
Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
|
c=Starter.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
|
TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
|
||||||
COSTO_TOT = C.GetString("COSTO_TOT")
|
COSTO_TOT = C.GetString("COSTO_TOT")
|
||||||
C.Close
|
C.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
||||||
c.Position =0
|
c.Position =0
|
||||||
If c.GetString("CUANTOSD") = 0 Then
|
If c.GetString("CUANTOSD") = 0 Then
|
||||||
TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
|
TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
|
TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
|
||||||
End If
|
End If
|
||||||
@@ -230,60 +230,60 @@ Sub guardar_Click
|
|||||||
PROMO_C = PROMO_C * cantidad.Text
|
PROMO_C = PROMO_C * cantidad.Text
|
||||||
PROMO_CR = PROMO_CR * cantidad.Text
|
PROMO_CR = PROMO_CR * cantidad.Text
|
||||||
If TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
|
If TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
|
||||||
D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
|
D=Starter.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
|
||||||
If D.RowCount>0 Then
|
If D.RowCount>0 Then
|
||||||
For i=0 To D.RowCount -1
|
For i=0 To D.RowCount -1
|
||||||
D.Position=i
|
D.Position=i
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
D.Close
|
D.Close
|
||||||
D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
|
D=Starter.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
|
||||||
If D.RowCount>0 Then
|
If D.RowCount>0 Then
|
||||||
For i=0 To D.RowCount -1
|
For i=0 To D.RowCount -1
|
||||||
D.Position=i
|
D.Position=i
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
D.Close
|
D.Close
|
||||||
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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
|
e=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
|
||||||
' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
||||||
e.Position =0
|
e.Position =0
|
||||||
If e.GetString("CUANTOS") > 0 Then
|
If e.GetString("CUANTOS") > 0 Then
|
||||||
F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
F=Starter.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
||||||
'meter el otro
|
'meter el otro
|
||||||
'si jala copiar para guna y el resto
|
'si jala copiar para guna y el resto
|
||||||
If f.RowCount>0 Then
|
If f.RowCount>0 Then
|
||||||
For i=0 To f.RowCount -1
|
For i=0 To f.RowCount -1
|
||||||
f.Position=i
|
f.Position=i
|
||||||
precio_Cero = f.GetString("CAT_DP_PRECIO")
|
precio_Cero = f.GetString("CAT_DP_PRECIO")
|
||||||
h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
||||||
h.Position=0
|
h.Position=0
|
||||||
'0
|
'0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta))
|
||||||
h.Close
|
h.Close
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
f.Close
|
f.Close
|
||||||
End If
|
End If
|
||||||
e.Close
|
e.Close
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
Else
|
Else
|
||||||
Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
|
Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
|
||||||
End If
|
End If
|
||||||
@@ -291,71 +291,71 @@ Sub guardar_Click
|
|||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
B4XPages.ShowPage("Productos")
|
B4XPages.ShowPage("Productos")
|
||||||
else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
|
else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
|
Starter.skmt.ExecNonQuery("delete from PROIDID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
clie_id = c.GetString("CUENTA")
|
clie_id = c.GetString("CUENTA")
|
||||||
c.Close
|
c.Close
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
'B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
|
'Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO) VALUES(?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario))
|
||||||
'para insertar la promo de ades el de regalo en 0
|
'para insertar la promo de ades el de regalo en 0
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
|
e=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
|
||||||
e.Position =0
|
e.Position =0
|
||||||
If e.GetString("CUANTOS") > 0 Then
|
If e.GetString("CUANTOS") > 0 Then
|
||||||
F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
|
F=Starter.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
|
||||||
For i =0 To f.RowCount -1
|
For i =0 To f.RowCount -1
|
||||||
F.Position =i
|
F.Position =i
|
||||||
h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
||||||
h.Position=0
|
h.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
||||||
h.Close
|
h.Close
|
||||||
Next
|
Next
|
||||||
f.Close
|
f.Close
|
||||||
End If
|
End If
|
||||||
e.Close
|
e.Close
|
||||||
'0
|
'0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), 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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info 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"
|
||||||
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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), 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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info 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))
|
Starter.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
|
||||||
End Sub
|
End Sub
|
||||||
@@ -371,24 +371,24 @@ Sub Terminar_Click
|
|||||||
ELSE If cantidad.Text > l_bodega.Text Then
|
ELSE If cantidad.Text > l_bodega.Text Then
|
||||||
Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
|
Msgbox("Exede la existencia", "ADVERTENCIA") 'ignore
|
||||||
Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
|
Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
|
Starter.skmt.ExecNonQuery("delete from PROIDID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_TIPO = 1)")
|
||||||
c.Position =0
|
c.Position =0
|
||||||
If c.GetString("CUANTOSD") = 0 Then
|
If c.GetString("CUANTOSD") = 0 Then
|
||||||
Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
|
Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA") 'ignore
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
|
c=Starter.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1)")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
|
TOT_ART_PROMO = C.GetString("TOT_ART_PROMO")
|
||||||
COSTO_TOT = C.GetString("COSTO_TOT")
|
COSTO_TOT = C.GetString("COSTO_TOT")
|
||||||
C.Close
|
C.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select count(*) as CUANTOSD from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
||||||
c.Position =0
|
c.Position =0
|
||||||
If c.GetString("CUANTOSD") = 0 Then
|
If c.GetString("CUANTOSD") = 0 Then
|
||||||
TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
|
TOT_ART_PROMOR = "0" 'Msgbox("No tiene venta el cliente para la promo", "ADVERTENCIA")
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
c=Starter.skmt.ExecQuery("Select sum(pe_cant) As TOT_ART_PROMO, sum(PE_COSTO_TOT) as COSTO_TOT from pedido where PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1)")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
|
TOT_ART_PROMOR = C.GetString("TOT_ART_PROMO")
|
||||||
End If
|
End If
|
||||||
@@ -397,55 +397,55 @@ Sub Terminar_Click
|
|||||||
PROMO_CR = PROMO_CR * cantidad.Text
|
PROMO_CR = PROMO_CR * cantidad.Text
|
||||||
If TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
|
If TOT_ART_PROMO = PROMO_C And TOT_ART_PROMOR = PROMO_CR Then
|
||||||
' anterior a 29/06/2015
|
' anterior a 29/06/2015
|
||||||
'B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(l_precio.text/(TOT_ART_PROMO/cantidad.Text),l_precio.text/(TOT_ART_PROMO/cantidad.Text)))
|
'Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(l_precio.text/(TOT_ART_PROMO/cantidad.Text),l_precio.text/(TOT_ART_PROMO/cantidad.Text)))
|
||||||
'en pe_cedis meto el codigo de promocion para hacer esta validacion.
|
'en pe_cedis meto el codigo de promocion para hacer esta validacion.
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_CEDIS = (?) WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) and pe_proid In (Select cat_dp_idprod from CAT_DETALLES_PAQ WHERE CAT_DP_ID In (Select PROIDID from PROIDID))", Array As Object(L_PROID.text))
|
||||||
D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
|
D=Starter.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND CAT_DP_PRECIO > 1")
|
||||||
If D.RowCount>0 Then
|
If D.RowCount>0 Then
|
||||||
For i=0 To D.RowCount -1
|
For i=0 To D.RowCount -1
|
||||||
D.Position=i
|
D.Position=i
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
D.Close
|
D.Close
|
||||||
D=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
|
D=Starter.skmt.ExecQuery("select CAT_DP_ID, CAT_DP_PRECIO, CAT_DP_PRECIO_SIMPTOS, CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0) AND CAT_DP_TIPO = 1")
|
||||||
If D.RowCount>0 Then
|
If D.RowCount>0 Then
|
||||||
For i=0 To D.RowCount -1
|
For i=0 To D.RowCount -1
|
||||||
D.Position=i
|
D.Position=i
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_COSTOU = (?), PE_COSTO_TOT = PE_CANT * (?) , PE_COSTO_SIN = (?) WHERE PE_PROID = (?) And PE_CEDIS In (Select PROIDID from PROIDID) AND PE_CLIENTE IN (Select CUENTA from cuentaa) ",Array As Object( D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO"), D.GetString("CAT_DP_PRECIO_SIMPTOS"),D.GetString("CAT_DP_IDPROD")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
D.Close
|
D.Close
|
||||||
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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
'para insertar la promo de ades el de regalo en 0
|
'para insertar la promo de ades el de regalo en 0
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
|
e=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ")
|
||||||
' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
' SE LO QUITE DE CONDICION AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
||||||
e.Position =0
|
e.Position =0
|
||||||
If e.GetString("CUANTOS") > 0 Then
|
If e.GetString("CUANTOS") > 0 Then
|
||||||
F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
F=Starter.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS,CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) and CAT_DP_TIPO = 0 ") ' AND (CAT_DP_PRECIO = 0.01 or CAT_DP_PRECIO = 1 OR CAT_DP_PRECIO = 0)
|
||||||
'meter el otro
|
'meter el otro
|
||||||
'si jala copiar para guna y el resto
|
'si jala copiar para guna y el resto
|
||||||
If f.RowCount>0 Then
|
If f.RowCount>0 Then
|
||||||
For i=0 To f.RowCount -1
|
For i=0 To f.RowCount -1
|
||||||
f.Position=i
|
f.Position=i
|
||||||
precio_Cero = f.GetString("CAT_DP_PRECIO")
|
precio_Cero = f.GetString("CAT_DP_PRECIO")
|
||||||
h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
||||||
h.Position=0
|
h.Position=0
|
||||||
Log(111)
|
Log(111)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,precio_Cero * f.GetString("CAT_DP_PZAS") * cantidad.text, precio_Cero, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
||||||
h.Close
|
h.Close
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
@@ -453,8 +453,8 @@ Sub Terminar_Click
|
|||||||
End If
|
End If
|
||||||
e.Close
|
e.Close
|
||||||
Log(222)
|
Log(222)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
Else
|
Else
|
||||||
Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
|
Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
|
||||||
End If
|
End If
|
||||||
@@ -462,72 +462,72 @@ Sub Terminar_Click
|
|||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
B4XPages.ShowPage("Cliente")
|
B4XPages.ShowPage("Cliente")
|
||||||
else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
|
else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C = 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
|
Starter.skmt.ExecNonQuery("delete from PROIDID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
clie_id = c.GetString("CUENTA")
|
clie_id = c.GetString("CUENTA")
|
||||||
c.Close
|
c.Close
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
'para insertar la promo de ades el de regalo en 0
|
'para insertar la promo de ades el de regalo en 0
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
|
e=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID) ")
|
||||||
e.Position =0
|
e.Position =0
|
||||||
If e.GetString("CUANTOS") > 0 Then
|
If e.GetString("CUANTOS") > 0 Then
|
||||||
F=B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
|
F=Starter.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, CAT_DP_PRECIO FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (Select PROIDID from PROIDID)")
|
||||||
For i =0 To f.RowCount -1
|
For i =0 To f.RowCount -1
|
||||||
F.Position =i
|
F.Position =i
|
||||||
h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
|
||||||
h.Position=0
|
h.Position=0
|
||||||
Log(333)
|
Log(333)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,f.GetString("CAT_DP_PRECIO") * cantidad.text * f.GetString("CAT_DP_PZAS"), f.GetString("CAT_DP_PRECIO"), f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
|
||||||
h.Close
|
h.Close
|
||||||
Next
|
Next
|
||||||
f.Close
|
f.Close
|
||||||
End If
|
End If
|
||||||
e.Close
|
e.Close
|
||||||
Log(444)
|
Log(444)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), 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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info 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"
|
||||||
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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
Log(555)
|
Log(555)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), 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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info 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))
|
Starter.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
|
||||||
End Sub
|
End Sub
|
||||||
@@ -550,8 +550,8 @@ Sub i_fotol_Click
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub DESC_PROMO_Click
|
Sub DESC_PROMO_Click
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROIDID")
|
Starter.skmt.ExecNonQuery("delete from PROIDID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
|
||||||
B4XPages.ShowPage("detalle_promo")
|
B4XPages.ShowPage("detalle_promo")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -564,14 +564,14 @@ Sub nopromo_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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
clie_id = c.GetString("CUENTA")
|
clie_id = c.GetString("CUENTA")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario, b4xpages.MainPage.tipo_venta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?) ", Array As Object ("COACALCO",0,0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario, b4xpages.MainPage.tipo_venta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
|
||||||
cantidad.Text = ""
|
cantidad.Text = ""
|
||||||
B4XPages.ShowPage("Productos")
|
B4XPages.ShowPage("Productos")
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ Sub Class_Globals
|
|||||||
Dim sb As StringBuilder
|
Dim sb As StringBuilder
|
||||||
Dim PHONE As Phone
|
Dim PHONE As Phone
|
||||||
Dim g As GPS
|
Dim g As GPS
|
||||||
Dim IME as IME
|
Dim IME As IME
|
||||||
Dim trabajar As Button
|
Dim trabajar As Button
|
||||||
' Dim lat_gps, lon_gps As String
|
' Dim lat_gps, lon_gps As String
|
||||||
Dim c As Cursor
|
Dim c As Cursor
|
||||||
@@ -249,23 +249,23 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
End If
|
End If
|
||||||
DateTime.DateFormat = "MM/dd/yyyy"
|
DateTime.DateFormat = "MM/dd/yyyy"
|
||||||
fecha=DateTime.Date(DateTime.Now)
|
fecha=DateTime.Date(DateTime.Now)
|
||||||
B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
|
Starter.skmt.Initialize(ruta,"kmt.db", True)
|
||||||
b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||||
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=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
|
||||||
d.Position=0
|
d.Position=0
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
|
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
|
||||||
e.Position=0
|
e.Position=0
|
||||||
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
f=Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||||
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
|
||||||
@@ -281,8 +281,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||||
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
c=Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
b=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||||
'where pc_fecha = ?", Array As String(fecha)
|
'where pc_fecha = ?", Array As String(fecha)
|
||||||
c.Position=0
|
c.Position=0
|
||||||
b.Position=0
|
b.Position=0
|
||||||
@@ -300,7 +300,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
End If
|
End If
|
||||||
d.Close
|
d.Close
|
||||||
e.Close
|
e.Close
|
||||||
Private ds As Cursor = B4XPages.MainPage.skmt.ExecQuery("select cat_cl_diasemana from kmt_info")
|
Private ds As Cursor = Starter.skmt.ExecQuery("select cat_cl_diasemana from kmt_info")
|
||||||
If ds.RowCount > 0 Then
|
If ds.RowCount > 0 Then
|
||||||
ds.Position = 0
|
ds.Position = 0
|
||||||
Starter.dia_semana = ds.GetString("CAT_CL_DIASEMANA")
|
Starter.dia_semana = ds.GetString("CAT_CL_DIASEMANA")
|
||||||
@@ -310,7 +310,7 @@ End Sub
|
|||||||
|
|
||||||
Sub B4XPage_Appear
|
Sub B4XPage_Appear
|
||||||
' s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
|
' s.reqManagerReInit 'Reiniciamos el DBReqManager de C_Subs por si hay modificacion en el servidor.
|
||||||
reqManager.Initialize(Me, Starter.server)
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
' B4XPages.MainPage.cliente.mandaPendientes 'Ejecutamos mandaPendientes.
|
' B4XPages.MainPage.cliente.mandaPendientes 'Ejecutamos mandaPendientes.
|
||||||
rd.respaldaPedido
|
rd.respaldaPedido
|
||||||
rd.respaldaInventarios
|
rd.respaldaInventarios
|
||||||
@@ -318,13 +318,13 @@ Sub B4XPage_Appear
|
|||||||
nvo_cliente.Enabled = False
|
nvo_cliente.Enabled = False
|
||||||
HORAINGRESO ="000000"
|
HORAINGRESO ="000000"
|
||||||
Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
|
Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
|
||||||
' reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
|
' reqManager.Initialize(Me, B4XPages.MainPage.DBReqServer)
|
||||||
PASO =0
|
PASO =0
|
||||||
If Not(Starter.gps.GPSEnabled) Then
|
If Not(Starter.gps.GPSEnabled) Then
|
||||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Es necesario tener el GPS encendido", True)
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Es necesario tener el GPS encendido", True)
|
||||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||||
End If
|
End If
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||||
c.Position =0
|
c.Position =0
|
||||||
If c.GetString("CUANTOS") = 0 Then
|
If c.GetString("CUANTOS") = 0 Then
|
||||||
cmd.Initialize
|
cmd.Initialize
|
||||||
@@ -333,7 +333,7 @@ Sub B4XPage_Appear
|
|||||||
Msgbox("AJUSTAR FECHA","AVISO") 'ignore
|
Msgbox("AJUSTAR FECHA","AVISO") 'ignore
|
||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
||||||
c.Position=0
|
c.Position=0
|
||||||
Dim sDate,sTime As String
|
Dim sDate,sTime As String
|
||||||
DateTime.DateFormat = "yyyyMMdd"
|
DateTime.DateFormat = "yyyyMMdd"
|
||||||
@@ -357,23 +357,23 @@ Sub B4XPage_Appear
|
|||||||
End If
|
End If
|
||||||
DateTime.DateFormat = "MM/dd/yyyy"
|
DateTime.DateFormat = "MM/dd/yyyy"
|
||||||
fecha=DateTime.Date(DateTime.Now)
|
fecha=DateTime.Date(DateTime.Now)
|
||||||
b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
||||||
b.Position=0
|
b.Position=0
|
||||||
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=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
|
||||||
d.Position=0
|
d.Position=0
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
|
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
|
||||||
e.Position=0
|
e.Position=0
|
||||||
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
f=Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
|
||||||
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=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||||
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
|
||||||
@@ -391,19 +391,19 @@ Sub B4XPage_Appear
|
|||||||
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||||
d.Close
|
d.Close
|
||||||
e.Close
|
e.Close
|
||||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
b=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||||
b.Position=0
|
b.Position=0
|
||||||
l_cuantosn.Text = b.GetString("CUANTOS")
|
l_cuantosn.Text = b.GetString("CUANTOS")
|
||||||
b.close
|
b.close
|
||||||
Else
|
Else
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
|
c=Starter.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
|
||||||
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
b=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
b.Position=0
|
b.Position=0
|
||||||
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
L_MONTOD.Text = c.GetString("MONTO_DIA")
|
||||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||||
|
|
||||||
D2=B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
D2=Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
||||||
D2.Position = 0
|
D2.Position = 0
|
||||||
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
|
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
|
||||||
D2.Close
|
D2.Close
|
||||||
@@ -438,7 +438,7 @@ Sub B4XPage_Appear
|
|||||||
c.Close
|
c.Close
|
||||||
b.Close
|
b.Close
|
||||||
e.Close
|
e.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
C.Position =0
|
C.Position =0
|
||||||
ALMACEN = C.GetString("ID_ALMACEN")
|
ALMACEN = C.GetString("ID_ALMACEN")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -446,7 +446,7 @@ Sub B4XPage_Appear
|
|||||||
batterystatus = bu.BatteryInformation
|
batterystatus = bu.BatteryInformation
|
||||||
|
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -459,7 +459,7 @@ Sub B4XPage_Appear
|
|||||||
B4XPages.MainPage.rutapreventa = l_ruta.text
|
B4XPages.MainPage.rutapreventa = l_ruta.text
|
||||||
|
|
||||||
'////// Para el usuario global - Chv
|
'////// Para el usuario global - Chv
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
B4XPages.MainPage.usuario = usuario
|
B4XPages.MainPage.usuario = usuario
|
||||||
@@ -467,7 +467,7 @@ Sub B4XPage_Appear
|
|||||||
'///////
|
'///////
|
||||||
CallSub(Starter, "ENVIA_ULTIMA_GPS")
|
CallSub(Starter, "ENVIA_ULTIMA_GPS")
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select AUTORIZADO from BANDERA")
|
c=Starter.skmt.ExecQuery("select AUTORIZADO from BANDERA")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
If c.GetString("AUTORIZADO") = "0" Then
|
If c.GetString("AUTORIZADO") = "0" Then
|
||||||
@@ -516,13 +516,13 @@ Sub Subir_Click
|
|||||||
PASO = 1
|
PASO = 1
|
||||||
'End If
|
'End If
|
||||||
If PASO =1 Then
|
If PASO =1 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
|
Starter.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
c=Starter.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
||||||
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
|
||||||
@@ -536,8 +536,8 @@ Sub Subir_Click
|
|||||||
c.Close
|
c.Close
|
||||||
' PEDIO_CLIENTE
|
' PEDIO_CLIENTE
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ")
|
c=Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ")
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||||
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
|
||||||
@@ -557,7 +557,7 @@ Sub Subir_Click
|
|||||||
'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_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
|
||||||
|
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
|
c=Starter.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
|
||||||
@@ -571,7 +571,7 @@ Sub Subir_Click
|
|||||||
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=Starter.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")
|
||||||
' 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
|
||||||
@@ -587,7 +587,7 @@ Sub Subir_Click
|
|||||||
' End If
|
' End If
|
||||||
' c.Close
|
' c.Close
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
c=Starter.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
|
||||||
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
|
||||||
@@ -600,8 +600,8 @@ Sub Subir_Click
|
|||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO")
|
c=Starter.skmt.ExecQuery("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO")
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
d=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||||
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
|
||||||
@@ -618,8 +618,8 @@ Sub Subir_Click
|
|||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
' NOVENTA
|
' NOVENTA
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA")
|
c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA")
|
||||||
D=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||||
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
|
||||||
@@ -642,7 +642,7 @@ Sub Subir_Click
|
|||||||
Dim Dir2 As String
|
Dim Dir2 As String
|
||||||
Dir = "/promotoriakmts"
|
Dir = "/promotoriakmts"
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS")
|
c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS")
|
||||||
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
|
||||||
@@ -658,7 +658,7 @@ Sub Subir_Click
|
|||||||
c.Close
|
c.Close
|
||||||
' GEO CERCA
|
' GEO CERCA
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
c=Starter.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
||||||
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
|
||||||
@@ -673,7 +673,7 @@ Sub Subir_Click
|
|||||||
|
|
||||||
' LO DEL LIKE
|
' LO DEL LIKE
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
|
c=Starter.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
|
||||||
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
|
||||||
@@ -688,7 +688,7 @@ Sub Subir_Click
|
|||||||
'fotos
|
'fotos
|
||||||
' Dim fotox() As Byte
|
' Dim fotox() As Byte
|
||||||
' Dim cmd As DBCommand
|
' Dim cmd As DBCommand
|
||||||
' c = B4XPages.MainPage.skmt.ExecQuery("Select CODIGO, ALMACEN, RUTA, NOM_FOTO from HIST_FOTO_CLIENTE")
|
' c = Starter.skmt.ExecQuery("Select CODIGO, ALMACEN, RUTA, NOM_FOTO from HIST_FOTO_CLIENTE")
|
||||||
'
|
'
|
||||||
' c.Position = 0
|
' c.Position = 0
|
||||||
'
|
'
|
||||||
@@ -731,7 +731,7 @@ End Sub
|
|||||||
Sub cargar_Click
|
Sub cargar_Click
|
||||||
IME.HideKeyboard
|
IME.HideKeyboard
|
||||||
Dim pedidodiaanterior As Boolean = False
|
Dim pedidodiaanterior As Boolean = False
|
||||||
Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
|
Dim cp As Cursor = Starter.skmt.ExecQuery("select * from PEDIDO")
|
||||||
If cp.RowCount > 0 Then
|
If cp.RowCount > 0 Then
|
||||||
cp.Position = 0
|
cp.Position = 0
|
||||||
Private fecha As String = cp.GetString("PE_FECHA")
|
Private fecha As String = cp.GetString("PE_FECHA")
|
||||||
@@ -783,37 +783,37 @@ Sub cargar_Click
|
|||||||
TOPE = 0
|
TOPE = 0
|
||||||
' NUEVOS CLIENTE
|
' NUEVOS CLIENTE
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info")
|
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
|
Starter.skmt.ExecNonQuery("delete from cod_result")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_GIRO")
|
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from BANDERA")
|
Starter.skmt.ExecNonQuery("delete from BANDERA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
|
Starter.skmt.ExecNonQuery("delete from hist_gest")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
|
Starter.skmt.ExecNonQuery("delete from telefonos")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
Starter.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
Starter.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
Starter.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
Starter.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS")
|
Starter.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_AVANCE")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_AVANCE")
|
||||||
|
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
c = Starter.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
DateTime.TimeFormat = "HHmmss"
|
DateTime.TimeFormat = "HHmmss"
|
||||||
'Valida si ya se cuenta con hora actualiza el valor si no lo inserta-----------
|
'Valida si ya se cuenta con hora actualiza el valor si no lo inserta-----------
|
||||||
If c.GetString("HoraIngreso") > 0 Then
|
If c.GetString("HoraIngreso") > 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
Starter.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||||
Else
|
Else
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
DateTime.TimeFormat = "HH:mm:ss"
|
DateTime.TimeFormat = "HH:mm:ss"
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -1036,7 +1036,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESC"))
|
Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESC"))
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
|
||||||
Next
|
Next
|
||||||
If PB2.Progress = 0 Then
|
If PB2.Progress = 0 Then
|
||||||
PB2.Progress = 30
|
PB2.Progress = 30
|
||||||
@@ -1067,7 +1067,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim aurotizado As String = records(RESULT.Columns.Get("CAT_RU_B_ALTA_CLIENTES"))
|
Dim aurotizado As String = records(RESULT.Columns.Get("CAT_RU_B_ALTA_CLIENTES"))
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO BANDERA(AUTORIZADO) VALUES (?)", Array As Object (aurotizado))
|
Starter.skmt.ExecNonQuery2("INSERT INTO BANDERA(AUTORIZADO) VALUES (?)", Array As Object (aurotizado))
|
||||||
Next
|
Next
|
||||||
If PB2.Progress = 0 Then
|
If PB2.Progress = 0 Then
|
||||||
PB2.Progress = 30
|
PB2.Progress = 30
|
||||||
@@ -1120,8 +1120,8 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_CL_DIASEMANA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
|
Dim CAT_CL_DIASEMANA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
|
||||||
Dim CAT_CL_SECUENCIA As Int = records(RESULT.Columns.Get("CAT_CL_SECUENCIA"))
|
Dim CAT_CL_SECUENCIA As Int = records(RESULT.Columns.Get("CAT_CL_SECUENCIA"))
|
||||||
Starter.dia_semana = CAT_CL_DIASEMANA
|
Starter.dia_semana = CAT_CL_DIASEMANA
|
||||||
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, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA) 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_DIASEMANA, CAT_CL_SECUENCIA))
|
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_DIASEMANA, CAT_CL_SECUENCIA) 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_DIASEMANA, CAT_CL_SECUENCIA))
|
||||||
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))
|
Starter.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
|
||||||
S_CC.Text = "LISTO"
|
S_CC.Text = "LISTO"
|
||||||
@@ -1185,7 +1185,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA"))
|
Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA"))
|
||||||
Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN"))
|
Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN"))
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
|
||||||
' Msgbox("pasa","alo")
|
' Msgbox("pasa","alo")
|
||||||
Next
|
Next
|
||||||
Listo1 = 1
|
Listo1 = 1
|
||||||
@@ -1200,7 +1200,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE"))
|
Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE"))
|
||||||
Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION"))
|
Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_PROMOCION))
|
||||||
Next
|
Next
|
||||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
|
||||||
If PB1.Progress = 0 Then
|
If PB1.Progress = 0 Then
|
||||||
@@ -1222,7 +1222,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE"))
|
Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE"))
|
||||||
Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO"))
|
Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO"))
|
||||||
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
|
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT))
|
||||||
Next
|
Next
|
||||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
|
||||||
End If
|
End If
|
||||||
@@ -1234,7 +1234,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA"))
|
Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA"))
|
||||||
Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL"))
|
Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL))
|
||||||
Next
|
Next
|
||||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
|
||||||
End If
|
End If
|
||||||
@@ -1248,7 +1248,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
|
Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
|
||||||
Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
|
Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
|
||||||
Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
|
Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
|
||||||
Next
|
Next
|
||||||
If PB1.Progress = 0 Then
|
If PB1.Progress = 0 Then
|
||||||
PB1.Progress = 30
|
PB1.Progress = 30
|
||||||
@@ -1269,7 +1269,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD"))
|
Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD"))
|
||||||
Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE"))
|
Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE"))
|
||||||
Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN"))
|
Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE,CAT_VE_ORDEN))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1280,7 +1280,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA"))
|
Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA"))
|
||||||
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
|
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
|
Starter.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1303,7 +1303,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4"))
|
Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4"))
|
||||||
Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5"))
|
Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5"))
|
||||||
Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6"))
|
Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
|
||||||
Next
|
Next
|
||||||
|
|
||||||
End If
|
End If
|
||||||
@@ -1318,7 +1318,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE"))
|
Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE"))
|
||||||
Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA"))
|
Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA"))
|
||||||
Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB"))
|
Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1347,19 +1347,19 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_GP_TIPOPROD2 As String = records(RESULT.Columns.Get("CAT_DP_TIPOPROD2"))
|
Dim CAT_GP_TIPOPROD2 As String = records(RESULT.Columns.Get("CAT_DP_TIPOPROD2"))
|
||||||
' CAT_GP_INICIATIVA = 5
|
' CAT_GP_INICIATIVA = 5
|
||||||
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
|
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_TIPOPROD2) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_TIPOPROD2))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_GP_TIPOPROD2) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_GP_TIPOPROD2))
|
||||||
Next
|
Next
|
||||||
c=B4XPages.MainPage.skmt.ExecQUERY("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE <> 0")
|
c=Starter.skmt.ExecQUERY("SELECT COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE <> 0")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
|
|
||||||
cuantos_pedidosc = c.GetString("CUANTOS")
|
cuantos_pedidosc = c.GetString("CUANTOS")
|
||||||
c.Close
|
c.Close
|
||||||
If cuantos_pedidosc > 0 Then
|
If cuantos_pedidosc > 0 Then
|
||||||
c=B4XPages.MainPage.skmt.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID")
|
c=Starter.skmt.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID")
|
||||||
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
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update CAT_GUNAPROD set CAT_GP_ALMACEN = CAT_GP_ALMACEN - ? where CAT_GP_ID = ? ", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
Starter.skmt.ExecNonQuery2("update CAT_GUNAPROD set CAT_GP_ALMACEN = CAT_GP_ALMACEN - ? where CAT_GP_ID = ? ", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1403,7 +1403,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If CAT_GP_ID = "PAQUNI003" Then
|
If CAT_GP_ID = "PAQUNI003" Then
|
||||||
CAT_GP_ALMACEN = 60
|
CAT_GP_ALMACEN = 60
|
||||||
End If
|
End If
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
|
||||||
Next
|
Next
|
||||||
If PB2.Progress = 0 Then
|
If PB2.Progress = 0 Then
|
||||||
PB2.Progress = 30
|
PB2.Progress = 30
|
||||||
@@ -1446,7 +1446,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||||
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
||||||
'
|
'
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
|
||||||
Next
|
Next
|
||||||
If PB2.Progress = 0 Then
|
If PB2.Progress = 0 Then
|
||||||
PB2.Progress = 30
|
PB2.Progress = 30
|
||||||
@@ -1489,7 +1489,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||||
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||||
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
||||||
Next
|
Next
|
||||||
If PB2.Progress = 0 Then
|
If PB2.Progress = 0 Then
|
||||||
PB2.Progress = 30
|
PB2.Progress = 30
|
||||||
@@ -1522,7 +1522,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
||||||
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
||||||
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT))
|
||||||
Next
|
Next
|
||||||
Listo3 =1
|
Listo3 =1
|
||||||
If PB1.Progress = 0 Then
|
If PB1.Progress = 0 Then
|
||||||
@@ -1549,7 +1549,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION"))
|
Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION"))
|
||||||
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
|
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1559,8 +1559,8 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If RESULT.Tag = "CUESTIONARIO" Then 'query tag
|
If RESULT.Tag = "CUESTIONARIO" Then 'query tag
|
||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR"))
|
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO"))
|
Starter.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1639,9 +1639,9 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||||
If RESULT.Tag = "version" Then 'query tag
|
If RESULT.Tag = "version" Then 'query tag
|
||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION")
|
Starter.skmt.ExecNonQuery("delete from VERSION")
|
||||||
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
Starter.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1698,8 +1698,8 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If RESULT.Tag = "fecha" Then 'query tag
|
If RESULT.Tag = "fecha" Then 'query tag
|
||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA"))
|
Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1709,8 +1709,8 @@ Sub JobDone(Job As HttpJob)
|
|||||||
If RESULT.Tag = "folio" Then 'query tag
|
If RESULT.Tag = "folio" Then 'query tag
|
||||||
For Each records() As Object In RESULT.Rows
|
For Each records() As Object In RESULT.Rows
|
||||||
Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO"))
|
Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO"))
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1723,7 +1723,7 @@ Sub JobDone(Job As HttpJob)
|
|||||||
Dim avance As String = records(RESULT.Columns.Get("HIST_AM_AVANCE"))
|
Dim avance As String = records(RESULT.Columns.Get("HIST_AM_AVANCE"))
|
||||||
Dim objetivo As String = records(RESULT.Columns.Get("HIST_AM_OBJETIVO"))
|
Dim objetivo As String = records(RESULT.Columns.Get("HIST_AM_OBJETIVO"))
|
||||||
Dim porcentaje1 As String = records(RESULT.Columns.Get("HIST_AM_PORCENTAJE"))
|
Dim porcentaje1 As String = records(RESULT.Columns.Get("HIST_AM_PORCENTAJE"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca, avance, objetivo, porcentaje1))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1774,8 +1774,8 @@ End Sub
|
|||||||
'################################ Termina codigo de prueba #############################
|
'################################ Termina codigo de prueba #############################
|
||||||
|
|
||||||
Sub connecta_Click
|
Sub connecta_Click
|
||||||
reqManager.Initialize(Me, Starter.server)
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
Log(Starter.server)
|
Log(Starter.DBReqServer)
|
||||||
connecta1 = connecta1 + 1
|
connecta1 = connecta1 + 1
|
||||||
' imei = p.GetDeviceId
|
' imei = p.GetDeviceId
|
||||||
imei = ""
|
imei = ""
|
||||||
@@ -1786,7 +1786,7 @@ Sub connecta_Click
|
|||||||
reqManager.ExecuteQuery(cmd , 0, "version")
|
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||||
|
|
||||||
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
|
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
c = Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
||||||
Private usrT As String = c.GetString("USUARIO")
|
Private usrT As String = c.GetString("USUARIO")
|
||||||
@@ -1831,7 +1831,7 @@ Sub connecta_Click
|
|||||||
' 'SERVER = "http://177.244.63.54:1782"
|
' 'SERVER = "http://177.244.63.54:1782"
|
||||||
'' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
'' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
||||||
'' SERVER = "http://10.0.0.205:1782"
|
'' SERVER = "http://10.0.0.205:1782"
|
||||||
' reqManager.Initialize(Me, Starter.server)
|
' reqManager.Initialize(Me, Starter.DBReqServer)
|
||||||
' End If
|
' End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -1849,24 +1849,24 @@ Sub e_ruta_EnterPressed
|
|||||||
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
If RES = DialogResponse.POSITIVE Then
|
If RES = DialogResponse.POSITIVE Then
|
||||||
e_ruta.Text = ""
|
e_ruta.Text = ""
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
|
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
|
Starter.skmt.ExecNonQuery("delete from pedido")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
|
Starter.skmt.ExecNonQuery("delete from noventa")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
|
Starter.skmt.ExecNonQuery("delete from clie_act")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info")
|
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_GIRO")
|
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
|
Starter.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_FACE")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
Starter.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_FOTO_CLIENTE")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
|
Starter.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
|
||||||
B4XPage_Appear
|
B4XPage_Appear
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1888,9 +1888,9 @@ Sub inv_Click
|
|||||||
img2.Visible =True
|
img2.Visible =True
|
||||||
EJECUTANDO = 1
|
EJECUTANDO = 1
|
||||||
inve = 1
|
inve = 1
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -1999,18 +1999,18 @@ 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")
|
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
|
Starter.skmt.ExecNonQuery("delete from cod_result")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_GIRO")
|
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
|
Starter.skmt.ExecNonQuery("delete from hist_gest")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
|
Starter.skmt.ExecNonQuery("delete from telefonos")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
Starter.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
Starter.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
Starter.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
Starter.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
||||||
ExitApplication
|
ExitApplication
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -2067,17 +2067,17 @@ Sub resdia_Click
|
|||||||
cargar.Visible=False
|
cargar.Visible=False
|
||||||
Resumen.Visible= False
|
Resumen.Visible= False
|
||||||
|
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
d=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
l_encuesta.Text = d.GetString("CUANTOS")
|
l_encuesta.Text = d.GetString("CUANTOS")
|
||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
L_MARCAS.CLEAR
|
L_MARCAS.CLEAR
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
d=Starter.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
||||||
If D.RowCount>0 Then
|
If D.RowCount>0 Then
|
||||||
For i=0 To D.RowCount -1
|
For i=0 To D.RowCount -1
|
||||||
D.Position=i
|
D.Position=i
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
|
c=Starter.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
Dim label1 As Label
|
Dim label1 As Label
|
||||||
label1 = L_MARCAS.TwoLinesLayout.Label
|
label1 = L_MARCAS.TwoLinesLayout.Label
|
||||||
@@ -2093,7 +2093,7 @@ Sub resdia_Click
|
|||||||
End If
|
End If
|
||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("RTEC"))
|
c=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("RTEC"))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
l_monto_k.Text = c.GetString("MONTO_DIA")
|
l_monto_k.Text = c.GetString("MONTO_DIA")
|
||||||
If l_monto_k.Text = "null" Then
|
If l_monto_k.Text = "null" Then
|
||||||
@@ -2101,7 +2101,7 @@ Sub resdia_Click
|
|||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("PING"))
|
c=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("PING"))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
||||||
If l_monto_kp.Text = "null" Then
|
If l_monto_kp.Text = "null" Then
|
||||||
@@ -2117,7 +2117,7 @@ Sub resdia_Click
|
|||||||
' End If
|
' End If
|
||||||
'
|
'
|
||||||
' c.Close
|
' c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
c=Starter.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
l_monto_ks.Text = c.GetString("MONTO_DIA")
|
l_monto_ks.Text = c.GetString("MONTO_DIA")
|
||||||
If l_monto_ks.Text = "null" Then
|
If l_monto_ks.Text = "null" Then
|
||||||
@@ -2125,13 +2125,13 @@ Sub resdia_Click
|
|||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
Dim cuantos_obj As String
|
Dim cuantos_obj As String
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
c=Starter.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
cuantos_obj = c.GetString("TOTAL")
|
cuantos_obj = c.GetString("TOTAL")
|
||||||
c.Close
|
c.Close
|
||||||
|
|
||||||
If cuantos_obj > 0 Then
|
If cuantos_obj > 0 Then
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
c=Starter.skmt.ExecQuery("Select SUM( HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
L_NES.Text = c.GetString("TOTAL")
|
L_NES.Text = c.GetString("TOTAL")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -2147,11 +2147,11 @@ Sub resdia_Click
|
|||||||
L_LIN_TICK.Text = LPT
|
L_LIN_TICK.Text = LPT
|
||||||
If l_monto_ks.Text <> "0" Then
|
If l_monto_ks.Text <> "0" Then
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
|
c=Starter.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
||||||
c.Close
|
c.Close
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
|
d=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("PRIORITARIO"))
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
'///////////////////////////////////////////////////////////////////////////////
|
'///////////////////////////////////////////////////////////////////////////////
|
||||||
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
||||||
@@ -2164,12 +2164,12 @@ Sub resdia_Click
|
|||||||
L_PRIO.Text = d.GetString("MONTO_DIA")
|
L_PRIO.Text = d.GetString("MONTO_DIA")
|
||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
|
d=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("ESTRATEGICO"))
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
L_SECUND.Text =d.GetString("MONTO_DIA")
|
L_SECUND.Text =d.GetString("MONTO_DIA")
|
||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
|
d=Starter.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPOPROD = ?) ", Array As String("COMPLEMENTARIO"))
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
L_COMP.Text =d.GetString("MONTO_DIA")
|
L_COMP.Text =d.GetString("MONTO_DIA")
|
||||||
d.Close
|
d.Close
|
||||||
@@ -2179,10 +2179,10 @@ Sub resdia_Click
|
|||||||
L_COMP.Text = "0"
|
L_COMP.Text = "0"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
c=Starter.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("CUANTOS") > 0 Then
|
If c.GetString("CUANTOS") > 0 Then
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
d=Starter.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
L_CTE_PROMO.Text = d.GetString("CUANTOS")
|
L_CTE_PROMO.Text = d.GetString("CUANTOS")
|
||||||
d.Close
|
d.Close
|
||||||
@@ -2192,12 +2192,12 @@ Sub resdia_Click
|
|||||||
L_REDEN_PROMO.Text = 0
|
L_REDEN_PROMO.Text = 0
|
||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
|
d=Starter.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
|
L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
|
||||||
d.Close
|
d.Close
|
||||||
|
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
|
d=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
|
||||||
d.Position = 0
|
d.Position = 0
|
||||||
If d.GetString("CUANTOS") > 0 Then
|
If d.GetString("CUANTOS") > 0 Then
|
||||||
' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
||||||
@@ -2265,7 +2265,7 @@ Sub B_COMM_Click
|
|||||||
pnlTitle.LoadLayout("CellTitle")
|
pnlTitle.LoadLayout("CellTitle")
|
||||||
CLV1.Clear
|
CLV1.Clear
|
||||||
|
|
||||||
dd=B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS, PE_PRONOMBRE FROM PEDIDO GROUP BY PE_PRONOMBRE")
|
dd=Starter.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS, PE_PRONOMBRE FROM PEDIDO GROUP BY PE_PRONOMBRE")
|
||||||
If dd.RowCount>0 Then
|
If dd.RowCount>0 Then
|
||||||
For i=0 To dd.RowCount -1
|
For i=0 To dd.RowCount -1
|
||||||
dd.Position = i
|
dd.Position = i
|
||||||
@@ -2274,7 +2274,7 @@ Sub B_COMM_Click
|
|||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
dd.Close
|
dd.Close
|
||||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
' c=Starter.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
||||||
' CLV1.Clear
|
' CLV1.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
|
||||||
@@ -2283,7 +2283,7 @@ Sub B_COMM_Click
|
|||||||
' If c.GetString("CAT_GP_CLASIF") <> "PROMOS" Then
|
' If c.GetString("CAT_GP_CLASIF") <> "PROMOS" Then
|
||||||
'
|
'
|
||||||
'
|
'
|
||||||
' d=B4XPages.MainPage.skmt.ExecQuery2("SELECT SUM(PE_CANT) AS CUANTOS, PE_PRONOMBRE FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =? ) GROUP BY PE_PRONOMBRE", Array As String (c.GetString("CAT_GP_CLASIF")))
|
' d=Starter.skmt.ExecQuery2("SELECT SUM(PE_CANT) AS CUANTOS, PE_PRONOMBRE FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =? ) GROUP BY PE_PRONOMBRE", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||||
' If D.RowCount>0 Then
|
' If D.RowCount>0 Then
|
||||||
' For i=0 To d.RowCount -1
|
' For i=0 To d.RowCount -1
|
||||||
' d.Position = i
|
' d.Position = i
|
||||||
@@ -2321,14 +2321,14 @@ Sub B_MARCAS_Click
|
|||||||
' pnlTitle.Visible = False
|
' pnlTitle.Visible = False
|
||||||
' pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
' pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||||
' pnlTitle.LoadLayout("CellTitle")
|
' pnlTitle.LoadLayout("CellTitle")
|
||||||
' c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
' c=Starter.skmt.ExecQuery("Select CAT_GP_CLASIF, sum(pe_costo_tot) As total from CATALOGO, pedido where pe_proid = cat_gp_id And pe_cliente <> 0 group by cat_gp_clasif")
|
||||||
'
|
'
|
||||||
' CLV1.Clear
|
' CLV1.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
|
||||||
' c.Position=i
|
' c.Position=i
|
||||||
' AddTitle(c.GetString("CAT_GP_CLASIF"))
|
' AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||||
' f=B4XPages.MainPage.skmt.ExecQuery2("select * from HIST_AVANCE where HA_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
' f=Starter.skmt.ExecQuery2("select * from HIST_AVANCE where HA_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||||
' f.Position=0
|
' f.Position=0
|
||||||
' If f.RowCount > 0 Then
|
' If f.RowCount > 0 Then
|
||||||
' CLV1.AddTextItem("VENTA = $" & f.GetString("HA_AVANCE"),"1")
|
' CLV1.AddTextItem("VENTA = $" & f.GetString("HA_AVANCE"),"1")
|
||||||
@@ -2345,24 +2345,24 @@ Sub B_MARCAS_Click
|
|||||||
pnlTitle.Visible = False
|
pnlTitle.Visible = False
|
||||||
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
pnlTitle.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight + DividerHeight)
|
||||||
pnlTitle.LoadLayout("CellTitle")
|
pnlTitle.LoadLayout("CellTitle")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
c=Starter.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
||||||
CLV1.Clear
|
CLV1.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
|
||||||
c.Position=i
|
c.Position=i
|
||||||
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
||||||
If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
|
If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID")
|
d=Starter.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID")
|
||||||
d.Position=0
|
d.Position=0
|
||||||
CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1")
|
CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1")
|
||||||
d.Close
|
d.Close
|
||||||
Else
|
Else
|
||||||
f=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
f=Starter.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||||
f.Position=0
|
f.Position=0
|
||||||
If f.GetString("CUANTOS") > 0 Then
|
If f.GetString("CUANTOS") > 0 Then
|
||||||
e=B4XPages.MainPage.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
e=Starter.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
||||||
e.Position=0
|
e.Position=0
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
d=Starter.skmt.ExecQuery2("SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||||
d.Position=0
|
d.Position=0
|
||||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||||
CLV1.AddTextItem("M E T A = $" & e.GetString("HMC_TOTAL"),"1")
|
CLV1.AddTextItem("M E T A = $" & e.GetString("HMC_TOTAL"),"1")
|
||||||
@@ -2371,7 +2371,7 @@ Sub B_MARCAS_Click
|
|||||||
d.Close
|
d.Close
|
||||||
e.Close
|
e.Close
|
||||||
Else
|
Else
|
||||||
d=B4XPages.MainPage.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
d=Starter.skmt.ExecQuery2("SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from cat_gunaprod WHERE CAT_GP_CLASIF =?)", Array As String (c.GetString("CAT_GP_CLASIF")))
|
||||||
d.Position=0
|
d.Position=0
|
||||||
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
||||||
CLV1.AddTextItem("M E T A = $" & "1000","1")
|
CLV1.AddTextItem("M E T A = $" & "1000","1")
|
||||||
@@ -2387,7 +2387,7 @@ Sub B_MARCAS_Click
|
|||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA not in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )")
|
c=Starter.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA not in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )")
|
||||||
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
|
||||||
|
|||||||
@@ -103,7 +103,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
ciclo = 1
|
ciclo = 1
|
||||||
l_info.Width = Root.Width * 0.8
|
l_info.Width = Root.Width * 0.8
|
||||||
l_info.Left = (Root.Width/2) - (l_info.Width/2)
|
l_info.Left = (Root.Width/2) - (l_info.Width/2)
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_GP_TIPO from cat_gunaprod where CAT_GP_TIPO <> 'PROMOS' order by CAT_GP_TIPO")
|
c = Starter.skmt.ExecQuery("select distinct CAT_GP_TIPO from cat_gunaprod where CAT_GP_TIPO <> 'PROMOS' order by CAT_GP_TIPO")
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
Dim label1 As Label
|
Dim label1 As Label
|
||||||
label1 = lv_tipo.SingleLineLayout.Label
|
label1 = lv_tipo.SingleLineLayout.Label
|
||||||
@@ -132,11 +132,11 @@ End Sub
|
|||||||
Sub B4XPage_Appear
|
Sub B4XPage_Appear
|
||||||
clienteId = Subs.traeCliente
|
clienteId = Subs.traeCliente
|
||||||
rutaUsuario = Subs.traeRuta
|
rutaUsuario = Subs.traeRuta
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("ESTRATEGICO","2"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("ESTRATEGICO","2"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMENTARIO","3"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMENTARIO","3"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0"))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS"))
|
Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS"))
|
||||||
clv_prods_ll.GetBase.SetLayoutAnimated(0, 5dip, 130dip, Root.Width + 10, Root.Height * 0.68) 'Cambiamos el tamaño y posición de la lista de productos
|
clv_prods_ll.GetBase.SetLayoutAnimated(0, 5dip, 130dip, Root.Width + 10, Root.Height * 0.68) 'Cambiamos el tamaño y posición de la lista de productos
|
||||||
clv_prods_ll.Base_Resize(clv_prods_ll.GetBase.Width, clv_prods_ll.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
|
clv_prods_ll.Base_Resize(clv_prods_ll.GetBase.Width, clv_prods_ll.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
|
||||||
If B4XPages.MainPage.bTerminarClicked Then
|
If B4XPages.MainPage.bTerminarClicked Then
|
||||||
@@ -166,7 +166,7 @@ Sub B4XPage_Appear
|
|||||||
label1.TextColor = Colors.Black
|
label1.TextColor = Colors.Black
|
||||||
lv_catalogos.Clear
|
lv_catalogos.Clear
|
||||||
lv_catalogos.AddSingleLine("CATALOGO")
|
lv_catalogos.AddSingleLine("CATALOGO")
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("select count(*) as hayPromos from cat_gunaprod where CAT_GP_TIPOPROD = 'PROMOS'")
|
c = Starter.skmt.ExecQuery("select count(*) as hayPromos from cat_gunaprod where CAT_GP_TIPOPROD = 'PROMOS'")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetInt("hayPromos") > 0 Then
|
If c.GetInt("hayPromos") > 0 Then
|
||||||
lv_catalogos.AddSingleLine("PROMOS")
|
lv_catalogos.AddSingleLine("PROMOS")
|
||||||
@@ -239,7 +239,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
|
|||||||
label14.TextSize = 15
|
label14.TextSize = 15
|
||||||
label14.TextColor = Colors.Black
|
label14.TextColor = Colors.Black
|
||||||
lfila.text = "PROMOS"
|
lfila.text = "PROMOS"
|
||||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, Value, Value))
|
c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, Value, Value))
|
||||||
Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
|
Log($"res:${c2.RowCount}, ${Value}, ${marca}, ${tipo}"$)
|
||||||
If c2.RowCount > 0 Then
|
If c2.RowCount > 0 Then
|
||||||
For i=0 To c2.RowCount -1
|
For i=0 To c2.RowCount -1
|
||||||
@@ -273,10 +273,10 @@ Sub lv_catalogos2_ItemClick (Position As Int, Value As Object)
|
|||||||
End If
|
End If
|
||||||
If Value = "PROMOS" Then
|
If Value = "PROMOS" Then
|
||||||
LogColor("Promos", Colors.red)
|
LogColor("Promos", Colors.red)
|
||||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
|
c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
|
||||||
Else
|
Else
|
||||||
LogColor("Catalogo", Colors.red)
|
LogColor("Catalogo", Colors.red)
|
||||||
c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ")
|
c2=Starter.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ")
|
||||||
End If
|
End If
|
||||||
If Value = "CATALOGO" Then
|
If Value = "CATALOGO" Then
|
||||||
lv_catalogos.Visible = False
|
lv_catalogos.Visible = False
|
||||||
@@ -344,8 +344,8 @@ Sub lv_promos_ItemClick (Position As Int, Value As Object)
|
|||||||
'xxxxxxxxxxxxxxxxxxxxx
|
'xxxxxxxxxxxxxxxxxxxxx
|
||||||
Else If entro = "4" Then
|
Else If entro = "4" Then
|
||||||
Log("Entro = 4")
|
Log("Entro = 4")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROID")
|
Starter.skmt.ExecNonQuery("delete from PROID")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(Value))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PROID VALUES (?)", Array As Object(Value))
|
||||||
Dim promos As C_Promos = B4XPages.GetPage("Promos")
|
Dim promos As C_Promos = B4XPages.GetPage("Promos")
|
||||||
promos.laPromo = Subs.traeProdIdDeBD.Get("id")
|
promos.laPromo = Subs.traeProdIdDeBD.Get("id")
|
||||||
promos.elCliente = Subs.traeUsuarioDeBD
|
promos.elCliente = Subs.traeUsuarioDeBD
|
||||||
@@ -357,7 +357,7 @@ End Sub
|
|||||||
Sub llenaCatalogo(subtipo1 As String)
|
Sub llenaCatalogo(subtipo1 As String)
|
||||||
' Log("LlenaCatalogo")
|
' Log("LlenaCatalogo")
|
||||||
' Private c2 As Cursor
|
' Private c2 As Cursor
|
||||||
' c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' and CAT_GP_SUBTIPO = ? ", Array As String(subtipo1))
|
' c2=Starter.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' and CAT_GP_SUBTIPO = ? ", Array As String(subtipo1))
|
||||||
' Private bgColor, textColor As Int
|
' Private bgColor, textColor As Int
|
||||||
' If c2.RowCount > 0 And clv_productos.Size <> c2.RowCount Then
|
' If c2.RowCount > 0 And clv_productos.Size <> c2.RowCount Then
|
||||||
' clv_productos.Clear : Log("limpiamos productos")
|
' clv_productos.Clear : Log("limpiamos productos")
|
||||||
@@ -565,7 +565,7 @@ End Sub
|
|||||||
Sub cuentaProds
|
Sub cuentaProds
|
||||||
' LogColor($"Productos de la orden: ${c_prods.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red)
|
' LogColor($"Productos de la orden: ${c_prods.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red)
|
||||||
Log("===========================")
|
Log("===========================")
|
||||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select sum(PE_COSTO_TOT) as total, sum(PE_CANT) as cant from PEDIDO where PE_CLIENTE = '${clienteId}'"$)
|
Private c As Cursor = Starter.skmt.ExecQuery($"select sum(PE_COSTO_TOT) as total, sum(PE_CANT) as cant from PEDIDO where PE_CLIENTE = '${clienteId}'"$)
|
||||||
' LogColor("TIEMPO cuentaProds =" & ((DateTime.Now-inicioContador)/1000), Colors.Red)
|
' LogColor("TIEMPO cuentaProds =" & ((DateTime.Now-inicioContador)/1000), Colors.Red)
|
||||||
' LogColor(prodsMap, Colors.Magenta)
|
' LogColor(prodsMap, Colors.Magenta)
|
||||||
p_botonesVenta.Visible = True
|
p_botonesVenta.Visible = True
|
||||||
@@ -584,14 +584,14 @@ End Sub
|
|||||||
Sub b_terminar1_Click
|
Sub b_terminar1_Click
|
||||||
' Log("b_terminar1_Click")
|
' Log("b_terminar1_Click")
|
||||||
' ya_entro = "0" : Log("ya_entro=1")
|
' ya_entro = "0" : Log("ya_entro=1")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
|
Starter.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
|
||||||
|
|
||||||
lv_promos.Visible = False
|
lv_promos.Visible = False
|
||||||
clv_prods_ll.AsView.Visible = False
|
clv_prods_ll.AsView.Visible = False
|
||||||
lv_catalogos.Visible = True
|
lv_catalogos.Visible = True
|
||||||
lv_prodsPedido.Clear
|
lv_prodsPedido.Clear
|
||||||
' lv_prodsPedido.TwoLinesLayout.Label.Height = 50dip
|
' lv_prodsPedido.TwoLinesLayout.Label.Height = 50dip
|
||||||
Private c_prods As Cursor=B4XPages.MainPage.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE")
|
Private c_prods As Cursor=Starter.skmt.ExecQuery("select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS, PE_PRONOMBRE")
|
||||||
If c_prods.RowCount > 0 Then
|
If c_prods.RowCount > 0 Then
|
||||||
Private cs As CSBuilder
|
Private cs As CSBuilder
|
||||||
For i=0 To c_prods.RowCount -1
|
For i=0 To c_prods.RowCount -1
|
||||||
@@ -613,7 +613,7 @@ Sub b_terminar1_Click
|
|||||||
folio = c_prods.GetString("PE_FOLIO")
|
folio = c_prods.GetString("PE_FOLIO")
|
||||||
Next
|
Next
|
||||||
'select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)
|
'select PE_PRONOMBRE,PE_COSTO_TOT, PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)
|
||||||
c=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 )")
|
c=Starter.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 )")
|
||||||
C.Position=0
|
C.Position=0
|
||||||
l_cant.Text = c.GetString("PC_NOART")
|
l_cant.Text = c.GetString("PC_NOART")
|
||||||
l_total2.Text = c.GetString("PC_MONTO")
|
l_total2.Text = c.GetString("PC_MONTO")
|
||||||
@@ -662,7 +662,7 @@ End Sub
|
|||||||
Private Sub lv_promos_ItemLongClick (Position As Int, Value As Object)
|
Private Sub lv_promos_ItemLongClick (Position As Int, Value As Object)
|
||||||
Log("Promo longclic = "&Value)
|
Log("Promo longclic = "&Value)
|
||||||
Private id As String = ""
|
Private id As String = ""
|
||||||
Dim c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = 'PROMOS' and CAT_GP_NOMBRE = '${Value}'"$)
|
Dim c As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = 'PROMOS' and CAT_GP_NOMBRE = '${Value}'"$)
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
id = c.GetString("CAT_GP_ID")
|
id = c.GetString("CAT_GP_ID")
|
||||||
@@ -681,7 +681,7 @@ Private Sub lv_tipo_ItemClick (Position As Int, Value As Object)
|
|||||||
' lv_tipo.Visible = False
|
' lv_tipo.Visible = False
|
||||||
' lv_subtipo.Height = Root.Height * 0.7
|
' lv_subtipo.Height = Root.Height * 0.7
|
||||||
' lv_subtipo.Visible = True
|
' lv_subtipo.Visible = True
|
||||||
' Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select distinct CAT_GP_SUBTIPO from cat_gunaprod where CAT_GP_TIPO = ? order by CAT_GP_SUBTIPO", Array As String(Value))
|
' Private c As Cursor = Starter.skmt.ExecQuery2("select distinct CAT_GP_SUBTIPO from cat_gunaprod where CAT_GP_TIPO = ? order by CAT_GP_SUBTIPO", Array As String(Value))
|
||||||
' If c.RowCount > 0 Then
|
' If c.RowCount > 0 Then
|
||||||
' Dim label1 As Label
|
' Dim label1 As Label
|
||||||
' label1 = lv_subtipo.SingleLineLayout.Label
|
' label1 = lv_subtipo.SingleLineLayout.Label
|
||||||
@@ -748,51 +748,51 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
|
|||||||
If Not(Subs.pedidoGuardado) Then
|
If Not(Subs.pedidoGuardado) Then
|
||||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||||
If result = DialogResponse.POSITIVE Then
|
If result = DialogResponse.POSITIVE Then
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
c=Starter.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
||||||
c.Position=0
|
c.Position=0
|
||||||
Log("aqui1")
|
Log("aqui1")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (Subs.traeAlmacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (Subs.traeAlmacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||||
c.Close
|
c.Close
|
||||||
Log("aqui2")
|
Log("aqui2")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
||||||
c.Position=0
|
c.Position=0
|
||||||
If c.GetString("CUANTOS") > 0 Then
|
If c.GetString("CUANTOS") > 0 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
Starter.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||||
Log("aqui3")
|
Log("aqui3")
|
||||||
Else
|
Else
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
Starter.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||||
Log("aqui4")
|
Log("aqui4")
|
||||||
End If
|
End If
|
||||||
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 CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
clie_id = c.GetString("CUENTA")
|
clie_id = c.GetString("CUENTA")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
|
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
usuario = c.GetString("USUARIO")
|
usuario = c.GetString("USUARIO")
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
If c.GetString("CUANTOS") > 0 Then
|
If c.GetString("CUANTOS") > 0 Then
|
||||||
Log("aqui5")
|
Log("aqui5")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps))
|
||||||
' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
' Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
|
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
h =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 =Starter.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 = h.GetString("PC_NOART")
|
l_cant.Text = h.GetString("PC_NOART")
|
||||||
l_total2.Text = h.GetString("PC_MONTO")
|
l_total2.Text = h.GetString("PC_MONTO")
|
||||||
h.Close
|
h.Close
|
||||||
Else
|
Else
|
||||||
Log("aqui6")
|
Log("aqui6")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
h =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 =Starter.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
|
||||||
l_total2.Text = 0
|
l_total2.Text = 0
|
||||||
@@ -869,7 +869,7 @@ Sub Busca_TextChanged (Old As String, New As String)
|
|||||||
listaProds.Initialize
|
listaProds.Initialize
|
||||||
listaHints.Initialize
|
listaHints.Initialize
|
||||||
Sleep(0)
|
Sleep(0)
|
||||||
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from CAT_GUNAPROD where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' And CAT_GP_TIPOPROD2 <> '2' order by CAT_GP_NOMBRE"$)
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from CAT_GUNAPROD where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' And CAT_GP_TIPOPROD2 <> '2' order by CAT_GP_NOMBRE"$)
|
||||||
Log("Llamamos LlenaProdsLL")
|
Log("Llamamos LlenaProdsLL")
|
||||||
LlenaProdsLL(p)
|
LlenaProdsLL(p)
|
||||||
' Do While p.NextRow
|
' Do While p.NextRow
|
||||||
@@ -898,7 +898,7 @@ Sub LlenaProdsLL(p As ResultSet)
|
|||||||
If hayPedido Then 'Si hay pedido obtenemos las cantidades de los productos para agregarlos al CLV.
|
If hayPedido Then 'Si hay pedido obtenemos las cantidades de los productos para agregarlos al CLV.
|
||||||
Dim cantsMap As Map
|
Dim cantsMap As Map
|
||||||
cantsMap.Initialize
|
cantsMap.Initialize
|
||||||
Dim pe As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_CLIENTE = '${clienteId}' and PE_CEDIS = '${Subs.traeAlmacen}'"$)
|
Dim pe As ResultSet = Starter.skmt.ExecQuery($"select PE_PROID, PE_CANT from PEDIDO where PE_CLIENTE = '${clienteId}' and PE_CEDIS = '${Subs.traeAlmacen}'"$)
|
||||||
' LogColor("Ponemos productos de pedido anterior: "&pe.RowCount, Colors.red)
|
' LogColor("Ponemos productos de pedido anterior: "&pe.RowCount, Colors.red)
|
||||||
Do While pe.NextRow
|
Do While pe.NextRow
|
||||||
Private cant As Int = 0
|
Private cant As Int = 0
|
||||||
@@ -911,7 +911,7 @@ Sub LlenaProdsLL(p As ResultSet)
|
|||||||
' Log("YA HAY RESULSET")
|
' Log("YA HAY RESULSET")
|
||||||
Else
|
Else
|
||||||
' Log("NO HAY RESULSET")
|
' Log("NO HAY RESULSET")
|
||||||
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from CAT_GUNAPROD where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' And CAT_GP_TIPOPROD2 <> '2' order by CAT_GP_NOMBRE"$)
|
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from CAT_GUNAPROD where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' And CAT_GP_TIPOPROD2 <> '2' order by CAT_GP_NOMBRE"$)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Do While p.NextRow
|
Do While p.NextRow
|
||||||
|
|||||||
@@ -32,8 +32,12 @@ Public Sub Initialize As Object
|
|||||||
safePath = Dirp & Dir
|
safePath = Dirp & Dir
|
||||||
rkmt.Initialize(safePath,"md.rkmt.km", True)
|
rkmt.Initialize(safePath,"md.rkmt.km", True)
|
||||||
skmt.Initialize(File.DirInternal,"kmt.db", False)
|
skmt.Initialize(File.DirInternal,"kmt.db", False)
|
||||||
|
'#############################################################################################################
|
||||||
|
'################ REVISAR QUE COLUMNAS SON NECESARIAS PARA CADA CASO ###################################
|
||||||
|
'#############################################################################################################
|
||||||
rkmt.ExecNonQuery($"create table if not exists pedidos (pe_folio NUMERIC, pe_desc NUMERIC, pe_costo_sin TEXT, pe_ruta TEXT, pe_cedis TEXT, pe_costo_tot NUMERIC, pe_costou NUMERIC, pe_cant NUMERIC, pe_pronombre TEXT, pe_proid TEXT, pe_cliente TEXT, pe_fecha TEXT, pe_usuario TEXT, pe_envio_ok TEXT)"$)
|
rkmt.ExecNonQuery($"create table if not exists pedidos (pe_folio NUMERIC, pe_desc NUMERIC, pe_costo_sin TEXT, pe_ruta TEXT, pe_cedis TEXT, pe_costo_tot NUMERIC, pe_costou NUMERIC, pe_cant NUMERIC, pe_pronombre TEXT, pe_proid TEXT, pe_cliente TEXT, pe_fecha TEXT, pe_usuario TEXT, pe_envio_ok TEXT)"$)
|
||||||
rkmt.ExecNonQuery($"create table if not exists inventarios (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$)
|
rkmt.ExecNonQuery($"create table if not exists inventarios (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$)
|
||||||
|
' rkmt.ExecNonQuery($"create table if not exists inventarios2 (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$)
|
||||||
rkmt.ExecNonQuery($"create table if not exists paquetes (cat_dp_precio_simptos TEXT, cat_dp_precio TEXT, cat_dp_almacen TEXT, cat_dp_id TEXT, cat_dp_idprod TEXT, cat_dp_tipo TEXT, cat_dp_pzas TEXT, cat_dp_usuario TEXT, cat_dp_fecha TEXT, cat_dp_regalo TEXT, cat_dp_clasif TEXT, fecha TEXT)"$)
|
rkmt.ExecNonQuery($"create table if not exists paquetes (cat_dp_precio_simptos TEXT, cat_dp_precio TEXT, cat_dp_almacen TEXT, cat_dp_id TEXT, cat_dp_idprod TEXT, cat_dp_tipo TEXT, cat_dp_pzas TEXT, cat_dp_usuario TEXT, cat_dp_fecha TEXT, cat_dp_regalo TEXT, cat_dp_clasif TEXT, fecha TEXT)"$)
|
||||||
DateTime.DateFormat = "MM/dd/yyyy"
|
DateTime.DateFormat = "MM/dd/yyyy"
|
||||||
fechaHoy = DateTime.Date(DateTime.Now)
|
fechaHoy = DateTime.Date(DateTime.Now)
|
||||||
@@ -108,15 +112,15 @@ End Sub
|
|||||||
'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
|
'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
|
||||||
Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
|
Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
|
||||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
|
||||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
|
Private c As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
|
||||||
End If
|
End If
|
||||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
Try
|
Try
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
|
||||||
Catch
|
Catch
|
||||||
Log(LastException)
|
Log(LastException)
|
||||||
|
|||||||
@@ -37,7 +37,7 @@ Sub dbInit As SQL
|
|||||||
If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db")
|
If File.Exists(File.DirInternal, "kmt.db") = False Then File.Copy(File.DirAssets, "kmt.db", File.DirInternal, "kmt.db")
|
||||||
db.Initialize(File.DirInternal,"kmt.db", True)
|
db.Initialize(File.DirInternal,"kmt.db", True)
|
||||||
dbOk(True)
|
dbOk(True)
|
||||||
Log(db.IsInitialized)
|
' Log(db.IsInitialized)
|
||||||
Return db
|
Return db
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -561,7 +561,7 @@ Sub mandaPendientes 'ignore
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'PEDIDO (Pendientes)
|
'PEDIDO (Pendientes)
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1")
|
c=Starter.skmt.ExecQuery("SELECT PC_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1")
|
||||||
If logger Then Log($"Pedido PENDIENTE: ${c.RowCount}"$)
|
If logger Then Log($"Pedido PENDIENTE: ${c.RowCount}"$)
|
||||||
If c.RowCount>0 Then
|
If c.RowCount>0 Then
|
||||||
For i = 0 To c.RowCount - 1
|
For i = 0 To c.RowCount - 1
|
||||||
@@ -595,4 +595,4 @@ Sub mandaPendientes 'ignore
|
|||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
ab.Close
|
ab.Close
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -32,7 +32,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
|||||||
If File.Exists(ruta, "kmt.db") = False Then
|
If File.Exists(ruta, "kmt.db") = False Then
|
||||||
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
||||||
End If
|
End If
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
|
c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART FROM PEDIDO_CLIENTE ORDER BY PC_FECHA 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
|
||||||
@@ -57,7 +57,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 ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
|
c=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
|
||||||
ListView1.Clear
|
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
|
||||||
@@ -90,17 +90,17 @@ Sub Activity_KeyPress (key As Int) As Boolean
|
|||||||
Return False
|
Return False
|
||||||
End Sub
|
End Sub
|
||||||
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
|
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
|
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
|
||||||
DateTime.TimeFormat = "HHmmss"
|
DateTime.TimeFormat = "HHmmss"
|
||||||
STIME=DateTime.Time(DateTime.Now)
|
STIME=DateTime.Time(DateTime.Now)
|
||||||
s=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
|
s=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_STAY_STORE WHERE HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)")
|
||||||
s.Position = 0
|
s.Position = 0
|
||||||
If s.GetString("CUANTOS") = 1 Then
|
If s.GetString("CUANTOS") = 1 Then
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||||
Else
|
Else
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (Value))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
Starter.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_IN = ? where HSS_IN = 0 AND HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(STIME))
|
||||||
End If
|
End If
|
||||||
DateTime.TimeFormat = "HH:mm:ss"
|
DateTime.TimeFormat = "HH:mm:ss"
|
||||||
Subs.guardaClienteHoraInicio(Value)
|
Subs.guardaClienteHoraInicio(Value)
|
||||||
@@ -112,7 +112,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=Starter.skmt.ExecQuery("select NV_CLIENTE,NV_MOTIVO,NV_COMM, (select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = NV_CLIENTE ) as NOMBRE FROM NOVENTA ORDER BY NV_CLIENTE asc")
|
||||||
ListView1.Clear
|
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
|
||||||
@@ -131,7 +131,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=Starter.skmt.ExecQuery("select PC_CLIENTE,PC_MONTO,PC_NOART,(select CAT_CL_NOMBRE from kmt_info where cat_cl_codigo = pc_cliente ) as NOMBRE FROM PEDIDO_CLIENTE ORDER BY PC_FECHA asc")
|
||||||
ListView1.Clear
|
ListView1.Clear
|
||||||
|
|
||||||
If c.RowCount>0 Then
|
If c.RowCount>0 Then
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
@@ -17,6 +17,7 @@ ModuleBookmarks22=
|
|||||||
ModuleBookmarks23=
|
ModuleBookmarks23=
|
||||||
ModuleBookmarks24=
|
ModuleBookmarks24=
|
||||||
ModuleBookmarks25=
|
ModuleBookmarks25=
|
||||||
|
ModuleBookmarks26=
|
||||||
ModuleBookmarks3=
|
ModuleBookmarks3=
|
||||||
ModuleBookmarks4=
|
ModuleBookmarks4=
|
||||||
ModuleBookmarks5=
|
ModuleBookmarks5=
|
||||||
@@ -43,6 +44,7 @@ ModuleBreakpoints22=
|
|||||||
ModuleBreakpoints23=
|
ModuleBreakpoints23=
|
||||||
ModuleBreakpoints24=
|
ModuleBreakpoints24=
|
||||||
ModuleBreakpoints25=
|
ModuleBreakpoints25=
|
||||||
|
ModuleBreakpoints26=
|
||||||
ModuleBreakpoints3=
|
ModuleBreakpoints3=
|
||||||
ModuleBreakpoints4=
|
ModuleBreakpoints4=
|
||||||
ModuleBreakpoints5=
|
ModuleBreakpoints5=
|
||||||
@@ -54,7 +56,7 @@ ModuleClosedNodes0=
|
|||||||
ModuleClosedNodes1=
|
ModuleClosedNodes1=
|
||||||
ModuleClosedNodes10=
|
ModuleClosedNodes10=
|
||||||
ModuleClosedNodes11=
|
ModuleClosedNodes11=
|
||||||
ModuleClosedNodes12=
|
ModuleClosedNodes12=1
|
||||||
ModuleClosedNodes13=
|
ModuleClosedNodes13=
|
||||||
ModuleClosedNodes14=
|
ModuleClosedNodes14=
|
||||||
ModuleClosedNodes15=
|
ModuleClosedNodes15=
|
||||||
@@ -67,8 +69,9 @@ ModuleClosedNodes20=
|
|||||||
ModuleClosedNodes21=
|
ModuleClosedNodes21=
|
||||||
ModuleClosedNodes22=
|
ModuleClosedNodes22=
|
||||||
ModuleClosedNodes23=
|
ModuleClosedNodes23=
|
||||||
ModuleClosedNodes24=
|
ModuleClosedNodes24=9
|
||||||
ModuleClosedNodes25=
|
ModuleClosedNodes25=
|
||||||
|
ModuleClosedNodes26=
|
||||||
ModuleClosedNodes3=
|
ModuleClosedNodes3=
|
||||||
ModuleClosedNodes4=15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36
|
ModuleClosedNodes4=15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36
|
||||||
ModuleClosedNodes5=
|
ModuleClosedNodes5=
|
||||||
@@ -76,6 +79,6 @@ ModuleClosedNodes6=
|
|||||||
ModuleClosedNodes7=
|
ModuleClosedNodes7=
|
||||||
ModuleClosedNodes8=
|
ModuleClosedNodes8=
|
||||||
ModuleClosedNodes9=
|
ModuleClosedNodes9=
|
||||||
NavigationStack=B4XMainPage,Class_Globals,19,0,C_Clientes,Mods,0,0,C_Cliente,MODS,0,0,CameraExClass2,TakePicture,102,0,CameraExClass2,Camera_Ready,91,0,CameraExClass2,SetDisplayOrientation,76,0,C_Cliente,B4XPage_Appear,190,0,C_Nota,B4XPage_Appear,106,0,B4XMainPage,B4XPage_Created,252,0,C_Principal,Class_Globals,12,4,C_Principal,cargar_Click,725,2
|
NavigationStack=NotificationService,Service_Start,25,0,NotificationService,getShortcut,157,0,NotificationService,getNumberOrGroupWA,148,0,NotificationService,Process_Globals,8,5,NotificationService,esMensajeWAValido,56,0,Starter,Service_Start,54,0,B4XMainPage,B4XPage_Created,226,0,Starter,Process_Globals,9,5,NotificationService,NotiMon_NotificationPosted,48,6,B4XMainPage,b_regesar_Click,693,6
|
||||||
SelectedBuild=0
|
SelectedBuild=0
|
||||||
VisibleModules=2,23,12,16,24,4,5,13,14,25,19,8
|
VisibleModules=2,24,23,12,16,25,13,15,6,8
|
||||||
|
|||||||
@@ -13,16 +13,17 @@ Sub Process_Globals
|
|||||||
'These global variables will be declared once when the application starts.
|
'These global variables will be declared once when the application starts.
|
||||||
'These variables can be accessed from all modules.
|
'These variables can be accessed from all modules.
|
||||||
Public gps As GPS
|
Public gps As GPS
|
||||||
|
Dim skmt As SQL
|
||||||
Dim ph As Phone
|
Dim ph As Phone
|
||||||
Public rp As RuntimePermissions
|
Public rp As RuntimePermissions
|
||||||
Dim s As C_Subs
|
Dim s As C_Subs
|
||||||
Public FLP As FusedLocationProvider
|
Public FLP As FusedLocationProvider
|
||||||
' Private flpStarted As Boolean
|
' Private flpStarted As Boolean
|
||||||
Dim reqManager As DBRequestManager
|
Dim reqManager As DBRequestManager
|
||||||
' Dim server As String = "http://11.0.0.253:1782"
|
' Dim DBReqServer As String = "http://11.0.0.253:1782"
|
||||||
Dim server As String = "http://187.189.244.154:1782"
|
Dim DBReqServer As String = "http://187.189.244.154:1782"
|
||||||
' Dim server As String = "http://10.0.0.205:1782"
|
' Dim DBReqServer As String = "http://10.0.0.205:1782"
|
||||||
' Dim server As String = "http://11.0.0.231:1782"
|
' Dim DBReqServer As String = "http://11.0.0.231:1782"
|
||||||
Dim Timer1 As Timer
|
Dim Timer1 As Timer
|
||||||
Dim Interval As Int = 300
|
Dim Interval As Int = 300
|
||||||
Dim ruta As String = File.DirInternal
|
Dim ruta As String = File.DirInternal
|
||||||
@@ -40,6 +41,7 @@ Sub Service_Create
|
|||||||
'This is the program entry point.
|
'This is the program entry point.
|
||||||
'This is a good place to load resources that are not specific to a single activity.
|
'This is a good place to load resources that are not specific to a single activity.
|
||||||
s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
|
s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
|
||||||
|
skmt = s.inicializaBD(File.DirInternal, "kmt.db")
|
||||||
gps.Initialize("GPS")
|
gps.Initialize("GPS")
|
||||||
Timer1.Initialize("Timer1", Interval * 1000)
|
Timer1.Initialize("Timer1", Interval * 1000)
|
||||||
Timer1.Enabled = True
|
Timer1.Enabled = True
|
||||||
@@ -54,7 +56,9 @@ End Sub
|
|||||||
Sub Service_Start (StartingIntent As Intent)
|
Sub Service_Start (StartingIntent As Intent)
|
||||||
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
|
||||||
Subs.revisaBD
|
Subs.revisaBD
|
||||||
reqManager.Initialize(Me, server)
|
If s.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD(skmt)
|
||||||
|
reqManager.Initialize(Me, DBReqServer)
|
||||||
|
' StartService(NotificationService)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Timer1_Tick
|
Private Sub Timer1_Tick
|
||||||
@@ -78,9 +82,7 @@ Sub ENVIA_ULTIMA_GPS
|
|||||||
If IsConnectedToInternet Or 1 = 1 Then
|
If IsConnectedToInternet Or 1 = 1 Then
|
||||||
Dim logger As Boolean = True
|
Dim logger As Boolean = True
|
||||||
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
|
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
|
||||||
Dim skmt As SQL
|
|
||||||
Dim cmd As DBCommand
|
Dim cmd As DBCommand
|
||||||
skmt.Initialize(ruta,"kmt.db", False)
|
|
||||||
' cmd.Initialize
|
' cmd.Initialize
|
||||||
' cmd.Name = "select_fechat"
|
' cmd.Name = "select_fechat"
|
||||||
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fechat")
|
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fechat")
|
||||||
@@ -122,9 +124,13 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
|
|||||||
Return True
|
Return True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub reinicializaReqManager
|
'Inicializa el reqServer con la dirección dada y lo guarda en CAT_VARIABLES.
|
||||||
reqManager.Initialize(Me, server)
|
Sub reinicializaReqManager(srv As String)
|
||||||
If logger Then Log(server)
|
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
|
||||||
|
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", srv))
|
||||||
|
DBReqServer = srv
|
||||||
|
reqManager.Initialize(Me, srv)
|
||||||
|
' LogColor(srv, Colors.red)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub JobDone(Job As HttpJob)
|
Sub JobDone(Job As HttpJob)
|
||||||
|
|||||||
104
B4A/Subs.bas
104
B4A/Subs.bas
@@ -673,23 +673,23 @@ End Sub
|
|||||||
'Sub guardaProductoX(cedis As String, costoTot As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, tipoV As String, precio2 As String, query As String) 'ignore
|
'Sub guardaProductoX(cedis As String, costoTot As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, tipoV As String, precio2 As String, query As String) 'ignore
|
||||||
'' LogColor("guardaProducto", Colors.Magenta)
|
'' LogColor("guardaProducto", Colors.Magenta)
|
||||||
'' Log($"Guardamos producto ${prodId}"$)
|
'' Log($"Guardamos producto ${prodId}"$)
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_TIPO, PE_PRECIO2, PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, costoTot, costoU, cant, nombre, prodId, clienteId, fecha, usuario, tipoV, precio2, Starter.rutaV))
|
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_TIPO, PE_PRECIO2, PE_RUTA) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, costoTot, costoU, cant, nombre, prodId, clienteId, fecha, usuario, tipoV, precio2, Starter.rutaV))
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
'' Starter.skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
||||||
'' ToastMessageShow("guardaProd", False)
|
'' ToastMessageShow("guardaProd", False)
|
||||||
'End Sub
|
'End Sub
|
||||||
|
|
||||||
'Sub guardaProductoSin(cedis As String, costoTot As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoV As String, precio2 As String, query As String) 'ignore
|
'Sub guardaProductoSin(cedis As String, costoTot As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoV As String, precio2 As String, query As String) 'ignore
|
||||||
'' LogColor("guardaProductoSin", Colors.Magenta)
|
'' LogColor("guardaProductoSin", Colors.Magenta)
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_COSTO_SIN, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, costoTot,costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoV, precio2))
|
'' Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_COSTO_SIN, PE_TIPO, PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, costoTot,costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoV, precio2))
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
'' Starter.skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
||||||
'' DateTime.DateFormat = "MM/dd/yyyy"
|
'' DateTime.DateFormat = "MM/dd/yyyy"
|
||||||
'' Private sDate As String =DateTime.Date(DateTime.Now)
|
'' Private sDate As String =DateTime.Date(DateTime.Now)
|
||||||
'' Private sTime As String =DateTime.Time(DateTime.Now)
|
'' Private sTime As String =DateTime.Time(DateTime.Now)
|
||||||
'' Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
'' Private c As Cursor = Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
'' c.Position=0
|
'' c.Position=0
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
'' Starter.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(clienteId, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, rutaV, c.GetString("TOTAL_CLIE_SIN")))
|
'' Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, rutaV, c.GetString("TOTAL_CLIE_SIN")))
|
||||||
'' B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
'' Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
'' c.Close
|
'' c.Close
|
||||||
' ToastMessageShow("guardaProdSin", False)
|
' ToastMessageShow("guardaProdSin", False)
|
||||||
'End Sub
|
'End Sub
|
||||||
@@ -698,7 +698,7 @@ End Sub
|
|||||||
Sub traeAlmacen As String 'ignore
|
Sub traeAlmacen As String 'ignore
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
Private a As String
|
Private a As String
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
a = C.GetString("ID_ALMACEN")
|
a = C.GetString("ID_ALMACEN")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -709,7 +709,7 @@ End Sub
|
|||||||
Sub traeProdNombre(id As String) As String
|
Sub traeProdNombre(id As String) As String
|
||||||
Private h As Cursor
|
Private h As Cursor
|
||||||
Private n As String
|
Private n As String
|
||||||
h=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(id.Trim))
|
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = ? ", Array As String(id.Trim))
|
||||||
If h.RowCount > 0 Then
|
If h.RowCount > 0 Then
|
||||||
h.Position = 0
|
h.Position = 0
|
||||||
n = h.GetString("CAT_GP_NOMBRE")
|
n = h.GetString("CAT_GP_NOMBRE")
|
||||||
@@ -725,7 +725,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=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info 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
|
||||||
@@ -738,7 +738,7 @@ End Sub
|
|||||||
Sub traeCliente As String 'ignore
|
Sub traeCliente As String 'ignore
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
Private cl As String
|
Private cl As String
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa")
|
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
cl = c.GetString("CUENTA")
|
cl = c.GetString("CUENTA")
|
||||||
c.Close
|
c.Close
|
||||||
@@ -769,13 +769,13 @@ End Sub
|
|||||||
Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
Sub guardaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
||||||
LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
|
LogColor("guardaProducto: "&prodId&", cant="&cant, Colors.Magenta)
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_ALMACEN,PC_RUTA,PC_COSTO_SIN) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN")))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
'Inserta un producto en la tabla "pedido" y "pedido_cliente" y actualiza "cat_gunaprod".
|
'Inserta un producto en la tabla "pedido" y "pedido_cliente" y actualiza "cat_gunaprod".
|
||||||
@@ -784,29 +784,29 @@ End Sub
|
|||||||
Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
Sub guardaProductoSinGestion(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
||||||
LogColor("guardaProductoSinGestion: "&prodId&", cant="&cant, Colors.Magenta)
|
LogColor("guardaProductoSinGestion: "&prodId&", cant="&cant, Colors.Magenta)
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_COSTO_SIN, PE_FOLIO, PE_ENVIO_OK) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,0) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta))
|
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_RUTA, PE_COSTO_SIN, PE_FOLIO, PE_ENVIO_OK) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,0) ", Array As Object (cedis, (cant * costoU), costoU, cant, nombre, prodId, clienteId, fecha, usuario, rutaV, precioSin, tipoVenta))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cant, prodId))
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||||
c.Position=0
|
c.Position=0
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
Starter.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, PC_ENVIO_OK) VALUES (?,?,?,?,?,?,?,?,?,?,0)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN")))
|
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO, PC_LON, PC_LAT, PC_ALMACEN, PC_RUTA, PC_COSTO_SIN, PC_ENVIO_OK) VALUES (?,?,?,?,?,?,?,?,?,?,0)", Array As Object(clienteId, fecha, usuario, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), B4XPages.MainPage.lon_gps, B4XPages.MainPage.lat_gps, cedis, c.GetString("TOTAL_CLIE_SIN")))
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub actualizaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
Sub actualizaProducto(cedis As String, costoU As String, cant As String, nombre As String, prodId As String, clienteId As String, fecha As String, usuario As String, rutaV As String, precioSin As String, tipoVenta As String)
|
||||||
Private c As Cursor=B4XPages.MainPage.skmt.ExecQuery($"select * from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}'"$)
|
Private c As Cursor=Starter.skmt.ExecQuery($"select * from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}'"$)
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position=0
|
c.Position=0
|
||||||
Private antCant As Int = 0
|
Private antCant As Int = 0
|
||||||
If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT")
|
If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT")
|
||||||
Private difCant As Int = cant - antCant
|
Private difCant As Int = cant - antCant
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${(cant*c.GetString("PE_COSTOU"))} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' "$)
|
Starter.skmt.ExecNonQuery($"update pedido set pe_cant = ${cant}, pe_costo_tot = ${(cant*c.GetString("PE_COSTOU"))} where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' "$)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
Starter.skmt.ExecNonQuery($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - (${difCant}) where cat_gp_id = '${prodId}' "$)
|
||||||
If cant = 0 Then
|
If cant = 0 Then
|
||||||
' Log("BORRAMOS PROD")
|
' Log("BORRAMOS PROD")
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' "$)
|
Starter.skmt.ExecNonQuery($"delete from pedido where pe_cedis = '${cedis}' and pe_proid = '${prodId}' and pe_cliente = '${clienteId}' "$)
|
||||||
Private pe As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_cliente In (select cuenta from cuentaa)")
|
Private pe As Cursor = Starter.skmt.ExecQuery("select count(pe_cliente) as cuantosPedidos from pedido where pe_cliente In (select cuenta from cuentaa)")
|
||||||
pe.Position=0
|
pe.Position=0
|
||||||
If pe.GetString("cuantosPedidos") = 0 Then B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
If pe.GetString("cuantosPedidos") = 0 Then Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
'INSERTAMOS
|
'INSERTAMOS
|
||||||
@@ -825,7 +825,7 @@ End Sub
|
|||||||
' prodsVariablesRequeridos=5} 'Cantidad de productos variables requeridos para la promoción.
|
' prodsVariablesRequeridos=5} 'Cantidad de productos variables requeridos para la promoción.
|
||||||
Sub traePromo(promo As String, cliente As String) As Map
|
Sub traePromo(promo As String, cliente As String) As Map
|
||||||
Private inicioContador As String = DateTime.Now
|
Private inicioContador As String = DateTime.Now
|
||||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select * from promos_comp where cat_pa_id = '"& promo&"'") 'Obtenemos las el maximo de promocioones a otorgar.
|
Private c As Cursor = Starter.skmt.ExecQuery("Select * from promos_comp where cat_pa_id = '"& promo&"'") 'Obtenemos las el maximo de promocioones a otorgar.
|
||||||
Private siHistorico As String = 0
|
Private siHistorico As String = 0
|
||||||
Private promoMap As Map
|
Private promoMap As Map
|
||||||
Private prodsFijos, prodsFijosPrecios, prodsFijosPiezas, prodsVariables, prodsVariablesPrecios As List
|
Private prodsFijos, prodsFijosPrecios, prodsFijosPiezas, prodsVariables, prodsVariablesPrecios As List
|
||||||
@@ -837,11 +837,11 @@ Sub traePromo(promo As String, cliente As String) As Map
|
|||||||
prodsVariablesPrecios.Initialize
|
prodsVariablesPrecios.Initialize
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.RowCount > 0 Then promoMap = CreateMap("id":promo, "maxXcliente":c.GetString("CAT_PA_MAXPROMCLIE"), "maxRecurrente":c.GetString("CAT_PA_MAXPROMREC"), "maxPromos":c.GetString("CAT_PA_MAXPROM"))
|
If c.RowCount > 0 Then promoMap = CreateMap("id":promo, "maxXcliente":c.GetString("CAT_PA_MAXPROMCLIE"), "maxRecurrente":c.GetString("CAT_PA_MAXPROMREC"), "maxPromos":c.GetString("CAT_PA_MAXPROM"))
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("Select count(*) as hist from HIST_PROMOS where HP_CLIENTE = '"& cliente & "' and HP_CODIGO_PROMOCION = '" & promo & "'") 'Revisamos si hay historico de la promoción.
|
c = Starter.skmt.ExecQuery("Select count(*) as hist from HIST_PROMOS where HP_CLIENTE = '"& cliente & "' and HP_CODIGO_PROMOCION = '" & promo & "'") 'Revisamos si hay historico de la promoción.
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("hist") > 0 Then siHistorico = 1
|
If c.GetString("hist") > 0 Then siHistorico = 1
|
||||||
promoMap.Put("historico", siHistorico)
|
promoMap.Put("historico", siHistorico)
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("Select * from CAT_DETALLES_PAQ where CAT_DP_ID = '"& promo & "'") 'Obtenemos los detalles de la promoción.
|
c = Starter.skmt.ExecQuery("Select * from CAT_DETALLES_PAQ where CAT_DP_ID = '"& promo & "'") 'Obtenemos los detalles de la promoción.
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
Private prods, tipos As Map
|
Private prods, tipos As Map
|
||||||
@@ -875,7 +875,7 @@ Sub traePromo(promo As String, cliente As String) As Map
|
|||||||
Else
|
Else
|
||||||
promoMap.Put("resultado", "No hay datos de la promoción.")
|
promoMap.Put("resultado", "No hay datos de la promoción.")
|
||||||
End If
|
End If
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_STS, CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = '"& promo & "'") 'Obtenemos las piezas requeridas de productos variables para la promoción.
|
c = Starter.skmt.ExecQuery("Select CAT_GP_STS, CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = '"& promo & "'") 'Obtenemos las piezas requeridas de productos variables para la promoción.
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
Private pvr As String = 0
|
Private pvr As String = 0
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
@@ -895,7 +895,7 @@ End Sub
|
|||||||
'Regresa un mapa con el inventario disponible por producto para la promoción (desde la base de datos).
|
'Regresa un mapa con el inventario disponible por producto para la promoción (desde la base de datos).
|
||||||
Sub traemosInventarioDisponibleParaPromo(promo As String) As Map 'ignore
|
Sub traemosInventarioDisponibleParaPromo(promo As String) As Map 'ignore
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
c = B4XPages.MainPage.skmt.ExecQuery2("SELECT CAT_GP_ID, CAT_GP_ALMACEN FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (select CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ?)", Array As String(promo))
|
c = Starter.skmt.ExecQuery2("SELECT CAT_GP_ID, CAT_GP_ALMACEN FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (select CAT_DP_IDPROD FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ?)", Array As String(promo))
|
||||||
' Private prodInv As Map
|
' Private prodInv As Map
|
||||||
' prodInv.Initialize
|
' prodInv.Initialize
|
||||||
Private prods As Map
|
Private prods As Map
|
||||||
@@ -983,7 +983,7 @@ Sub traeMaxPromos(pm As Map) As Int
|
|||||||
maxPromos.Sort(True)
|
maxPromos.Sort(True)
|
||||||
|
|
||||||
' Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$)
|
' Log($"|${pm.Get("id").As(String).trim}|${traeCliente.Trim}|"$)
|
||||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select sum(PE_CANT) as vendidas from PEDIDO where PE_PROID = ? and PE_CLIENTE = ? ", Array As String(pm.Get("id").As(String).trim, traeCliente.Trim))
|
Private c As Cursor = Starter.skmt.ExecQuery2("select sum(PE_CANT) as vendidas from PEDIDO where PE_PROID = ? and PE_CLIENTE = ? ", Array As String(pm.Get("id").As(String).trim, traeCliente.Trim))
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
vendidas = c.GetInt("vendidas")
|
vendidas = c.GetInt("vendidas")
|
||||||
@@ -1000,7 +1000,7 @@ End Sub
|
|||||||
Sub traePromosVendidas(promo As String, cliente As String) As Int
|
Sub traePromosVendidas(promo As String, cliente As String) As Int
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
Private pv As Int = 0
|
Private pv As Int = 0
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_CANT from PEDIDO where PE_PROID = '${promo}' and PE_CLIENTE = '${cliente}'"$)
|
c=Starter.skmt.ExecQuery($"select PE_CANT from PEDIDO where PE_PROID = '${promo}' and PE_CLIENTE = '${cliente}'"$)
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
pv = c.GetInt("PE_CANT")
|
pv = c.GetInt("PE_CANT")
|
||||||
@@ -1196,7 +1196,7 @@ End Sub
|
|||||||
Sub traeProdIdDeBD As Map 'ignore
|
Sub traeProdIdDeBD As Map 'ignore
|
||||||
Private c As Cursor
|
Private c As Cursor
|
||||||
Private m As Map
|
Private m As Map
|
||||||
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_TIPO,CAT_GP_SUBTIPO from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
|
c=Starter.skmt.ExecQuery("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_TIPO,CAT_GP_SUBTIPO from CAT_GUNAPROD where CAT_GP_NOMBRE In (Select PDESC from PROID)")
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
m = CreateMap("id":c.GetString("CAT_GP_ID"), "nombre":c.GetString("CAT_GP_NOMBRE"), "tipo":c.GetString("CAT_GP_TIPO"), "subtipo":c.GetString("CAT_GP_SUBTIPO"))
|
m = CreateMap("id":c.GetString("CAT_GP_ID"), "nombre":c.GetString("CAT_GP_NOMBRE"), "tipo":c.GetString("CAT_GP_TIPO"), "subtipo":c.GetString("CAT_GP_SUBTIPO"))
|
||||||
@@ -1209,13 +1209,13 @@ End Sub
|
|||||||
|
|
||||||
'Guarda en la base de datos la hora inicial y final de la vista.
|
'Guarda en la base de datos la hora inicial y final de la vista.
|
||||||
Sub guardaClienteHoraInicio(cliente As String)
|
Sub guardaClienteHoraInicio(cliente As String)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into PEDIDO_INICIO_FINAL(PIF_CLIENTE, PIF_HORA_INICIO, PIF_HORA_FINAL) VALUES(?,?,?) ", Array As Object (cliente, DateTime.Now, 0))
|
Starter.skmt.ExecNonQuery2("insert into PEDIDO_INICIO_FINAL(PIF_CLIENTE, PIF_HORA_INICIO, PIF_HORA_FINAL) VALUES(?,?,?) ", Array As Object (cliente, DateTime.Now, 0))
|
||||||
' LogColor($"insertamos ${cliente}, hora_inicio=${DateTime.Now}, hora_final=0"$,Colors.Red)
|
' LogColor($"insertamos ${cliente}, hora_inicio=${DateTime.Now}, hora_final=0"$,Colors.Red)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
'Actualizamos el tiempo que el vendedor estuvo en la tienda, desde que entra a la pantalla del cliente hasta que hace clic en "Guardar".
|
'Actualizamos el tiempo que el vendedor estuvo en la tienda, desde que entra a la pantalla del cliente hasta que hace clic en "Guardar".
|
||||||
Sub actualizaTET(cliente As String)
|
Sub actualizaTET(cliente As String)
|
||||||
Dim c As Cursor = B4XPages.MainPage.skmt.Execquery2("select * from PEDIDO_INICIO_FINAL where PIF_CLIENTE = ?", Array As String(cliente))
|
Dim c As Cursor = Starter.skmt.Execquery2("select * from PEDIDO_INICIO_FINAL where PIF_CLIENTE = ?", Array As String(cliente))
|
||||||
Dim total As Long = 0
|
Dim total As Long = 0
|
||||||
If c.RowCount > 0 Then
|
If c.RowCount > 0 Then
|
||||||
c.Position=0
|
c.Position=0
|
||||||
@@ -1227,7 +1227,7 @@ Sub actualizaTET(cliente As String)
|
|||||||
' Log($" Subtotal=${subtotal}, total=${total}"$)
|
' Log($" Subtotal=${subtotal}, total=${total}"$)
|
||||||
Next
|
Next
|
||||||
' Log($"Total=${(total/1000)/60}"$)
|
' Log($"Total=${(total/1000)/60}"$)
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update PEDIDO_CLIENTE set PC_TIEMPO_TIENDA = ? where PC_CLIENTE = ?", Array As String(((total/1000)/60), cliente))
|
Starter.skmt.ExecNonQuery2("update PEDIDO_CLIENTE set PC_TIEMPO_TIENDA = ? where PC_CLIENTE = ?", Array As String(((total/1000)/60), cliente))
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -1235,7 +1235,7 @@ End Sub
|
|||||||
Sub traeTotalesClienteActual As Map
|
Sub traeTotalesClienteActual As Map
|
||||||
Private m As Map
|
Private m As Map
|
||||||
m.Initialize
|
m.Initialize
|
||||||
Private c_prodsX As Cursor=B4XPages.MainPage.skmt.ExecQuery("select ifnull(sum(PE_CANT), 0) as cantProds, ifnull(sum(PE_COSTO_TOT), 0) as costoTotal FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc")
|
Private c_prodsX As Cursor=Starter.skmt.ExecQuery("select ifnull(sum(PE_CANT), 0) as cantProds, ifnull(sum(PE_COSTO_TOT), 0) as costoTotal FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE asc")
|
||||||
c_prodsX.Position=0
|
c_prodsX.Position=0
|
||||||
' LogColor($"Productos de la orden: ${c_prodsX.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red)
|
' LogColor($"Productos de la orden: ${c_prodsX.GetString("cantProds")}, Total: ${c_prodsX.GetString("costoTotal")}"$, Colors.red)
|
||||||
m = CreateMap("productos": c_prodsX.GetString("cantProds"), "monto" : c_prodsX.GetString("costoTotal"))
|
m = CreateMap("productos": c_prodsX.GetString("cantProds"), "monto" : c_prodsX.GetString("costoTotal"))
|
||||||
@@ -1247,17 +1247,17 @@ End Sub
|
|||||||
'Actualiza las tablas "cat_gunaprod" y "kmt_info".
|
'Actualiza las tablas "cat_gunaprod" y "kmt_info".
|
||||||
Sub borraPedidoClienteActual As String
|
Sub borraPedidoClienteActual As String
|
||||||
Private thisC As Cursor
|
Private thisC As Cursor
|
||||||
thisC=B4XPages.MainPage.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
thisC=Starter.skmt.ExecQuery("select PE_PROID,PE_CANT FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ")
|
||||||
If thisC.RowCount>0 Then
|
If thisC.RowCount>0 Then
|
||||||
For i=0 To thisC.RowCount -1
|
For i=0 To thisC.RowCount -1
|
||||||
thisC.Position=i
|
thisC.Position=i
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID")))
|
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(thisC.GetString("PE_CANT"),thisC.GetString("PE_PROID")))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
|
Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
|
Starter.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)")
|
Starter.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)")
|
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||||
Return 1
|
Return 1
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -1265,7 +1265,7 @@ End Sub
|
|||||||
'si no, entonces regresa falso.
|
'si no, entonces regresa falso.
|
||||||
Sub pedidoGuardado As Boolean
|
Sub pedidoGuardado As Boolean
|
||||||
Private guardado As Boolean = False
|
Private guardado As Boolean = False
|
||||||
Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
|
Private g As Cursor = Starter.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
|
||||||
If g.RowCount > 0 Then
|
If g.RowCount > 0 Then
|
||||||
g.Position=0
|
g.Position=0
|
||||||
If g.GetString("gestion") = "2" Then guardado = True
|
If g.GetString("gestion") = "2" Then guardado = True
|
||||||
@@ -1276,7 +1276,7 @@ End Sub
|
|||||||
|
|
||||||
'Regresa verdadero si hay pedido en la tabla "PEDIDO" del cliente actual.
|
'Regresa verdadero si hay pedido en la tabla "PEDIDO" del cliente actual.
|
||||||
Sub hayPedido As Boolean
|
Sub hayPedido As Boolean
|
||||||
Private thisC As Cursor=B4XPages.MainPage.skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente}'"$)
|
Private thisC As Cursor=Starter.skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente}'"$)
|
||||||
thisC.Position=0
|
thisC.Position=0
|
||||||
Private hay As Boolean = False
|
Private hay As Boolean = False
|
||||||
If thisC.GetInt("hayPedido") > 0 Then hay = True
|
If thisC.GetInt("hayPedido") > 0 Then hay = True
|
||||||
@@ -1306,15 +1306,15 @@ End Sub
|
|||||||
'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
|
'Ej. agregaColumna("TABLA", "COLUMNA", "TIPO")
|
||||||
Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
|
Sub agregaColumna(tabla As String, columna As String, tipo As String) 'ignore
|
||||||
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
|
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna en la tabla
|
||||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
|
Private c As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(*) AS fCol FROM pragma_table_info('${tabla}') WHERE name='${columna}'"$)
|
||||||
c.Position = 0
|
c.Position = 0
|
||||||
If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
|
If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
|
||||||
End If
|
End If
|
||||||
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
|
||||||
Try
|
Try
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
Starter.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
|
||||||
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
|
Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
|
||||||
Catch
|
Catch
|
||||||
Log(LastException)
|
Log(LastException)
|
||||||
|
|||||||
@@ -174,10 +174,10 @@ Sub flp_LocationChanged (Location1 As Location)
|
|||||||
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)
|
||||||
If Not(B4XPages.MainPage.skmt.IsInitialized) Then B4XPages.MainPage.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
If Not(Starter.skmt.IsInitialized) Then Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
||||||
Try
|
Try
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
Starter.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
||||||
Catch
|
Catch
|
||||||
LogColor(LastException, Colors.Red)
|
LogColor(LastException, Colors.Red)
|
||||||
End Try
|
End Try
|
||||||
@@ -279,7 +279,7 @@ Sub revisaUUG 'ignore
|
|||||||
Dim daa As Int = UUGCoords.DistanceTo(FLP.GetLastKnownLocation) 'Distancia de la UUG a la actual de Tracker.FLP.GetLastKnownLocation
|
Dim daa As Int = UUGCoords.DistanceTo(FLP.GetLastKnownLocation) 'Distancia de la UUG a la actual de Tracker.FLP.GetLastKnownLocation
|
||||||
If Starter.Logger Then LogColor($"**** UUC "${Subs.fechaKMT(FLP.GetLastKnownLocation.Time)}|$0.2{FLP.GetLastKnownLocation.Accuracy}|$0.8{FLP.GetLastKnownLocation.Latitude}|$0.8{FLP.GetLastKnownLocation.Longitude}|$0.2{FLP.GetLastKnownLocation.Speed}|"$, Colors.RGB(255,112,35))
|
If Starter.Logger Then LogColor($"**** UUC "${Subs.fechaKMT(FLP.GetLastKnownLocation.Time)}|$0.2{FLP.GetLastKnownLocation.Accuracy}|$0.8{FLP.GetLastKnownLocation.Latitude}|$0.8{FLP.GetLastKnownLocation.Longitude}|$0.2{FLP.GetLastKnownLocation.Speed}|"$, Colors.RGB(255,112,35))
|
||||||
If daa > 40 And FLP.GetLastKnownLocation.Accuracy < 35 Then 'Si la distancia de la ubicacion anterior es mayor de XX y la precision es menor de XX, la guardamos ...
|
If daa > 40 And FLP.GetLastKnownLocation.Accuracy < 35 Then 'Si la distancia de la ubicacion anterior es mayor de XX y la precision es menor de XX, la guardamos ...
|
||||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_GPS(fecha, lat, lon) VALUES (?,?,?)", Array As Object (Subs.fechaKMT(FLP.GetLastKnownLocation.Time),FLP.GetLastKnownLocation.Latitude,FLP.GetLastKnownLocation.Longitude))
|
Starter.skmt.ExecNonQuery2("INSERT INTO RUTA_GPS(fecha, lat, lon) VALUES (?,?,?)", Array As Object (Subs.fechaKMT(FLP.GetLastKnownLocation.Time),FLP.GetLastKnownLocation.Latitude,FLP.GetLastKnownLocation.Longitude))
|
||||||
If Starter.Logger Then Log("++++ Distancia a anterior="&daa&"|"&"Precision="&FLP.GetLastKnownLocation.Accuracy)
|
If Starter.Logger Then Log("++++ Distancia a anterior="&daa&"|"&"Precision="&FLP.GetLastKnownLocation.Accuracy)
|
||||||
End If
|
End If
|
||||||
UUGCoords = FLP.GetLastKnownLocation
|
UUGCoords = FLP.GetLastKnownLocation
|
||||||
|
|||||||
Reference in New Issue
Block a user