Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsClientes.vb

@@ -162,6 +162,9 @@ Public Class ClsClientes
     Public Property Nombres As String
     Public Property RequiereOC As Boolean
 
+    Public Property CargoUsados As Boolean
+    Public Property BonificacionUsado As Boolean
+
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -417,6 +420,8 @@ Public Class ClsClientes
                 _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString
                 _Nombres = Data(0)("Nombres").ToString
                 _RequiereOC = CBool(Data(0)("RequiereOC"))
+                _CargoUsados = CBool(Data(0)("CargoUsado"))
+                _BonificacionUsado = CBool(Data(0)("BonificacionUsado"))
 
             End If
             Retorno = True
@@ -563,7 +568,7 @@ Public Class ClsClientes
                                Optional ObservacionRevsion As String = "-1", Optional ReferenciaFiscal As String = "-1", Optional Celular As String = "-1", Optional ExtOtros As String = "-1", Optional CveUsoCFDI As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional DesglosaIEPS As Boolean = True,
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
-                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1) As Boolean
+                               Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -695,6 +700,8 @@ Public Class ClsClientes
             .Add("@LG", SqlDbType.VarChar).Value = LG
             .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
+            .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -740,7 +747,7 @@ Public Class ClsClientes
                                 Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
-                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1) As Boolean
+                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -888,6 +895,8 @@ Public Class ClsClientes
             .Add("@LG", SqlDbType.VarChar).Value = LG
             .Add("@EsDistribuidor", SqlDbType.Bit).Value = EsDistribuidor
             .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@CargoUsado", SqlDbType.Bit).Value = CargoUsado
+            .Add("@BonificacionUsado", SqlDbType.Bit).Value = BonificacionUsado
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsContabilidad.vb

@@ -5809,6 +5809,27 @@ Public Class ClsContabilidad
 #End Region
 
 
+#Region "OCDETALLE ALMACEN"
+
+    Public Function GetOCDetalleAlmacen(MaxDiferencia As Decimal, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_OCDetalleAlmacen")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@MaxDiferencia", SqlDbType.Money).Value = MaxDiferencia
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener  los datos de oc detalle almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+#End Region
+
 #Region "IDisposable Support"
     ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)

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/ClsPaginas.vb

@@ -4532,6 +4532,13 @@ Public Class ClsPaginas
             'Pyme 2017
             PaginaDict.Add("/PyME/Sistemas/RegistroEmpresa.aspx".ToUpper(), -1)
             PaginaDict.Add("/PyME/Sistemas/WizardRegistro.aspx".ToUpper(), -1)
+
+
+            PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1)
+
+
+
+
             'PaginaDict.Add("/Compras/Efacturas.aspx".ToUpper(), 2007)
             'PaginaDict.Add("/Compras/Compras.aspx".ToUpper(), 2008)
             'PaginaDict.Add("/Compras/Proveedores.aspx".ToUpper(), 2009) 

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);
             }
         }

Contabilidad/OCDetalleAlmacen.aspx

@@ -0,0 +1,53 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OCDetalleAlmacen.aspx.vb" Inherits="Contabilidad_OCDetalleAlmacen" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+    
+    <asp:UpdatePanel ID="UPCuerpo"  runat="server">
+        <ContentTemplate>
+            <asp:Button  id ="BtnProcesarRegistros" runat="server" Text="Procesar" CssClass="btn btn-primary" OnClick="BtnProcesarRegistros_Click" />
+
+            <br />
+            <br />
+
+
+             <asp:GridView ID="GvDAtos" runat="server" AutoGenerateColumns="false"
+                 DataKeyNames="Cargo,Abono,dif,CveMoneda,Fecha,Referencia,CveOrdenCompraDetalle,CveOrdenCompra,CveProveedor,CveCompra,Folio"  CssClass="table  table-hover table-advance "     >
+            <Columns>
+                <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="60px" HeaderText="">
+                    <ItemTemplate>
+                        <asp:CheckBox ID="Chk" runat="server" />
+                    </ItemTemplate>                    
+                </asp:TemplateField>
+
+                <asp:BoundField DataField="CvePrePoliza" HeaderText="CvePrePoliza"></asp:BoundField>     
+                <asp:BoundField DataField="Folio" HeaderText="Folio OC"></asp:BoundField>                              
+                <asp:BoundField DataField="CveOCDetalle" HeaderText="CveOCDetalle"></asp:BoundField>                
+                <asp:BoundField DataField="Cargo" HeaderText="Cargo"  DataFormatString="{0:C2}" ></asp:BoundField>                              
+                <asp:BoundField DataField="Abono" HeaderText="Abono"  DataFormatString="{0:C2}"></asp:BoundField>                              
+                <asp:BoundField DataField="Dif" HeaderText="Dif"  DataFormatString="{0:C2}" ></asp:BoundField>                              
+                <asp:BoundField DataField="CveCompra" HeaderText="CveCompra"></asp:BoundField>     
+                                         
+            </Columns>
+        </asp:GridView>
+        </ContentTemplate>    
+
+         
+
+
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

