From c0c9b5006fab40f91b56ba290f8b565ffe161dba Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Nov 2024 11:34:36 -0700 Subject: [PATCH 1/5] --Cambios visuales --- Bancos/ProveedoresAbonar.aspx | 2 +- Ventas/Ventas.aspx | 100 ++++++---------------------------- Ventas/Ventas.aspx.vb | 25 +++++---- 3 files changed, 33 insertions(+), 94 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 65340f9a0..ebd03c200 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -574,7 +574,7 @@
Proveedor:
-
+
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index dca78cecb..1d42ac048 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -795,15 +795,7 @@ - - - - - - Limite Al:  - - - +   @@ -1532,7 +1524,12 @@ <%--22--%> <%--23--%> - + + +
+ + + @@ -6399,36 +6396,6 @@

Cargar Conceptos

-
-
-
-
-
- - Descargar Plantilla -
-
-
-
-
-
- -
-
-
-

Paso 1 : Descargar Plantilla

-
-
- -
-
-
-
- -
-
-
-
@@ -6446,13 +6413,8 @@
-

Paso 2: Cargar Plantilla

+

Arrastre o haga click para subir el archivo Excel


- <%--
-
-

Arraste o haga click para subir el archivo Excel

-
-
--%>
@@ -6465,9 +6427,10 @@
- <%--
-
--%> -
+
+ +
+
@@ -6492,36 +6455,6 @@

Cargar Conceptos

-
-
-
-
-
- - Descargar Plantilla -
-
-
-
-
-
- -
-
-
-

Paso 1 : Descargar Plantilla

-
-
- -
-
-
-
- -
-
-
-
@@ -6539,7 +6472,7 @@
-

Paso 2: Cargar Plantilla

+

Arrastre o haga click para subir el archivo Excel


