From 5e788afd3e7f7ddec39f139df06c62f8ee4519b1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 1 Jul 2024 19:20:41 -0700 Subject: [PATCH 1/2] Ventas.aspx: --En acciones para el rol de mostrador, Quitar de acciones --Billetito no debe de salir Promociones.aspx: --Si tiene clasificacion, excluya el ps, Si tiene ps. que excluya la clasificacion. --- Ventas/Promociones.aspx.vb | 11 +++++++++-- Ventas/Ventas.aspx | 9 ++++++--- Ventas/Ventas.aspx.vb | 32 ++++++++++++++++++++++++++++++++ 3 files changed, 47 insertions(+), 5 deletions(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 6aea352cf..73170657e 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -377,9 +377,16 @@ Partial Class Ventas_Promociones Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) - If UsuarioActual.Empresa.Funcionalidad(382) <> "1" Then + If DdlClasificacion.SelectedValue.ToEntero <= 0 Then + If DdlPS.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + If DdlPS.SelectedValue.ToEntero <= 0 Then If DdlClasificacion.SelectedValue.ToEntero <= 0 Then - Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia) + Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia) Exit Sub End If End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index b48a74e8c..981d27d71 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -10561,12 +10561,16 @@ function FnCambiaAnt(chk, txt, saldo) { - debugger; - var Total = ToDouble($get('TxtSubTotal').value); + let Total = ToDouble($get('TxtSubTotal').value); + let TipoAnticipo = $('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').val(); let importeTxt = parseFloat(txt.value.replace(/,/g, '')); + if (TipoAnticipo == '4') { + Total = ToDouble($get('TxtTotal').value); + } + if (isNaN(importeTxt)) { importeTxt = 0; } else { @@ -10580,7 +10584,6 @@ saldo = (importeTxt > saldo) ? saldo : importeTxt; - var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2)); if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value; //minimo entre saldocompra y el saldoanticipo diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 7d910641f..ea5dbd214 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7047,6 +7047,12 @@ Partial Class Ventas End If If Not EsModuloCotizacion Then LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then + LnkCotizaciones.Visible = False + LnkPedido2SinFacturar.Visible = False + LnkRemisiones.Visible = False + LnkOCs.Visible = False + End If End If End If @@ -8237,6 +8243,13 @@ Partial Class Ventas End If If Not EsModuloCotizacion Then LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva() + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then + LnkCotizaciones.Visible = False + LnkPedido2SinFacturar.Visible = False + LnkRemisiones.Visible = False + LnkOCs.Visible = False + End If End If End If @@ -16759,6 +16772,7 @@ Partial Class Ventas GVAnticipos.DataBind() End If UpAnticipos.Update() + UpPS.Update() End Sub Protected Sub GVAnticipos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowCreated @@ -18265,6 +18279,15 @@ Partial Class Ventas ImgAntiPend.Visible = True End If + If ImgAntiPend.Visible Then + If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then + Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}") + If DtMovtos.Rows.Count = 0 Then + ImgAntiPend.Visible = False + End If + End If + End If + TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString @@ -18300,6 +18323,15 @@ Partial Class Ventas ImgAntiPend.Visible = True End If + If ImgAntiPend.Visible Then + If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then + Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}") + If DtMovtos.Rows.Count = 0 Then + ImgAntiPend.Visible = False + End If + End If + End If + MostrarOpcionesPaqueteria() TrAtencionA.Visible = True From 1ec803786e91dd05ab75fee6580abb7813c2c285 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 1 Jul 2024 19:30:03 -0700 Subject: [PATCH 2/2] Ventas Correcion sucursales - Almacenes, auxiliar correciones UI --- Contabilidad/PopUpAuxiliar.aspx | 205 +++++++++++++++-------------- Contabilidad/PopUpAuxiliar.aspx.vb | 3 +- Ventas/Ventas.aspx.vb | 46 ++++++- 3 files changed, 150 insertions(+), 104 deletions(-) diff --git a/Contabilidad/PopUpAuxiliar.aspx b/Contabilidad/PopUpAuxiliar.aspx index 9b3616a1b..c93a408c6 100644 --- a/Contabilidad/PopUpAuxiliar.aspx +++ b/Contabilidad/PopUpAuxiliar.aspx @@ -79,99 +79,109 @@ - - - - - - Fecha - - - - - - Concepto - - - - - - Cargo - - - - - - Abono - - - - - - Folio (Ref.) - -   - - - - Contabilizado - - - - - - Póliza - - - - - - Fecha Conta. - - - - - - Referencia - - - - - - Usuario - - - - - - + + + + + <%--0--%> + + Fecha + + + + + <%--1--%> + + Concepto + + + + + <%--2--%> + + Cargo + + + + + <%--3--%> + + Abono + + + + + <%--4--%> + + Folio (Ref.) + +   + + + <%--5--%> + + Contabilizado + + + + + <%--6--%> + + Póliza + + + + + <%--7--%> + + Fecha Conta. + + + + + <%--8--%> + + Referencia + + + + + <%--9--%> + + Usuario + + + + + + + <%--10--%> + + + + + + + <%--11--%> + + + + + + <%--12--%> + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + @@ -201,10 +211,11 @@
- - - - +
+ + + +
@@ -214,7 +225,7 @@ - + diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 9cdaaff03..9c6ceb7c4 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -176,7 +176,8 @@ Partial Class PopUpAuxiliar e.Row.Cells(6).Visible = False e.Row.Cells(7).Visible = False e.Row.Cells(8).Visible = False - e.Row.Cells(12).Visible = False + 'e.Row.Cells(12).Visible = False + e.Row.FCLinkButton("imgCancelar").Visible = False End If e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index ea5dbd214..513d5729a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7079,7 +7079,14 @@ Partial Class Ventas End If DdlSucursalCliente.Items.Clear() - Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") + 'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0") + Dim dtts As DataTable = New DataTable + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + dtts = ObjClientes.DtResultados.Copy() + End If + ObjClientes.Dispose() + If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then DdlSucursalCliente.DataSource = dtts DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1")) @@ -13881,10 +13888,21 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then - If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then + Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal() + If CveClientesucursatTemp > 0 Then + + 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + Dim drr As DataRow = Nothing + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + + drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}") + + End If + ObjClientes.Dispose() + If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero @@ -37662,7 +37680,14 @@ Partial Class Ventas Private Sub CargaDdlClientesSucursal() - DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) + 'DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa) + + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + DdlClienteSucursal.DataSource = ObjClientes.DtResultados.Copy() + End If + ObjClientes.Dispose() + DdlClienteSucursal.DataBind() DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) @@ -38169,7 +38194,16 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") + + 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}") + + Dim drr As DataRow = Nothing + Dim ObjClientes As New ClsClientes + If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}") + End If + ObjClientes.Dispose() + If drr IsNot Nothing Then If RBLTipoVenta.SelectedValue.Contiene("6") Then tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero