From edcd568e9312c681ff6054ddc355804d229810eb Mon Sep 17 00:00:00 2001 From: IsR0d Date: Mon, 5 Aug 2024 18:48:51 -0600 Subject: [PATCH] Se agrego la seccion de agregar monto a la tuerquita. --- B4A/B4XMainPage.bas | 196 +++++++++++++++++++++++++++++++++---- B4A/C_NuevoCliente.bas | 81 ++++++++------- B4A/C_Pedidos.bas | 8 +- B4A/C_Principal.bas | 10 +- B4A/Files/login.bal | Bin 19053 -> 22741 bytes B4A/Files/nuevocliente.bal | Bin 9114 -> 9924 bytes B4A/MARQUEZ.b4a.meta | 2 +- 7 files changed, 234 insertions(+), 63 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index e1c73a3..ff6cd76 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -23,6 +23,8 @@ Version=9.85 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ Sub Class_Globals + Dim c2 As Cursor + Dim sDate,sTime As String Private Root As B4XView Private xui As XUI Dim s As C_Subs @@ -120,6 +122,10 @@ Sub Class_Globals Private p_validacion As Panel Private b_recarga As Button Dim recarga As String = "0" + Private p_add_monto As Panel + Private B_Can_Monto As Button + Private B_Aceptar_Monto As Button + Private ET_Add_Monto As EditText End Sub Public Sub Initialize @@ -199,6 +205,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA TEXT, PA_FECHA TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)") skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)") + skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)") Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT") Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT") Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT") @@ -209,6 +216,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_CONVERSION1", "TEXT") Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_PRECIO4", "TEXT") Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "TEXT") + Subs.agregaColumna("CLIENTES_NUEVOS", "CN_SOLICITA", "TEXT") c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ") C.Position = 0 If c.GetString("CUANTOS") = 0 Then @@ -286,6 +294,12 @@ Private Sub B4XPage_Created (Root1 As B4XView) Wait For MES_StorageAvailable End If End If + P_CIEGO.Height = Root.Height + P_CIEGO.Width = Root.Width + p_validacion.Height = Root.Height + p_validacion.Width = Root.Width + p_add_monto.Height = Root.Height + p_add_monto.Width = Root.Width End Sub Sub B4XPage_Appear @@ -503,6 +517,65 @@ Sub JobDone(Job As HttpJob) End If End If + If Job.JobName = "DBRequest" Then + Dim result As DBResult = reqManager.HandleJob(Job) + If result.Tag = "SelectMontoLiq" Then + For Each records() As Object In result.Rows + Dim CUENTA As String = records(result.Columns.Get("CUENTA")) + + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") + f.Position = 0 + a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + a.Position = 0 + + Private c2 As Cursor + c2=skmt.ExecQuery("select USUARIO from usuarioa") + c2.Position=0 + If c2.RowCount > 0 Then c2.GetString("USUARIO") + + Log(CUENTA & "----------------------!!") + If CUENTA = "0" Then + + c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"))) + If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 + c.Position=0 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_Monto_Liq_MARQUEZ" + cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED")) + reqManager.ExecuteCommand(cmd , "ins_Mon_Liq") + MsgboxAsync("Monto Enviado", "Atención") +' Next + End If + c.Close + Else if CUENTA > "0" Then + + c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"))) + If c.RowCount > 0 Then +' For i=0 To c.RowCount -1 + c.Position = 0 + cmd.Initialize + cmd.Name = "update_MontoCuenta_MARQUEZ" + cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO")) + + Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO")) + reqManager.ExecuteCommand(cmd, "update_MC") + MsgboxAsync("Se sobre escribio el Monto", "Atención") +' Next + End If + c2.Close + c.Close + End If + f.Close + a.Close + Next + End If + End If + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag @@ -936,11 +1009,11 @@ End Sub Private Sub B_PC_ENV_Click - Dim sDate, stime As String + Dim sDate, sTime As String DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate = DateTime.Date(DateTime.Now) - stime = DateTime.Time(DateTime.Now) + sTime = DateTime.Time(DateTime.Now) For i = 0 To CLV_PICK_CIEGO.Size - 1 @@ -974,7 +1047,7 @@ Private Sub B_PC_ENV_Click c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0))) If c.RowCount = 0 Then ' Insert data into the database - skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime)) + skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime)) Else B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0))) End If @@ -996,11 +1069,11 @@ Private Sub b_terpc_Click Wait For Msgbox_Result (resultado As Int) If resultado = DialogResponse.POSITIVE Then - Dim sDate, stime As String + Dim sDate, sTime As String DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate = DateTime.Date(DateTime.Now) - stime = DateTime.Time(DateTime.Now) + sTime = DateTime.Time(DateTime.Now) For i = 0 To CLV_PICK_CIEGO.Size - 1 ' Retrieve the panel and child views for the current item @@ -1028,12 +1101,11 @@ Private Sub b_terpc_Click End If Log(a.GetString("ID_ALMACEN")) Log(f.GetString("CAT_CL_RUTA")) - If inputText <> 0 Then c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0))) If c.RowCount = 0 Then ' Insert data into the database - skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime)) + skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime)) Else B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0))) End If @@ -1042,12 +1114,10 @@ Private Sub b_terpc_Click a.Close Log("Processed item " & i) Next - Log("Finished processing all items") P_CIEGO.Visible = False et_buspc.Text = "" CLV_PICK_CIEGO.Clear - c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO") If c.RowCount > 0 Then For i = 0 To c.RowCount - 1 @@ -1056,12 +1126,9 @@ Private Sub b_terpc_Click cmd.Initialize cmd.Name = "select_HIST_PICKCIEGO_MARQUEZ" ' cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA")) - reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$) - + reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$) Next End If - 'PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT - c.close Else @@ -1089,13 +1156,83 @@ Private Sub b_aceptar_Click a.Close End Sub +Private Sub B_Aceptar_Monto_Click +' Try + DateTime.DateFormat = "MM/dd/yyyy" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + + f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") + f.Position=0 + + a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + If a.RowCount>0 Then + a.Position=0 + End If + + Private cI As Cursor + Private u As String = "SinUsuario" + cI=Starter.skmt.ExecQuery("select USUARIO from usuarioa") + cI.Position=0 + If cI.RowCount > 0 Then u = cI.GetString("USUARIO") + Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from ENV_MONTO_LIQ") + If g.RowCount = 0 Then + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO ENV_MONTO_LIQ VALUES (?,?,?,?,?)", Array As Object(ET_Add_Monto.Text, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), u, sDate & " " & sTime)) + f.Close + a.Close + + c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ") + If c.RowCount > 0 Then + c.Position = 0 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "select_MontoCuenta_MARQUEZ" +' LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red) + cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA")) + reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq") +' cmd.Name = "insert_Monto_Liq_MARQUEZ" +' cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED")) + End If + c.Close + Else + Starter.skmt.ExecNonQuery2("UPDATE ENV_MONTO_LIQ SET EML_MONTO = ? WHERE EML_ALMACEN = ? AND EML_RUTA = ? AND EML_USUARIO = ?", Array As String (ET_Add_Monto.Text ,a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), cI.GetString("USUARIO"))) + f.Close + a.Close + + c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ") + If c.RowCount > 0 Then + c.Position = 0 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "select_MontoCuenta_MARQUEZ" +' LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red) + cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA")) + reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq") +' cmd.Name = "insert_Monto_Liq_MARQUEZ" +' cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED")) + End If + c.Close + End If + +' MsgboxAsync("Monto Enviado, Si Vuelve a Mandar se sobre escribirá dicho Monto", "Atención") + p_add_monto.Visible = False +' Catch +' Log(LastException.Message) +' MsgboxAsync("Error al enviar el monto", "Error") +' End Try +End Sub + Private Sub b_cancelarcodigo_Click p_validacion.Visible = False End Sub +Private Sub B_Can_Monto_Click + p_add_monto.Visible = False +End Sub + Private Sub b_envioBD_Click - ' copiaDB -' Sleep(1000) + 'copiaDB + 'Sleep(1000) Dim FileName As String = "kmt.db" 'copy the shared file to the shared folder Log("xxxxxx:"&Provider.SharedFolder) @@ -1105,7 +1242,7 @@ Private Sub b_envioBD_Click email.To.Add("soporte@keymonsoft.com") email.Subject = "Envio Base de datos Marquez" email.Attachments.Add(Provider.GetFileUri(FileName)) -' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment +'email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment Dim in As Intent = email.GetIntent in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION StartActivity(in) @@ -1119,4 +1256,29 @@ Private Sub b_recarga_Click Else MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención") End If -End Sub \ No newline at end of file + c.Close +End Sub + + + +Private Sub b_CargarMonto_Click + c = skmt.ExecQuery("SELECT COUNT (DISTINCT CAT_CL_RUTA) FROM kmt_info") + If c.RowCount > 0 Then + Subs.panelVisible(p_add_monto,0,0) + Else + MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención") + End If + c.Close +End Sub + +Private Sub P_CIEGO_Click + +End Sub + +Private Sub p_validacion_Click + +End Sub + +Private Sub p_add_monto_Click + +End Sub diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index f9ecc57..d5ac939 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -43,6 +43,8 @@ Sub Class_Globals Private Label3 As Label Private cb_giro As B4XComboBox Dim giros As String + Private L_Atiende As Label + Private ET_Atiende As EditText End Sub 'You can add more parameters here. @@ -94,6 +96,7 @@ End Sub Sub B4XPage_Appear et_direccion.Text = "" E_NOMBRE.Text = "" + ET_Atiende.Text = "" If Not(Starter.gps.GPSEnabled) Then ToastMessageShow("Es necesario tener el GPS encendido", True) StartActivity(Starter.gps.LocationSettingsIntent) @@ -163,75 +166,78 @@ Sub CANCELA_Click End Sub Sub GUARDA_Click - If E_NOMBRE.Text = "" Then + ' 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") - Else - If et_direccion.Text.Length > 3 Then - If lat <> 0 Then -' If fototomada <> "0" Then - If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then + ' 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 DateTime.DateFormat = "MM/dd/yyyy" DateTime.Timeformat = "HHmmss" - sDate=DateTime.Date(DateTime.Now) - sTime=DateTime.Time(DateTime.Now) + 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'" + ' 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 + sTime = hora & ":" & mins & ":" & segs Log("////////////// sTime: "&sTime&" ////////////////") - c=Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") - c.Position=0 - no_ruta= c.GetString("CAT_CL_RUTA") - no_cliente= "N" & sTime & no_ruta + c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info") + 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 kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem)) + Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem)) 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") + 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 = 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)) - + ' 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 CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?)",Array As String(no_cliente,sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text,et_direccion.Text, ALMACEN, no_ruta,cb_giro.SelectedItem)) -' fototomada = "0" + sDate2 = DateTime.Date(DateTime.Now) + sTime2 = DateTime.Time(DateTime.Now) + + Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO, CN_SOLICITA) 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)) + ' fototomada = "0" B4XPages.ShowPage("Cliente") CallSubDelayed(Tracker, "StartFLP") - Else - MsgboxAsync("Por favor captura el giro del cliente","Atención") + ' 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 la foto del cliente","Atención") -' End If Else - MsgboxAsync("Por favor revisa que tengas señal GPS","Atención") + MsgboxAsync("Por favor captura el giro del cliente","Atención") End If Else - MsgboxAsync("Por favor captura la dirección del cliente","Atención") + MsgboxAsync("Por favor revisa que tengas señal GPS","Atención") End If + Else + MsgboxAsync("Por favor captura la dirección del cliente","Atención") End If End Sub + Private Sub p_nuevoCliente_Click End Sub @@ -333,4 +339,5 @@ End Sub Private Sub cb_giro_SelectedIndexChanged (Index As Int) giros = cb_giro.SelectedItem -End Sub \ No newline at end of file +End Sub + diff --git a/B4A/C_Pedidos.bas b/B4A/C_Pedidos.bas index 93208bf..2d6cfc3 100644 --- a/B4A/C_Pedidos.bas +++ b/B4A/C_Pedidos.bas @@ -326,7 +326,7 @@ Sub guardar_Click End If e.Close '0 - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) cantidad.Text = "" c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") @@ -350,7 +350,7 @@ Sub guardar_Click c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") c.Position=0 usuario = c.GetString("USUARIO") - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta)) B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 @@ -497,7 +497,7 @@ Sub Terminar_Click End If e.Close Log(444) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta)) B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) cantidad.Text = "" c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") @@ -522,7 +522,7 @@ Sub Terminar_Click c.Position=0 usuario = c.GetString("USUARIO") Log(555) - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta)) + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta)) B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") c.Position=0 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 001bebb..134efc8 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -662,7 +662,7 @@ Sub Subir_Click 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 FROM CLIENTES_NUEVOS") + c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA FROM CLIENTES_NUEVOS") If c.RowCount>0 Then For i = 0 To c.RowCount - 1 c.Position = i @@ -682,8 +682,8 @@ Sub Subir_Click End If Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_clientesnuevos_MARQUEZ" - 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) + cmd.Name = "insert_clientesnuevos_MARQUEZ2" + 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")) reqManager.ExecuteCommand(cmd , "inst_clientesn") Next End If @@ -2110,6 +2110,8 @@ Sub e_ruta_EnterPressed B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ABONOS") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM PICK_CIEGO") B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS") + B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ") B4XPage_Appear l_rutasuplencia.Visible = False Label22.Visible = False @@ -2699,4 +2701,4 @@ Private Sub iv_abordo_Click Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0")) B4XPages.MainPage.tipo_venta = "ABORDO" B4XPages.ShowPage("Productos") -End Sub \ No newline at end of file +End Sub diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index 5d4338fd4686ea4dd402a9cc3e61b400c31b14ea..44bc2feb0d7ff83787f50e8d01ff8a88d94431e5 100644 GIT binary patch delta 2941 zcma)7X;4#F6n-}lAjld)Srkyf1Y`{Y5g~*q)mTK_3aBGS$RGkCWvNodSa1VH3kNGo zHGo>RxPWoo$1d7&tU3;@tyKp{JKD}vTCp9Asn_yU+&|B1=mG4=bTe$PZ z?*)CA`sI?Il3xpUnOpkuFJ_D1>+QXkk+~yKL{>h!9usCWL`QR8bQ{CQ^pm84mRd zDJh4ul31@YUJYerVF(G#@{&NL)WLKl^avppEK47j|4ZFJlxi@T$5)lIgMEba|;nNugI@Nv{t)>=d$gh^?$0YAa-&X`$>WA?vNq!ihK+ zYy$MtX+08BFzn2I&mek4C~nsSUc`yu!Gy$jw|E08SS;QMGZQ%$)BkjAe{4j+wfL%g z2%Haefm^Yiq?T>W!*L=+v@w5T$$J!}6a1e-A|w_9&b(^1=kA=-+|rx7nOyRhIfgersJT9ODdl{Eh_sfid_X*y}G5S1DTw-jPm zBku*f!7P!3EcqE}W8F?yiV#t^mn+8!t_Z-W+)LWonXW-1d$4w%LK_%TR`GjL207ji zkgOUF|4i`!y=rWj0V%9aDg=C+_VCnD8@h-4k-gaETllI0ux)ZY*=KRta ze*mtl)h4@XDnbsvK{z-B;Y%cJAq(K^nNM6j zRUBlZ&Q}a(Go8y8-R5)~GrnfxV?M@E=aOkQU>Y&bjh$Ppv_zBr$#?(np8uS4@BQvM z|COWU4;KkxGZ>87feZ#0-zsNFp|c_e1cGqq@s{Dk&}6Be^LCA`YA#ra6r98k(E$o5 z4p0xPs+wLkue{m5$VIDe7FdCG(wDs@p6!{V(UlZOoE6*czL`JAB8*tk%&k_BqLG~sXkoh!{t6) z;ltB>c={mMFfs-w45bgxMD9J-Xyo4GW_j%}iTy>riZB?lo2bH6497M@!Rg#kM}+QP z>AC%^36pNjY&Tvy9K_}u_gqt6Z~DD!e)fgMb8mwF%ADKRw?w|S^LvNG@^xS5iPLo> zzMFbvkEvYMxq9lU?OPAXtqZtnwQ_c}8PGOnr(N)2Md0fNz%8k7#DH7)8znM#G zC*Ns3qgRgX8#ATd-SX{Gb>+VgRZs2)oip=q*53HFKj~TYyF1niv@5iiYktc&p6q;T zZ@gj)ije(K-rQDr{_)e##`jv;>2kSbe-`_mMVmJxb4s~3SndkwOXcxf9xk;b?~g7Xod`qum*C6)fmBheMM>0X>nS&@W6R3!yA^6n7qq%|~z+!fH({{3H@V zXbBG<$T)CO!-2CYF0u$66%duo!;se0pGgJuC=~n(45Gy|oYpaC5y;bW;gM__sRU9G z0kh>vWHCHTQ}ZkR{3;;Ftc0rcVL%jrLaj`T+2v_2$d_+$=cjiPvIN5wP!^TIU*Z>t znMLTB`0ad2Q0+T5Jw z(3>reqbX=tVf{T9V>yz+!!3l4%r)Ep6SqQRsdzEO(@!uhL)tgP2bNdp{FHN8B=TRtnVR1K^w z4PJvu42Zz~;c(O>$6bWGtz+gBvi60#Ylp0Z>O#AU3zo5t|F7*jO!7)?9gsQBM_a15 zr_dZjR}M>s9uW^d8utllq%|1;1Y*ZVK$B)={d?%_5q&+94Tynj-sm;cALu3oXEP34 z5P|*IuXQ#dAvA0&B?`RP_mOa%IBY`%_OJT%DNu_GhwTWq=jvH6GI5;H?NVbm+F8D_u>FK%;p~0wz$+PqY6rISHD>gkYcGB5ia9xLC}AV@4qq=Gp!0E#C9nXiz7T z-QY|J1C1#j3wD-CEZFV0mo^kYIzmGBV9A=H$CT%vMhbH#W|O@`QtW+M3h0&#;Vacx zD9fJ(Nv3eHPSrrLIRTcLc%;ppV?IU5KGe5_zt1mxmq)h!@IjH;{bK=Y`(=J4=#){Y VZ31MNd1S!hAUZU`$(cNqs{KxD1kK+;sE{*1 zjdupvZ)X`S&Q;8>G!S$$16h3#p0j}e>wyY|as zpqwA8j*k^8Di^8b?mNVL-=v4qBBTFSX-y9GOqw`H4$dMcsC*-D|J`|&Ka2?YN;VlA{z)FGCwt3*G=m+%VFTf7RS#Jxy{s46~0**PqRV=su# zfSeRfp&psQ6*r1(+`x0&png1d9elRk;0!N6#qw_b`nx61rw4@2SXNyme2gaP25ilx zS!A>XHZ6nFnAG~r``mbfq}(2deN}_NITc5 zhH_gs-Z?&|M{SPy<6I+}!;;;H+ip+$9FHGiX+fD@!&l=F&EuQ9K?`y)e2eYv#S42H I1Kq3t0AXr}3IG5A delta 357 zcmX@&JIkGym4Sgln3;ir3rNdMFj1t#o1qmfa#y^{#B^w!;?t#tP{7uS^k*S_xa-yoi z<}{fAMn>z++hx}?GR93#mj`JoWh|cjS5=wIn+X^gKx;UQCo}TMZ