From 33c43419f2e3216724dd423859577b690f8761d2 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 10 Mar 2026 20:34:00 -0600 Subject: [PATCH] 6.02.18 Se agrega para que no puedan cargar dos rutas sin antes dar fin dia Se modifica para que no pida codigo a mayoreo --- B4A/C_Cliente.bas | 14 ++- B4A/C_Principal.bas | 198 ++++++++++++++++++++++---------------- B4A/guna_reparto.b4a | 2 +- B4A/guna_reparto.b4a.meta | 4 +- 4 files changed, 133 insertions(+), 85 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 17d1f9a..0e271e2 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -966,7 +966,7 @@ Sub checacredito limite_credito = 0 If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito - If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 6 Then + If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 6 Then Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") @@ -1034,6 +1034,18 @@ Sub checacredito banderaimp = 1 End If + Else If Subs.traeAlmacen = 94 Then + +' p_codigo.Visible= False +' et_codigo.Text = "" + + + Log(12) + escreditoono = 1 + limite_credito = x1.GetString("CAT_CL_LIMITECREDITO") + If l_total.Text <> ".00" Then + esPagoACreditoGuardamosPagare + End If Else diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4fbec92..9bd72c1 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1178,62 +1178,67 @@ Sub cargar_Click pedidodiaanterior = True End If End If - If Not (pedidodiaanterior) Then -' P_carga.Visible = True - P_carga.Width = Root.Width - P_carga.Height = Root.Height - l_carga2.Text = "CARGANDO" - L_carga.Text = "CARGANDO" - PB_carga2.Progress = 0 - PB_carga.Progress = 0 - Log("CUMPLE") - EJECUTANDO = 1 - reqs.Initialize - TOPE = 0 - LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) - reqManager.Initialize(Me, B4XPages.MainPage.server) - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_drop_rep_GUNA_VN2" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0) - reqManager.ExecuteCommand(cmd , "inst_drop") + + If Not (pedidodiaanterior) Then + + + +' P_carga.Visible = True + P_carga.Width = Root.Width + P_carga.Height = Root.Height + l_carga2.Text = "CARGANDO" + L_carga.Text = "CARGANDO" + PB_carga2.Progress = 0 + PB_carga.Progress = 0 + Log("CUMPLE") + EJECUTANDO = 1 + reqs.Initialize + TOPE = 0 + LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) + reqManager.Initialize(Me, B4XPages.MainPage.server) + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_GUNA_VN2" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",0,0,0,0,0,0,0,0) + reqManager.ExecuteCommand(cmd , "inst_drop") ' reqs.Add("inst_noventa") - Starter.skmt.ExecNonQuery("delete from kmt_info") - Starter.skmt.ExecNonQuery("delete from cod_result") - Starter.skmt.ExecNonQuery("delete from hist_gest") - Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") - Starter.skmt.ExecNonQuery("delete from telefonos") + Starter.skmt.ExecNonQuery("delete from kmt_info") + Starter.skmt.ExecNonQuery("delete from cod_result") + Starter.skmt.ExecNonQuery("delete from hist_gest") + Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ") + Starter.skmt.ExecNonQuery("delete from telefonos") ' Starter.skmt.ExecNonQuery("delete from VENTAS") - Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS") - If l_ruta.Text = "0" Then ' - Log("********************* No hay ruta, BORRAMOS TODO") - Starter.skmt.ExecNonQuery("delete from cat_gunaprod") - Starter.skmt.ExecNonQuery("delete from cat_gunaprod3") - Starter.skmt.ExecNonQuery("delete from REPARTO") - Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") - Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2") - Starter.skmt.ExecNonQuery("delete from NOVENTA") - Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP") - Else - Log("********************* Hay ruta, NO BORRAMOS TODO") - End If + Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS") + If l_ruta.Text = "0" Then ' + Log("********************* No hay ruta, BORRAMOS TODO") + Starter.skmt.ExecNonQuery("delete from cat_gunaprod") + Starter.skmt.ExecNonQuery("delete from cat_gunaprod3") + Starter.skmt.ExecNonQuery("delete from REPARTO") + Starter.skmt.ExecNonQuery("delete from HIST_VENTAS") + Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2") + Starter.skmt.ExecNonQuery("delete from NOVENTA") + Starter.skmt.ExecNonQuery("DELETE FROM ABONOSP") + Else + Log("********************* Hay ruta, NO BORRAMOS TODO") + End If - ' NUEVOS CLIENTES - c=Starter.skmt.ExecQuery("select usuario from usuarioa") - c.Position = 0 - usuario = c.GetString("USUARIO") + ' NUEVOS CLIENTES + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") - cargaGeneral ' Cargamos los datos del almacen principal. + cargaGeneral ' Cargamos los datos del almacen principal. - If multiAlmacen Then - Sleep(100) - Log(multiAlmacen) - Log("==================== CARGAMOS SEGUNDO ALMACEN ======================") - cargaAlmacen2 ' Cargamos los datos del segundo almacen. - End If + If multiAlmacen Then + Sleep(100) + Log(multiAlmacen) + Log("==================== CARGAMOS SEGUNDO ALMACEN ======================") + cargaAlmacen2 ' Cargamos los datos del segundo almacen. + End If @@ -1262,7 +1267,7 @@ Sub cargar_Click ' End If ' c.Close - ' NOVENTA + ' NOVENTA ' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' If c.RowCount > 0 Then ' For i=0 To c.RowCount -1 @@ -1276,18 +1281,19 @@ Sub cargar_Click ' reqs.Add("inst_noventa") ' Next ' End If -'' c.Close - D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") - d.Position=0 - cuantos_noventa = D.GetString("CUANTOS_NOVENTA") - d.Close - cargar.Visible = False - Subir.Visible = False - connecta.Visible = True - inv.Visible = False - ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True) - ProgressDialogShow2("Descargando rutas, espere un momento.", False) - If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión") + '' c.Close + D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") + d.Position=0 + cuantos_noventa = D.GetString("CUANTOS_NOVENTA") + d.Close + cargar.Visible = False + Subir.Visible = False + connecta.Visible = True + inv.Visible = False + ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True) + ProgressDialogShow2("Descargando rutas, espere un momento.", False) + If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión") + Else Log("XXXX") MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención") @@ -1473,27 +1479,57 @@ Sub JobDone(Job As HttpJob) If HVD_IMPRESO_RECHAZO = 0 Then LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") - If e_ruta.Text <> "" Then - imei = "" 'p.GetDeviceId - conn = "1" - ime.HideKeyboard - - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "select_ruta_re_REPG_GUNA_VN" - cmd.Parameters = Array As Object() - - reqManager.ExecuteQuery(cmd , 0, "ruta") - ToastMessageShow("Validando Conexión." , True) - Starter.skmt.ExecNonQuery("DELETE FROM RUTAA") - Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT)) - B4XPages.MainPage.rutaPreventa = e_ruta.TEXT - - cmd.Name = "selectAgrupadorAlmacen" - cmd.Parameters = Array As Object(ALMACEN) - Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$) - reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen") + + Dim checaruta As Boolean + Dim cr As Cursor = Starter.skmt.ExecQuery("select RUTAA from RUTAA") + If cr.RowCount > 0 Then + cr.Position=0 + If cr.GetString("RUTAA") = e_ruta.Text Then + checaruta = True + Else + checaruta = False + End If + Else + checaruta = True + End If + c.Close + Log(checaruta) + + If e_ruta.Text <> "FIN DIA" Then + + If checaruta Then + + If e_ruta.Text <> "" Then + imei = "" 'p.GetDeviceId + conn = "1" + ime.HideKeyboard + + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "select_ruta_re_REPG_GUNA_VN" + cmd.Parameters = Array As Object() + + reqManager.ExecuteQuery(cmd , 0, "ruta") + ToastMessageShow("Validando Conexión." , True) + Starter.skmt.ExecNonQuery("DELETE FROM RUTAA") + Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT)) + B4XPages.MainPage.rutaPreventa = e_ruta.TEXT + + cmd.Name = "selectAgrupadorAlmacen" + cmd.Parameters = Array As Object(ALMACEN) + Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$) + reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen") + + End If + Else + Log("XXXX") + MsgboxAsync("Para poder cargar día con una ruta diferente primero haz FIN DIA e intenta nuevamente.","Atención") + End If + + Else + Log("XXXX") + MsgboxAsync("No se puede realizar esta accion, intenta nuevamente.","Atención") End If Else MsgboxAsync("No se puede realizar ninguna modificación","Rechazo confirmado") diff --git a/B4A/guna_reparto.b4a b/B4A/guna_reparto.b4a index b44dbde..3d32ba8 100644 --- a/B4A/guna_reparto.b4a +++ b/B4A/guna_reparto.b4a @@ -262,7 +262,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna Reparto #VersionCode: 1 - #VersionName: 6.02.16 + #VersionName: 6.02.18 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/guna_reparto.b4a.meta b/B4A/guna_reparto.b4a.meta index 98c2763..d8f2898 100644 --- a/B4A/guna_reparto.b4a.meta +++ b/B4A/guna_reparto.b4a.meta @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=DBRequestManager,HandleJob,193,0,DBRequestManager,ImageToBytes,233,0,C_Principal,cargar_Click,1181,6,Diseñador Visual,cliente.bal,-100,6,C_Cliente,B4XPage_Appear,331,1,C_Cliente,Class_Globals,133,0,C_Principal,JobDone,1926,6,C_Cliente,B_IMP_Click,1493,0,C_Cliente,Guardado,1237,0,C_Principal,cargaGeneral,1327,1,C_Principal,envioinfo,953,6 +NavigationStack=C_Principal,e_ruta_EnterPressed,2357,0,C_Principal,cargar_Click,1289,6,C_Principal,JobDone,1525,6,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,799,0,C_Cliente,JobDone,2296,0,C_Cliente,b_aceptarFD_Click,5898,0,C_Cliente,esPagoACreditoGuardamosPagare,1090,0,C_Cliente,checacredito,941,0,Diseñador Visual,cliente.bal,-100,5 SelectedBuild=0 -VisibleModules=2,17,5,6,8,10,31,30,28,7,23 +VisibleModules=2,17,5,6,8,10,31,30,28,7