Se agregó segunda y tercera columna de Descuento de Marca

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()