@@ -6553,9 +6486,10 @@
- <%--
-
--%> -
+
+ +
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1fda30a4f..5ea06358e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3184,9 +3184,7 @@ Partial Class Ventas CargaEstatusFactura() 'DdlEstatus.SelectedValueExist("2") - If UsuarioActual.Empresa.CveEmpresa = 189 Then - ImgAntiPend.Visible = False - End If + ConfiguraTipoDocto() @@ -3619,6 +3617,10 @@ Partial Class Ventas End If + If UsuarioActual.Empresa.CveEmpresa = 189 Then + ImgAntiPend.Visible = False + End If + End If End Sub @@ -7732,8 +7734,8 @@ Partial Class Ventas Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then TrCreditoDisponible.Visible = True - LblCreditoDisponible.Text = CreditoDispo.FormatoNumero - TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%" + LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo) + LblPorcentajeCredito.Text = $"({PorcentajeCredito.FormatoNumero}%)" End If End If @@ -7761,8 +7763,8 @@ Partial Class Ventas If CreditoDispo > 0 Then TrCreditoDisponible.Visible = True - LblCreditoDisponible.Text = CreditoDispo.FormatoNumero - If PorcentajeCredito > 80 Then TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%" + LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo) + If PorcentajeCredito > 80 Then LblPorcentajeCredito.Text = $"({PorcentajeCredito.FormatoNumero}%)" If Not UsuarioActual.TienePermisoProceso(268) AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("2")) Then Dim Vta As New ClsVentas @@ -8273,7 +8275,7 @@ Partial Class Ventas Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero(), ObjVentas) TrCreditoDisponible.Visible = True - LblCreditoDisponible.Text = CreditoDispo.FormatoNumero + LblCreditoDisponible.Text = String.Format("{0:C}", CreditoDispo) UPPCreditoDisponible.Update() UpParametros.Update() End If @@ -17070,9 +17072,12 @@ Partial Class Ventas #Region " ANTICIPOS " Private Sub CargaAnticipos(CveCliente As Integer) - + Dim CargaAnticipos As Boolean = True + If UsuarioActual.CveEmpresa = 189 Then + CargaAnticipos = False + End If HdnTieneAnticipos.Value = "0" - If CveCliente > 0 Then + If CveCliente > 0 AndAlso CargaAnticipos Then 'QUE NO SE PUEDA REALIZAR AMORTIZACIÓN DE ANTICIPO POR DESCUENTO If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then From 3c367317547a76a93c16b405dc2905e7730affa3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Nov 2024 12:23:04 -0700 Subject: [PATCH 2/5] --Permitir lineas adicionales de credito en factura, E158 --- Ventas/Ventas.aspx.vb | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index dc5de3c80..2237172d0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10536,7 +10536,7 @@ Partial Class Ventas ' Exit Sub 'End If - If ObjFactura.TipoDocto = "Ing" AndAlso (DtRemisionesPS Is Nothing OrElse DtRemisionesPS.Rows.Count = 0) Then + If UsuarioActual.CveEmpresa <> 158 AndAlso ObjFactura.TipoDocto = "Ing" AndAlso (DtRemisionesPS Is Nothing OrElse DtRemisionesPS.Rows.Count = 0) Then TmpDT = TmpDTError.Copy() CalculaTotalesVenta(RecalcularTotalOriginal:=False) Alert("No se puede generar un ingreso con una linea adicional de credito si este no viene de una remisión", TipoMensaje.MsgAdvertencia) @@ -19842,8 +19842,10 @@ Partial Class Ventas End If 'SI TIENE PERMISO PARA VER COSTO, QUE LO AGREGUE AL TMPDT + Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) + Dim Costo As Decimal = 0 - If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.TienePermisoProceso(385) Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso PuedeVerCosto Then Dim ObjInventarios As New ClsInventarios Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) @@ -21601,7 +21603,9 @@ Partial Class Ventas HlAgregarExcel.Visible = True End If - If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) + + If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso PuedeVerCosto Then GvPS.Columns(23).Visible = True thCosto.Visible = True thCosto2.Visible = True @@ -39792,11 +39796,13 @@ Partial Class Ventas Protected Sub ChkRemEspecial_CheckedChanged(sender As Object, e As EventArgs) - Dim objV As New ClsVentas - If objV.UpdateVentaRemisionEspecial(CveVenta, If(ChkRemEspecial.Checked, 2000, 0), Now.AddDays(7), UsuarioActual.CveEmpresa) Then - Alert("Se aplicó el cambio", TipoMensaje.ToastInformacion) + If CveVenta > 0 Then + Dim objV As New ClsVentas + If objV.UpdateVentaRemisionEspecial(CveVenta, If(ChkRemEspecial.Checked, 2000, 0), Now.AddDays(7), UsuarioActual.CveEmpresa) Then + Alert("Se aplicó el cambio", TipoMensaje.ToastInformacion) + End If + objV.Dispose() End If - objV.Dispose() End Sub End Class From ddd7ab92534c976f8715eda290c4bdf5f81dfca9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Nov 2024 16:21:05 -0700 Subject: [PATCH 3/5] --FIX ventas --- Ventas/Ventas.aspx | 6 +++--- Ventas/Ventas.aspx.vb | 14 ++++++++++++++ 2 files changed, 17 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index ddb9c41b5..3be72d870 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1524,10 +1524,10 @@ <%--22--%> <%--23--%> - + -
- +
+ diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2237172d0..b695cbc7b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8909,6 +8909,20 @@ Partial Class Ventas e.Row.FCLinkButton("LnkExistencias").Visible = True End If + If CveVenta <= 0 Then + Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso PuedeVerCosto Then + If e.Row.DBCampo("PU").ToDecimal() > 0 Then + e.Row.FCLabel("LblCosto").Text = String.Format("{0:N2}", e.Row.DBCampo("Costo").ToDecimal()) + e.Row.FCLabel("LblCostoPorcentaje").Text = String.Format("{0:N2} %", ((e.Row.DBCampo("PU").ToDecimal() - e.Row.DBCampo("Costo").ToDecimal()) / e.Row.DBCampo("PU").ToDecimal()) * 100D) + Else + e.Row.FCLabel("LblCosto").Text = "" + e.Row.FCLabel("LblCostoPorcentaje").Text = "" + End If + End If + End If + 'If GvInv.Rows.Count > 0 AndAlso ModalidadEdicion AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso e.Row.DataKey("CveVentaDetalle").ToString().ToEntero() > 0 Then ' e.Row.FCLinkButton("imgE").Enabled = False ' e.Row.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen." From 0a1ea6392946ff0f15a483e767e28b88c77cd3d8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Nov 2024 16:46:34 -0700 Subject: [PATCH 4/5] --Porcentaje Utilidad al agregar --- Ventas/Ventas.aspx | 4 +++- Ventas/Ventas.aspx.vb | 21 +++++++++++++++++++++ 2 files changed, 24 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3be72d870..b3ebebe4c 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1260,7 +1260,9 @@ - + + + <%----%> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b695cbc7b..c256dd38c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18365,6 +18365,27 @@ Partial Class Ventas If UsuarioActual.CveEmpresa = 189 Then AgregarPSAutomaticamente = False + Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) + + Dim Costo As Decimal = 0 + + If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso PuedeVerCosto Then + GvPS.Columns(23).Visible = True + thCosto.Visible = True + thCosto2.Visible = True + + Dim ObjInventarios As New ClsInventarios + + Costo = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) + 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal + If Costo <= 0 Then Costo = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) + + ObjInventarios.Dispose() + + If Costo > 0 Then + LtlHeaderCosto.Text = String.Format("{0:N2} %", ((TxtPrecio.Text.ToDecimal() - Costo) / TxtPrecio.Text.ToDecimal()) * 100D) + End If + End If End If If AgregarPSAutomaticamente Then From a3d27d0a5b985b80cbf5047687f314aa20e20672 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Nov 2024 18:02:32 -0700 Subject: [PATCH 5/5] =?UTF-8?q?Puntos=20GDiaz:=20--visualizar=20el=20costo?= =?UTF-8?q?=20del=20producto=20y=20su=20%=20de=20utilidad,=20=C3=BAltimo?= =?UTF-8?q?=20costo.=20,considernado=20el=20permiso=20para=20visualizar=20?= =?UTF-8?q?importe=20de=20costo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 53 ++++++++++++++++++++++--------------------- Ventas/Ventas.aspx.vb | 50 +++++++++++++++++++++------------------- 2 files changed, 54 insertions(+), 49 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index b3ebebe4c..1d615c06a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1080,8 +1080,6 @@
- - <%----%> <%--width="100%"--%> @@ -1112,6 +1110,10 @@ + - + + -
P.U.  + Costo
+ Utilidad + 		Desc Predial @@ -1133,7 +1135,7 @@
@@ -1239,6 +1241,9 @@ + + @@ -1260,12 +1265,8 @@ - -
- <%----%> <%--10--%> + + +
+ + + + <%--11--%> @@ -1441,7 +1449,7 @@ - <%--11--%> + <%--12--%> @@ -1450,7 +1458,7 @@ - <%--12--%> + <%--13--%>
@@ -1458,7 +1466,7 @@ <%----%> - <%--13--%> + <%--14--%>
@@ -1466,17 +1474,17 @@ <%----%> - <%--14--%> - <%--15--%> - + <%--16--%> + + <%--17--%> - <%--17--%> + <%--18--%>
@@ -1490,14 +1498,14 @@ CssClass="btn btn-circle btn-sm green" Text="" /> - <%--18--%> + <%--19--%> - <%--19--%> + <%--20--%> - <%--20--%> + <%--21--%> @@ -1517,21 +1525,14 @@ - <%--21--%> + <%--22--%> - <%--22--%> - <%--23--%> - - -
- - - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c256dd38c..7034079f9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -20,15 +20,15 @@ Partial Class Ventas #Region "Propiedades" Private Const NumeroDecimales As Integer = 2 - Dim ColumnaDescuento As Integer = 10 - Dim ColumnaPredial As Integer = 11 + Dim ColumnaDescuento As Integer = 11 + Dim ColumnaPredial As Integer = 12 Dim ColumnaSubProyecto As Integer = 8 - Dim ColumnaIVA As Integer = 12 - Dim ColumnaIEPS As Integer = 13 - Dim ColumnaRetIVA As Integer = 14 - Dim ColumnaRetISR As Integer = 15 - Dim ColumnaEditar As Integer = 17 - Dim ColumnaEliminar As Integer = 18 + Dim ColumnaIVA As Integer = 13 + Dim ColumnaIEPS As Integer = 14 + Dim ColumnaRetIVA As Integer = 15 + Dim ColumnaRetISR As Integer = 16 + Dim ColumnaEditar As Integer = 18 + Dim ColumnaEliminar As Integer = 19 'Factura de ventas Dim DTConceptos As DataTable @@ -2704,7 +2704,7 @@ Partial Class Ventas End If AC.Dispose() 'columna de Fuente de recaudacion - GvPS.Columns(21).Visible = True + GvPS.Columns(22).Visible = True nomostrar.Visible = True nomostrar2.Visible = True 'GvPS.Width = 1250 @@ -5850,8 +5850,8 @@ Partial Class Ventas End If 'Ocultamos los botones Clonar y Ordenar - GvPS.Columns(19).Visible = False GvPS.Columns(20).Visible = False + GvPS.Columns(21).Visible = False thOrden.Visible = False GvFirmas.DataSource = DTmpF @@ -18370,7 +18370,7 @@ Partial Class Ventas Dim Costo As Decimal = 0 If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso PuedeVerCosto Then - GvPS.Columns(23).Visible = True + GvPS.Columns(10).Visible = True thCosto.Visible = True thCosto2.Visible = True @@ -18383,7 +18383,8 @@ Partial Class Ventas ObjInventarios.Dispose() If Costo > 0 Then - LtlHeaderCosto.Text = String.Format("{0:N2} %", ((TxtPrecio.Text.ToDecimal() - Costo) / TxtPrecio.Text.ToDecimal()) * 100D) + Dim PorUtilidad = String.Format("{0:N2} %", ((TxtPrecio.Text.ToDecimal() - Costo) / TxtPrecio.Text.ToDecimal()) * 100D) + LtlHeaderCosto.Text = String.Format("{0:N2}
{1}", Costo, PorUtilidad) End If End If End If @@ -20109,6 +20110,7 @@ Partial Class Ventas End If TxtObsPS.Text = "" + LtlHeaderCosto.Text = "" TxtPrecio.Text = "" LblTotalPS.Text = "0.00" HdnIVAPS.Value = "-1" @@ -20405,7 +20407,7 @@ Partial Class Ventas Row("TieneProntoPago") = "Si" 'SOLO DEBE MOSTRASE SI EL PAGO ES DE CONTADO If RBLPago.SelectedValue = "2" Then - GvPS.Columns(22).Visible = True + GvPS.Columns(23).Visible = True thProntoPago.Visible = True thProntoPago2.Visible = True End If @@ -21641,11 +21643,11 @@ Partial Class Ventas Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385) If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso PuedeVerCosto Then - GvPS.Columns(23).Visible = True + GvPS.Columns(10).Visible = True thCosto.Visible = True thCosto2.Visible = True Else - GvPS.Columns(23).Visible = False + GvPS.Columns(10).Visible = False thCosto.Visible = False thCosto2.Visible = False End If @@ -24323,11 +24325,11 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If RBLPago.SelectedValue = "2" Then - GvPS.Columns(22).Visible = True + GvPS.Columns(23).Visible = True thProntoPago.Visible = True thProntoPago2.Visible = True Else - GvPS.Columns(22).Visible = False + GvPS.Columns(23).Visible = False thProntoPago.Visible = False thProntoPago2.Visible = False End If @@ -27389,9 +27391,9 @@ Partial Class Ventas 'Ocultamos los botones Editar, Clonar y Ordenar - GvPS.Columns(17).Visible = False - GvPS.Columns(19).Visible = False + GvPS.Columns(18).Visible = False GvPS.Columns(20).Visible = False + GvPS.Columns(21).Visible = False thOrden.Visible = False DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString() @@ -31915,10 +31917,10 @@ Partial Class Ventas 'REINICIALIZA GENERALES PS LbAgregar.Visible = False - GvPS.Columns(17).Visible = False GvPS.Columns(18).Visible = False GvPS.Columns(19).Visible = False GvPS.Columns(20).Visible = False + GvPS.Columns(21).Visible = False thOrden.Visible = False DivRemisionesFacturadas.Visible = False @@ -32607,7 +32609,7 @@ Partial Class Ventas End If If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then - GvPS.Columns(19).Visible = True + GvPS.Columns(20).Visible = True End If UpPS.Update() @@ -34384,8 +34386,8 @@ Partial Class Ventas DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty) 'HABILITA EDITAR Y ELIMINAR DEL GV - GvPS.Columns(17).Visible = True GvPS.Columns(18).Visible = True + GvPS.Columns(19).Visible = True SetPermisos() @@ -34825,6 +34827,7 @@ Partial Class Ventas 'LIMPIAR LAS VARIABLES TxtCantidad.Text = "" TxtPrecio.Text = "" + LtlHeaderCosto.Text = "" HdnPS.Value = "-1" DdlPS.SelectedValue = "-1" DdlPS.SelectedText = "-" @@ -34856,6 +34859,7 @@ Partial Class Ventas HdnCvePSComparar.Value = "-1" TxtCantidad.Text = "" TxtPrecio.Text = "" + LtlHeaderCosto.Text = "" HdnPS.Value = "-1" DdlPS.SelectedValue = "-1" DdlPS.SelectedText = "-" @@ -36055,7 +36059,7 @@ Partial Class Ventas End If AC.Dispose() 'columna de Fuente de recaudacion - GvPS.Columns(21).Visible = True + GvPS.Columns(22).Visible = True nomostrar.Visible = True nomostrar2.Visible = True 'GvPS.Width = 1250