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 631fab0ae..1d615c06a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -795,15 +795,7 @@ - - - - - - Limite Al:  - - - +   @@ -1088,8 +1080,6 @@
- - <%----%> <%--width="100%"--%> @@ -1120,6 +1110,10 @@ + - + + -
P.U.  + Costo
+ Utilidad + 		Desc Predial @@ -1141,7 +1135,7 @@
@@ -1247,6 +1241,9 @@ + + @@ -1268,10 +1265,8 @@
- <%----%> <%--10--%> + + +
+ + + + <%--11--%> @@ -1447,7 +1449,7 @@ - <%--11--%> + <%--12--%> @@ -1456,7 +1458,7 @@ - <%--12--%> + <%--13--%>
@@ -1464,7 +1466,7 @@ <%----%> - <%--13--%> + <%--14--%>
@@ -1472,17 +1474,17 @@ <%----%> - <%--14--%> - <%--15--%> - + <%--16--%> + + <%--17--%> - <%--17--%> + <%--18--%>
@@ -1496,14 +1498,14 @@ CssClass="btn btn-circle btn-sm green" Text="" /> - <%--18--%> + <%--19--%> - <%--19--%> + <%--20--%> - <%--20--%> + <%--21--%> @@ -1523,16 +1525,14 @@ - <%--21--%> + <%--22--%> - <%--22--%> - <%--23--%> - + @@ -6399,36 +6399,6 @@

Cargar Conceptos

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

Paso 1 : Descargar Plantilla

-
-
- -
-
-
-
- -
-
-
-
@@ -6446,13 +6416,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 +6430,10 @@
- <%--
-
--%> -
+
+ +
+
@@ -6492,36 +6458,6 @@

Cargar Conceptos

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

Paso 1 : Descargar Plantilla

-
-
- -
-
-
-
- -
-
-
-
@@ -6539,7 +6475,7 @@
-

Paso 2: Cargar Plantilla

+

Arrastre o haga click para subir el archivo Excel


@@ -6553,9 +6489,10 @@
- <%--
-
--%> -
+
+ +
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 59bb8668d..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 @@ -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 @@ -5848,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 @@ -7725,8 +7727,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 @@ -7754,8 +7756,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 @@ -8266,7 +8268,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 @@ -8907,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." @@ -10534,7 +10550,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) @@ -17067,9 +17083,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 @@ -18346,6 +18365,28 @@ 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(10).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 + 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 If AgregarPSAutomaticamente Then @@ -19837,8 +19878,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) @@ -20067,6 +20110,7 @@ Partial Class Ventas End If TxtObsPS.Text = "" + LtlHeaderCosto.Text = "" TxtPrecio.Text = "" LblTotalPS.Text = "0.00" HdnIVAPS.Value = "-1" @@ -20363,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 @@ -21596,12 +21640,14 @@ Partial Class Ventas HlAgregarExcel.Visible = True End If - If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then - GvPS.Columns(23).Visible = True + 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(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 @@ -24279,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 @@ -27345,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() @@ -31871,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 @@ -32563,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() @@ -34340,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() @@ -34781,6 +34827,7 @@ Partial Class Ventas 'LIMPIAR LAS VARIABLES TxtCantidad.Text = "" TxtPrecio.Text = "" + LtlHeaderCosto.Text = "" HdnPS.Value = "-1" DdlPS.SelectedValue = "-1" DdlPS.SelectedText = "-" @@ -34812,6 +34859,7 @@ Partial Class Ventas HdnCvePSComparar.Value = "-1" TxtCantidad.Text = "" TxtPrecio.Text = "" + LtlHeaderCosto.Text = "" HdnPS.Value = "-1" DdlPS.SelectedValue = "-1" DdlPS.SelectedText = "-" @@ -36011,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 @@ -39787,11 +39835,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