Contabilidad/OCDetalleAlmacen.aspx.vb

@@ -0,0 +1,163 @@
+
+Imports System.Data
+Imports Extensiones
+
+Partial Class Contabilidad_OCDetalleAlmacen
+    Inherits ClsPaginas
+
+
+    Property DTDatos As DataTable
+        Get
+            If ViewState("DTDatos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDatos"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+
+
+    Private Sub Contabilidad_OCDetalleAlmacen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+
+    End Sub
+
+    Private Sub CargaDatos()
+
+
+        Dim ObjConta As New ClsContabilidad
+
+
+
+        If ObjConta.GetOCDetalleAlmacen(1000D, UsuarioActual.CveEmpresa) Then
+
+            If ObjConta.DtResultados.Rows.Count > 0 Then
+                DTDatos = ObjConta.DtResultados
+                GvDAtos.DataSource = DTDatos
+                Alert($"Se encontraron  {ObjConta.DtResultados.Rows.Count} registros.")
+            Else
+                DTDatos = Nothing
+                Alert("Nos se encontraron  registros por proocesar ")
+                GvDAtos.DataSource = Nothing
+            End If
+        Else
+            DTDatos = Nothing
+            GvDAtos.DataSource = Nothing
+        End If
+
+        GvDAtos.DataBind()
+
+        ObjConta.Dispose()
+
+    End Sub
+
+
+    Protected Sub BtnProcesarRegistros_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjConta As New ClsContabilidad
+        ObjConta.IniciaTransacSQL()
+
+        Dim modulo As String = "OC Ajuste Manual"
+        Dim ErrorProcesamiento As Boolean = False
+        Dim mensaje As String = ""
+        Dim ContadorProcesados As Integer = 0
+
+        For Each GvDrow As GridViewRow In GvDAtos.Rows
+
+            Dim CvePrePoliza As Integer = 0
+            Dim Cargo As Decimal = GvDrow.DataKey("Cargo").ToString.ToDecimal
+            Dim Abono As Decimal = GvDrow.DataKey("Abono").ToString.ToDecimal
+            Dim Diferencia As Decimal = Math.Abs(GvDrow.DataKey("dif").ToString.ToDecimal)
+            Dim CveMoneda As Integer = GvDrow.DataKey("CveMoneda").ToString.ToEntero
+            Dim Fecha As Date = GvDrow.DataKey("Fecha").ToString.ToDate
+            Dim Referencia As String = GvDrow.DataKey("Referencia").ToString
+            Dim CveOCDetalle As Integer = GvDrow.DataKey("CveOrdenCompraDetalle").ToString.ToEntero
+            Dim CveOC As Integer = GvDrow.DataKey("CveOrdenCompra").ToString.ToEntero
+            Dim CveProveedor As Integer = GvDrow.DataKey("CveProveedor").ToString.ToEntero
+            Dim CveCompra As Integer = GvDrow.DataKey("CveCompra").ToString.ToEntero
+            Dim Folio As String = GvDrow.DataKey("Folio").ToString
+
+
+            Dim CveCuenta176 As Integer = 55169
+            Dim IdCtaCuenta176 As Integer = 1245
+
+            Dim CveCuenta177 As Integer = 55294
+            Dim IdCtaCuenta177 As Integer = 1148
+
+            Dim Chk As CheckBox = GvDrow.FCCheckBox("Chk")
+
+
+            If Chk IsNot Nothing AndAlso Chk.Checked Then
+                CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, modulo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                GvDrow.Cells(1).Text = CvePrePoliza.ToString
+                mensaje = mensaje & $"CvePrePoliza {CvePrePoliza  }  OC: {Folio}  Importe :{Diferencia} <br>"
+
+
+                If CvePrePoliza > 0 Then
+
+                    If Cargo > Abono Then
+                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+
+                            If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                                ContadorProcesados = ContadorProcesados + 1
+                            Else
+                                ErrorProcesamiento = True
+                                Exit For
+                            End If
+                        Else
+                            ErrorProcesamiento = True
+                            Exit For
+                        End If
+
+                    Else
+                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta176, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+
+                            If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=0, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                                ContadorProcesados = ContadorProcesados + 1
+                            Else
+                                ErrorProcesamiento = True
+                                Exit For
+                            End If
+                        Else
+                            ErrorProcesamiento = True
+                            Exit For
+                        End If
+
+                    End If
+
+                End If
+            End If
+
+
+        Next
+
+
+        DTDatos.AcceptChanges()
+
+        If Not ErrorProcesamiento Then
+
+            ObjConta.Commit()
+            'ObjConta.RollBack()            '
+            'BtnProcesarRegistros.Enabled = False
+            Alert($"PrePolizas agregadas correctamente <br> registros procesados: {ContadorProcesados}  <br> {mensaje}")
+        Else
+            ObjConta.RollBack()
+        End If
+
+        ObjConta.Dispose()
+
+
+        CargaDatos()
+
+    End Sub
+
+
+End Class

Contabilidad/RegPrePoliza.aspx.vb

@@ -158,6 +158,14 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("IndiceGrid") = value
         End Set
     End Property
+    Public Property IdPoliza As Integer
+        Get
+            Return CType(ViewState("IdPoliza"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IdPoliza") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -174,6 +182,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Observaciones = "-1"
             Beneficiario = "-1"
             Actualizar = False
+            IdPoliza = -1
 
             Dim dt As DataTable = Nothing
             '   If UsuarioActual.Empresa.UsaContabilidad Then
@@ -401,10 +410,15 @@ Partial Class ContabilidadC_RegPrePoliza
                     LnkComplementoPago.Visible = True
                 End If
 
+                IdPoliza = dr("IdPoliza").ToString.ToEntero
                 If dr("IdPoliza").ToString.ToEntero > 0 Then
                     HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                     divContabilziada.Visible = True
                     BtnEliminar.Visible = False
+                    If UsuarioActual.CveUsuario = 100 Then
+                        BtnContabilizar.Visible = True
+                        BtnContabilizar.Text = "Actualizar Poliza"
+                    End If
                 ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
                     'sino está contabilizada, se activa el botón
                     BtnContabilizar.Visible = True
@@ -1428,7 +1442,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then
             Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
         Else
 

General/SaldosIniciales.aspx.vb

@@ -761,6 +761,8 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
                     Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
                     Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False)
+                    Dim CargoUsado As Boolean = If(Row("CargoUsado").ToString = "si", True, False)
+                    Dim BonificacionUsado As Boolean = If(Row("BonificacionUsado").ToString = "si", True, False)
 
                     If CveCliente > 0 Then
                         ExisteCliente = True
@@ -773,7 +775,7 @@ Partial Class General_SaldosIniciales
                         'End If
                     Else
                         If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, -1, -1,
-                                   "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación) Then
+                                   "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado, BonificacionUsado:=BonificacionUsado) Then
                             ErrorClientes = True
                             RFC.GuardaLog
                             Exit For

Inventarios/EntradasSalidas.aspx.vb

@@ -3557,7 +3557,8 @@ Partial Class Inventarios_EntradasSalidas
         If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
             Dim FolioEntrada As Integer = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
             CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenInventarioFisico.SelectedValue.ToEntero, 2, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
-
+        Else
+            CveMovimientoEntrada = -1
         End If
 
         'MOVIMIENTO DE SALIDA

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/PaquetesArmadoDesarmado.aspx.vb

@@ -896,7 +896,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             'VERIFICA EXISTENCIAS
             Dim Existencia = 0.0D
             If TipoMovimiento = 1 Then
-                Existencia = ObjInventarios.GetExistenciasPS(CvePSSerieLote, CveUMSerieLote, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=TxtFechaArmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=Serie)
+                Existencia = ObjInventarios.GetExistenciasPS(CvePSSerieLote, CveUMSerieLote, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=TxtFechaArmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=Serie, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente))
             Else
                 Existencia = If(DtExistenciasDesarmado Is Nothing, 0, DtExistenciasDesarmado.FiltraParametros($"CvePS={CvePSSerieLote} AND SeriePS='{Serie}'").Rows.Count.ToString.ToDecimal)
             End If

Inventarios/RecepcionEntrega.aspx.vb

@@ -1906,7 +1906,7 @@ Partial Class Inventarios_RecepcionEntrega
 
             'CANCELACION DE DEVOLUCION
             If TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1 Then
-                ConceptoMovimiento = 2
+                ConceptoMovimiento = 3
                 Almacen1 = DdlAlmacen.SelectedValue.ToEntero
                 CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero
             End If
@@ -2042,6 +2042,16 @@ Partial Class Inventarios_RecepcionEntrega
                             Dim TotalCostoAcumulado As Decimal = 0
                             Dim cont As Integer = 1
 
+                            Dim ValorMultiplicador = 1
+
+                            If TipoMovimiento = 1 Then
+                                ValorMultiplicador = 1
+                            ElseIf TipoMovimiento = 2 Then
+                                TipoMovimiento = -1
+                            ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
+                                ValorMultiplicador = 1
+                            End If
+
                             Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             'Se agrega movimiento separado por la cuenta de ventas (ER)
                             For Each RowInv As DataRow In tmpCostos.Rows
@@ -2058,7 +2068,7 @@ Partial Class Inventarios_RecepcionEntrega
                                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
 
                                 If Not ErrorMovInv Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, If(TipoMovimiento = 1, 1, -1) * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=If(TipoMovimiento = 1, 1, -1) * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorMultiplicador * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
                                         ErrorMovInv = True
                                     End If
                                 End If
@@ -2066,7 +2076,7 @@ Partial Class Inventarios_RecepcionEntrega
                                 cont += 1
                             Next
 
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, If(TipoMovimiento = 1, 1, -1) * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=If(TipoMovimiento = 1, 1, -1) * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorMultiplicador * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVentaSurtir, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=CveSubProyecto, ImporteMX:=ValorMultiplicador * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
                                 ErrorMovInv = True
                             End If
 

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

OS/CatEstatusOrdenServicio.aspx

@@ -298,7 +298,9 @@
                                 </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
-                        <asp:Button ID="btnGuardarEstatusUsuariosREQ" Text="Guardar" runat="server" Visible="true" CssClass="btn btn-primary" />
+                        <div style="width:100%;text-align:center">
+                            <asp:Button ID="btnGuardarEstatusUsuariosREQ" Text="Guardar" runat="server" Visible="true" CssClass="btn btn-primary" />
+                        </div>
                     </ContentTemplate>
                 </asp:UpdatePanel>
 
@@ -328,9 +330,10 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlTipoEstatus" runat="server" CssClass="form-control select2me js-Impuesto-programmatic" Width="100%">
                                         <asp:ListItem Value="1" Text="Inicial"></asp:ListItem>
-                                        <asp:ListItem Value="2" Text="Proceso"></asp:ListItem>
+                                        <asp:ListItem Value="2" Text="Asignación"></asp:ListItem>
-                                        <asp:ListItem Value="3" Text="Terminada"></asp:ListItem>
+                                        <asp:ListItem Value="3" Text="Proceso"></asp:ListItem>
-                                        <asp:ListItem Value="4" Text="Cancelada"></asp:ListItem>
+                                        <asp:ListItem Value="4" Text="Terminada"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Cancelada"></asp:ListItem>
                                     </asp:DropDownList>
                                     <label for="<%= DdlTipoEstatus.ClientID.ToString()%>">Tipo Estatus:</label>
                                 </div>

Sistemas/UsuarioDetalle.aspx.vb

@@ -2829,7 +2829,7 @@ Partial Class Sistemas_UsuarioDetalle
                 If CveEstatus > 0 Then
                     If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
                         'Eliminar el registro existente
-                        If Not ObjOS.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
+                        If Not ObjOS.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, -1) Then
                             HuboErrores = True
                             Exit For
                         End If

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

