This commit is contained in:
2019-09-12 19:27:28 -07:00
4 changed files with 80 additions and 23 deletions

View File

@@ -1858,7 +1858,7 @@ Public Class ClsProductosServicios
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PorcentajeMarcasAdd") DataAdapter("PA_Vta_PorcentajeMarcasAdd")
@@ -1867,6 +1867,8 @@ Public Class ClsProductosServicios
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
.Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
.Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With End With
@@ -1879,7 +1881,7 @@ Public Class ClsProductosServicios
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PorcentajeMarcasUpdate") DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
@@ -1888,6 +1890,8 @@ Public Class ClsProductosServicios
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
.Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
.Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
End With End With
Try Try

View File

@@ -713,8 +713,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2" 'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant) libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2" 'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFImp) libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00" 'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
''Guarda streem y descarga ''Guarda streem y descarga

View File

@@ -5492,10 +5492,12 @@
<tr class="Titulos"> <tr class="Titulos">
<th style="width: 28px">#</th> <th style="width: 28px">#</th>
<th style="width: 200px">Marca</th> <th style="width: 200px">Marca</th>
<%-- <th width="73px">Precio<br /> <%-- <th width="73px">Precio<br />
General </th>--%> General </th>--%>
<th width="73px">%</th> <th width="73px">%</th>
<%-- <th width="73px">Precio<br /> <th width="73px">%</th>
<th width="73px">%</th>
<%-- <th width="73px">Precio<br />
Aplicado </th>--%> Aplicado </th>--%>
<th style="width: 73px;"></th> <th style="width: 73px;"></th>
</tr> </tr>
@@ -5504,8 +5506,10 @@
<td style="text-align: center;"> <td style="text-align: center;">
<div class="psagregar"> <div class="psagregar">
<div class="comboxes"> <div class="comboxes">
<asp:DropDownList ID="DdlMarcaPS" CssClass="form-control input-sm select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Width="100%" Height="22px"/> <asp:DropDownList ID="DdlMarcaPS" CssClass="form-control input-sm select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Width="100%" Height="22px" />
<%-- <asp:DropDownList ID="DdlClasificacion2" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me"> <asp:RequiredFieldValidator ID="Rfv" runat="server" ControlToValidate="DdlMarcaPS" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="Rfv" Width="300px"></ajax:ValidatorCalloutExtender>
<%-- <asp:DropDownList ID="DdlClasificacion2" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<br /> <br />
@@ -5515,16 +5519,28 @@
</div> </div>
</div> </div>
</td> </td>
<%-- <td> <%-- <td>
<asp:Label ID="LbPrecioG" DataFormatString="{0:N2}" Width="55px" MaxLength="15" runat="server"></asp:Label> <asp:Label ID="LbPrecioG" DataFormatString="{0:N2}" Width="55px" MaxLength="15" runat="server"></asp:Label>
</td>--%> </td>--%>
<td> <td>
<asp:TextBox ID="txtPorcentaje" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox> <asp:TextBox ID="txtPorcentaje" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPorcentaje" FilterType="Custom, Numbers" ValidChars=".," /> <ajax:FilteredTextBoxExtender ID="ftbe1" runat="server" TargetControlID="txtPorcentaje" FilterType="Custom, Numbers" ValidChars=".," />
<asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEPorcentaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEPorcentaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
</td> </td>
<%-- <td> <td>
<asp:TextBox ID="txtPorcentaje2" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="txtPorcentaje2" FilterType="Custom, Numbers" ValidChars=".," />
<%-- <asp:RequiredFieldValidator ID="RFVPorcentaje2" runat="server" ControlToValidate="txtPorcentaje2" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje2" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</td>
<td>
<asp:TextBox ID="txtPorcentaje3" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender6" runat="server" TargetControlID="txtPorcentaje3" FilterType="Custom, Numbers" ValidChars=".," />
<%-- <asp:RequiredFieldValidator ID="RFVPorcentaje3" runat="server" ControlToValidate="txtPorcentaje3" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender6" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje3" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</td>
<%-- <td>
<asp:Label ID="LbPrecioA" Width="55px" MaxLength="15" runat="server" ClientIDMode="Static"></asp:Label> <asp:Label ID="LbPrecioA" Width="55px" MaxLength="15" runat="server" ClientIDMode="Static"></asp:Label>
</td>--%> </td>--%>
<td align="center"> <td align="center">
@@ -5554,7 +5570,7 @@
<ItemStyle Width="28px"></ItemStyle> <ItemStyle Width="28px"></ItemStyle>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="" ReadOnly="true" DataField="Marca" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="" ReadOnly="true" DataField="Marca" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
<%-- <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioG" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%> <%-- <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioG" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
<asp:TemplateField HeaderText=""> <asp:TemplateField HeaderText="">
@@ -5569,8 +5585,32 @@
<FooterStyle HorizontalAlign="Right"></FooterStyle> <FooterStyle HorizontalAlign="Right"></FooterStyle>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="">
<EditItemTemplate>
<asp:TextBox ID="TxtPorcentajeP2" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("PorcentajeProducto2", "{0:N2}")%>' Style="text-align: right"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="ftbe2" runat="server" TargetControlID="txtPorcentajeP" FilterType="Custom, Numbers" ValidChars=".," />
</EditItemTemplate>
<ItemTemplate>
<asp:Literal ID="lblPorcentajeP2" runat="server" Text='<%# Eval("PorcentajeProducto2", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="73px" HorizontalAlign="Right"></ItemStyle>
<FooterStyle HorizontalAlign="Right"></FooterStyle>
</asp:TemplateField>
<%-- <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioA" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%> <asp:TemplateField HeaderText="">
<EditItemTemplate>
<asp:TextBox ID="TxtPorcentajeP3" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("PorcentajeProducto3", "{0:N2}")%>' Style="text-align: right"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="ftbe3" runat="server" TargetControlID="txtPorcentajeP" FilterType="Custom, Numbers" ValidChars=".," />
</EditItemTemplate>
<ItemTemplate>
<asp:Literal ID="lblPorcentajeP3" runat="server" Text='<%# Eval("PorcentajeProducto3", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="73px" HorizontalAlign="Right"></ItemStyle>
<FooterStyle HorizontalAlign="Right"></FooterStyle>
</asp:TemplateField>
<%-- <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioA" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
<asp:TemplateField> <asp:TemplateField>
<EditItemTemplate> <EditItemTemplate>
@@ -5607,7 +5647,7 @@
</div> </div>
<%-- FIN MODAL MODIFICAR PORCENTAJE MARCAS --%> <%-- FIN MODAL MODIFICAR PORCENTAJE MARCAS --%>
<%-- MODAL MODIFICAR PRECIOS PS --%> <%-- MODAL MODIFICAR PRECIOS PS --%>
<div id="DivPorcentajePrecios" class="modal ADS fade" role="dialog"> <div id="DivPorcentajePrecios" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
<div class="modal-content" style="width: 700px;"> <div class="modal-content" style="width: 700px;">
@@ -5737,7 +5777,6 @@
</div> </div>
</div> </div>
<%-- FIN MODAL MODIFICAR PRECIOS PS --%> <%-- FIN MODAL MODIFICAR PRECIOS PS --%>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

