cheveguerra/Guna_Preventa_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_BAT.git synced 2026-04-17 12:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

version 6.02.10

Browse Source
This commit is contained in:
cvaldes1201
2026-02-23 10:47:59 -06:00
parent 83a53c02ab
commit 5c250388dc
1125 changed files with 97905 additions and 300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/B4XMainPage.bas
View File

@@ -7,7 +7,6 @@ Version=9.85
#Region Shared Files
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
'###########################################################################################################
'###################### PULL #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
@@ -18,9 +17,6 @@ Version=9.85
'###################### PUSH TORTOISE GIT #########################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
'###########################################################################################################
'###################### PUSH TORTOISE GIT CON TAG ##################################################
'Ctrl + clic para Git: ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=-ExecutionPolicy&Args=Bypass&Args=-File&Args=..\_git_tag.ps1&Args=%22%PROJECT%%22&Args=%22%PROJECT_NAME%%22
'###########################################################################################################
#End Region
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
@@ -172,6 +168,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PLAN_LEALTAD", "DESCARGADO", "TEXT")
Subs.agregaColumna("PEDIDO_CLIENTE", "PC_FACTURA", "INTEGER")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMOS_DESCUENTOS (CAT_PD_ALMACEN TEXT, CAT_PD_COD_PROMO TEXT, CAT_PD_RANGO INT, CAT_PD_VIGENCIA TEXT, CAT_PD_DESCUENTO TEXT, CAT_PD_PRODUCTO TEXT, CAT_PD_TIER TEXT)")
Subs.agregaColumna("CAT_PROMOS_DESCUENTOS", "CAT_PD_RANGO2", "INT")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD2 (CAT_GP_CODPROMO TEXT, CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUM, 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_IMG )")
@@ -204,6 +202,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS kmt_info3(CAT_CL_FOTO BLOB, CAT_CL_NUM_SERIEFISICO TEXT, CAT_CL_MTOCOMPRA TEXT, CAT_CL_CEDIS TEXT, CAT_CL_LAT TEXT, CAT_CL_LONG TEXT, CAT_CL_FBAJA TEXT, CAT_CL_FALTA TEXT, CAT_CL_CP TEXT, CAT_CL_EDO TEXT, CAT_CL_MUNI TEXT, CAT_CL_COLONIA TEXT, CAT_CL_CALLE2 TEXT, CAT_CL_CALLE1 TEXT, CAT_CL_NOINT TEXT, CAT_CL_NOEXT TEXT, CAT_CL_CALLE TEXT, CAT_CL_EMAIL TEXT, CAT_CL_TELEFONO TEXT, CAT_CL_ATIENTE2 TEXT, CAT_CL_ATIENDE1 TEXT, CAT_CL_NOMBRE TEXT, CAT_CL_GIRO TEXT, CAT_CL_DIAS_VISITA TEXT, CAT_CL_TIPO_RUTA TEXT, CAT_CL_RUTA TEXT, CAT_CL_CODIGO TEXT, gestion NUMERIC)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO2265(H_IDCLIENTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ATIENDE(ATIENDE TEXT, CLIENTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CODIGOS_CREDITO(CODIGO TEXT, BANDERA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TELEFONO(TELEFONO TEXT, CLIENTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3054(H_IDCLIENTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3055(H_IDCLIENTE TEXT)")
@@ -215,6 +216,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("kmt_info3", "foto", "BLOB")
Subs.agregaColumna("PEDIDO", "PE_RECALCULO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULADO", "TEXT")
Subs.agregaColumna("CODIGOS_CREDITO", "CLIENTE", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECCEDIS", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_FUTURO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
@@ -222,11 +224,14 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("HIST_VENTAS", "HVD_FECHA", "TEXT")
Subs.agregaColumna("kmt_info3", "encuesta", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR4", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_CONVERSION3", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_CONVERSION2", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR3", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_CLASIFICADOR2", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_TIPOCLIENTE", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_LIMITECREDITO", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_DIASCREDITO", "TEXT")
Subs.agregaColumna("kmt_info3", "CONFIRMADO", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_BCREDITO", "TEXT") '########################## CODIGO PARA CREDITOS ####################
Subs.agregaColumna("CAT_GUNAPROD", "CAT_GP_DEV", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD", "CAT_PA_BSEGMENTA", "TEXT")
@@ -234,6 +239,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("CAT_GUNAPROD", "CAT_PA_SEGMENTAV", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_PA_BSEGMENTA", "TEXT")
Subs.agregaColumna("CAT_GUNAPROD2", "CAT_PA_SEGMENTAV", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_SOLICITA", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_COLONIA", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_TELEFONO", "TEXT")
Subs.agregaColumna("CLIENTES_NUEVOS", "CN_CP", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECCANT", "TEXT")
Subs.agregaColumna("FOTOS", "FECHA", "TEXT")
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "P10" en la tabla

2
B4A/C_Bitacora.bas
View File

@@ -17,7 +17,7 @@ Sub Class_Globals
Dim banderaGeoCerca As String
Private reqManager As DBRequestManager
End Sub
'You can add more parameters here.
Public Sub Initialize (vCallback As Object, vEventName As String, vRoot As B4XView, db1 As SQL, DBReq As DBRequestManager) As Object
db = db1

191
B4A/C_Cliente.bas
View File

@@ -630,7 +630,7 @@ Sub B4XPage_Appear
Else
Tels.Enabled = True
End If
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent)
@@ -638,11 +638,35 @@ Sub B4XPage_Appear
skmt.Initialize(ruta,"kmt.db", True)
reqManager.Initialize(Me, Starter.server)
Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If fotomostrar.RowCount > 0 Then
' Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
' If fotomostrar.RowCount > 0 Then
' Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NULL")
' If fotomostrar1.RowCount > 0 Then
' ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
' Log("aqui no hay foto")
' Else
' fotomostrar.Position = 0
' Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("foto")
' Dim InputStream1 As InputStream
' InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
' Dim Bitmap1 As Bitmap
' Bitmap1.Initialize2(InputStream1)
' InputStream1.Close
' ImageView4.Bitmap = Bitmap1
' Log("aqui si hay foto")
' End If
' End If
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT foto FROM kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) AND foto IS NOT NULL")
If fotomostrar1.RowCount = 0 Then
Dim fotomostrar As Cursor = Starter.skmt.ExecQuery("SELECT FOTO FROM FOTOS where CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If fotomostrar.RowCount > 0 Then
fotomostrar.Position = 0
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("foto")
Private fotomostrarfinal() As Byte = fotomostrar.GetBlob("FOTO")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
Dim Bitmap1 As Bitmap
@@ -650,12 +674,28 @@ Sub B4XPage_Appear
InputStream1.Close
ImageView4.Bitmap = Bitmap1
Log("aqui si hay foto")
Else
Else
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
Log("aqui no hay foto")
End If
Else
fotomostrar1.Position = 0
Private fotomostrarfinal() As Byte = fotomostrar1.GetBlob("foto")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(fotomostrarfinal, 0, fotomostrarfinal.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
ImageView4.Bitmap = Bitmap1
Log("aqui si hay foto")
End If
' ImageView4.Bitmap = LoadBitmap(File.DirAssets,"images.png")
' Log("aqui no hay foto")
l_tipocliente.Text = Subs.traeTipoCliente
p_camara.Width = Root.Width
p_camara.Height = Root.Height
@@ -1970,6 +2010,8 @@ Sub JobDone(Job As HttpJob)
p_transparenteTicketImpreso.Visible = False
et_codigoAutorizacion.Text = ""
teclado.HideKeyboard
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
ToastMessageShow("Listo, ya se puede modificar la venta.", True)
Else
ToastMessageShow("El codigo es incorrecto, por favor revise y vuelva a intentar!!", True)
@@ -2110,7 +2152,37 @@ Sub gestionar
compra
End If
Else
p_transparenteTicketImpreso.Visible = True
If Subs.traeAlmacen = 94 Then
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
If c.GetString("encuesta") = "0" Then
Dim Intent1 As Intent
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try
Starter.encuesta = 1
Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1)
compra
Catch
Starter.encuesta = 0
' Dim cmd As DBCommand
' skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
compra
End Try
' cmd.Initialize
' cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
' cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
Else
compra
End If
Else
p_transparenteTicketImpreso.Visible = True
End If
End If
Else
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
@@ -3084,9 +3156,58 @@ Sub B_IMP_Click
Else If ALMACEN = 88 Then
Impresion4
Else If ALMACEN = 81 Or ALMACEN = 102 Or ALMACEN = 6 Then
Else If ALMACEN = 81 Or ALMACEN = 102 Or ALMACEN = 94 Then
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, IFNULL(CONFIRMADO,0) AS CONFIRMADO from kmt_info3 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position = 0
If c.GetString("CAT_CL_BCREDITO") = 0 Then
Impresion4
Else If c.GetString("CAT_CL_BCREDITO") = 1 Then
If c.GetString("CONFIRMADO") = 0 Then
Msgbox2Async("La entrega sera a credito o de contado?" , "Atención", "Credito", "Contado", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
Dim creditocod As Cursor = Starter.skmt.ExecQuery("SELECT CODIGO FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If creditocod.RowCount > 0 Then
creditocod.Position = 0
Dim cs As CSBuilder
cs.Initialize
' 1. Iniciamos el constructor y definimos el tamaño general más grande (ej. 20)
cs.Size(16).Append("Proporciona el siguiente codigo al cliente '")
' 2. Activamos Negrita (Bold) para el código
cs.Bold.Append(creditocod.GetString("CODIGO")).Pop ' .Pop cierra la negrita
' 3. Continuamos con el texto normal y cerramos todo
cs.Append("' para su entrega").PopAll
' 4. Pasamos el objeto 'cs' en lugar del texto plano
Msgbox2Async(cs, "Atención", "Ok", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 1 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
Impresion4
End If
Else
Impresion4
End If
Else If resultado = DialogResponse.CANCEL Then
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 1 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Impresion4
End If
Else
Impresion4
End If
End If
Impresion4
Else
Impresion
End If
@@ -3217,9 +3338,11 @@ Sub Impresion4
Dim descpro As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_PD_RANGO, CAT_PD_DESCUENTO, CAT_PD_RANGO2 FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}') AND INSTR(',' || CAT_PD_TIER || ',' , ',${Subs.traeTipoCliente},') > 0 "$)
descpro.Position = 0
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_RECALCULO") & " $" & s.GETSTRING("PE_COSTO_TOTREC") & eLINEFEED & eLINEFEED )
Log(s.GetString("PE_PRONOMBRE"))
Log(descpro.GetDouble("CAT_PD_DESCUENTO"))
Printer1.WriteString(BLANCO & "PL $" & s.GETSTRING("PE_COSTOU") & " Desc.: " & descpro.GetDouble("CAT_PD_DESCUENTO")&"%" & eLINEFEED & eLINEFEED)
TAMANO = 0
ESPACIO = 21
@@ -3296,8 +3419,12 @@ Sub Impresion4
Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & " $" & s.GETSTRING("PE_COSTO_TOT") & eLINEFEED )
If Subs.traeTipoCliente= 5 Then
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_LISTAPRECIO AS CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
Else
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
End If
Dim precioprom As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_GP_PRECIO FROM CAT_GUNAPROD WHERE CAT_GP_NOMBRE = '${s.GetString("PE_PRONOMBRE")}' "$)
If precioprom.RowCount > 0 Then
precioprom.Position = 0
Log (precioprom.GETSTRING("CAT_GP_PRECIO"))
@@ -3351,16 +3478,27 @@ Sub Impresion4
' Printer1.WriteString("Descuento %: " & NumberFormat2( (((Subs.calculaTotalConPromoXRango3(Subs.traeCliente) - Subs.calculaTotalConPromoXRango2(Subs.traeCliente))*100)/NumberFormat2(Subs.calculaTotalConPromoXRango3(Subs.traeCliente),0,2,2,False)),0,2,2,False)& eLINEFEED)
End If
Printer1.WriteString("Total Preventa: $" & NumberFormat2(Subs.calculaTotalConPromoXRango2(Subs.traeCliente),0,2,2,False)& eLINEFEED)
Printer1.WriteString(" " & eLINEFEED)
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
Printer1.WriteString(la_Calle.Text & eLINEFEED)
Printer1.WriteString("--------------ESTE TICKET NO ES UN--------------" & eLINEFEED)
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
Printer1.WriteString(" " & eLINEFEED)
Printer1.WriteString(" " & eLINEFEED)
Private contadocredito As Cursor = Starter.skmt.ExecQuery($"SELECT BANDERA FROM CODIGOS_CREDITO WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA) "$)
If contadocredito.RowCount > 0 Then
contadocredito.Position = 0
If contadocredito.getstring("BANDERA") = "1" Then
Printer1.WriteString("Tipo de entrega: CREDITO"&eLINEFEED)
Else
Printer1.WriteString("Tipo de entrega: CONTADO"& eLINEFEED)
End If
End If
Printer1.WriteString(" " & eLINEFEED)
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
Printer1.WriteString("ENTREGA EN :" & eLINEFEED)
Printer1.WriteString(la_Calle.Text & eLINEFEED)
Printer1.WriteString("--------------ESTE TICKET NO ES UN--------------" & eLINEFEED)
Printer1.WriteString("----------COMPROBANTE FISCAL, SOLO ES-----------" & eLINEFEED)
Printer1.WriteString("------------------INFORMATIVO-------------------" & eLINEFEED)
Printer1.WriteString("------------------------------------------------" & eLINEFEED)
Printer1.WriteString(" " & eLINEFEED)
Sleep(1000)
Printer1.DisConnect
@@ -6613,6 +6751,8 @@ Private Sub b_codigoAutorizacion_Click
Starter.skmt.ExecNonQuery("delete from ticket_impreso where idCliente in (select cuenta from cuentaa)")
p_transparenteTicketImpreso.Visible = False
et_codigoAutorizacion.Text = ""
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
End If
teclado.HideKeyboard
' p_transparenteTicketImpreso.Visible = False
@@ -7789,7 +7929,7 @@ Private Sub b_acepatiende_Click
If coord.RowCount = 0 Then
skmt.ExecNonQuery2("INSERT INTO ATIENDE(ATIENDE,CLIENTE) VALUES (?,?)", Array As String (et_atiende.Text,Subs.traeCliente))
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info3 set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
MsgboxAsync("Datos actualizados.","Atención")
l_atiende.Text = et_atiende.Text
ime.HideKeyboard
@@ -7797,7 +7937,7 @@ Private Sub b_acepatiende_Click
et_atiende.Text = ""
Else
skmt.ExecNonQuery2("UPDATE ATIENDE SET ATIENDE = ? where CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String (et_atiende.Text))
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info3 set CAT_CL_ATIENDE1 = '${et_atiende.Text}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
MsgboxAsync("Datos actualizados.","Atención")
l_atiende.Text = et_atiende.Text
ime.HideKeyboard
@@ -7870,5 +8010,4 @@ End Sub
Private Sub p_telefono_Click
End Sub
End Sub

1
B4A/C_NoVenta.bas
View File

@@ -12,6 +12,7 @@ Sub Class_Globals
Dim ruta As String
Dim skmt As SQL
Dim c As Cursor
Dim CANCELA As Button
Dim GUARDA As Button
Dim r_1 As RadioButton

340
B4A/C_Nota.bas
View File

@@ -421,31 +421,59 @@ Sub borra_Click
' If c.RowCount > 0 Then
' c.Position = 0
' If c.GetString("HABILITADA") = 1 Then
If Not(Subs.revisaImpreso) Then
If folio <> "" Then
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
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) AND PE_CEDIS <> 'DUR'")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} 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))
Next
End If
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPage_Appear
End If
Else
Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
If Not(Subs.revisaImpreso) Then
' If folio <> "" Then
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
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) AND PE_CEDIS <> 'DUR'")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} 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))
Next
End If
Else
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
B4XPage_Appear
End If
' Else
' Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
' End If
Else
Log("Aqui")
Log(Subs.traeAlmacen)
If Subs.traeAlmacen = 94 Then
Log("Aqui")
' If folio <> "" Then
result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
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) AND PE_CEDIS <> 'DUR'")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} 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))
Next
End If
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
B4XPage_Appear
End If
' Else
' Msgbox("CLIENTE YA SE TRANSMITIO, FAVOR DE LLAMAR A SOPORTE PARA ASISTENCIA","AVISO") 'ignore
' End If
Else
Log("aqui")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
End If
End If
' Else If c.GetString("HABILITADA") = 0 Then
' If folio <> "" Then
' result = Msgbox2("Seguro que desa borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
@@ -604,9 +632,84 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
B4XPage_Appear
End If
Else
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
If Subs.traeAlmacen = 94 Then
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where (pe_pronombre = '${nom}' or pe_pronombre = '${nom} ') AND PE_CEDIS = '${cedis}' AND PE_FOLIO = '${foliu}' and pe_cliente in (Select CUENTA from cuentaa)"$)
Log($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where (pe_pronombre = '${nom}' or pe_pronombre = '${nom}') AND PE_CEDIS = '${cedis}' AND PE_FOLIO = '${foliu}' and pe_cliente in (Select CUENTA from cuentaa)"$)
Log(c.RowCount)
Log("AQUI ESTOY")
Log(cedis)
Log(foliu)
Log(nom)
' If c.RowCount > 0 Then
c.Position=0
' If c.RowCount > 0 Then
' 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")))
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))
' c2=B4XPages.MainPage.skmt.ExecQuery($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)'Con esto revisamos si el nombre es de una promo
' c2=B4XPages.MainPage.skmt.ExecQuery($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)'Con esto revisamos si el nombre es de una promo
' Log($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)
' Log($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)
' c2.Position=0
' Log("Algo "&c2.GetString("noEsPromo"))
If Not(IsNumber(cedis)) Then
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ?)",Array As String(cedis))
Log(j3.RowCount)
If j3.RowCount > 0 Then
Log("Soy promo")
For j = 0 To j3.RowCount -1
Log("aqui tronare?")
j3.Position = j
Log(nom)
If cedis <> "DUR" Then
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.GetString("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${foliu}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, foliu))
Else
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, foliu))
End If
Next
End If
j3.Close
Else
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, foliu))
End If
c.Close
' c2.Close
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
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_info3 set gestion = 2 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_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
B4XPage_Appear
End If
Else
Log("aqui")
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
End If
End If
Else If c.GetString("HABILITADA") = 0 Then
If Not(Subs.revisaImpreso) Then
@@ -697,9 +800,101 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
B4XPage_Appear
End If
Else
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
If Subs.traeAlmacen = 94 Then
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
Private X() As String = Regex.Split(" ", Value)
Log(X)
Log(X.Length)
Private nom As String = ""
For i = 0 To X.Length -1
' Log(X(i))
If X(i).Contains(CRLF) Then
' Log("Retorno")
End If
If Not(X(i).Contains(CRLF)) Then
nom = nom & " " & X(i)
Else
Exit
End If
' Log(nom)
Next
' Log(nom)
nom = nom.Trim
If X(X.Length-1) <> ".01" Then
Private cedis As String = X(X.Length-1)
Else
Private cedis As String = (X(X.Length-2) &" " & X(X.Length-1))
End If
Log(nom)
Log(cedis)
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where (pe_pronombre = '${nom}' or pe_pronombre = '${nom} ') AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$) ' Se agregó el "pe_pronombre = '${nom} '" porque al nombre de los productos de promo se les agrega un "espacio al final" para que cuando exiiste en el pedido un mismo producto fuera de promocion, el "quitaduplicados" no los elimine.
Log($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO where (pe_pronombre = '${nom}' or pe_pronombre = '${nom} ') AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
Log(c.RowCount)
c.Position=0
' If c.RowCount > 0 Then
' 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")))
' 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))
' c2=B4XPages.MainPage.skmt.ExecQuery($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)'Con esto revisamos si el nombre es de una promo
' c2=B4XPages.MainPage.skmt.ExecQuery($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)'Con esto revisamos si el nombre es de una promo
' Log($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)
' Log($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)
' c2.Position=0
' Log("Algo "&c2.GetString("noEsPromo"))
If Not(IsNumber(cedis)) Then
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ?)",Array As String(cedis))
Log(j3.RowCount)
If j3.RowCount > 0 Then
Log("Soy promo")
For j = 0 To j3.RowCount -1
Log("aqui tronare?")
j3.Position = j
If cedis <> "DUR" Then
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.GetString("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${foliu}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, foliu))
Else
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, foliu))
End If
Next
End If
j3.Close
Else
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, foliu))
End If
c.Close
' c2.Close
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
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_info3 set gestion = 2 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_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
B4XPage_Appear
End If
Else
Log("aqui")
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
End If
End If
End If
Else If c.RowCount = 0 Then
@@ -780,9 +975,90 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
B4XPage_Appear
End If
Else
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
If Subs.traeAlmacen = 94 Then
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then
Private X() As String = Regex.Split(" ", Value)
Log(X)
Log(X.Length)
Private nom As String = ""
For i = 0 To X.Length -1
' Log(X(i))
If X(i).Contains(CRLF) Then
' Log("Retorno")
End If
If Not(X(i).Contains(CRLF)) Then
nom = nom & " " & X(i)
Else
Exit
End If
' Log(nom)
Next
' Log(nom)
nom = nom.Trim
Private cedis As String = X(X.Length-1)
c=B4XPages.MainPage.skmt.ExecQuery($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS, PE_PRONOMBRE FROM PEDIDO where (pe_pronombre = '${nom}' or pe_pronombre = '${nom} ') AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
Log($"select PE_PROID,PE_CANT, PE_FOLIO, PE_CEDIS FROM PEDIDO where pe_pronombre = '${nom}' AND PE_CEDIS = '${cedis}' and pe_cliente in (Select CUENTA from cuentaa)"$)
Log(c.RowCount)
c.Position=0
' If c.RowCount > 0 Then
' 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")))
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))
' c2=B4XPages.MainPage.skmt.ExecQuery($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)'Con esto revisamos si el nombre es de una promo
' c2=B4XPages.MainPage.skmt.ExecQuery($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)'Con esto revisamos si el nombre es de una promo
' Log($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$)
' Log($"select ISNUMERIC(pe_cedis) AS noEsPromo from pedido where pe_pronombre = '${nom}' and pe_cliente in (Select CUENTA from cuentaa) and pe_cedis = '${cedis}'"$)
' c2.Position=0
' Log("Algo "&c2.GetString("noEsPromo"))
If Not(IsNumber(cedis)) Then
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE, PE_FOLIO FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ?)",Array As String(cedis))
Log(j3.RowCount)
If j3.RowCount > 0 Then
Log("Soy promo")
For j = 0 To j3.RowCount -1
Log("aqui tronare?")
j3.Position = j
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.GetString("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"delete from pedido where pe_cedis= '${cedis}' and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = '${foliu}' AND PE_PROID = '${j3.GetString("PE_PROID")}'"$)', Array As Object(cedis, c.GetString("PE_FOLIO")))
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis= ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(cedis, c.GetString("PE_FOLIO")))
Next
End If
j3.Close
Else
B4XPages.MainPage.skmt.ExecNonQuery($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cedis = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(nom, cedis, foliu))
End If
c.Close
' c2.Close
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
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_info3 set gestion = 2 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_info3 set gestion = 0 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
Starter.skmt.ExecNonQuery("Update kmt_info3 set CONFIRMADO = 0 WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
Starter.skmt.ExecNonQuery("Update CODIGOS_CREDITO set BANDERA = 0 WHERE CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
B4XPage_Appear
End If
Else
Log("aqui")
B4XPages.MainPage.cliente.p_transparenteTicketImpreso.Visible = True
B4XPages.ShowPage("cliente")
ToastMessageShow("La venta ya esta impresa, no se puede modificar!!", True)
End If
End If
End If
End Sub

556
B4A/C_NuevoCliente.bas
View File

@@ -4,6 +4,145 @@ ModulesStructureVersion=1
Type=Class
Version=11.5
@EndOfDesignText@
'Sub Class_Globals
' Private Root As B4XView 'ignore
' Private xui As XUI 'ignore
'
' Dim g As GPS
' Dim ruta As String
' Dim c As Cursor
'
' Dim CANCELA As Button
' Dim GUARDA As Button
' Dim cuenta As String
' Dim usuario As String
' Dim sDate,sTime As String
' Dim no_cliente As String
' Dim no_ruta As String
'
' Dim lat As Double = 0
' Dim lon As Double = 0
'
' Dim r_4 As RadioButton
' Dim E_NOMBRE As EditText
' Dim tgl As Toggle
' Private l_sinUbicacion As Label
' Private p_nuevoCliente As Panel
' Private Label1 As Label
' Private p_botones As Panel
'End Sub
'
''You can add more parameters here.
'Public Sub Initialize As Object
' Return Me
'End Sub
'
''This event will be called once, before the page becomes visible.
'Private Sub B4XPage_Created (Root1 As B4XView)
' Root = Root1
' 'load the layout to Root
' Root.LoadLayout("nuevocliente")
' ruta = File.DirInternal
' If File.Exists(ruta, "kmt.db") = False Then
' File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
' End If
'' skmt.Initialize(ruta,"kmt.db", True)
'End Sub
'
''You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
'
'Sub B4XPage_Appear
' E_NOMBRE.Text = ""
' If Not(Starter.gps.GPSEnabled) Then
' ToastMessageShow("Es necesario tener el GPS encendido", True)
' StartActivity(Starter.gps.LocationSettingsIntent)
' End If
' GUARDA.Visible = False
'
' CallSubDelayed(Tracker, "Track")
' CallSubDelayed(Tracker, "StartFLPSmall")
' If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
' B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
' B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
'' Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
' GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
' End If
'
'
'' Subs.panelVisible(p_nuevoCliente,, 0)
'' p_nuevoCliente.Height = Root.Height
'' p_nuevoCliente.Width = Root.Width
'' Subs.centraEtiqueta(Label1, Root.Width)
'' Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
'' Subs.centraPanel(p_botones, Root.Width)
' Subs.centraPanel(p_nuevoCliente, Root.Width)
'' E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
' If B4XPages.MainPage.lat_gps <> "0.0" Then
' GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
' l_sinUbicacion.Visible = True
' End If
' Starter.skmt.ExecNonQuery("delete from cuentaa")
'End Sub
'
'Sub GPS_LocationChanged (Location1 As Location)
' Log("NC GPS_LocationChanged")
' If B4XPages.MainPage.lat_gps <> "0.0" Then
' If GUARDA.IsInitialized Then
' GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
' l_sinUbicacion.Visible = True
' End If
' End If
' If B4XPages.MainPage.lat_gps <> "0.0" Then
' If GUARDA.IsInitialized Then
' GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
' l_sinUbicacion.Visible = True
' lat = Location1.Latitude
' lon = Location1.Longitude
' l_sinUbicacion.Text = ("Latitud: " & lat & ", Longotud: "& lon)
' End If
' End If
'End Sub
'
'Sub CANCELA_Click
' B4XPages.ShowPage("Principal")
'End Sub
'
'Sub GUARDA_Click
' If E_NOMBRE.Text = "" Then
' ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True)
' Else
' DateTime.DateFormat = "MM/dd/yyyy"
' DateTime.Timeformat = "HHmmss"
' sDate=DateTime.Date(DateTime.Now)
' sTime=DateTime.Time(DateTime.Now)
' Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$)
' 'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'"
' Private hora As String = sTime.SubString2(0,2)
' Private mins As String = sTime.SubString2(2,4)
' Private segs As String = sTime.SubString(4)
' sTime = hora&":"&mins&":"&segs
' Log("////////////// sTime: "&sTime&" ////////////////")
'' c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info3")
'' c.Position=0
' no_ruta= Subs.traeRuta
' no_cliente= "N" & sTime & no_ruta
' Log("++ ++ no_cliente = "&no_cliente)
'' c.Close
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) 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",lon,lat))
' 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))
' B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
' B4XPages.ShowPage("Cliente")
' End If
'End Sub
'
'
'Private Sub p_nuevoCliente_Click
'
'End Sub
Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
@@ -17,12 +156,10 @@ Sub Class_Globals
Dim cuenta As String
Dim usuario As String
Dim sDate,sTime As String
Dim sDate2,sTime2 As String
Dim no_cliente As String
Dim no_ruta As String
Dim lat As Double = 0
Dim lon As Double = 0
Dim lista_punta As List
Dim r_4 As RadioButton
Dim E_NOMBRE As EditText
Dim tgl As Toggle
@@ -30,6 +167,29 @@ Sub Class_Globals
Private p_nuevoCliente As Panel
Private Label1 As Label
Private p_botones As Panel
Private p_cam As Panel
Private p_camara As Panel
Private b_foto_inci As Button
' Private camEx2 As CameraExClass2
Dim frontCamera As Boolean = False
Dim fototomada As String = "0"
Dim ALMACEN As String
Private et_direccion As EditText
Private Label2 As Label
Dim lat As Double = 0
Dim lon As Double = 0
Private b_ubicacion As Label
Private Label3 As Label
Private cb_giro As B4XComboBox
Dim giros As String
Private L_Atiende As Label
Private ET_Atiende As EditText
Private Label5 As Label
Private et_colonia As EditText
Private et_telefono As EditText
Private et_cp As EditText
Private Label6 As Label
Private Panel1 As Panel
End Sub
'You can add more parameters here.
@@ -39,6 +199,7 @@ End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
' B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
Root = Root1
'load the layout to Root
Root.LoadLayout("nuevocliente")
@@ -47,17 +208,70 @@ Private Sub B4XPage_Created (Root1 As B4XView)
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If
' skmt.Initialize(ruta,"kmt.db", True)
' p_camara.Height = Root.Height
' p_camara.Width = Root.Width
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
'' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
'' frontCamera = camEx2.Front
' Log("inicializamos Camara")
' Else
' ToastMessageShow("Sin permisos de camara!!!", True)
' End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("Con permisos para escritura")
Else
ToastMessageShow("Sin permisos de escritura!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("Con permisos para escritura")
Else
ToastMessageShow("Sin permisos de lectura!!!", True)
End If
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
et_direccion.Text = ""
E_NOMBRE.Text = ""
ET_Atiende.Text = ""
et_colonia.Text = ""
et_telefono.Text = ""
et_cp.Text = ""
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent)
End If
GUARDA.Visible = False
Subs.panelVisible(p_nuevoCliente, 0, 0)
Subs.panelVisible(Panel1, 0, 0)
p_nuevoCliente.Height = Root.Height
p_nuevoCliente.Width = Root.Width
Panel1.Width = Root.Width
Panel1.Height = Root.Height
Subs.centraEtiqueta(Label1, Root.Width)
Subs.centraEtiqueta(Label5, Root.Width)
Subs.centraEtiqueta(Label6, Root.Width)
Subs.centraEtiqueta(Label2, Root.Width)
Subs.centraEtiqueta(Label3, Root.Width)
Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
Subs.centraEtiqueta(b_ubicacion, Root.Width)
Subs.centraPanel(p_botones, Root.Width)
E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
et_cp.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
et_colonia.Left = Round(Root.Width/2)-(et_colonia.Width/2)
et_direccion.Left = Round(Root.Width/2)-(et_direccion.Width/2)
If B4XPages.MainPage.lat_gps <> "0.0" Then
GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
l_sinUbicacion.Visible = True
End If
CallSubDelayed(Tracker, "Track")
CallSubDelayed(Tracker, "StartFLPSmall")
@@ -68,75 +282,323 @@ Sub B4XPage_Appear
GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
End If
' lista_punta.Initialize
' Dim pol As Cursor = Starter.skmt.ExecQuery("SELECT LAT, LONG FROM POLIGONO")
' If pol.RowCount > 0 Then
'
' For poli = 0 To pol.RowCount -1
' pol.Position = poli
' Dim coords As LatLng
' coords.Initialize(pol.GetString("LAT"), pol.GetString("LONG"))
' lista_punta.Add(coords)
' Next
' End If
' Subs.panelVisible(p_nuevoCliente,, 0)
' p_nuevoCliente.Height = Root.Height
' p_nuevoCliente.Width = Root.Width
' Subs.centraEtiqueta(Label1, Root.Width)
' Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
' Subs.centraPanel(p_botones, Root.Width)
Subs.centraPanel(p_nuevoCliente, Root.Width)
' E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
If B4XPages.MainPage.lat_gps <> "0.0" Then
GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
l_sinUbicacion.Visible = True
If Not(Starter.GPS.GPSEnabled) Then
ToastMessageShow("Debe Activar el GPS del Equipo.", True)
StartActivity(Starter.GPS.LocationSettingsIntent)
Else
Starter.GPS.Start(0, 0)
' If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
End If
Starter.skmt.ExecNonQuery("delete from cuentaa")
CallSubDelayed(Tracker, "StartFLPSmall")
c = Starter.skmt.ExecQuery("SELECT GIRO FROM CAT_GIRO order by 1")
Dim Items As List
Items.Initialize
Items.Add("SELECCIONA UNA OPCIÓN")
If c.RowCount > 0 Then
For i = 0 To c.RowCount-1
c.Position = i
Items.Add(c.GetString("GIRO"))
Next
cb_giro.SetItems(Items)
End If
giros = "SELECCIONA UNA OPCIÓN"
c.Close
End Sub
Sub GPS_LocationChanged (Location1 As Location)
Log("NC GPS_LocationChanged")
If B4XPages.MainPage.lat_gps <> "0.0" Then
If GUARDA.IsInitialized Then
GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
l_sinUbicacion.Visible = True
End If
End If
If B4XPages.MainPage.lat_gps <> "0.0" Then
If GUARDA.IsInitialized Then
GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
l_sinUbicacion.Visible = True
lat = Location1.Latitude
lon = Location1.Longitude
l_sinUbicacion.Text = ("Latitud: " & lat & ", Longotud: "& lon)
End If
End If
If b_ubicacion.IsInitialized Then
b_ubicacion.TextSize = 13
b_ubicacion.Text = $"Precisión GPS $1.0{Location1.Accuracy} m"$
If Location1.Accuracy > 200 Then
b_ubicacion.TextColor = Colors.Red
b_ubicacion.TextSize = 16
b_ubicacion.Text = $"Mala señal $1.0{Location1.Accuracy} m"$
End If
End If
End Sub
Sub CANCELA_Click
B4XPages.ShowPage("Principal")
CallSubDelayed(Tracker, "StartFLP")
End Sub
Sub PointInPolygon(point As LatLng, polygon As List) As Boolean
Dim x As Double = point.Longitude
Dim y As Double = point.Latitude
Dim inside As Boolean = False
For i = 0 To polygon.Size - 1
Dim j As Int = (i + 1) Mod polygon.Size
Dim p1_1 As LatLng = polygon.Get(i)
Dim p2_1 As LatLng = polygon.Get(j)
Dim xi As Double = p1_1.Longitude
Dim yi As Double = p1_1.Latitude
Dim xj As Double = p2_1.Longitude
Dim yj As Double = p2_1.Latitude
Dim intersect As Boolean = ((yi > y) <> (yj > y)) And (x < (xj - xi) * (y - yi) / (yj - yi) + xi)
If intersect Then
inside = Not(inside)
End If
Next
Return inside
End Sub
Sub GUARDA_Click
If E_NOMBRE.Text = "" Then
ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True)
' Dim mPoint As LatLng
' mPoint.Initialize(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
'
'' If lista_punta.Size > 0 Then
'' Dim dentro As Boolean = PointInPolygon(mPoint, lista_punta)
''
'' If dentro Then
' ToastMessageShow("El punto está DENTRO del polígono", True)
B4XPages.ShowPage("NuevoCliente")
' Verifica si el nombre de la tienda está vacío
If E_NOMBRE.Text = "" Then
MsgboxAsync("Por favor captura el nombre de la Tienda","Atención")
' Verifica si la dirección tiene más de 3 caracteres
Else If et_direccion.Text.Length > 3 Then
' Verifica si la latitud es diferente de 0
If lat <> 0 Then
' Verifica si el giro del cliente está seleccionado
If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then
' Verifica si el encargado que atiende el negocio está capturado
If ET_Atiende.Text <> "" Then
If et_telefono.Text <> "" Then
If et_colonia.Text <> "" Then
If et_cp.Text <> "" Then
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.Timeformat = "HHmmss"
sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now)
Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$)
' Aquí creamos manualmente la hora con el separador de los 2 puntos porque en algunas versiones de Android no respeta el formato "Timeformat = 'HH:mm:ss'"
Private hora As String = sTime.SubString2(0,2)
Private mins As String = sTime.SubString2(2,4)
Private segs As String = sTime.SubString(4)
sTime = hora & ":" & mins & ":" & segs
Dim Fechacliente() As String = Regex.Split("/",sDate)
Log("////////////// sTime: "&sTime&" ////////////////")
c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info3")
c.Position = 0
no_ruta = c.GetString("CAT_CL_RUTA")
no_cliente = "N" & sTime & no_ruta
Log("++ ++ no_cliente = "&no_cliente)
c.Close
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))
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
If c.RowCount > 0 Then
c.Position = 0
ALMACEN = c.GetString("ID_ALMACEN")
End If
c.Close
c = Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA) VALUES(?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta))
' 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.Timeformat = "HH:mm:ss"
sDate2 = DateTime.Date(DateTime.Now)
sTime2 = DateTime.Time(DateTime.Now)
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO,CAT_CL_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?,?) ", Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem,et_cp.Text))
Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA,CN_COLONIA, CN_TELEFONO,CN_CP) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(no_cliente, sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text, et_direccion.Text, ALMACEN, no_ruta, cb_giro.SelectedItem, ET_Atiende.Text,et_colonia.Text,et_telefono.Text,et_cp.Text))
' fototomada = "0"
B4XPages.ShowPage("Cliente")
CallSubDelayed(Tracker, "StartFLP")
Else
MsgboxAsync("Por favor, debe capturar el C.P. el negocio.","Atención")
End If
Else
MsgboxAsync("Por favor, debe capturar la colonia el negocio.","Atención")
End If
Else
MsgboxAsync("Por favor, debe capturar el telefono.","Atención")
End If
Else
' Mensaje de advertencia si ET_Atiende.Text está vacío
MsgboxAsync("Por favor, debe capturar al encargado que atiende el negocio.","Atención")
End If
Else
MsgboxAsync("Por favor captura el giro del cliente","Atención")
End If
Else
MsgboxAsync("Por favor revisa que tengas señal GPS","Atención")
End If
Else
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.Timeformat = "HHmmss"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
Log($" //////////// Date: ${sDate} - Time: ${sTime} ////////////////"$)
'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'"
Private hora As String = sTime.SubString2(0,2)
Private mins As String = sTime.SubString2(2,4)
Private segs As String = sTime.SubString(4)
sTime = hora&":"&mins&":"&segs
Log("////////////// sTime: "&sTime&" ////////////////")
' c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info3")
' c.Position=0
no_ruta= Subs.traeRuta
no_cliente= "N" & sTime & no_ruta
Log("++ ++ no_cliente = "&no_cliente)
' c.Close
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) 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",lon,lat))
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))
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
B4XPages.ShowPage("Cliente")
MsgboxAsync("Por favor captura la dirección del cliente","Atención")
End If
' Else
' ToastMessageShow("El punto está FUERA del polígono", True)
' End If
' End If
End Sub
Private Sub p_nuevoCliente_Click
End Sub
'Private Sub b_foto_inci_Click
' camEx2.TakePicture
' p_camara.Visible = False
'' StopCamera2
'End Sub
'
'Private Sub InitializeCamera2
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
' frontCamera = camEx2.Front
' Log("inicializamos Camara")
' Else
' ToastMessageShow("Sin permisos de camara!!!", True)
' End If
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' Log("con permisos para escritura")
' Else
' ToastMessageShow("Sin permisos de escritura!!!", True)
' End If
'
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' Log("con permisos para escritura")
' Else
' ToastMessageShow("Sin permisos de lectura!!!", True)
' End If
'End Sub
'
'Sub Camera1_Ready (Success As Boolean)
' Log("Camara ready")
' If Success Then
' camEx2.SetJpegQuality(90)
' camEx2.SetContinuousAutoFocus
' camEx2.CommitParameters
' camEx2.StartPreview
' Log(camEx2.GetPreviewSize)
' Else
' ToastMessageShow("Cannot open camera.", True)
' Log("Cannot open camera")
' End If
'End Sub
'
'Sub Camera1_PictureTaken (Data()As Byte)
' Log("tome foto")
' Dim filename As String = fototomada
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Try
' File.MakeDir(Dirp,"/promotoriakmts")
' Dir = "/promotoriakmts"
' Log("creado en promotoria " & Dirp & Dir)
' Catch
' Dir = ""
' Log("creado en raiz")
' End Try
'
' Try
' File.MakeDir(Dirp & Dir,"/reduccion")
' Dir2 = "/reduccion"
' Log("creado en promotoria " & Dirp & Dir & Dir2)
' Catch
' Dir = ""
' Log("creado en raiz")
' End Try
'
' camEx2.SavePictureToFile(Data, Dirp&Dir, filename)
' camEx2.StartPreview 'restart preview
' ToastMessageShow("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
' Log("Picture saved." & CRLF & "File size: " & File.Size(Dir, filename) & Dir &"," & filename)
' p_camara.Visible = False
' StopCamera2
'
'End Sub
'
'Private Sub StopCamera2
'' Capturing = False
' If camEx2.IsInitialized Then
' camEx2.Release
' End If
'End Sub
'
'
'Private Sub B_FOTO_Click
' DateTime.DateFormat="ddMMyyyyHHmmss"
' InitializeCamera2
' Subs.panelVisible(p_camara, 0, 0)
' fototomada = DateTime.Now & "_cliente.jpg"
'End Sub
Private Sub cb_giro_SelectedIndexChanged (Index As Int)
giros = cb_giro.SelectedItem
End Sub
Private Sub et_cp_TextChanged (Old As String, New As String)
If New.Length > 5 Then
et_cp.Text = Old
Else If New.Length > 1 And New.Length <= 5 Then
If New.Contains(Chr(10)) Or New.Contains(Chr(13)) Or New.Contains(Chr(34)) Then
et_cp.Text = Old
End If
End If
End Sub
Private Sub et_telefono_TextChanged (Old As String, New As String)
If New.Length > 10 Then
et_telefono.Text = Old
Else If New.Length > 1 And New.Length <= 10 Then
If New.Contains(Chr(10)) Or New.Contains(Chr(13)) Or New.Contains(Chr(34)) Then
et_telefono.Text = Old
End If
End If
End Sub

