From 30e2f4ee8912a2be3d8a3e33098fb8d96ee8476d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 11 Dec 2023 08:14:15 -0700 Subject: [PATCH 1/3] =?UTF-8?q?Rep=20OS=20medicas=20correci=C3=B3n=20texto?= =?UTF-8?q?=20filtro=20Procedimiento?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/RepOSMedicas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index e66e272dd..515216683 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -133,7 +133,7 @@ - +
Todos From 10f89bdac2366c962726bf763799fd4dda74e9cc Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 11 Dec 2023 10:40:31 -0700 Subject: [PATCH 2/3] Venta rapida tbs enter --- Ventas/Ventas.aspx | 12 ++++++++---- Ventas/Ventas.aspx.vb | 45 ++++++++++++++++++++++++++++++++++++++++++- 2 files changed, 52 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c5bb97a06..5c540f499 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8578,7 +8578,7 @@
- + @@ -10434,9 +10434,13 @@ $('#divAgregarSucursal').modal(); } - function hideDivAgregarSucursal() { - $('#divAgregarSucursal').modal('hide'); - } + function hideDivAgregarSucursal() { + $('#divAgregarSucursal').modal('hide'); + } + + + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 70041a999..2db6daf0e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3446,6 +3446,37 @@ Partial Class Ventas End If + + If UsuarioActual.CveEmpresa = 186 Then + Dim jsFocus As String = "$(document).ready(function () { + + $('#TxtCantidad').on('keydown', function (e) { + if (e.which == 13 || e.which == 9 ) { + let valorNumericoCantidad = parseFloat($('#TxtCantidad').val()); + e.preventDefault(); + if(valorNumericoCantidad > 0){ + $('#C_Tab_TabGenerales_DdlPS > select').select2('open').next().find(':input.select2-search__field').focus(); + } + + + } + }); + + $('#TxtPrecio').on('keydown', function (e) { + if (e.which == 13 || e.which == 9 ) { + let valorNumericoPrecio = parseFloat($('#TxtCantidad').val()); + e.preventDefault(); + if(valorNumericoPrecio > 0){ + $('#LbAgregar').focus(); + } + } + }); + + + });" + RegistraScript(jsFocus) + End If + End Sub Private Sub CargaListasPrecios() @@ -6877,7 +6908,7 @@ Partial Class Ventas HabilitarRemisionesPublicoGeneral() End If - + TxtCantidad.Focus() 'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then ' Using ObjVentas As New ClsVentas ' If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then @@ -16835,6 +16866,12 @@ Partial Class Ventas CargaPS(DdlClasificacion.SelectedValue.ToEntero(), Ddl) End If + + If UsuarioActual.CveEmpresa = 186 Then + TxtPrecio.Focus() + End If + + UPPPS.Update() UpPS.Update() @@ -18070,6 +18107,11 @@ Partial Class Ventas CargaGvComercioExterior() End If End If + + If UsuarioActual.CveEmpresa = 186 Then + TxtCantidad.Focus() + End If + UpPS.Update() Catch ex As Exception OnError("Ocurrió un error al agregar el producto", ex) @@ -36201,5 +36243,6 @@ Partial Class Ventas 'End Sub + End Class From e504c642cad307f5191fd3e4d8903aa1e5b81a28 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 11 Dec 2023 10:55:20 -0700 Subject: [PATCH 3/3] Ventas Tabs enter, venta rapida se agrega 189 --- Ventas/Ventas.aspx.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2db6daf0e..e599628d9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3447,7 +3447,7 @@ Partial Class Ventas End If - If UsuarioActual.CveEmpresa = 186 Then + If UsuarioActual.CveEmpresa.Contiene(186, 189) Then Dim jsFocus As String = "$(document).ready(function () { $('#TxtCantidad').on('keydown', function (e) { @@ -6908,7 +6908,12 @@ Partial Class Ventas HabilitarRemisionesPublicoGeneral() End If - TxtCantidad.Focus() + + If UsuarioActual.CveEmpresa.Contiene(186, 189) Then + TxtCantidad.Focus() + End If + + 'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then ' Using ObjVentas As New ClsVentas ' If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then @@ -16867,7 +16872,7 @@ Partial Class Ventas End If - If UsuarioActual.CveEmpresa = 186 Then + If UsuarioActual.CveEmpresa.Contiene(186, 189) Then TxtPrecio.Focus() End If @@ -18108,7 +18113,7 @@ Partial Class Ventas End If End If - If UsuarioActual.CveEmpresa = 186 Then + If UsuarioActual.CveEmpresa.Contiene(186, 189) Then TxtCantidad.Focus() End If