@@ -584,7 +584,14 @@
                                             </asp:DropDownList>
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
-
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label>Cargo Usado:</label>
+                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label>Bonificación Usado:</label>
+                                            <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>
@@ -5492,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>
@@ -5504,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 />
@@ -5515,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">
@@ -5554,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="">
@@ -5569,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>
@@ -5607,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;">
@@ -5737,7 +5784,6 @@
         </div>
     </div>
     <%-- FIN MODAL MODIFICAR PRECIOS PS --%>
-
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Ventas/Clientes.aspx.vb

@@ -400,6 +400,44 @@ Partial Class Clientes
             ViewState("DtPagos") = value
         End Set
     End Property
+    'Private Property EstatusAnteriorCliente As Boolean
+    '    Get
+    '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
+    '            Return True
+    '        Else
+    '            Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString)
+    '        End If
+    '    End Get
+    '    Set(value As Boolean)
+    '        ViewState("EstatusAnteriorCliente") = value
+    '    End Set
+    'End Property
+
+    Private Property CargoUsado As Boolean
+        Get
+            If ViewState("CargoUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("CargoUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("CargoUsado") = value
+        End Set
+    End Property
+
+    Private Property BonificacionUsado As Boolean
+        Get
+            If ViewState("BonificacionUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("BonificacionUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("BonificacionUsado") = value
+        End Set
+    End Property
 #End Region
 
 #Region "Documentacion"
@@ -1372,7 +1410,8 @@ Partial Class Clientes
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
                 DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString)
-
+                ChkCargoUsado.Checked = ObjClientes.CargoUsados
+                ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
                 'COMERCIO EXTERIOR
                 ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
                 DdlTipoOperacion.SelectedValueExist(ObjClientes.CveTipoOperacion)
@@ -8157,6 +8196,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 +8235,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 +8249,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 +8300,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 +8322,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 +8339,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 +8546,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%;
@@ -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>
@@ -967,7 +981,8 @@
                                                 <th id="thEncIVA2" runat="server" visible="true"></th>
                                                 <th id="thEncIEPS2" runat="server" visible="false"></th>
                                                 <th id="thPoliza2" runat="server" visible="false">
-                                                    <asp:CheckBox ID="ChkPoliza" runat="server" /></th>
+                                                    <%--<asp:CheckBox ID="ChkPoliza" runat="server" />--%>
+                                                </th>
                                                 <th align="right">
                                                     <asp:Label ID="LblTotalPS" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></th>
                                                 <th align="center" colspan="3">
@@ -1421,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>
@@ -5286,7 +5301,7 @@
 
                                 <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%" />
 
@@ -5299,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>
 
@@ -6008,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>
@@ -6826,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);
@@ -6843,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

@@ -13733,7 +13733,7 @@ Partial Class Ventas
 
 
         'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso ChkPoliza.Checked AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
             For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                 Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
                 Dim DrPoliza As DataRow = TmpDT.NewRow()
@@ -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
@@ -21315,7 +21316,7 @@ Partial Class Ventas
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,
                                         Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal,
                                         Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString,
-                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero)
+                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True)
             Next
             CalculaTotalesVenta()
             Return True