Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsInventarios.vb

@@ -1541,7 +1541,7 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, CveAlmacen As Integer,
+    Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveFamilia As Integer, CveSubFamilia As Integer, CvePS As Integer, CveClasificacion As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1,
                                    Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -1556,7 +1556,7 @@ Public Class ClsInventarios
             .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
             .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
             .Add("@CveFamilia", SqlDbType.Int).Value = CveFamilia
             .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia
             .Add("@CvePS", SqlDbType.Int).Value = CvePS

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

Bancos/RepProgramarRecursos.aspx

@@ -372,7 +372,7 @@
                         <div class="Widthall " style="min-width: 1082px;">
                             <div class="table-VH">
                                 <div id="gv-container" class="table-VH-container">
-                                    <asp:GridView ID="Gv" runat="server" CssClass="table table-smallpadding Widthall" BorderWidth="0" GridLines="None" AutoGenerateColumns="False" DataKeyNames="CveCompra,CveProveedor,Serie,Original,UUID,RFC,SerieFolio2,Descripcion,SerieFolio, CveProveedorSucursal,Fecha" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" ClientIDMode="Static" ClientIDRowSuffix="CveMoneda,CveProveedor,CveProveedorSucursal,RowNum">
+                                    <asp:GridView ID="Gv" runat="server" CssClass="table table-smallpadding Widthall" BorderWidth="0" GridLines="None" AutoGenerateColumns="False" DataKeyNames="CveCompra,CveProveedor,Serie,Original,UUID,RFC,SerieFolio2,Descripcion,SerieFolio, CveProveedorSucursal,Fecha,RazonSocial" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" ClientIDMode="Static" ClientIDRowSuffix="CveMoneda,CveProveedor,CveProveedorSucursal,RowNum">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>

Bancos/RepProgramarRecursos.aspx.vb

@@ -680,8 +680,8 @@ Partial Class Bancos_RepProgramarRecursos
                 strBody.Append("     <div style='width: 550px'> ")
                 strBody.Append("         <fieldset> ")
                 strBody.Append("             <legend>Compras Programadas</legend> ")
-                strBody.Append("             <table width=""550px""><tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>")
+                strBody.Append("             <table width=""800px""><tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>")
-                strBody.Append("                 <th scope='col' style='width: 100px'>Serie-Folio</th> <th scope='col' style='width: 100px'>Fecha</th><th scope='col' style='width: 120px'>Importe</th><th scope='col' style='width: 100px'>Importe Programado</th></tr>")
+                strBody.Append("                 <th scope='col' style='width: 100px'>Serie-Folio</th><th scope='col' style='width: 150px'>Proveedor</th><th scope='col' style='width: 100px'>Usuario Programó</th> <th scope='col' style='width: 100px'>Fecha</th><th scope='col' style='width: 120px'>Importe</th><th scope='col' style='width: 100px'>Importe Programado</th></tr>")
 
                 For Each gvr As GridViewRow In Gv.Rows
                     If gvr.FCCheckBox("Chk").Checked Then
@@ -689,8 +689,9 @@ Partial Class Bancos_RepProgramarRecursos
                         Dim Importe = gvr.DataKey("Original").ToDouble.FormatoNumero()
                         Dim ImporteProgramo = gvr.FCTextBox("TxtS").Text.ToDouble.FormatoNumero()
                         Dim Fecha As String = gvr.DataKey("Fecha").ToDateTime().ToString("dd/MM/yyyy")
+                        Dim Proveedor As String = gvr.DataKey("RazonSocial")
 
-                        strBody.Append($"<tr class='Texto'><td>{SerieFolio}</td><td>{Fecha}</td><td style='text-align: right;'><span >{Importe}</span></td><td style='text-align: right;'>{ImporteProgramo}</td></tr>")
+                        strBody.Append($"<tr class='Texto'><td>{SerieFolio}</td><td>{Proveedor}</td><td>{UsuarioActual.Nombre}</td><td>{Fecha}</td><td style='text-align: right;'><span >{Importe}</span></td><td style='text-align: right;'>{ImporteProgramo}</td></tr>")
                     End If
                 Next
 

CRM/RepAcercamientosProcesos.aspx.cs

@@ -125,7 +125,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             hypt.DataTextField = $"Total";
             hypt.HeaderText = $"Total";
             hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" };
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}";
             GVRepAcercamientosEtapas.Columns.Add(hypt);
             foreach (DataRow row in dte.Rows)
             {
@@ -133,7 +133,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 hyp.DataTextField = $"C_{row["CveEtapaProceso"]}";
                 hyp.HeaderText = $"{row["EtapaProceso"]}";
                 hyp.DataNavigateUrlFields = new string[]{ "CveGrupo1","CveGrupo2"};
-                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}";
+                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}";
                 GVRepAcercamientosEtapas.Columns.Add(hyp);
             }
         }

