diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 960390491..f32ed4378 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1858,7 +1858,7 @@ Public Class ClsProductosServicios
Return Retorno
End Function
- Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, CveUsuario As Integer) As Boolean
+ Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PorcentajeMarcasAdd")
@@ -1867,6 +1867,8 @@ Public Class ClsProductosServicios
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+ .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
+ .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
@@ -1879,7 +1881,7 @@ Public Class ClsProductosServicios
Return Retorno
End Function
- Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal) As Boolean
+ Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
@@ -1888,6 +1890,8 @@ Public Class ClsProductosServicios
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+ .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
+ .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
End With
Try
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index eaa14a3b6..077b6d42b 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -713,8 +713,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
- libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFImp)
- libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
+ libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
+ 'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
''Guarda streem y descarga
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 371c4b76a..35162a27a 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -5492,10 +5492,12 @@
| # |
Marca |
-<%-- Precio
+ <%-- | Precio
General | --%>
% |
-<%-- Precio
+ | % |
+ % |
+ <%-- Precio
Aplicado | --%>
|
@@ -5504,8 +5506,10 @@
-
-<%--
+
+
+
+ <%--
@@ -5515,16 +5519,28 @@
|
-<%--
+ <%-- |
| --%>
-
+
|
-<%--
+ |
+
+
+ <%--
+ --%>
+ |
+
+
+
+ <%--
+ --%>
+ |
+ <%--
| --%>
@@ -5554,7 +5570,7 @@
-<%-- --%>
+ <%-- --%>
@@ -5569,8 +5585,32 @@
+
+
+
+
+
+
+
+
+
+
+
-<%-- --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%-- --%>
@@ -5607,7 +5647,7 @@
<%-- FIN MODAL MODIFICAR PORCENTAJE MARCAS --%>
- <%-- MODAL MODIFICAR PRECIOS PS --%>
+ <%-- MODAL MODIFICAR PRECIOS PS --%>
<%-- FIN MODAL MODIFICAR PRECIOS PS --%>
-
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 81f813eae..f614d5e7f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -8157,6 +8157,8 @@ Partial Class Clientes
DTPorcentajeTemp.Columns.Add("CveMarca", GetType(Integer))
DTPorcentajeTemp.Columns.Add("Marca", GetType(String))
DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal))
+ DTPorcentajeTemp.Columns.Add("PorcentajeProducto2", GetType(Decimal))
+ DTPorcentajeTemp.Columns.Add("PorcentajeProducto3", GetType(Decimal))
DTPorcentajeTemp.Columns.Add("Estatus", GetType(String))
DTPorcentajePrecios = DTPorcentajeTemp.Clone
End Sub
@@ -8194,11 +8196,13 @@ Partial Class Clientes
Private Sub LimpiaModalPorcentaje()
txtPorcentaje.Text = ""
+ txtPorcentaje2.Text = ""
+ txtPorcentaje3.Text = ""
DdlMarcaPS.SelectedValue = "-1"
End Sub
Protected Sub LbAgregarMarca_Click(sender As Object, e As EventArgs) Handles LbAgregarMarca.Click
- If txtPorcentaje.Text.ToDecimal >= 0 And txtPorcentaje.Text.ToDecimal <= 100 Then
+ If txtPorcentaje.Text.ToDecimal > 0 And txtPorcentaje.Text.ToDecimal <= 100 And txtPorcentaje2.Text.ToDecimal >= 0 And txtPorcentaje2.Text.ToDecimal <= 100 And txtPorcentaje3.Text.ToDecimal >= 0 And txtPorcentaje3.Text.ToDecimal <= 100 Then
Dim registro As DataRow = DTPorcentajePrecios.NewRow
@@ -8206,11 +8210,13 @@ Partial Class Clientes
registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero
registro.Item("Marca") = DdlMarcaPS.SelectedItem.Text
registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal
+ registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal
+ registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal
registro.Item("Estatus") = "I"
DTPorcentajePrecios.Rows.Add(registro)
CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
Else
- Alert("El Porcentaje debe estar en un rango entre 0 y 100", TipoMensaje.MsgAdvertencia)
+ Alert("El Porcentaje debe estar en un rango mayor a 0 y menor o igual a 100", TipoMensaje.MsgAdvertencia)
End If
LimpiaModalPorcentaje()
@@ -8255,15 +8261,21 @@ Partial Class Clientes
Protected Sub GvM_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvM.RowUpdating
Dim PorcentajeProducto As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP").Text.ToDouble
+ Dim PorcentajeProducto2 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP2").Text.ToDouble
+ Dim PorcentajeProducto3 As Double = GvM.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP3").Text.ToDouble
- If PorcentajeProducto >= 0 And PorcentajeProducto <= 100 Then
+ If PorcentajeProducto > 0 And PorcentajeProducto <= 100 And PorcentajeProducto2 >= 0 And PorcentajeProducto2 <= 100 And PorcentajeProducto3 >= 0 And PorcentajeProducto3 <= 100 Then
Dim No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No))
If Drs.Count > 0 Then
Drs(0)("PorcentajeProducto") = PorcentajeProducto
- Drs(0)("Estatus") = "U"
+ Drs(0)("PorcentajeProducto2") = PorcentajeProducto2
+ Drs(0)("PorcentajeProducto3") = PorcentajeProducto3
+ If Drs(0)("Estatus").ToString <> "I" Then
+ Drs(0)("Estatus") = "U"
+ End If
End If
DTPorcentajePrecios.AcceptChanges()
@@ -8271,7 +8283,7 @@ Partial Class Clientes
CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
Else
- Alert("El Porcentaje debe estar en un rango entre 0 y 100", TipoMensaje.MsgAdvertencia)
+ Alert("El Porcentaje debe estar en un rango mayor a 0 y menor o igual a 100", TipoMensaje.MsgAdvertencia)
End If
End Sub
@@ -8288,11 +8300,11 @@ Partial Class Clientes
If Dr("Estatus").ToString <> "" Then
If Dr("Estatus").ToString = "I" Then
- If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, UsuarioActual.CveUsuario) Then
+ If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal, UsuarioActual.CveUsuario) Then
TieneError = True
End If
ElseIf Dr("Estatus").ToString = "U" Then
- If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal) Then
+ If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, Dr("PorcentajeProducto2").ToString.ToDecimal, Dr("PorcentajeProducto3").ToString.ToDecimal) Then
TieneError = True
End If
ElseIf Dr("Estatus").ToString = "D" Then
@@ -8495,7 +8507,9 @@ Partial Class Clientes
If Drs.Count > 0 Then
Drs(0)("PorcentajeProducto") = PorcentajeProducto
Drs(0)("PrecioA") = Drs(0)("PrecioG").ToString.ToDouble * PorcentajeProducto / 100
- Drs(0)("Estatus") = "U"
+ If Drs(0)("Estatus").ToString <> "I" Then
+ Drs(0)("Estatus") = "U"
+ End If
End If
DTPorcentajePrecios.AcceptChanges()
|