View File

@@ -8157,6 +8157,8 @@ Partial Class Clientes
DTPorcentajeTemp.Columns.Add("CveMarca", GetType(Integer)) DTPorcentajeTemp.Columns.Add("CveMarca", GetType(Integer))
DTPorcentajeTemp.Columns.Add("Marca", GetType(String)) DTPorcentajeTemp.Columns.Add("Marca", GetType(String))
DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal)) DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal))
DTPorcentajeTemp.Columns.Add("PorcentajeProducto2", GetType(Decimal))
DTPorcentajeTemp.Columns.Add("PorcentajeProducto3", GetType(Decimal))
DTPorcentajeTemp.Columns.Add("Estatus", GetType(String)) DTPorcentajeTemp.Columns.Add("Estatus", GetType(String))
DTPorcentajePrecios = DTPorcentajeTemp.Clone DTPorcentajePrecios = DTPorcentajeTemp.Clone
End Sub End Sub
@@ -8194,11 +8196,13 @@ Partial Class Clientes
Private Sub LimpiaModalPorcentaje() Private Sub LimpiaModalPorcentaje()
txtPorcentaje.Text = "" txtPorcentaje.Text = ""
txtPorcentaje2.Text = ""
txtPorcentaje3.Text = ""
DdlMarcaPS.SelectedValue = "-1" DdlMarcaPS.SelectedValue = "-1"
End Sub End Sub
Protected Sub LbAgregarMarca_Click(sender As Object, e As EventArgs) Handles LbAgregarMarca.Click 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 Dim registro As DataRow = DTPorcentajePrecios.NewRow
@@ -8206,11 +8210,13 @@ Partial Class Clientes
registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero
registro.Item("Marca") = DdlMarcaPS.SelectedItem.Text registro.Item("Marca") = DdlMarcaPS.SelectedItem.Text
registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal
registro.Item("PorcentajeProducto2") = txtPorcentaje2.Text.ToDecimal
registro.Item("PorcentajeProducto3") = txtPorcentaje3.Text.ToDecimal
registro.Item("Estatus") = "I" registro.Item("Estatus") = "I"
DTPorcentajePrecios.Rows.Add(registro) DTPorcentajePrecios.Rows.Add(registro)
CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' ")) CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
Else 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 If
LimpiaModalPorcentaje() LimpiaModalPorcentaje()
@@ -8255,15 +8261,21 @@ Partial Class Clientes
Protected Sub GvM_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvM.RowUpdating 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 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 No As Integer = GvM.Rows(e.RowIndex).DataKey("No").ToEntero
Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No)) Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No))
If Drs.Count > 0 Then If Drs.Count > 0 Then
Drs(0)("PorcentajeProducto") = PorcentajeProducto 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 End If
DTPorcentajePrecios.AcceptChanges() DTPorcentajePrecios.AcceptChanges()
@@ -8271,7 +8283,7 @@ Partial Class Clientes
CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' ")) CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
Else 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 If
End Sub End Sub
@@ -8288,11 +8300,11 @@ Partial Class Clientes
If Dr("Estatus").ToString <> "" Then If Dr("Estatus").ToString <> "" Then
If Dr("Estatus").ToString = "I" 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 TieneError = True
End If End If
ElseIf Dr("Estatus").ToString = "U" Then 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 TieneError = True
End If End If
ElseIf Dr("Estatus").ToString = "D" Then ElseIf Dr("Estatus").ToString = "D" Then
@@ -8495,7 +8507,9 @@ Partial Class Clientes
If Drs.Count > 0 Then If Drs.Count > 0 Then
Drs(0)("PorcentajeProducto") = PorcentajeProducto Drs(0)("PorcentajeProducto") = PorcentajeProducto
Drs(0)("PrecioA") = Drs(0)("PrecioG").ToString.ToDouble * PorcentajeProducto / 100 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 End If
DTPorcentajePrecios.AcceptChanges() DTPorcentajePrecios.AcceptChanges()