Inventarios/KardexAlmacenHorizontal.aspx

@@ -163,10 +163,19 @@
             <td style="padding: 0px">
                 <asp:UpdatePanel ID="UpDatos" runat="server">
                     <ContentTemplate>
-                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" DataKeyNames="CvePS"
+                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
                             ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                             <Columns>
-                                <%--                                <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />--%>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                    <HeaderTemplate>
+                                        Código
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <div class='truncate' style='width: 200px;'>
+                                            <asp:Label runat="server" Text='<%# Eval("Codigo") %>' Width="100px"></asp:Label>
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                                     <HeaderTemplate>
                                         Producto
@@ -177,16 +186,6 @@
                                         </div>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-<%--                                <asp:TemplateField ItemStyle-HorizontalAlign="Left">
-                                    <HeaderTemplate>
-                                        Proveedor Fecha
-                                    </HeaderTemplate>
-                                    <ItemTemplate>
-                                        <div class='truncate' style='width: 200px;'>
-                                            <asp:Label runat="server" Text='<%# Eval("ProveedorFecha") %>' Width="250px"></asp:Label>
-                                        </div>
-                                    </ItemTemplate>
-                                </asp:TemplateField>--%>
                             </Columns>
                         </asp:GridView>
                     </ContentTemplate>

Inventarios/RepEntradasSalidas.aspx

@@ -56,7 +56,7 @@
                         <div class="row">
                             <div class="col-md-1 truncate">Almacén</div>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
+                                 <asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
                             </div>
                             <div class="col-md-1 truncate">Fecha Inicio</div>
                             <div class="col-md-2 col-sm-2">

Inventarios/RepEntradasSalidas.aspx.vb

@@ -209,13 +209,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
         FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
+        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
 
         If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
-                                  DdlAlmacen.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
+                                  Almacenes, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
                                   Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
@@ -712,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).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

OC/OC.aspx

@@ -862,7 +862,7 @@
                                                     <ajax:ValidatorCalloutExtender ID="VCECant" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </EditItemTemplate>
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,###.######}")%>'></asp:Label>
+                                                    <asp:Label ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,###.######}")%>' style="width:100%"></asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField>

OC/OC.aspx.vb

@@ -964,6 +964,8 @@ Partial Class OC
         DtDetalle.Columns.Add("CveContratoDetalle", GetType(Integer))
         DtDetalle.Columns.Add("CantidadNoEditable", GetType(Double))
 
+        DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
+
         ' DtDetalle.Columns.Add("ClasificacionOG", GetType(String))
 
     End Sub
@@ -3259,11 +3261,22 @@ Partial Class OC
         CargaSuperior()
     End Sub
     Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            Try
+                e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
+                e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
+            Catch ex As Exception
+
+            End Try
+
 
             If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
 
+
+
+
                 If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then
                     If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
                         e.Row.FCLiteral("LtlSubProyecto").Text = e.Row.DBCampo("SubProyecto")

Site.master

@@ -78,6 +78,7 @@
             <!-- BEGIN LOGO -->
             <div class="page-logo">
                 <asp:Literal ID="LitTit" runat="server"></asp:Literal>
+                <asp:TextBox ID="TxtTit" BorderStyle="None" runat="server" Visible="false" Width="500px"></asp:TextBox>
                 <%--<a href="/Inicio.aspx">
                     <asp:Image ID="IMGLogo" runat="server" alt="logo" class="logo-default" style="height:40px; margin: 3px 0 0 0;"/> 
                     <asp:Label ID="LblEmpresa" runat="server"  CssClass="EmpresaName"></asp:Label>

Site.master.vb

@@ -63,7 +63,9 @@ Partial Class Site
         If Not Page.IsPostBack Then
             lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt")
             MasterChat.Visible = False
-
+            If UsuarioActual.CveUsuario = 100 Then
+                TxtTit.Visible = True
+            End If
             If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True
             If UsuarioActual IsNot Nothing Then
                 HdnCveE.Value = UsuarioActual.CveEmpresa.ToString

Ventas/Clientes.aspx

@@ -5499,10 +5499,12 @@
                                         <tr class="Titulos">
                                             <th style="width: 28px">#</th>
                                             <th style="width: 200px">Marca</th>
-<%--                                            <th width="73px">Precio<br />
+                                            <%--                                            <th width="73px">Precio<br />
                                                 General </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>--%>
                                             <th style="width: 73px;"></th>
                                         </tr>
@@ -5511,8 +5513,10 @@
                                             <td style="text-align: center;">
                                                 <div class="psagregar">
                                                     <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:DropDownList>
                                                         <br />
@@ -5522,16 +5526,28 @@
                                                     </div>
                                                 </div>
                                             </td>