509
B4A/C_Principal.bas
View File

@@ -251,6 +251,17 @@ Sub Class_Globals
Private l_preventa As Label
Private l_preacordada As Label
Private l_prevtotal As Label
Private Label13 As Label
Private Label19 As Label
Private Label21 As Label
Private Label33 As Label
Private Label35 As Label
Private Label43 As Label
Private Label51 As Label
Private l_faltan As Label
Private l_visitas As Label
Private l_visitartotal As Label
Private de As Label
End Sub
'You can add more parameters here.
@@ -439,11 +450,20 @@ Sub B4XPage_Appear
f.Close
If l_ruta.Text = 0 Then
l_ruta.Text =0
l_visitas.Text = 0
l_faltan.Text = 0
Else
f=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info3 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
Dim totalcisitas As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 where cat_cl_codigo <> 0")
totalcisitas.Position = 0
l_visitas.Text = totalcisitas.GetInt("CUENTA")
Dim visitasfaltantes As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 WHERE gestion = 0 and cat_cl_codigo <> 0")
visitasfaltantes.Position = 0
l_faltan.Text = visitasfaltantes.GetInt("CUENTA")
End If
If Cuantos = 0 Then
L_MONTOD.Text =0
@@ -635,6 +655,10 @@ Sub Subir_Click
S_CH.Visible = False
PB1.Visible = False
Resumen.Visible= False
l_visitartotal.Visible = False
de.Visible = False
l_faltan.Visible = False
l_visitas.Visible = False
p_principal.Visible = False
Subs.panelVisible(P1, 0, 0)
@@ -736,6 +760,34 @@ Sub Subir_Click
End If
c.Close
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, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
If c.RowCount>0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
If dia = 2 Then
Dim dialetra As String = "LUNES"
Else If dia = 3 Then
Dim dialetra As String = "MARTES"
Else If dia = 4 Then
Dim dialetra As String = "MIERCOLES"
Else If dia = 5 Then
Dim dialetra As String = "JUEVES"
Else If dia = 6 Then
Dim dialetra As String = "VIERNES"
Else If dia = 7 Then
Dim dialetra As String = "SABADO"
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_clientesnuevos_GUNA"
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
Next
End If
c.Close
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info3 where foto is not NULL")
If fotomostrar1.RowCount>0 Then
For i=0 To fotomostrar1.RowCount -1
@@ -780,6 +832,21 @@ Sub Subir_Click
End If
c.Close
' UPDATE VENTA CREDITO
'' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_ventacredito_guna"
cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
Next
End If
c.Close
' Cambio TELEFONO
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_TELEFONO, CAT_CL_CODIGO from kmt_info3 where CAT_CL_CODIGO IN (SELECT CLIENTE FROM ATIENDE)")
If c.RowCount>0 Then
@@ -1081,10 +1148,31 @@ Sub cargar_Click
cp.Position = 0
Private fecha As String = cp.GetString("PE_FECHA")
Dim fecha2() As String = Regex.Split("/",fecha)
Dim dia As String = fecha2(1)
Dim fecha5() As String = Regex.Split("\:",fecha2(2))
Dim dia As String = fecha5(0).SubString2(0,4)&fecha2(0)&fecha2(1)
Log(fecha5(0))
Log(dia)
Dim dia2 As String = DateTime.GetDayOfMonth(DateTime.Now)
Dim mescom As String = DateTime.GetMonth(DateTime.Now)
Dim mescom2 As String
If mescom.Length = 1 Then
mescom2 = "0"&DateTime.GetMonth(DateTime.Now)
Else
mescom2 = DateTime.GetMonth(DateTime.Now)
End If
Dim diacom As String = DateTime.GetDayOfMonth(DateTime.Now)
Log(DateTime.GetMonth(DateTime.Now))
Dim diacom2 As String
If diacom.Length = 1 Then
diacom2 = "0"&DateTime.GetDayOfMonth(DateTime.Now)
Else
diacom2 = DateTime.GetDayOfMonth(DateTime.Now)
End If
Dim dia2 As String = DateTime.GetYear(DateTime.Now)&mescom2&diacom2
Log(dia & " , " & dia2)
Log("SI PASO")
If dia < dia2 Then
pedidodiaanterior = True
End If
@@ -1132,7 +1220,10 @@ Sub cargar_Click
l_ruta.Visible = False
Label22.Visible = False
l_rutasuplencia.Visible = False
l_visitartotal.Visible = False
de.Visible = False
l_faltan.Visible = False
l_visitas.Visible = False
' trabajar.Visible = False
NUEVO.Visible =False
BUSCA.Visible=False
@@ -1217,6 +1308,10 @@ Sub cargar_Click
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "tipoVenta")
cmd.Initialize
cmd.Name = "select_cat_GIRO_GUNA"
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro")
cmd.Initialize
cmd.Name = "select_coments_GUNA"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
@@ -1226,11 +1321,17 @@ Sub cargar_Click
' cmd.Name = "select_fotos_guna"
' cmd.Parameters = Array As Object(e_ruta.text,ALMACEN)
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "FOTO")
cmd.Initialize
cmd.Name = "traeFechaFotosGuna"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeFechaFotosGuna")
cmd.Initialize
cmd.Name = "traecodigosGUNA"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traecodigos")
cmd.Initialize
cmd.Name = "select_cat_gunaprod_GV2"
@@ -1293,22 +1394,22 @@ Sub cargar_Click
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
End If
cmd.Initialize
cmd.Name = "select_cat_paquetess_GV2"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
cmd.Initialize
cmd.Name = "select_cat_detallepa_GV2"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "detallepaq")
cmd.Initialize
cmd.Name = "select_cat_clientes2_guna_GV2" '########################## CODIGO PARA CREDITOS ####################
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_preventa_futura"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -1318,7 +1419,7 @@ Sub cargar_Click
cmd.Name = "select_hist_datos_GV2_3"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
cmd.Name = "select_hist_promos_GV2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -1528,77 +1629,38 @@ Sub JobDone(Job As HttpJob)
If RESULT.Tag = "FOTO" Then 'query tag
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
For Each records() As Object In RESULT.Rows
Dim CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Dim FOTO() As Byte = records(RESULT.Columns.Get("CAT_CL_FOTO"))
Dim CODIGO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
Dim FOTOS As String = records(RESULT.Columns.Get("CAT_CL_CLIENTE"))
Dim BANDERA As String = records(RESULT.Columns.Get("CAT_CL_BFOTO"))
Dim FECHA1 As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Dim fot As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM FOTOS WHERE CLIENTE = '${CODIGO}'"$)
If fot.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,MOVIMIENTO, FECHA) VALUES (?,?,?,?)", Array As Object (CODIGO, FOTO, BANDERA, FECHA1))
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,MOVIMIENTO) VALUES (?,?,?)", Array As Object (CODIGO, FOTOS,BANDERA))
Else
fot.Position = 0
If fot.GetString("MOVIMIENTO") > BANDERA Then
Starter.skmt.ExecNonQuery2("UPDATE FOTOS SET FOTO = ?, MOVIMIENTO = ? IN (SELECT CUENTA FROM CUENTAA)",Array As Object(FOTO, BANDERA))
Starter.skmt.ExecNonQuery2("UPDATE FOTOS SET FOTO = ?, MOVIMIENTO = ? IN (SELECT CUENTA FROM CUENTAA)",Array As Object(FOTOS, BANDERA))
End If
End If
'Si la fecha de la foto en web es diferente a la fecha de la foto en movil, la descargamos
' Private tf As Cursor = Starter.skmt.ExecQuery($"select fecha from FOTOS where cliente = '${CODIGO}'"$)
' Log($"FECHA FOTO WEB: ${FECHA1}"$)
' If tf.RowCount > 0 Then
' cmd.Initialize
' Log(tf.GetString("FECHA"))
' tf.Position = 0
' cmd.Name = "traeFotoGuna"
' cmd.Parameters = Array As Object(ALMACEN, Subs.traeRuta, CODIGO)
'' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CAT_CL_CODIGO}"$)
' Log($"==>> traeFotoGuna_${CODIGO}"$)
' Else
' cmd.Name = "traeFotoGuna"
' cmd.Parameters = Array As Object(ALMACEN, Subs.traeRuta, CODIGO)
'' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CAT_CL_CODIGO}"$)
' Log($"==>> traeFotoGuna_${CODIGO}"$)
' End If
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "traeFechaFotosGuna" Then 'query tag
Subs.logJobDoneResultados(RESULT)
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
If RESULT.Tag = "giro" Then 'query tag
For Each records() As Object In RESULT.Rows
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
Log("==> EXISTE LA FOTO:" & f.RowCount)
If f.RowCount = 0 Then
cmd.Initialize
cmd.Name = "traeFotoGuna"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, CLIENTE)
Log("BUSCAMOS FOTO: " & ALMACEN &"|" & e_ruta.text & "|" & CLIENTE)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CLIENTE}"$)
Log($"==>> traeFotoGuna_${CLIENTE}"$)
End If
Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESCRIPCION"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag.As(String).Contains("traeFotoGuna_") Then 'query tag
For Each records() As Object In RESULT.Rows
Private FOTO() As Byte = records(RESULT.Columns.get("CAT_CL_FOTO"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Starter.skmt.ExecNonQuery($"DELETE from FOTOS where CLIENTE = '${CLIENTE}'"$)
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,FECHA) VALUES (?,?,?)", Array As Object (CLIENTE,FOTO,fecha))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "select_abonosp" Then 'query tag
@@ -1634,6 +1696,102 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "traeFechaFotosGuna" Then 'query tag
Subs.logJobDoneResultados(RESULT)
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
For Each records() As Object In RESULT.Rows
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
Log("==> EXISTE LA FOTO:" & f.RowCount)
If f.RowCount = 0 Then
cmd.Initialize
cmd.Name = "traeFotoGuna"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, CLIENTE)
Log("BUSCAMOS FOTO: " & ALMACEN &"|" & e_ruta.text & "|" & CLIENTE)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CLIENTE}"$)
Log($"==>> traeFotoGuna_${CLIENTE}"$)
End If
Next
End If
End If
' CLIENTES NUEVOS
' Dim fotocn() As Byte
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Dir = "/promotoriakmts"
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, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
If c.RowCount>0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
If dia = 2 Then
Dim dialetra As String = "LUNES"
Else If dia = 3 Then
Dim dialetra As String = "MARTES"
Else If dia = 4 Then
Dim dialetra As String = "MIERCOLES"
Else If dia = 5 Then
Dim dialetra As String = "JUEVES"
Else If dia = 6 Then
Dim dialetra As String = "VIERNES"
Else If dia = 7 Then
Dim dialetra As String = "SABADO"
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_clientesnuevos_GUNA"
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
Next
End If
c.Close
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag.As(String).Contains("traeFotoGuna_") Then 'query tag
For Each records() As Object In RESULT.Rows
Private FOTO() As Byte = records(RESULT.Columns.get("CAT_CL_FOTO"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Starter.skmt.ExecNonQuery($"DELETE from FOTOS where CLIENTE = '${CLIENTE}'"$)
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,FECHA) VALUES (?,?,?)", Array As Object (CLIENTE,FOTO,fecha))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag.As(String).Contains("traecodigos") Then 'query tag
For Each records() As Object In RESULT.Rows
Private CODIGOCREDITO As String = records(RESULT.Columns.get("CAT_CL_CLABE"))
Private BANDERACREDITO As String = records(RESULT.Columns.Get("CAT_CL_CTA"))
Private CLIENTECREDITO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
If l_ruta.Text = "0" Then
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
Else
Private hdsgf As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM CODIGOS_CREDITO where CODIGO = '${CODIGOCREDITO}' and BANDERA = '${BANDERACREDITO}' and CLIENTE = '${CLIENTECREDITO}' "$$)
If hdsgf.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
Else
Log("NO ENTRO")
End If
End If
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
@@ -1666,7 +1824,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
' Dim CAT_CL_FOTO_FECHA As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
'########################## INICIA CODIGO PARA CREDITOS ####################
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
@@ -2065,10 +2223,12 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
Dim CAT_LISTAPRECIO As String = records(RESULT.Columns.Get("CAT_LISTAPRECIO"))
Dim CAT_GP_CONVERSION3 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION3"))
Dim CAT_GP_CONVERSION2 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION2"))
' Dim CAT_LISTAPRECIO As Int = 10
' 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))
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_LISTAPRECIO, 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_TIPOPROD, CAT_GP_INICIATIVA,CAT_LISTAPRECIO,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_LISTAPRECIO, CAT_GP_DEV, CAT_GP_CONVERSION3,CAT_GP_CONVERSION2) 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_LISTAPRECIO,CAT_GP_DEV,CAT_GP_CONVERSION3,CAT_GP_CONVERSION2))
Next
Listo2=1
If PB2.Progress = 0 Then
@@ -2553,6 +2713,43 @@ Sub JobDone(Job As HttpJob)
Job.Release
End Sub
Private Sub connecta_LongClick
' CLIENTES NUEVOS
' Dim fotocn() As Byte
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Dir = "/promotoriakmts"
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, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
If c.RowCount>0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
If dia = 2 Then
Dim dialetra As String = "LUNES"
Else If dia = 3 Then
Dim dialetra As String = "MARTES"
Else If dia = 4 Then
Dim dialetra As String = "MIERCOLES"
Else If dia = 5 Then
Dim dialetra As String = "JUEVES"
Else If dia = 6 Then
Dim dialetra As String = "VIERNES"
Else If dia = 7 Then
Dim dialetra As String = "SABADO"
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_clientesnuevos_GUNA"
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
Next
End If
c.Close
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
'Return True to close, False to cancel
If SCROLL_RESDIA.Visible Then
@@ -2681,6 +2878,8 @@ Log("--------> BORRAMOS")
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLAN_LEALTAD")
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
@@ -2690,6 +2889,7 @@ Log("--------> BORRAMOS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE from CODIGOS_CREDITO")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE")
B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
@@ -2859,6 +3059,10 @@ Sub B_OK_PAS_Click
connecta.Visible=True
Resumen.Visible= True
img2.Visible=False
l_visitartotal.Visible = True
de.Visible = True
l_faltan.Visible = True
l_visitas.Visible = True
' Subs.panelVisible(p_principal, 0, 0)
ExitApplication
End If
@@ -2875,8 +3079,20 @@ Sub B_OK_PAS_Click
Label4.Visible = True
l_ruta.Visible = True
l_visitartotal.Visible = True
de.Visible = True
l_faltan.Visible = True
l_visitas.Visible = True
B4XPage_Appear
' Subs.panelVisible(p_principal, 0, 0)
Dim cn As Cursor = Starter.skmt.ExecQuery("SELECT * FROM CLIENTES_NUEVOS")
If cn.RowCount > 0 Then
For gh = 0 To cn.RowCount -1
cn.Position = gh
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (cn.GetString("CN_ID"),cn.GetString("CN_RUTA"), cn.GetString("CN_NOMBRE"),"null","null","null","null","null","null","null","null","null","null","null","null","null",cn.GetString("CN_LON"),cn.GetString("CN_LAT"), cn.GetString("CN_GIRO")))
Next
End If
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
If E_RUTA2.Visible = True Then
@@ -3272,6 +3488,152 @@ Sub resdia_Click
l_monto_c3.Text = 1000
End If
d.Close
''INICIO NUEVO RES DIA
Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s3.RowCount > 0 Then
Private total1 As String = 0
For i = 0 To s3.RowCount - 1
s3.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total1 = total1 + Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
L_REAL.Text = NumberFormat2( total1,0,2,2,False)
Else
L_REAL.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango1(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_preacordada.Text = NumberFormat2(total4,0,2,2,False)
Else
l_preacordada.Text = 0
End If
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s6.RowCount > 0 Then
Private total3 As String = 0
For i = 0 To s6.RowCount - 1
s6.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total3 = total3 + Subs.calculaTotalConPromoXRango2(s6.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s6.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_prevtotal.Text = NumberFormat2(total3,0,2,2,False)
Else
l_prevtotal.Text = 0
End If
Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO') GROUP BY PE_PROID")
If s7.RowCount > 0 Then
Dim totalstick As Int = 0
For sfsdf = 0 To s7.RowCount -1
s7.Position= sfsdf
Log("ENTRE AQUI")
Dim s8 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s7.GetString("PE_PROID")}'"$)
s8.Position = 0
totalstick = totalstick + (s7.GetString("PE_CANT")* s8.GetString("CAT_GP_CONVERSION3"))
Next
Dim totaltotaltot As Int = totalstick/200
l_ru_pri.Text = totaltotaltot
Else
l_ru_pri.Text = 0
End If
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(SUM(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
If s0.RowCount > 0 Then
s0.Position = 0
Log(s0.GetString("PE_CANT"))
L_REAL.Text = s0.GetString("PE_CANT")
Else
L_REAL.Text = 0
End If
L_NES.Text = 0
l_ru_sup.Text = 0
L_ALCANCE.Text = 0
L_VPLAN.Text = 0
L_VREAL.Text = 0
L_EFEC_VIS.Text = 0
L_VISITCC.Text = 0
L_EFEC_PV.Text = 0
L_EFEC_PURA.Text = 0
l_preventa.Text = 0
l_futura.Text = 0
Label13.Text = 0
Label19.Text = 0
Label21.Text = 0
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
If s0.RowCount > 0 Then
s0.Position = 0
Log(s0.GetString("PE_CANT"))
Label33.Text = s0.GetString("PE_CANT")
Else
Label33.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango5(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
Label35.Text = NumberFormat2(total4,0,2,2,False)
Else
Label35.Text = 0
End If
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
If s0.RowCount > 0 Then
s0.Position = 0
Log(s0.GetString("PE_CANT"))
Label43.Text = s0.GetString("PE_CANT")
Else
Label43.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango6(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
Label51.Text = NumberFormat2(total4,0,2,2,False)
Else
Label51.Text = 0
End If
End Sub
Sub hacer_ped_Click
@@ -3550,4 +3912,21 @@ Sub checaPedido
Next
End If
End Sub
End Sub
'Private Sub connecta_LongClick
' ' UPDATE VENTA CREDITO
' '' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
' c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "update_ventacredito_guna"
' cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_CREDITO")
' Next
' End If
' c.Close
'End Sub

35
B4A/C_Productos.bas
View File

@@ -9,7 +9,7 @@ Sub Class_Globals
Private xui As XUI 'ignore
Dim ruta As String
Dim q_buscar As String
Dim forzarBusqueda As Boolean = False
Dim forzarBusqueda As Boolean = False
Dim skmt As SQL
Dim c As Cursor
Dim c2 As Cursor
@@ -1761,7 +1761,11 @@ Sub Busca_TextChanged (Old As String, New As String)
listaHints.Initialize
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 ${Starter.tabla} where CAT_GP_NOMBRE like '%${New}%' and CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_NOMBRE like '%${New}%' AND CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' AND CAT_GP_TIPO <> 'PROMOCION' union all select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
' If Subs.traeTipoCliente = 4 Then
' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_LISTAPRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_NOMBRE like '%${New}%' AND CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' AND CAT_GP_TIPO <> 'PROMOCION' union all select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
' Else
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_NOMBRE like '%${New}%' AND CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' AND CAT_GP_TIPO <> 'PROMOCION' union all select DISTINCT CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_LISTAPRECIO from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
' End If
Log("Llamamos LlenaProdsLL")
LlenaProdsLL(p)
' Do While p.NextRow
@@ -1820,8 +1824,27 @@ Sub LlenaProdsLL(p As ResultSet)
' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
If Subs.traeTipoCliente = 4 Then
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_LISTAPRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPO <> 'PROMOS' and CAT_GP_TIPO <> 'PROMOCION'
' If Subs.traeTipoCliente = 4 Then
' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_LISTAPRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPO <> 'PROMOS' and CAT_GP_TIPO <> 'PROMOCION'
' order by
' Case CAT_GP_TIPOPROD when 'PRIORITARIO' THEN 0
' WHEN 'ESTRATEGICO' THEN 1
' WHEN 'COMPLEMENTARIO' then 2
' Else 3
' End, CAT_GP_NOMBRE"$)
' Else
' Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_LISTAPRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPO <> 'PROMOS' and CAT_GP_TIPO <> 'PROMOCION'
' order by
' Case CAT_GP_TIPOPROD when 'PRIORITARIO' THEN 0
' WHEN 'ESTRATEGICO' THEN 1
' WHEN 'COMPLEMENTARIO' then 2
' Else 3
' End, CAT_GP_NOMBRE"$)
' End If
If Subs.traeTipoCliente = 5 Then
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_LISTAPRECIO, CAT_LISTAPRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPO <> 'PROMOS' and CAT_GP_TIPO <> 'PROMOCION'
order by
Case CAT_GP_TIPOPROD when 'PRIORITARIO' THEN 0
WHEN 'ESTRATEGICO' THEN 1
@@ -1862,13 +1885,13 @@ Sub LlenaProdsLL(p As ResultSet)
Log(p.GetString("CAT_GP_ID"))
cant = cantsMap.Get(p.GetString("CAT_GP_ID"))
End If
If Subs.traeTipoCliente = 4 Then
If Subs.traeTipoCliente = 5 Then
If p.GetString("CAT_GP_ID") <> "GUN141" And p.GetString("CAT_GP_ID") <> "GUN142" Then
' Log(p.GetString("CAT_GP_NOMBRE"))
' ¡Importante! Crear un NUEVO mapa en cada iteración.
Dim tempMap As Map = CreateMap( _
"prod": p.GetString("CAT_GP_NOMBRE"), _
"precio": p.GetString("CAT_GP_PRECIO"), _
"precio": p.GetString("CAT_LISTAPRECIO"), _
"prioridad": p.GetString("CAT_GP_TIPOPROD"), _
"almacen": p.GetString("CAT_GP_ALMACEN"), _
"id": p.GetString("CAT_GP_ID"), _

1
B4A/C_TicketsDia.bas
View File

@@ -8,6 +8,7 @@ Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private p_ticketsdia As Panel
Dim c As Cursor
Dim S As Cursor
Dim ruta As String

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

BIN
B4A/Files/nuevocliente.bal
View File

Binary file not shown.

BIN
B4A/Files/nuevocliente__.bal Normal file
View File

Binary file not shown.

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

BIN
B4A/Files/resdia.bal
View File

Binary file not shown.

2
B4A/Guna Vistas V3.1.b4a
View File

@@ -294,7 +294,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Guna Preventa
#VersionCode: 1
#VersionName: 6.01.25
#VersionName: 6.02.10
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

8
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -23,7 +23,7 @@ ModuleBookmarks28=
ModuleBookmarks29=
ModuleBookmarks3=
ModuleBookmarks4=
ModuleBookmarks5=
ModuleBookmarks5=7747
ModuleBookmarks6=
ModuleBookmarks7=
ModuleBookmarks8=
@@ -83,11 +83,11 @@ ModuleClosedNodes28=
ModuleClosedNodes29=20
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=3
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=6,8,9,10,11
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_NuevoCliente,Class_Globals,0,0,C_Pedidos,Class_Globals,0,0,C_Principal,JobDone,1472,0,C_Principal,NUEVO_Click,2946,0,C_Principal,nvo_cliente_Click,3274,0,C_Principal,p_marcasRes_Click,3475,0,C_Productos,Class_Globals,5,0,C_TicketsDia,Class_Globals,3,0,C_UpdateAvailable,Class_Globals,0,0,Subs,logJobDoneResultados,2423,0,B4XMainPage,Class_Globals,17,0
NavigationStack=C_Cliente,B_IMP_Click,3187,0,C_Principal,Class_Globals,0,0,Diseñador Visual,principal.bal,-100,3,Diseñador Visual,cliente.bal,-100,1,C_Principal,checaPedido,3865,0,C_Principal,connecta_LongClick,2743,0,C_Cliente,p_telefono_Click,7995,0,C_Cliente,Mandap,3510,0,C_Cliente,Impresion4,3215,6,C_Cliente,Impresion5,3666,0
SelectedBuild=0
VisibleModules=27,2,16,28,5,13,17,19,4,1,3,6,7,8,9,10,11,12,14,15,18,20,21,22,23,24,25,26,29
VisibleModules=27,2,16,28,5,13,17,19,4,1

309
B4A/Objects/AndroidManifest.xml Normal file
View File

@@ -0,0 +1,309 @@
<?xml version="1.0" encoding="utf-8"?>
<manifest
xmlns:android="http://schemas.android.com/apk/res/android"
package="gunav2.keymon.com.mx"
android:versionCode="1"
android:versionName="6.02.10"
android:installLocation="internalOnly">
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="30"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>
<uses-permission
android:name="android.permission.WRITE_EXTERNAL_STORAGE"
android:maxSdkVersion="30" />
<uses-permission
android:name="android.permission.ACCESS_FINE_LOCATION"
android:maxSdkVersion="30" />
<uses-permission
android:name="android.permission.READ_PHONE_STATE"
android:maxSdkVersion="30" />
<uses-permission
android:name="android.permission.READ_PRIVILEGED_PHONE_STATE"
android:maxSdkVersion="30" />
<permission
android:name="gunav2.keymon.com.mx.DYNAMIC_RECEIVER_NOT_EXPORTED_PERMISSION"
android:protectionLevel="signature" />
<uses-permission android:name="gunav2.keymon.com.mx.DYNAMIC_RECEIVER_NOT_EXPORTED_PERMISSION" />
<uses-permission
android:name="android.permission.WRITE_EXTERNAL_STORAGE"
android:maxSdkVersion="30" />
<uses-feature android:name="android.hardware.telephony" android:required="false" />
<uses-feature android:name="android.hardware.camera" android:required="false" />
<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />
<uses-feature android:name="android.hardware.camera.flash" android:required="false" />
<queries>
<package android:name="com.google.android.apps.maps" />
</queries>
<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />
<queries>
<package android:name="com.google.android.apps.maps" />
</queries>
<uses-permission
android:name="android.permission.WRITE_EXTERNAL_STORAGE"
android:maxSdkVersion="33" />
<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"/>
<uses-permission android:name="android.permission.BLUETOOTH"/>
<uses-permission android:name="android.permission.BLUETOOTH_ADMIN"/>
<uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION"/>
<uses-permission android:name="android.permission.WRITE_SECURE_SETTINGS"/>
<uses-permission android:name="android.permission.REBOOT"/>
<uses-permission android:name="android.permission.WRITE_SETTINGS"/>
<uses-permission android:name="android.permission.CHANGE_WIFI_STATE"/>
<uses-permission android:name="android.permission.ACCESS_WIFI_STATE"/>
<uses-permission android:name="android.permission.UPDATE_DEVICE_STATS"/>
<uses-permission android:name="android.permission.MODIFY_PHONE_STATE"/>
<uses-permission android:name="android.permission.READ_PHONE_STATE"/>
<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.VIBRATE"/>
<uses-permission android:name="android.permission.POST_NOTIFICATIONS"/>
<uses-permission android:name="android.permission.CAMERA"/>
<uses-permission android:name="android.hardware.camera"/>
<uses-permission android:name="android.hardware.camera.autofocus"/>
<uses-permission android:name="android.permission.FLASHLIGHT"/>
<uses-permission android:name="android.permission.INTERNET"/>
<uses-permission android:name="com.google.android.providers.gsf.permission.READ_GSERVICES"/>
<uses-permission android:name="gunav2.keymon.com.mx.permission.MAPS_RECEIVE"/>
<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
<uses-permission android:name="android.permission.WAKE_LOCK"/>
<uses-permission android:name="android.permission.FOREGROUND_SERVICE"/>
<uses-permission android:name="android.permission.RECEIVE_BOOT_COMPLETED"/>
<uses-permission android:name="android.permission.ACCESS_BACKGROUND_LOCATION"/>
<uses-permission android:name="com.google.android.c2dm.permission.RECEIVE"/>
<uses-permission android:name="com.google.android.gms.permission.AD_ID"/>
<uses-permission android:name="gunav2.keymon.com.mx.permission.C2D_MESSAGE"/>
<uses-permission android:name="com.google.android.finsky.permission.BIND_GET_INSTALL_REFERRER_SERVICE"/>
<uses-permission android:name="android.permission.REQUEST_INSTALL_PACKAGES"/>
<uses-permission android:name="android.permission.INSTALL_PACKAGES"/>
<uses-permission android:name="android.permission.READ_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.BLUETOOTH_ADVERTISE"/>
<uses-permission android:name="android.permission.BLUETOOTH_CONNECT"/>
<uses-permission android:name="android.permission.BLUETOOTH_SCAN"/>
<uses-permission android:name="android.permission.MANAGE_EXTERNAL_STORAGE"/>
<uses-permission android:name="android.permission.CALL_PHONE"/>
<application
android:name="androidx.multidex.MultiDexApplication"
android:icon="@drawable/icon"
android:label="Guna Preventa"
android:theme="@style/LightTheme"
android:usesCleartextTraffic="true"
android:appComponentFactory="androidx.core.app.CoreComponentFactory"
android:largeHeap="true"
android:allowBackup="false">
<activity android:name="com.google.zxing.client.android.CaptureActivity"
android:screenOrientation="landscape"
android:configChanges="orientation|keyboardHidden"
android:theme="@android:style/Theme.NoTitleBar.Fullscreen"
android:windowSoftInputMode="stateAlwaysHidden">
</activity>
<activity android:name="com.google.android.gms.common.api.GoogleApiActivity"
android:theme="@android:style/Theme.Translucent.NoTitleBar"
android:exported="false"/>
<meta-data
android:name="com.google.android.gms.version"
android:value="@integer/google_play_services_version" />
<meta-data
android:name="com.google.android.geo.API_KEY"
android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>
<meta-data android:name="com.google.android.gms.version"
android:value="@integer/google_play_services_version" />
<uses-library
android:name="org.apache.http.legacy"
android:required="false" />
<activity android:name="com.google.android.gms.common.api.GoogleApiActivity"
android:theme="@android:style/Theme.Translucent.NoTitleBar"
android:exported="false"/>
<meta-data
android:name="com.google.android.gms.version"
android:value="@integer/google_play_services_version" />
<receiver
android:name="com.google.android.gms.measurement.AppMeasurementReceiver"
android:enabled="true"
android:exported="false" >
</receiver>
<service
android:name="com.google.android.gms.measurement.AppMeasurementService"
android:enabled="true"
android:exported="false" />
<service
android:name="com.google.android.gms.measurement.AppMeasurementJobService"
android:enabled="true"
android:exported="false"
android:permission="android.permission.BIND_JOB_SERVICE" />
<service android:name="com.google.firebase.components.ComponentDiscoveryService" android:directBootAware="true" android:exported="false" >
<meta-data
android:name="com.google.firebase.components:com.google.firebase.analytics.connector.internal.AnalyticsConnectorRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.iid.Registrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.auth.FirebaseAuthRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.storage.StorageRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.firestore.FirestoreRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar"/>
<meta-data
android:name="com.google.firebase.components:com.google.firebase.database.DatabaseRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar"/>
<meta-data
android:name="com.google.firebase.components:com.google.firebase.messaging.FirebaseMessagingRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.installations.FirebaseInstallationsRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.crashlytics.CrashlyticsRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar" />
<meta-data
android:name="com.google.firebase.components:com.google.firebase.remoteconfig.RemoteConfigRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar"/>
<meta-data
android:name="com.google.firebase.components:com.google.firebase.abt.component.AbtRegistrar"
android:value="com.google.firebase.components.ComponentRegistrar"/>
</service>
<provider
android:name="com.google.firebase.provider.FirebaseInitProvider"
android:authorities="gunav2.keymon.com.mx.firebaseinitprovider"
android:directBootAware="true"
android:exported="false"
android:initOrder="100" />
<receiver
android:name="com.google.firebase.iid.FirebaseInstanceIdReceiver"
android:exported="true"
android:permission="com.google.android.c2dm.permission.SEND" >
<intent-filter>
<action android:name="com.google.android.c2dm.intent.RECEIVE" />
<action android:name="com.google.android.c2dm.intent.REGISTRATION" />
<category android:name="gunav2.keymon.com.mx" />
</intent-filter>
</receiver>
<receiver
android:name="com.google.firebase.iid.FirebaseInstanceIdInternalReceiver"
android:exported="false" />
<service
android:name="com.google.firebase.iid.FirebaseInstanceIdService"
android:exported="true">
<intent-filter android:priority="-500">
<action android:name="com.google.firebase.INSTANCE_ID_EVENT" />
</intent-filter>
</service>
<service
android:name="com.google.firebase.messaging.FirebaseMessagingService"
android:directBootAware="true"
android:exported="false" >
<intent-filter android:priority="-500" >
<action android:name="com.google.firebase.MESSAGING_EVENT" />
</intent-filter>
</service>
<service android:name="anywheresoftware.b4a.objects.FirebaseNotificationsService" android:exported="true">
<intent-filter>
<action android:name="com.google.firebase.MESSAGING_EVENT"/>
</intent-filter>
</service>
<provider
android:name="androidx.core.content.FileProvider"
android:authorities="gunav2.keymon.com.mx.provider"
android:exported="false"
android:grantUriPermissions="true">
<meta-data
android:name="android.support.FILE_PROVIDER_PATHS"
android:resource="@xml/provider_paths"/>
</provider>
<activity android:name="ice.zxing.CaptureActivity"
android:screenOrientation="portrait" android:configChanges="orientation|keyboardHidden"
android:theme="@android:style/Theme.NoTitleBar.Fullscreen"
android:windowSoftInputMode="stateAlwaysHidden">
</activity>
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".main"
android:label="Guna Preventa"
android:screenOrientation="portrait"
android:exported="true">
<intent-filter>
<action android:name="android.intent.action.MAIN" />
<category android:name="android.intent.category.LAUNCHER" />
</intent-filter>
<intent-filter>
<action android:name="android.intent.action.VIEW" />
<category android:name="android.intent.category.DEFAULT" />
<data android:pathPattern=".*\\.db" />
<data android:mimeType="*/*" />
</intent-filter>
</activity>
<service
android:name=".starter"
android:exported="true">
</service>
<receiver
android:name=".starter$starter_BR"
android:exported="true">
</receiver>
<service
android:name=".appupdater"
android:exported="true">
</service>
<receiver
android:name=".appupdater$appupdater_BR"
android:exported="true">
</receiver>
<service
android:name=".firebasemessaging"
android:exported="true">
</service>
<receiver
android:name=".firebasemessaging$firebasemessaging_BR"
android:exported="true">
</receiver>
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".mapa_rutas"
android:label="Guna Preventa"
android:screenOrientation="portrait"
android:exported="true">
</activity>
<service
android:name=".tracker"
android:exported="true"
android:foregroundServiceType="location">
</service>
<receiver
android:name=".tracker$tracker_BR"
android:exported="true">
<intent-filter>
<action android:name="android.intent.action.BOOT_COMPLETED"/>
</intent-filter>
</receiver>
<service
android:name=".newinst2"
android:exported="true">
</service>
<receiver
android:name=".newinst2$newinst2_BR"
android:exported="true">
</receiver>
<receiver
android:name=".httputils2service"
android:exported="true">
</receiver>
</application>
</manifest>

BIN
B4A/Objects/AppGunaBat.apk Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/b4xinputtemplate.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/datepicker.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/datetemplate.bal Normal file
View File

Binary file not shown.

37
B4A/Objects/b4xlibs/Files/dialog.css Normal file
View File

@@ -0,0 +1,37 @@
.b4xdialog .scroll-bar:horizontal, .b4xdialog .scroll-bar:vertical{
-fx-background-color:transparent;
}
.b4xdialog .increment-button, .b4xdialog .decrement-button {
-fx-background-color: transparent;
-fx-border-color: transparent;
}
.b4xdialog .scroll-bar:horizontal .track,
.b4xdialog .scroll-bar:vertical .track{
-fx-background-color: transparent;
-fx-border-color: transparent;
-fx-background-radius: 0em;
}
.b4xdialog .scroll-bar:horizontal .thumb,
.b4xdialog .scroll-bar:vertical .thumb {
-fx-background-color: #4B4B4B;
-fx-background-radius: 5em;
}
.b4xdialoglight .scroll-bar:horizontal .thumb,
.b4xdialoglight .scroll-bar:vertical .thumb {
-fx-background-color: #B8B8B8;
}
.scroll-pane{
-fx-background-color:transparent;
}
.scroll-pane .viewport {
-fx-background-color: transparent;
}
.text-area .content {
-fx-padding: 15 5 5 5;
}

BIN
B4A/Objects/b4xlibs/Files/listtemplate.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/longtexttemplate.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/pclvseekbar.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/searchtemplate.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/b4xlibs/Files/timeddialogtemplate.bal Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$layout.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$string.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$style.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$styleable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R$xml.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/coordinatorlayout/R.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$layout.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$string.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$style.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$styleable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R$xml.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/core/R.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$layout.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$string.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$style.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$styleable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R$xml.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/drawerlayout/R.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$layout.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$string.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$style.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$styleable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R$xml.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/fragment/R.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$layout.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$string.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$style.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$styleable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R$xml.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/media/R.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$anim.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$attr.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$color.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$dimen.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$drawable.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$id.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$integer.class Normal file
View File

Binary file not shown.

BIN
B4A/Objects/bin/classes/androidx/swiperefreshlayout/R$layout.class Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More