-<%--                                            <td>
+                                            <%--                                            <td>
                                                 <asp:Label ID="LbPrecioG" DataFormatString="{0:N2}" Width="55px" MaxLength="15" runat="server"></asp:Label>
                                             </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>
-                                                <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>
                                                 <ajax:ValidatorCalloutExtender ID="VCEPorcentaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
                                             </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>
                                             </td>--%>
                                             <td align="center">
@@ -5561,7 +5577,7 @@
                                                     <ItemStyle Width="28px"></ItemStyle>
                                                 </asp:TemplateField>
                                                 <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="">
@@ -5576,8 +5592,32 @@
                                                     <FooterStyle HorizontalAlign="Right"></FooterStyle>
                                                 </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>
                                                     <EditItemTemplate>
@@ -5614,7 +5654,7 @@
     </div>
     <%-- FIN MODAL MODIFICAR PORCENTAJE MARCAS --%>
 
-        <%-- MODAL MODIFICAR PRECIOS PS --%>
+    <%-- MODAL MODIFICAR PRECIOS PS --%>
     <div id="DivPorcentajePrecios" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <div class="modal-content" style="width: 700px;">
@@ -5744,7 +5784,6 @@
         </div>
     </div>
     <%-- FIN MODAL MODIFICAR PRECIOS PS --%>
-
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

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

Ventas/Ventas.aspx

@@ -6,6 +6,10 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 
     <style>
+        .btn-xs {
+            padding: 0px 5px;
+        }
+
         .nolineheight {
             line-height: 1;
         }
@@ -131,6 +135,16 @@
                 text-align: center;
             }
 
+        .select2anothertable {
+            position: absolute;
+            left: 100%;
+            background-color: white;
+            /*top: 50px;*/ top: 21px;
+            /*max-height: 200px;*/ max-height: 229px;
+            /*background-color: #dcdcdc;*/
+            overflow: hidden;
+        }
+
         .select2anothertable {
             position: absolute;
             left: 100%;
@@ -648,7 +662,7 @@
                                 </asp:UpdatePanel>
                             </td>
                         </tr>
-                    
+
                         <tr align="left" id="TrAlmacenAsignado" runat="server" visible="False">
                             <td>
                                 <asp:Label runat="server" ToolTip="Almacen Asignado" Font-Bold="true" Text="Almacen A:"></asp:Label>
@@ -697,7 +711,7 @@
                             </td>
                         </tr>
                         <tr align="left" id="TrSinExistencia" runat="server" visible="false">
-                                <td><b>Sin existencia:</b>&nbsp;</td>
+                            <td><b>Sin existencia:</b>&nbsp;</td>
                             <td>
                                 <asp:UpdatePanel ID="UpSinExistencia" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
@@ -1422,7 +1436,7 @@
                                                     </td>
                                                     <td><b>T.C.:</b></td>
                                                     <td>
-                                                        <asp:TextBox ID="TxtTipoCambio" onkeyup="ConvertirDllsPesos();" runat="server" CssClass="form-control input-sm" MaxLength="7" Text="1" Enabled="true" Width="70px" ClientIDMode="Static" Readonly ="true"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtTipoCambio" onkeyup="ConvertirDllsPesos();" runat="server" CssClass="form-control input-sm" MaxLength="7" Text="1" Enabled="true" Width="70px" ClientIDMode="Static" ReadOnly="true"></asp:TextBox>
                                                         <asp:CompareValidator ID="CVTipoCambio" runat="server" ControlToValidate="TxtTipoCambio" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCOTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="CVTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
                                                         <asp:Label runat="server" ID="LblTCValuacion" ToolTip="Última Valuación" Text="" Visible="false"></asp:Label>
@@ -5279,7 +5293,7 @@
                     </div>
                     <div class="modal-body">
 
-                        <asp:GridView ID="GvComplementoPagos" DataKeyNames="CveComplementoPago,FolioFiscal,CveIE,RFCReceptor,CvePAC,SerieFolio,CobranzaCorreo,Estatus" 
+                        <asp:GridView ID="GvComplementoPagos" DataKeyNames="CveComplementoPago,FolioFiscal,CveIE,RFCReceptor,CvePAC,SerieFolio,CobranzaCorreo,Estatus"
                             runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" data-sort="true">
                             <Columns>
                                 <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
@@ -5287,10 +5301,10 @@
 
                                 <asp:BoundField HeaderText="XML" ItemStyle-HorizontalAlign="Center" />
                                 <asp:BoundField HeaderText="PDF" ItemStyle-HorizontalAlign="Center" />
-                                <asp:BoundField HeaderText="Estatus" DataField="StrEstatus"  ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Estatus" DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
 
                                 <asp:BoundField HeaderText="Fecha C." DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-                                
+
 
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                                     <HeaderTemplate>Reenviar</HeaderTemplate>
@@ -5300,11 +5314,11 @@
                                     <ItemStyle Width="5%" />
                                 </asp:TemplateField>
 
-                                  <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%"> 
+                                <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
-                                            <asp:LinkButton ID="LnkCancelarComplemetno" Visible="false" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Regenerar"
+                                        <asp:LinkButton ID="LnkCancelarComplemetno" Visible="false" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Regenerar"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
-                                             CssClass="btn btn-circle btn-sm red " Text="<i class='fa fa-minus'></i>" />
+                                            CssClass="btn btn-circle btn-sm red " Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
@@ -6009,7 +6023,27 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
+    <div id="DivModalExistencias" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog rowpadding" tabindex="-1">
+            <div class="modal-content">
+                <div class="modal-header">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 id="hPS" class="modal-title">Existencias</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <div class="col-md-12">
+                            <table id="TbExistenciasPS">
+                            </table>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -6827,7 +6861,7 @@
             var div = $('<div class="select2anothertable"></div>');
             $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
             $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
-            var table = $('<table></table>'); div.append(table);
+            var table = $('<table id="TExistencias"></table>'); div.append(table);
             var tbody = $('<tbody></tbody>'); table.append(tbody);
             $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
             $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
@@ -6844,11 +6878,73 @@
 
                 var td;
                 for (var key in item) {
-                    if (!(key == "text" || key == "id")) { td = $('<td ' + ((item[key] > 0) ? 'style = "font-weight:bold;"' : '') + '>' + item[key] + '</td>'); tr.append(td); }
+                    if (!(key == "text" || key == "id")) {
+                        if ((item[key] > 0)) {
+                            td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
+                        } else {
+                            if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
+                                var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');"
+                                td = $('<td>' + item[key] + ' <button type="button" class="btn btn-xs btn-primary" onclick="' + buscarAlmacenes + '">Ver mas existencias</button></td>'); tr.append(td);
+                            } else {
+                                td = $('<td>' + item[key] + '</td>'); tr.append(td);
+                            }
+                        }
+                    }
                 }
                 indexd += 1;
             });
         }
+        function CargaExistenciasSucursales(id,ps) {
+            $.ajax({
+                url: '/Ashx/SIGWeb.ashx?metodo=getpsalmacen&cveps=' + id,
+                type: 'get',
+                beforeSend: function () {
+                    console.log("procesando.....");
+                },
+                success: function (response) {
+                    var obj = JSON.parse(response);
+                    MostarTablaSucursales(obj, ps);
+                }
+            });
+        }
+        function MostarTablaSucursales(almacenes, ps) {
+            var div = $('<div class="select2anothertable"></div>');
+
+            var table = $('<table style="width: 401px;"></table>');
+            var tbody = $('<tbody></tbody>'); table.append(tbody);
+
+            //div.append(table);
+
+            var indexd = 0;
+            almacenes.forEach(function (item) {
+                if (indexd == 0) {
+                    var tr = $('<tr></tr>'); tbody.append(tr);
+                    var td1 = $('<th style="font-weight: bold; width: 347px; text-align: center;">Almacen</th>');
+                    var td2 = $('<th style="font-weight: bold; width: 181px; text-align: center;">Existencia</th>');
+                    tr.append(td1);
+                    tr.append(td2);
+                }
+
+                var tr = $('<tr style="text-align: left;"></tr>'); tbody.append(tr);
+
+                for (var key in item) {
+                    if (!(key == "almacen" || key == "id")) {
+                        var td1 = $('<td style="width: 347px;">' + item["almacen"] + '</td>'); tr.append(td1);
+                        var td2 = $('<td style="font-weight: bold; width: 181px; text-align: center;"' + ((item["existencia"] > 0) ? 'style = "font-weight:bold;"' : '') + '>' + item["existencia"] + '</td>'); tr.append(td2);
+                    }
+                }
+                indexd += 1;
+            });
+
+            if (almacenes.length > 0) {
+                TbExistenciasPS.innerHTML = table.html();
+                hPS.innerText = "Existencias: " + ps;
+                $("#DivModalExistencias").modal("show");
+            } else {
+                alert("No hay existencias en otros almacenes");
+            }
+
+        }
 
         function ADSReady() {
             //MakeSortable();

Ventas/Ventas.aspx.vb

@@ -17309,7 +17309,8 @@ Partial Class Ventas
     End Sub
 
     Private Sub LbCancelarDocumento_Click(sender As Object, e As EventArgs) Handles LbCancelarDocumento.Click
-        If VentaSaldoAlmacen > 0 Then
+
+        If VentaSaldoAlmacen <> 0 Then
             Alert("El pedido no se puede cancelar ya que tiene movimientos de almacén.<br/>Nota: Primero hay que hacer la devolución al almacén", TipoMensaje.MsgAdvertencia)
         Else
             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then