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

2025-06-23 19:05:44 -06:00
parent a7a296a28b d83fbf730c
commit 995363f9d6
41 changed files with 4241 additions and 3132 deletions
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -3267,13 +3267,18 @@ Public Class ClsBancos

    '    Return Retorno
    'End Function
-    Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer) As Boolean
+    Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer, Optional Opcion As Integer = 1, Optional FechaEliminacion As Date = MinFecha) As Boolean
+
+        'Opcion 1: Bancomer, Opcion  2: Bajio, Opcion 3: Scotia
+
        Dim Retorno As Boolean = False

        DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate")

        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@FechaEliminacion", SqlDbType.Date).Value = FechaEliminacion
        End With

        Try
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3431,7 +3431,7 @@ Public Class ClsVentas

        Return Retorno
    End Function
-    Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
+    Public Function GetReporteVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, CveProveedorCompra As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_VentasUtilidadGet")

@@ -3447,6 +3447,7 @@ Public Class ClsVentas
            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
        End With

        Try
@@ -3461,7 +3462,7 @@ Public Class ClsVentas

        Return Retorno
    End Function
-    Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer) As Boolean
+    Public Function GetReporteVentasUtilidadDetalle(CveVendedor As String, CveVenta As Integer, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, CveProveedorCompra As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_VentasUtilidadDetalleGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -3477,6 +3478,7 @@ Public Class ClsVentas
            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
        End With

        Try
@@ -3495,7 +3497,7 @@ Public Class ClsVentas
        Return Retorno
    End Function
    Public Function GetReportePadreVentasUtilidad(CveVendedor As String, CveCliente As Integer, CveSubProyecto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Gpo As Integer,
-                                                  CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, EsFilial As Integer) As Boolean
+                                                  CvePS As Integer, CveCategoria As Integer, CveClasificacion As Integer, CveMarca As Integer, EsGarantia As Integer, EsFilial As Integer, CveProveedorCompra As Integer) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_RepVentasUtilidadGet")

@@ -3513,6 +3515,7 @@ Public Class ClsVentas
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
            .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
        End With
        Try
            SqlAdapter.SelectCommand.CommandTimeout = 0
--- a/Ashx/CargaEventos.ashx
+++ b/Ashx/CargaEventos.ashx
@@ -60,15 +60,20 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                        Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal()
                        Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1)
                        Dim CveEstatus As Integer = -1
-                        Dim ObjOS As New ClsOS
-
+                        Dim ObjOS As New ClsOS
+
+                        If CveVendedor > 0 AndAlso CveUsuarioPara = -1 Then
+                            Dim tcveu As Integer = ClsPaginas.GlobalDTUsuarios(-1, CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {CveVendedor}").ToEntero
+                            CveUsuarioPara = tcveu
+                        End If
+
                        If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, CveVendedor, CveEstatus, CveUsuarioPara, -1, CveEmpresa,
                                                                    CveMedico:=-1, CveProcedimiento:=-1, CveEspecialidad:=-1,
                                                                    CveClienteSucursal:=CveClienteSucursal, CveUsuario:=CveUsuario) Then

                            If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
                                events = New List(Of CalendarEvent)
-                                For Each dr As DataRow In ObjOS.DtResultados.Rows
+                                For Each dr As DataRow In ObjOS.DtResultados.FiltraParametros("CveOS > 0").Rows
                                    Dim cevent As CalendarEvent = New CalendarEvent()
                                    cevent.id = dr("CveOS").ToString.ToEntero
                                    cevent.title = $"  {dr("Tecnico")}-{dr("NombreCliente")}"
--- a/Ashx/E140.ashx
+++ b/Ashx/E140.ashx
@@ -178,7 +178,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
        Dim TieneError As Boolean = False
        Dim CveSubProyecto As String = "11790"
        Dim JsonRequest As JObject = Nothing
-
+        Dim Bitac As New StringBuilder
        If context.Request.InputStream IsNot Nothing Then
            Using reader As New StreamReader(context.Request.InputStream)
                Dim json = reader.ReadToEnd
@@ -190,7 +190,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                End If
            End Using
        End If
-
+        Bitac.AppendLine("Inicio Pago ")
        Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
        Dim data As New JArray
        Dim dtt As New DataTable
@@ -204,7 +204,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
        Dim pCveVenta As Integer = JsonRequest("cveventa").ToString.ToEntero
        Dim Referencia As String = ""
        'validaciones
-
+        Bitac.AppendLine("Validaciones Pago 1.0")
        Dim ObjVenta As New ClsVentas()
        Dim ObjClientes As New ClsClientes
        If ObjVenta.GetVenta(pCveVenta, CveEmpresa) Then
@@ -228,6 +228,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                VentaRemision.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
                VentaRemision.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero

+                Bitac.AppendLine("Crear Nueva 1.0")
                Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, VentaRemision.CveSubProyecto, VentaRemision.CveCliente, VentaRemision.CveMoneda, "Ing")
                ObjFactura.CveMoneda = VentaRemision.CveMoneda
                ObjFactura.CveVendedor = dr("CveVendedor").ToString.ToEntero
@@ -258,15 +259,15 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState

                If CvePrePoliza > 0 Then
                    'registro de venta y pago
-
+                    Bitac.AppendLine("Emitir 1.0")
                    Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
-                    Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta", MostrarURL:=True)
+                    Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Kiosko140/GuardarVenta", MostrarURL:=True)
                    Retorno.Factura = ObjFactura

                    If Retorno IsNot Nothing AndAlso Retorno.CveVenta > 0 Then
                        VentaRemision.CveVenta = ObjFactura.CveVenta
                        'Respuesta.data = Retorno.SerieFolio
-
+                        Bitac.AppendLine("Venta Registada")
                        If TieneError Then
                            Dim sb As New StringBuilder()
                            For Each msg As String In Retorno.Mensajes
@@ -274,6 +275,7 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                            Next
                            RespuestaError.message = sb.ToString()
                        End If
+                        Bitac.AppendLine("Inicia  Registro IE")
                        '11- tdd, 12-tdc
                        Dim CveIE As Integer = ObjIE.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, FechaPago, "-1", "", ImportePago, VentaRemision.CveMoneda,
                            VentaRemision.TC, "", "", False, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -288,20 +290,25 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                            Pago.ImportePago = ImportePago
                            Pago.ImportePagoVenta = ImportePago
                            Pago.Referencia = Referencia
-
+                            Bitac.AppendLine("IE Registrado")
                            If MsgError = "" AndAlso ClsPaginas.AplicaPrePolizaPagoVenta(VentaRemision, Pago, CvePrePoliza, ObjConta) Then
                                MsgError = "No se pudo insertar la póliza"
                            End If
                        Else
                            MsgError = "No se pudo insertar el pago"
+                            Bitac.AppendLine("IE NO Registrado")
                        End If
                    Else
                        TieneError = True
                        MsgError = "Falta información para completar la venta."
+                        Bitac.AppendLine("Venta NO Registrado - ")
+                        Bitac.AppendLine(Retorno.Mensajes(0))
                    End If
                End If
+                Bitac.AppendLine("Registrados")
+
                If Not TieneError Then
-                    Dim bytesPDF As Byte() = DescargarFactura(ObjFactura.SerieFolio, CveEmpresa, ObjFactura.CveVenta) 'ClsPaginas.PdfFactura(ObjFactura, AplicaPagare:="0", Guardar:=True, RegenerarQR:=True, EsTicket:=False)
+                    Dim bytesPDF As Byte() = Nothing ' DescargarFactura(ObjFactura.SerieFolio, CveEmpresa, ObjFactura.CveVenta) 'ClsPaginas.PdfFactura(ObjFactura, AplicaPagare:="0", Guardar:=True, RegenerarQR:=True, EsTicket:=False)

                    'generar el pdf y mandarlo
                    Dim objretorno As New JObject(
@@ -313,12 +320,15 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
                    Respuesta.data = data
                    ObjConta.RollBack()
                    'ObjConta.Commit()
+                    Bitac.AppendLine("Completado.")
                Else
                    ObjConta.RollBack()
+                    Bitac.AppendLine("NO Completado.")
                End If
                ObjConta.Dispose()
                ObjIE.Dispose()
            End If
+            Bitac.ToString.GuardaLog
        End If
        ObjVenta.Dispose()
        ObjClientes.Dispose()
--- a/Bancos/PagoElectronico.aspx
+++ b/Bancos/PagoElectronico.aspx
@@ -105,11 +105,17 @@
                                                                <td>
                                                                    <asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td>
                                                            </tr>
-                                                            <tr>
+                                                            <tr runat="server" id="TRNumBancomer" visible="true">
                                                                <td>Bancomer:</td>
                                                                <td>
                                                                    <asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td>
                                                            </tr>
+
+                                                            <tr runat="server" id="TRNumScotia" visible="false">
+                                                                <td>Scotia Bank:</td>
+                                                                <td>
+                                                                    <asp:Label runat="server" ID="LbNumeroScotia" Width="80px"></asp:Label></td>
+                                                            </tr>
                                                            <tr>
                                                                <td colspan="2" align="center">
                                                                    <asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" />
@@ -157,7 +163,7 @@
                                                        </table>
                                                    </div>
                                                </div>
-                                            </div>
+                                            </div>      

                                        </div>

@@ -619,6 +625,71 @@
        </tr>
    </table>

+
+      <div id="ModalDescarga" class="modal ADS fade" role="dialog">        
+        <div class="modal-dialog">            
+
+                <div class="modal-content">
+                    
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlModalTituloDescarga" runat="server">Descarga Layout</asp:Literal></h4>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+
+                    <div class="modal-body">
+
+                        <asp:UpdatePanel runat="server" ID="UpModalDescarga" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <div class="row">
+                                    
+                                    <div class="col-md-12" runat="server" id="DVDescargaPagos" visible=" false" >
+                                        <p> Pagos Descarga <asp:LinkButton runat="server" ID="LnkDescarga" OnClick="LnkDescarga_Click" CssClass="Texto"></asp:LinkButton> </p>
+                                    </div>
+                                    
+                                    <div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
+                                        <p><asp:Label runat="server" ID="LblCuentas" Text="Cuentas Bancomer"></asp:Label> <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
+                                    </div>
+
+                                    <%--<div class="col-md-12" runat="server"  id="DVDescargaCuentas2" visible=" false">
+                                        <p> Cuentas Interbancarias <asp:LinkButton runat="server" ID="LnkDescargaCuentas2" OnClick="LnkDescargaCuentas2_Click" CssClass="Texto"></asp:LinkButton> </p>
+                                    </div>
+                                    <div class="col-md-12" runat="server"  id="DVDescargaCuentas3" visible=" false">
+                                        <p> Cuentas Convennios CIE <asp:LinkButton runat="server" ID="LnkDescargaCuentas3" OnClick="LnkDescargaCuentas3_Click" CssClass="Texto"></asp:LinkButton> </p>
+                                    </div>
+                                        --%>
+
+                                     <div class="col-md-12" runat="server"  id="DVDescargaReporte" visible=" false">
+                                        <p> <asp:LinkButton runat="server" ID="LnkDescargaReporte" OnClick="LnkDescargaReporte_Click" CssClass="Texto" Text="Descargar Reporte"></asp:LinkButton> </p>
+                                    </div>
+
+                                </div>
+                            </ContentTemplate>
+                            <Triggers>
+                                <asp:PostBackTrigger ControlID="LnkDescarga" />
+                                <asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
+                              <%--  <asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
+                                <asp:PostBackTrigger ControlID="LnkDescargaCuentas3" />--%>
+                                <asp:PostBackTrigger ControlID="LnkDescargaReporte" />                                    
+                            </Triggers>
+                        </asp:UpdatePanel>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>                                    
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>                
+    </div>
+</div>
+
    <asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" />
    <asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" />
    <asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -379,12 +379,8 @@ Partial Class Bancos_PagoElectronicoGrupos
            DTPendientes = Nothing
        End If

-
-
        ObjBancos.Dispose()

-
-
        If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
            CargaDatosInformativos()
        Else
@@ -436,18 +432,20 @@ Partial Class Bancos_PagoElectronicoGrupos
                '–– Determina si la cuenta ya está **habilitada** para el banco elegido en la pantalla ––'
                Dim habilitada As Boolean
                Select Case True
-                    Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") _
-                 OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")
+                    Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")
+
                        habilitada = (dr("EstatusPagoElectronicoGrupos").ToString = "True")

                    Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO")
+
                        habilitada = (dr("EstatusPagoElectronicoGruposBajio").ToString = "True")

                    Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA")
+
                        habilitada = (dr("EstatusPagoElectronicoGruposScotia").ToString = "True")

                    Case Else
-                        habilitada = False   'Otros bancos → sin bandera propia
+                        habilitada = False   'Otros bancos sin bandera propia
                End Select

                If Not habilitada Then
@@ -468,6 +466,9 @@ Partial Class Bancos_PagoElectronicoGrupos
                        Case Else
                            Interbancarias += 1
                    End Select
+                Else
+                    Movimientos += 1
+                    Importe += dr("Abonado").ToString.ToDecimal
                End If

                ' 3. MOVIMIENTOS de cuentas ya existentes
@@ -606,11 +607,11 @@ Partial Class Bancos_PagoElectronicoGrupos
    Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean


-        System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para doferentes tipos de bancos
+        System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para dIferentes tipos de bancos

        DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))

-        NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
+        'NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))

        If Tipo = 1 Then
            NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
@@ -865,7 +866,7 @@ Partial Class Bancos_PagoElectronicoGrupos
        ElseIf OpBancos = 2 Then
            AltaProveedoresBajio()
        ElseIf OpBancos = 3 Then
-            'AltaProveedoresScotia()
+            'AltaProveedoresScotia() SE DEJA COMENTADO PORQUE NO SE ESTA USANDO, SE CAMBIO A PAGO ELECTRONICO
        End If


@@ -1348,86 +1349,88 @@ Partial Class Bancos_PagoElectronicoGrupos



-    'Protected Sub CrearDetalle()
-    '    Dim Resultado = True
-    '    Dim CuentaDeposito As String = ""
-    '    Dim TipoCuentaDeposito As String = ""
-    '    Dim TipoCuenta As String = ""
-
-    '    ''''' LLENADO DE DETALLE
-    '    'Campos #1-4 del Detalle
-    '    DetalleTexto &= String.Format("DA{0}N    ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros))
-
-    '    'Banco BBVA
-    '    If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
-    '        'Llenamos datos de BBVA
-    '        'Campo #5-7 del detalle
-
-    '        'Busca que cuenta sera la asignada para el proveedor
-    '        If DTPendienteActual(0)("CIE").ToString <> "" Then
-    '            CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros))
-    '            TipoCuenta = "50"
-    '            TipoCuentaDeposito = "CIE"
-    '        ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then
-    '            CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString
-    '            TipoCuenta = "99"
-    '            TipoCuentaDeposito = "Cuenta"
-    '        ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then
-    '            CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
-    '            TipoCuenta = "40"
-    '            TipoCuentaDeposito = "CLABE"
-    '        End If
-
-
-    '        DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
-
-    '        'Llenamos en blanco datos de otros bancos
-    '        'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
-    '        DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS()().ToString("yyyy-MM-dd"))
-
-
-    '        'Otros Bancos NACIONAL!!
-    '    Else
-
-    '        CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
-    '        TipoCuentaDeposito = "CLABE"
-
-    '        'Llenamos en blanco datos de BBVA
-    '        DetalleTexto &= Vacio.PadRight(40)
-
-    '        'Llenamos datos de otros bancos
-    '        'Campos 8- 17 del detalle --- 44 de otros bancos ---  20 de internacional --- 45 Filler -- Fecha de Alta
-    '        DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS()().ToString("yyyy-MM-dd"))
-    '    End If
-
-    '    'Llenamos datos de Tipo de Persona - Fisica o Moral
-    '    TipoPersona()
-
-    '    'Campos 27-32 --- Fillers --- datos de otros bancos (internacional)
-    '    DetalleTexto &= Vacio.PadLeft(153)
-
-    '    'Campos 33-36 --- Datos de confirmacion
-    '    DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
-
-    '    'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then
-    '    '    'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
-    '    'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then
-    '    '    DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50))
-    '    'End If
-
-    '    'Campos 37-39 -- FILLER
-    '    DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
-
-
-    '    ''LLENA DT PARA REPORTE
-    '    Dim Row = DtAlta.NewRow()
-    '    Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
-    '    Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
-    '    Row("TipoCuenta") = TipoCuentaDeposito
-    '    Row("Cuenta") = String.Format("{0}", CuentaDeposito)
-    '    DtAlta.Rows.Add(Row)
-    'End Sub
-
+
+
+    'Protected Sub CrearDetalle()
+    '    Dim Resultado = True
+    '    Dim CuentaDeposito As String = ""
+    '    Dim TipoCuentaDeposito As String = ""
+    '    Dim TipoCuenta As String = ""
+
+    '    ''''' LLENADO DE DETALLE
+    '    'Campos #1-4 del Detalle
+    '    DetalleTexto &= String.Format("DA{0}N    ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros))
+
+    '    'Banco BBVA
+    '    If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
+    '        'Llenamos datos de BBVA
+    '        'Campo #5-7 del detalle
+
+    '        'Busca que cuenta sera la asignada para el proveedor
+    '        If DTPendienteActual(0)("CIE").ToString <> "" Then
+    '            CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros))
+    '            TipoCuenta = "50"
+    '            TipoCuentaDeposito = "CIE"
+    '        ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then
+    '            CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString
+    '            TipoCuenta = "99"
+    '            TipoCuentaDeposito = "Cuenta"
+    '        ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then
+    '            CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
+    '            TipoCuenta = "40"
+    '            TipoCuentaDeposito = "CLABE"
+    '        End If
+
+
+    '        DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
+
+    '        'Llenamos en blanco datos de otros bancos
+    '        'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
+    '        DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS()().ToString("yyyy-MM-dd"))
+
+
+    '        'Otros Bancos NACIONAL!!
+    '    Else
+
+    '        CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
+    '        TipoCuentaDeposito = "CLABE"
+
+    '        'Llenamos en blanco datos de BBVA
+    '        DetalleTexto &= Vacio.PadRight(40)
+
+    '        'Llenamos datos de otros bancos
+    '        'Campos 8- 17 del detalle --- 44 de otros bancos ---  20 de internacional --- 45 Filler -- Fecha de Alta
+    '        DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS()().ToString("yyyy-MM-dd"))
+    '    End If
+
+    '    'Llenamos datos de Tipo de Persona - Fisica o Moral
+    '    TipoPersona()
+
+    '    'Campos 27-32 --- Fillers --- datos de otros bancos (internacional)
+    '    DetalleTexto &= Vacio.PadLeft(153)
+
+    '    'Campos 33-36 --- Datos de confirmacion
+    '    DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
+
+    '    'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then
+    '    '    'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
+    '    'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then
+    '    '    DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50))
+    '    'End If
+
+    '    'Campos 37-39 -- FILLER
+    '    DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
+
+
+    '    ''LLENA DT PARA REPORTE
+    '    Dim Row = DtAlta.NewRow()
+    '    Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
+    '    Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
+    '    Row("TipoCuenta") = TipoCuentaDeposito
+    '    Row("Cuenta") = String.Format("{0}", CuentaDeposito)
+    '    DtAlta.Rows.Add(Row)
+    'End Sub
+
    Protected Sub TipoPersona()
        'Persona Moral
        If DTPendienteActual(0)("RFC").ToString.Length = 12 Then
@@ -1980,16 +1983,16 @@ Partial Class Bancos_PagoElectronicoGrupos
                If drow("Observaciones").ToString.Trim.Length = 0 Then

                    If drow("RazonSocial").ToString.Trim.Length > 30 Then
-                        RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30))
+                        RegistrosPago.Append(drow("RazonSocial").ToString.trim.Substring(0, 30))
                    Else
                        RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
                    End If
                Else

                    If drow("Observaciones").ToString.Trim.Length > 30 Then
-                        RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30))
+                        RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30))
                    Else
-                        RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno))
+                        RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno))
                    End If

                End If
@@ -3404,6 +3407,12 @@ Partial Class Bancos_PagoElectronicoGrupos

        Dim FileName As String = NombreArchivo
        Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivo}"
+
+        If NombreArchivo.Length = 0 Then
+            FileName = LnkDescarga.Text
+            FilePath = $"{UsuarioActual.Empresa.Ruta}Layout\{ LnkDescarga.Text}"
+        End If
+
        Response.Clear()
        Response.ContentType = "application/octet-stream"
        Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
--- a/Bancos/RepIngresosPorComprobar.aspx
+++ b/Bancos/RepIngresosPorComprobar.aspx
@@ -282,7 +282,7 @@
                        <div class="row">
                            <div class="col-md-2" style="text-align: left">Fecha:</div>
                            <div class="col-md-2">
-                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
                                    <asp:TextBox ID="TxtFecha" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
                                    <span class="input-group-btn ">
                                        <asp:LinkButton ID="LnkCortfecha" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -294,11 +294,19 @@
                                </div>
                            </div>
                        </div>
-                        <div class="row"> 
-                             <div class="col-md-2" style="text-align: left">SubProyecto:</div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-2" style="text-align: left">SubProyecto:</div>
                            <div class="col-md-4">
-                                     <asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                        </asp:DropDownList>                                                                     
+                                <asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-2" style="text-align: left">Observaciones:</div>
+                            <div class="col-md-10">
+                                <asp:TextBox ID="TxtObservaciones" Text="" Rows="3" TextMode="MultiLine" CssClass="Widthall form-control input-sm" runat="server" />
                            </div>
                        </div>
                    </div>
--- a/Bancos/RepIngresosPorComprobar.aspx.vb
+++ b/Bancos/RepIngresosPorComprobar.aspx.vb
@@ -267,6 +267,7 @@ Partial Class Bancos_RepIngresosPorComprobar
    End Sub

    Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+        TxtObservaciones.Text = ""
        RegistraScript("$('#DivModalSaldar').modal();")
    End Sub

@@ -277,16 +278,20 @@ Partial Class Bancos_RepIngresosPorComprobar
        ObjConta.IniciaTransacSQL()
        Dim CvePrePoliza As Integer = 0
        Dim MsgError As String = ""
-        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+        Dim Obs As String = TxtObservaciones.Text.Trim()
+
+        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+        Dim FolioPoliza As Integer = ObjConta.FolioPoliza

        For Each gr As GridViewRow In GvIPC.Rows
            If gr.FCCheckBox("Chk").Checked Then
-
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
                    MsgError = "Ocurrio un error al saldar el movimiento"
                End If

-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
                    MsgError = "Ocurrio un error al saldar el movimiento"
                End If
            End If
@@ -296,7 +301,7 @@ Partial Class Bancos_RepIngresosPorComprobar
            ObjConta.Commit()
            CargaDatos()

-            Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjConta.ContaFolio))
+            Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, FolioPoliza))
        Else
            ObjConta.RollBack()
            Alert(MsgError, TipoMensaje.MsgError)
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9164,9 +9164,12 @@ Partial Class Compras_Compras
                        Next

                        'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
-                        If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
-                            Retorno = False
+                        If Not ComparaDatatables(False) Then
+                            If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
+                                Retorno = False
+                            End If
                        End If
+
                        'End If


@@ -9972,26 +9975,32 @@ Partial Class Compras_Compras

    End Sub

-    Private Function ComparaDatatables() As Boolean
+    Private Function ComparaDatatables(Optional ValidaNoDeducible As Boolean = True) As Boolean
        Dim NumRow As Integer = 0
        For Each row1 As DataRow In TmpDT.Rows
            Dim NumRow2 As Integer = 0

            For Each row2 As DataRow In TmpDTOriginal.Rows

+
+                'Dim test As Boolean = (row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible)
+                'Dim test2 As Boolean = (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0)
+
+                Dim TipoCompra As Integer = If(DdlTipoCompra.SelectedValue.ToEntero > 0, DdlTipoCompra.SelectedValue.ToEntero, 0)
+
                If NumRow2 = NumRow Then
                    If (row1("CveSubProyecto").ToString.ToEntero <> row2("CveSubProyecto").ToString.ToEntero) Or
                    (row1("CveClasificacion").ToString.ToEntero <> row2("CveClasificacion").ToString.ToEntero) Or
                    (row1("CveTipoGasto").ToString.ToEntero <> row2("CveTipoGasto").ToString.ToEntero) Or
                    (row1("Total").ToString.ToDouble <> row2("Total").ToString.ToDouble) Or
-                    (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or
+                    (row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible) Or
                    (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
                    (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
                    (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
                    (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
                    (row1("Obs").ToString <> row2("Obs").ToString) Or
-                    (row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
-                    (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
+                    (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
+                    (TipoCompra <> TipoCompraOriginal) Then
                        Return False
                    End If
                End If
@@ -17681,9 +17690,9 @@ Partial Class Compras_Compras
        Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
        If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles

-        'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
-        '    InicializaAplicaNCFact()
-        'End If
+        If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 And CveCompra <= 0 Then
+            InicializaAplicaNCFact()
+        End If

    End Sub
    Private Sub OriginalesVisible(Accion As Boolean)
--- a/Compras/ReembolsosComprobaciones.aspx
+++ b/Compras/ReembolsosComprobaciones.aspx
@@ -262,12 +262,18 @@

                                          <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
                                          <ContentTemplate>
-                                              <div class="row" id="trCuentaDeposito" runat="server" visible="False">
+                                              <div class="row" id="trCuentaDeposito" runat="server" visible="false">
                                                  <label class="col-md-2 control-label">Cuenta Depósito: </label>
                                                  <div class="col-md-10">
                                                      <asp:DropDownList ID="DdlCuentaDeposito" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
-                                                      <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                      <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                                      <div runat="server" id="DVValidacionesCuentaDeposito" visible="false">
+                                                          <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                           <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                      </div>
+                                                      
+                                                      
+
                                                      <%--<asp:ImageButton ID="ImgUpdateCuentaDeposito" ImageUrl="/Imagenes/accept.png" OnClick="ImgUpdateCuentaDeposito_Click" ValidationGroup="GrpGuardar" runat="server" />--%>
                                                  </div>
                                              </div>
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -349,43 +349,52 @@ Partial Class Compras_ReembolsosComprobaciones
        DdlCuentaDeposito.SelectedValue = Nothing
        DdlCuentaDeposito.Items.Clear()

-        trCuentaDeposito.Visible = False
-        DdlCuentaDeposito.Enabled = False
+        DVValidacionesCuentaDeposito.Visible = False
+        'trCuentaDeposito.Visible = False
+        'DdlCuentaDeposito.Enabled = False


        Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero

-        If CvePersonal > 0 Then
+        If CvePersonal > 0 And DdlTipoPago.SelectedValue.ToEntero = 1 Then

-            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+            'If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then

-                trCuentaDeposito.Visible = True
-                DdlCuentaDeposito.Enabled = True
+            trCuentaDeposito.Visible = True
+            DdlCuentaDeposito.Enabled = True

-                Dim Dep As New ClsGenerales
-                If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            Dim Dep As New ClsGenerales
+            If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then

-                    If DdlTipoTransaccion.SelectedValue = "9" Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
-                    Else
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
-                    End If
-
-
-                    If Dep.DtResultados.Rows.Count > 0 Then
-
-                        trCuentaDeposito.Visible = True
-                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-
-                    End If
+                If DdlTipoTransaccion.SelectedValue = "9" Then
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
+                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
+                Else
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados
                End If

-                Dep.Dispose()
-                DdlCuentaDeposito.DataBind()
-
+                'If Dep.DtResultados.Rows.Count > 0 Then
+                trCuentaDeposito.Visible = True
+                DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+                'End If

            End If

+            Dep.Dispose()
+            DdlCuentaDeposito.DataBind()
+
+
+            'End If
+        Else
+            trCuentaDeposito.Visible = False
+        End If
+
+
+        If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
+            DVValidacionesCuentaDeposito.Visible = True
+        Else
+
        End If

        UpCuentaDeposito.Update()
--- a/Contabilidad/CatCuentas.aspx.vb
+++ b/Contabilidad/CatCuentas.aspx.vb
@@ -740,8 +740,9 @@ Partial Class Contabilidad2_CatCuentas
            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            Dim dtt As DataTable = DtDatos.Copy().FiltraParametros(" Codigo NOT IN ('_ACTIVO','_BPASIVO','_CAPITAL','_UTILIDAD','_RACREEDOR','_RDEUDOR','_CUADRE','_PASIVO','_ORDEN') ")

-            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", dtt, params, "Cuentas", Formato)
            'ImprimirPDFStimul("Empresas/Grales/Formatos/Cuentas.mrt", DtDatos, params, NombreArchivo:="Cuentas", RDSName:="Cuentas", Formato:=Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
--- a/Contabilidad/ContabilidadElectronica.aspx
+++ b/Contabilidad/ContabilidadElectronica.aspx
@@ -18,7 +18,7 @@
    <div class="row">

        <div class="col-md-5">
-            <div class="portlet light smmallpadding bordered">
+            <div class="portlet light xspadding bordered">
                <div class="portlet-title">
                    <div class="caption font-green">
                        <i class="icon-pin font-green"></i>
@@ -81,7 +81,15 @@
                            </table>

                            <hr />
-
+                            <div class="row" id="divMsg" runat="server" visible="false">
+                                <div class="col-md-12" style="text-align: center;">
+                                   <div  class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                        <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                        <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                        <asp:Literal Text=" solo se consideran los niveles 1 y 2." runat="server" ID="LtTipoCambioAdvertencia"></asp:Literal>
+                                    </div>
+                                </div>
+                            </div>
                            <div class="row">
                                <div class="col-md-12" style="text-align: center;">
                                    <asp:Button ID="BtnGenerar" OnClick="BtnGenerar_Click" Text="Generar XML" Width="200px" CssClass="btn btn-primary" runat="server" />
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -109,12 +109,11 @@ Partial Class Contabilidad_ContabilidadElectronica
                DtCuentas = ObjConpaq.DtResultados
            End If
            ObjConpaq.Dispose()
-
        End If

        If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
-            Dim Str As New StringBuilder

+            Dim Str As New StringBuilder
            'CABECERA
            Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
            Str.Append("<catalogocuentas:Catalogo xsi:schemaLocation=""http://www.sat.gob.mx/esquemas/ContabilidadE/1_3/CatalogoCuentas http://www.sat.gob.mx/esquemas/ContabilidadE/1_3/CatalogoCuentas/CatalogoCuentas_1_3.xsd"" Version=""1.3"" ")
@@ -288,8 +287,11 @@ Partial Class Contabilidad_ContabilidadElectronica
        End If

        If DtCuentas IsNot Nothing AndAlso DtCuentas.Rows.Count > 0 Then
-            Dim Str As New StringBuilder

+            If UsuarioActual.CveEmpresa = 119 Then
+                DtCuentas = DtCuentas.FiltraParametros("Nivel IN (1,2) ")
+            End If
+            Dim Str As New StringBuilder
            'CABECERA
            Str.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
            Str.Append("<bnc:Balanza ")
@@ -381,6 +383,9 @@ Partial Class Contabilidad_ContabilidadElectronica
            trTipoEnvio.Visible = False
        ElseIf DdlTipoReporte.SelectedValue = "2" Then
            trTipoEnvio.Visible = True
+            If UsuarioActual.CveEmpresa = 119 Then
+                divMsg.Visible = True
+            End If
        End If

    End Sub
--- a/Contabilidad/ContabilizacionCompras.aspx
+++ b/Contabilidad/ContabilizacionCompras.aspx
@@ -124,7 +124,7 @@
                                    <asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
                                </div>

-                                <asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
+                                <asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza,Modulo" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
                                    <Columns>
                                        <asp:TemplateField>
                                            <ItemTemplate>
--- a/Contabilidad/ContabilizacionCompras.aspx.cs
+++ b/Contabilidad/ContabilizacionCompras.aspx.cs
@@ -163,6 +163,15 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
            {
                e.Row.FCLinkButton("LBActualizarTC").Visible = true;
            }
+
+            if (UsuarioActual.CveEmpresa == 119 && e.Row.DBCampo("Modulo").ToString() == "Compras Comproba")
+            {
+                e.Row.FCCheckBox("Chk").Enabled = false;
+                e.Row.FCCheckBox("Chk").Checked = false;
+                e.Row.FCCheckBox("Chk").ToolTip = "Comprobación";
+            }
+
+
        }
    }

--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -317,7 +317,7 @@

                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                        <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="True"
-                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto, TC" 
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto,CveActivoFijo, TC" 
                            Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                            <Columns>
                                <asp:TemplateField>
@@ -436,7 +436,7 @@
                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">

                        <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,CveActivoFijo,Modificado" Width="100%" >
                            <Columns>
                                <asp:TemplateField>
                                    <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -744,6 +744,15 @@
                                            </div>
                                        </div>

+                                        <div class="row" runat="server" id="DvModalConceptoActivoFijo" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Activo Fijo:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:Dropdownlist ID="DdlAF" CssStyle="width: 100%;" CssClass ="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="405px" ></asp:Dropdownlist>
+        
+                                                <i></i>
+                                            </div>
+                                        </div>
+

                                        <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
                                            <div class="col-xs-2" style="text-align: left">Venta:</div>
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -392,6 +392,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            .Add("CveCompra", Type.GetType("System.Int32"))
            .Add("CveCliente", Type.GetType("System.Int32"))
            .Add("CveVenta", Type.GetType("System.Int32"))
+            .Add("CveActivoFijo", Type.GetType("System.Int32"))
            .Add("CveIE", Type.GetType("System.Int32"))
            .Add("CveClasificacion", Type.GetType("System.Int32"))
            .Add("MultipleSubProyecto", Type.GetType("System.Boolean"))
@@ -1097,9 +1098,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                           CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                            ImporteME:=ImporteME, TipoCambio:=TipoCambio,
                                                            CveTipoGasto:=tCveTipoGasto,
-                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveActivoFijo:=gvr.DataKey("CveActivoFijo").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
                                ContRegInsertados = ContRegInsertados + 1
-
                            Else
                                MsgError = "No se pudo insertar el detalle de la póliza2"
                                Exit For
@@ -1151,7 +1151,6 @@ Partial Class ContabilidadC_RegPrePolizaS
        ObjContabilidad.IniciaTransacSQL()

        Try
-
            Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)

            If Retorno Then
@@ -1194,7 +1193,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
                                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
                                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
-                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal,
+                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
                                                                                   CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                                    OcurrioError = True
                                    Exit For
@@ -1305,6 +1304,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("TxtAbono").Text.ToDecimal
        Dim PorcentajeImpuesto As Decimal = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToDecimal
        Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero
+        Dim CveActivoFijo As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveActivoFijo").ToEntero
        'Dim MonedaExtr As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal

        'CargaConceptosContablesE()
@@ -1350,6 +1350,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
        CargaCuentasContables()
        DdlCuentaContableE.SelectedValueExist(CveCuenta)
+        DdlAF.SelectedValueExist(CveActivoFijo)

        If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero
        If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero
@@ -1502,6 +1503,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                DvModalconceptoCliente.Visible = False
            End If

+            If AplicaActivoFijo Then
+                CargaActivosFijos()
+                DvModalConceptoActivoFijo.Visible = True
+            Else
+                DvModalConceptoActivoFijo.Visible = False
+            End If
+
            If AplicaBancos AndAlso Not AplicaComplementaria Then
                TxtCargoE.AutoPostBack = True
                TxtAbonoE.AutoPostBack = True
@@ -1530,6 +1538,8 @@ Partial Class ContabilidadC_RegPrePolizaS
            Else
                DivMonedaExtranjera.Visible = False
            End If
+
+
            CargaCuentaConcepto(CveConceptoContableInsertar)

        End If
@@ -1626,6 +1636,15 @@ Partial Class ContabilidadC_RegPrePolizaS
        DdlClasificacionesE.DataBind()
        DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
    End Sub
+
+    Private Sub CargaActivosFijos()
+        DdlAF.Items.Clear()
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+        DdlAF.DataBind()
+        'DdlAF.setEsWebService(True)
+        'DdlAF.Attributes.Add("data-metodo", "getcliente")
+
+    End Sub
    Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged
        CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero)
    End Sub
@@ -1722,11 +1741,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                x = x + 1
            Next
            DtMovimientos.AcceptChanges()
-
-
        End If
-
-
        dr("CveCuenta") = DdlCuentaContableE.SelectedValue
        dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
        dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
@@ -1743,6 +1758,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
        dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
        dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
+        dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
        dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
        dr("Modificado") = True
        dr("TC") = TxtTipoCambio.Text.ToDecimal
@@ -1861,6 +1877,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("CveClasificacion") = -1
                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
            End If
            GvMov.DataSource = DtMovimientos
            GvMov.DataBind()
@@ -1888,6 +1905,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero

                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
@@ -1932,6 +1950,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                dr("CveClasificacion") = -1
                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero

                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
@@ -1942,9 +1961,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                GvMov.DataBind()
                UPMovs.Update()
                Actualizar = False
-
            End If
-
        End If

        TxtCargo.Text = ""
@@ -2125,6 +2142,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            'DdlClientes.txtText.Value = DrM("CveCliente").ToString

            DdlVentas.SelectedValueExist(DrM("CveVenta").ToString)
+            DdlAF.SelectedValueExist(DrM("CveActivoFijo").ToString)
            LbCancelarEdicion.Visible = True
            LbAgregar.Text = "Actualizar"

@@ -2566,7 +2584,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                            DtMovimientos.Clear()
                            Exit For
                        End If
-
                    End If

                    If CveConceptoContable = 69 Then
@@ -2596,6 +2613,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                    dr("CveClasificacion") = CveClasificacion
                    dr("CveCliente") = -1
                    dr("CveVenta") = -1
+                    dr("CveActivoFijo") = -1
                    dr("CveCuenta") = CveCuentaExcel
                    dr("CveTipoGasto") = -1
                    dr("CvePrePolizaDetalle") = -1
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -6,7 +6,6 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports ClosedXML.Excel
-Imports Profact.TimbraCFDI40
 Imports System.IO
 Imports System.Drawing
 Imports System.Web.Services
@@ -434,12 +433,12 @@ Partial Class Contabilidad2_RepBalanzaComprobacion

        Dim ultimaFila As DataRow = DtDatos.Rows(DtDatos.Rows.Count - 1)

-        Dim LastSaldoID As Decimal = ultimaFila("SaldoID").ToString.ToDecimal
-        Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal
-        Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal
-        Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal
-        Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal
-        Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal
+        Dim LastSaldoID As Decimal = ultimaFila("SaldoICargo").ToString.ToDecimal
+        Dim LastTotalAbonos As Decimal = ultimaFila("Abonos").ToString.ToDecimal
+        Dim LastTotalCargos As Decimal = ultimaFila("Cargos").ToString.ToDecimal
+        Dim LastSaldoAD As Decimal = ultimaFila("SaldoFCargo").ToString.ToDecimal
+        Dim LastSaldoIA As Decimal = ultimaFila("SaldoIAbono").ToString.ToDecimal
+        Dim LastSaldoAA As Decimal = ultimaFila("SaldoFAbono").ToString.ToDecimal

        WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales"
        WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -393,7 +393,33 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                    if (k > 0)
                    {
                        bool flag = true;
-                        excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00";
+                        switch (NombreHoja)
+                        {
+                            case "IVA Trasladado":
+                                //FECHAS,FOLIOS, NUM CUENTA
+                                if (!excelWorksheet.Columns[k + 1].Name.Contiene("B","L","C","P","Q"))
+                                {
+                                    excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00";
+                                }
+                                break;
+                            case "IVA Acreditable":
+                                //FECHAS,FOLIOS, NUM CUENTA
+                                if (!excelWorksheet.Columns[k + 1].Name.Contiene("D","E","Y","Z","AA","AB"))
+                                {
+                                    excelWorksheet.Columns[k + 1].Style.NumberFormat = "#,##0.00";
+                                }
+                                //FOLIO BANCARIO
+                                if (excelWorksheet.Columns[k + 1].Name.Contiene("AA","AB"))
+                                {
+                                    excelWorksheet.Columns[k + 1].Style.NumberFormat = "0";
+                                    excelWorksheet.Columns[k + 1].Style.HorizontalAlignment = HorizontalAlignmentStyle.Left;
+                                }
+                                break;
+                            default:
+                                break;
+                        }
+                        
+                        
                        try
                        {
                            excelWorksheet.Columns[k].AutoFit(1.0);
--- a/Empresas/119/Formatos/Cotizacion.rdlc
+++ b/Empresas/119/Formatos/Cotizacion.rdlc
@@ -1237,7 +1237,6 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
-                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -1649,7 +1648,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox2</rd:DefaultName>
-            <Top>16.4177cm</Top>
+            <Top>10.96728cm</Top>
            <Left>3.65232cm</Left>
            <Height>0.57354cm</Height>
            <Width>12.91587cm</Width>
@@ -1665,7 +1664,7 @@
            </Style>
          </Textbox>
          <Line Name="Line1">
-            <Top>17.86437cm</Top>
+            <Top>12.41395cm</Top>
            <Left>7.71741cm</Left>
            <Height>0cm</Height>
            <Width>5.675cm</Width>
@@ -1693,7 +1692,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
-            <Top>17.93492cm</Top>
+            <Top>12.4845cm</Top>
            <Left>7.71741cm</Left>
            <Height>0.6cm</Height>
            <Width>5.675cm</Width>
@@ -1708,412 +1707,6 @@
              <PaddingBottom>2pt</PaddingBottom>
            </Style>
          </Textbox>
-          <Textbox Name="Textbox25">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Nombre Comercial: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Beneficiario:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Banco:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Clabe: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Cuenta:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.29987cm</Top>
-            <Left>0.10282cm</Left>
-            <Height>2.03296cm</Height>
-            <Width>3.74249cm</Width>
-            <ZIndex>13</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox26">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>BBVA BANCOMER, MONEDA NACIONAL</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>012760004510539065</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>0451053906</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.29987cm</Top>
-            <Left>3.84531cm</Left>
-            <Height>2.03295cm</Height>
-            <Width>5.75197cm</Width>
-            <ZIndex>14</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox27">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Nombre Comercial: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Beneficiario:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Banco:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Clabe: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Cuenta:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.29987cm</Top>
-            <Left>9.70311cm</Left>
-            <Height>2.03295cm</Height>
-            <Width>4.17266cm</Width>
-            <ZIndex>15</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox28">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>BBVA BANCOMER, MONEDA DOLARES</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>012760001097398900</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>0109739890</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.29987cm</Top>
-            <Left>13.87577cm</Left>
-            <Height>2.03294cm</Height>
-            <Width>6.94061cm</Width>
-            <ZIndex>16</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
          <Textbox Name="Textbox4">
            <CanGrow>true</CanGrow>
            <KeepTogether>true</KeepTogether>
@@ -2162,7 +1755,7 @@
            <Left>0.08425cm</Left>
            <Height>0.99688cm</Height>
            <Width>8.10248cm</Width>
-            <ZIndex>17</ZIndex>
+            <ZIndex>13</ZIndex>
            <Style>
              <Border>
                <Style>None</Style>
@@ -2174,7 +1767,7 @@
            </Style>
          </Textbox>
        </ReportItems>
-        <Height>18.53492cm</Height>
+        <Height>13.16388cm</Height>
        <Style />
      </Body>
      <Width>20.98934cm</Width>
--- a/Empresas/119/Formatos/Factura.rdlc
+++ b/Empresas/119/Formatos/Factura.rdlc
@@ -3768,412 +3768,6 @@
              </Border>
            </Style>
          </Tablix>
-          <Textbox Name="Textbox24">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Nombre Comercial: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Beneficiario:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Banco:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Clabe: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Cuenta:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.32756cm</Top>
-            <Left>0.10282cm</Left>
-            <Height>2.03296cm</Height>
-            <Width>3.74249cm</Width>
-            <ZIndex>18</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox25">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>BBVA BANCOMER, MONEDA NACIONAL</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>012760004510539065</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>0451053906</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.32756cm</Top>
-            <Left>3.84531cm</Left>
-            <Height>2.03295cm</Height>
-            <Width>5.75197cm</Width>
-            <ZIndex>19</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox27">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Nombre Comercial: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Beneficiario:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Banco:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Clabe: </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>Cuenta:</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                      <Color>#008204</Color>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Right</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.32756cm</Top>
-            <Left>9.70311cm</Left>
-            <Height>2.03295cm</Height>
-            <Width>4.17266cm</Width>
-            <ZIndex>20</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox28">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>BBVA BANCOMER, MONEDA DOLARES</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>012760001097398900</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>0109739890</Value>
-                    <Style>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Left</TextAlign>
-                </Style>
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>12.32756cm</Top>
-            <Left>13.87577cm</Left>
-            <Height>2.03294cm</Height>
-            <Width>6.94061cm</Width>
-            <ZIndex>21</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
          <Textbox Name="Textbox5">
            <CanGrow>true</CanGrow>
            <KeepTogether>true</KeepTogether>
@@ -4205,7 +3799,7 @@
            <Left>17.31584cm</Left>
            <Height>0.65292cm</Height>
            <Width>3.68516cm</Width>
-            <ZIndex>22</ZIndex>
+            <ZIndex>18</ZIndex>
            <Style>
              <Border>
                <Style>None</Style>
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -2632,7 +2632,7 @@ Partial Class General_SaldosIniciales
                        '    CargoAbono = False
                        'End If

-                        If YaExiste = False AndAlso Afectable Then
+                        If YaExiste = False AndAlso Afectable AndAlso Importe <> 0 Then
                            If IdCuenta > 0 Then
                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Importe, 95, "", Concepto, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
                                    TieneError = True
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -201,6 +201,12 @@ Partial Class LogIn
                Usuario = Nothing
            End If

+            ''código temporal para bloquear accesos a empresas.
+            'If Usuario IsNot Nothing AndAlso Usuario.CveEmpresa.Contiene(13, 83, 199, 201) Then
+            ' Alert("  this site can't be reached <br/><br/>refused to connect.<br/><br/>ERR_CONNECTION_REFUSED<br/><br/>", TipoMensaje.MsgError)
+            ' Usuario = Nothing
+            ' End If
+
            If Usuario IsNot Nothing Then '' consideración especial, para el Grupo Adsistemas
                If Usuario.CveUsuario.Contiene(2, 93, 1537, 1538, 1360) Then 'JM,RM,OI,JP,JC cambia la cuenta por la de un admin
                    Dim tUsuario As Usuario = ObjUsuario.GetUsuarioDetalle(100, Usuario.CveEmpresa) 'ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa)
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -343,8 +343,8 @@ Partial Class OS_OrdenesServicios
            CargaPS(-1, DdlPSDetalle)
            CargaPsMateriales()
            'CargaClasificaciones()
-            CargaPSCaracteristicasOpciones()
-            CargaCuentasCaracteristicas()
+            'CargaPSCaracteristicasOpciones()
+            'CargaCuentasCaracteristicas()
            CargaAlmacen()
            CargaModelos()

@@ -847,14 +847,13 @@ Partial Class OS_OrdenesServicios
                    If Row("Estatus").ToString = "Activo" Then Estatus = True Else Estatus = False
                    If Row("SeSuperviso").ToString = "Sí" Then SeSuperviso = True Else SeSuperviso = False

-
                    CargaMaterialesDetalle(CveOsDetalle, IDOSDetalle, IDOSDetalle)
                    For Each R As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", IDOSDetalle)).Rows
                        If Materiales = "-1" Then Materiales = "" Else Materiales = Materiales + "<br>"
                        Materiales = Materiales + String.Format("{0} {1}", R("Cantidad").ToString, R("PS").ToString)
                    Next

-                    CargaEspecificaciones(CveOsDetalle, IDOSDetalle, IDOSDetalle)
+                    'CargaEspecificaciones(CveOsDetalle, IDOSDetalle, IDOSDetalle)
                    For Each R As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", IDOSDetalle)).Rows
                        If Especificaciones = "-1" Then Especificaciones = "" Else Especificaciones = Especificaciones + ","
                        Especificaciones = Especificaciones + String.Format("{0}:{1}:{2}:{3}:{4}:{5}", R("CveCaracteristica").ToString, R("Caracteristica").ToString, R("CveCaracteristicaTipo"), R("CveOpcion").ToString, R("Opcion").ToString, R("Valor").ToString)
@@ -3112,11 +3111,20 @@ Partial Class OS_OrdenesServicios

            '---------------- FIN VALIDACIONES -----------------

-            Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
+            'Validación solo para que no sean uso de material 
+            Dim ValidaPU As String = ""
+            If Not DdlTipoVenta.SelectedValue.Contiene("5") Then ValidaPU = "PU > 0"
+
+            Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual", ValidaPU).ToEntero 'PU>0, para indicar que solo los productos que no se han retornado.
            Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
            Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero
            Dim CveVentaRemisionGenerada As Integer = -1

+            If CveAlmacenActual <= 0 Then
+                Alert("No se pudo determinar el almacen del material", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
            Dim ObjV As New ClsVentas
            Dim ObjOS As New ClsOS(ObjV.IniciaTransacSQL())
            Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
@@ -3774,6 +3782,11 @@ Partial Class OS_OrdenesServicios

    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)

+        CancelarOS()
+
+    End Sub
+
+    Private Sub CancelarOS()
        Dim CveEstatusOrdenServicioCancelacion As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", " TipoEstatus = 5 ").ToEntero
        Dim CveAlmacenDevolucion As Integer
        Dim CveMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMotivoCancelacion", "CveSATMotivoCancelacion IN (3)").ToEntero
@@ -3836,7 +3849,6 @@ Partial Class OS_OrdenesServicios
        Catch ex As Exception
            Alert("Se presento un error al cancelar la orden de servicio")
        End Try
-
    End Sub

    Private Sub CancelarRemision(CveVenta As Integer, CveAlmacenDevolucion As Integer, CvePedido As Integer)
@@ -3848,6 +3860,12 @@ Partial Class OS_OrdenesServicios
            Exit Sub
        End If

+        'If DdlTipoVenta.SelectedValue.Contiene("5", "6") Then
+        '    CancelarOS()                'uso de material
+        '    Exit Sub
+        'End If
+
+
        Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
        Try
            Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
@@ -3869,7 +3887,7 @@ Partial Class OS_OrdenesServicios
                Dim HuboError As Boolean = False
                If Not resp.HuboError Then

-                    If resp.CveEstatus = 12 Then
+                    If resp.CveEstatus.Contiene(12) Then '12 - Rem - Cancelado,  14 - Pedido - cancelado 
                        Dim cveoo As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", $" TipoEstatus = 3").ToEntero
                        If objos.UpdateOrdenesServiciosEstatus(cveoo, UsuarioActual.CveUsuario, CveOS) Then
                            'retornar el estatus de la  OS,
@@ -3879,9 +3897,13 @@ Partial Class OS_OrdenesServicios
                        Else
                            HuboError = True
                        End If
+                    ElseIf resp.CveEstatus.Contiene(14) Then ' 14 - Pedido - cancelado 
+                        If Not ObjVenta.UpdateVentasDevolucionAlmacen(1, CvePedido) Then
+                            HuboError = True
+                        End If
                    Else
-                        'si tiene pagos 
-                        HuboError = True
+
+                        HuboError = True 'si tiene pagos 
                    End If
                Else
                    HuboError = True
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -2,6 +2,8 @@
 Option Strict On

 Imports Extensiones
+Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
+Imports ADSNetLibrary.SIGAPI.Services.CRM

 Partial Class Ventas_CatMedicos
    Inherits ClsPaginas
@@ -18,8 +20,6 @@ Partial Class Ventas_CatMedicos
        End Set
    End Property

-
-
    Public Property CveMedicoEspecialidad As Integer
        Get
            If ViewState("CveMedicoEspecialidad") Is Nothing Then
@@ -50,24 +50,49 @@ Partial Class Ventas_CatMedicos

        If Not Page.IsPostBack Then

+            If (Request("CveEmpresaCRM") IsNot Nothing) Then
+                '    ICRMService CRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString) 
+                'RequestEmpresasCRM parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM);
+                'var objServicio = cRMService.GetEmpresasCRM(parametros);
+                'If (objServicio.Result.Count > 0) Then
+                '                    {
+                '    EsEditar = True;
+                '    LblEncabezadoEmpresa.Text = String.Format("Consulta de la Empresa: {0}", objServicio.Result[0].Empresa);
+                '    TxtNombreEmpresa.Text = objServicio.Result[0].Empresa;
+                '    TxtRFC.Text = objServicio.Result[0].RFC;
+                '    DdlTipoProceso2.SelectedValueExist(objServicio.Result[0].CveTipoProceso);
+                '    CargaMetodosCaptacion();
+                '    TxtCorreoEmpresaCRM.Text = objServicio.Result[0].Correo;
+                '    DdlMedioCaptacion.SelectedValueExist(objServicio.Result[0].CveMedioCaptacion);
+                '    CveEncuestaAplicada = objServicio.Result[0].CveEncuestaAplicada > 0 ? objServicio.Result[0].CveEncuestaAplicada.ToEntero() : -1;
+                '    CveVendedor = objServicio.Result[0].CveVendedorAsignado.ToEntero();
+                '    CveSubProyecto = objServicio.Result[0].CveSubProyecto.ToEntero();
+                '    CveCliente = objServicio.Result[0].CveCliente.ToEntero();
+                '    CveGiroClasificacion = objServicio.Result[0].CveGiroClasificacion > 0 ? objServicio.Result[0].CveGiroClasificacion.ToEntero() : -1;                

+                '    If (!(CveCliente > 0)) Then
+                '                            {
+                '        HplCrearCliente.Visible = True;
+                '        HplCrearCliente.NavigateUrl = String.Format("/Ventas/Clientes.aspx?CveEmpresaCRM={0}", CveEmpresaCRM);
+                '        If (UsuarioActual.Empresa.Funcionalidad(578) == "1") Then
+                '                                    {
+                '            HplCrearCliente.Text = "Crear Médico";
+                '            HplCrearCliente.NavigateUrl = String.Format("/Ventas/CatMedicos.aspx?CveEmpresaCRM={0}", CveEmpresaCRM);
+                '        }
+                '    }
+
+                RegistraScript("$('#DvModalAddMedico').modal({ backdrop: 'static', keyboard: false });")
+            End If

            CargaCombos()
            CargaDatos()
            BtnConsultar_Click(Nothing, Nothing)
-
-
-
        End If
-
    End Sub

-
    Public Sub CargaDatos()

-
        Dim ObjVentas As New ClsVentas
-
        If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1) Then

            If UsuarioActual.CveVendedor > 0 Then
@@ -75,23 +100,15 @@ Partial Class Ventas_CatMedicos
            Else
                GvDatos.DataSource = ObjVentas.DtResultados
            End If
-
-
-
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjVentas.Dispose()
-
        GvDatos.DataBind()
-
        ValidaExcelTab()
-
        UpDatos.Update()

-
-
    End Sub

    'Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
@@ -166,8 +183,6 @@ Partial Class Ventas_CatMedicos
    End Sub
 #End Region

-
-
    Public Sub LnkAgregarMedico_Click(sender As Object, e As EventArgs)

        AddMedicoControl.CveMedico = -1
@@ -188,8 +203,6 @@ Partial Class Ventas_CatMedicos



-
-
        'TxtMedico.Text = GvRow.DataKey("Medico")
        'TxtCedulaProfecional.Text = GvRow.DataKey("CedulaProfesional")
        'TxtFechaNacimiento.Text = GvRow.DataKey("FechaNacimiento").ToDate().ToString("dd/MM/yyyy")
@@ -239,8 +252,6 @@ Partial Class Ventas_CatMedicos
            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

-
-
        txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = NowADS().ToShortDateString

@@ -254,7 +265,6 @@ Partial Class Ventas_CatMedicos

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)

-
        Dim objVentas As New ClsVentas
        Dim CveVendedor As Integer = If(UsuarioActual.CveVendedor > 0, UsuarioActual.CveVendedor, -1)
        Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2569,7 +2569,7 @@
                            <div class="portlet-body ">
                                <asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
                                    <ContentTemplate>
-                                        <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
+                                        <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus,EstatusTexto" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
                                            <Columns>
                                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
                                                    <ItemTemplate>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1842,7 +1842,7 @@ Partial Class Clientes
                    DivPortletDireccionEnvio.Visible = False
                    DivPortletAsignaciones.Visible = False
                    'DivPortletBitacora.Visible = False
-                    BtnEliminar.Visible = False
+                    'BtnEliminar.Visible = False

                End If

@@ -2592,6 +2592,7 @@ Partial Class Clientes
                If TxtLimiteCredito.Text.ToDecimal = 0 OrElse TxtCobranzaContacto.Text.Trim = "" OrElse TxtCobranzaTelefono.Text.Trim = "" OrElse TxtDiasEspecifico.Text.Trim = "" OrElse TxtCobranzaCorreo.Text.Trim = "" Then
                    InformacionCompleta = False
                End If
+                If DdlTipoPago.SelectedValue = "-1" Then InformacionCompleta = False
                'si es el concepto de pagaré
                tPagare = 0
                For Each dRow As GridViewRow In GvDocumentosCliente.Rows
@@ -2601,18 +2602,26 @@ Partial Class Clientes
                    End If
                Next
                If tPagare = 0 Then InformacionCompleta = False
-                If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
-
            End If
-            If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
-            If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False

            'SOLO VALIDA EN CLIENTES FRECUENTE
            If DdlTipoCliente.SelectedValue = "1" Then
+                If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
+                'VALIDACIONES DE BANCOS
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("EstatusTexto") = "Activo") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("CLABE") <> "") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("BancoNombre") <> "") Then InformacionCompleta = False
+                'If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Sucursal") <> "") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Cuenta") <> "") Then InformacionCompleta = False
+
                If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
                If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
-
+                If DdlClasificacion.SelectedValue.ToEntero() <= 0 Then InformacionCompleta = False
            End If
+
+            If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
+            If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
+
        End If

        'CargaSucursal()
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -241,7 +241,12 @@ Partial Class Ventas_ClientesAbonar
                Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
            End If

-            RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToString("dd/MM/yyyy")
+            Else
+                RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
+            End If
+
            If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
                LnkAccionesModalSeleccionLayout.Visible = True
            End If
@@ -439,7 +444,9 @@ Partial Class Ventas_ClientesAbonar
            TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
            SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")

-            GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
+            If UsuarioActual.CveEmpresa = 186 Then TmpCxCAux = TmpCxCAux.AsEnumerable.Take(200).CopyToDataTable() 'Limitar a 100 registros para evitar problemas de rendimiento
+
+            GvCxC.DataSource = TmpCxCAux.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
            CveMoneda = pCveMoneda

        End If
@@ -698,20 +705,21 @@ Partial Class Ventas_ClientesAbonar


    Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+        GenerarPago()
        'VERIFICA SI HAY CORTE ANTES DE HACER EL PAGO
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
-            Dim ObjPVenta As New ClsPuntoVenta
-            If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
-                DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
-                DdlCorteCaja.DataBind()
-            End If
-            ObjPVenta.Dispose()
-            DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            UpModalCorte.Update()
-            RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
-        Else
-            GenerarPago()
-        End If
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
+        '    Dim ObjPVenta As New ClsPuntoVenta
+        '    If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+        '        DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
+        '        DdlCorteCaja.DataBind()
+        '    End If
+        '    ObjPVenta.Dispose()
+        '    DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        '    UpModalCorte.Update()
+        '    RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
+        'Else
+        '    GenerarPago()
+        'End If
    End Sub

    Protected Sub BtnGenerarPago_Click(sender As Object, e As EventArgs) Handles BtnGenerarPago.Click
@@ -2893,9 +2901,13 @@ Partial Class Ventas_ClientesAbonar
    End Sub

    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
-        Calendario.EndDate = NowADS()
-
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
+            Calendario.EndDate = NowADS().AddDays(2)
+        Else
+            RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+            Calendario.EndDate = NowADS()
+        End If
    End Sub


--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3603,6 +3603,41 @@ Partial Class PV

        End If

+        'VALIDA DESCUENTOS GENERALES
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
+
+            Dim ValidoDescuentos As Boolean = True
+            Dim DtTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0")
+
+            For Each Row As DataRow In TmpDT.Rows
+                Dim CvePS As Integer = Row("CvePS").ToString().ToEntero()
+                Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                Dim PU As Decimal = Row("PU").ToString().ToDecimal()
+                Dim Descuento As Decimal = Row("Descuento").ToString().ToDecimal()
+
+                Dim EsGarantia As Boolean = ObjFactura.EsGarantia OrElse Row("Obs").ToString().Contains("Descuento por garantía")
+
+                Dim EsCargo As Boolean = DtTamanios IsNot Nothing AndAlso DtTamanios.FiltraParametros($"CvePSCargo = {CvePS}").Rows.Count = 1
+
+                If Not EsGarantia AndAlso Not EsCargo Then
+                    Dim porcentaje = ((Descuento) / (Cantidad * PU).RoundSQL(2)) * 100D
+
+                    If porcentaje > 41 Then
+                        Alert($"El producto '{Row("CodigoPS")}' no puede tener un descuento mayor al 40%", TipoMensaje.MsgAdvertencia)
+                        ValidoDescuentos = False
+                        Exit For
+                    End If
+
+                End If
+
+            Next
+
+            If Not ValidoDescuentos Then
+                Exit Sub
+            End If
+
+        End If
+
        If ObjFactura.CveCliente > 0 Then
            If TmpDT.Rows.Count > 0 Then

--- a/Ventas/PVCobranza.aspx
+++ b/Ventas/PVCobranza.aspx
@@ -491,7 +491,7 @@
                                                <asp:Literal ID="LtLTipoSaldo" runat="server" Text="Total:"></asp:Literal>
                                            </b>&nbsp;
                                           
-                                                 <asp:Literal ID="LtlSaldo" runat="server" Text=""></asp:Literal>
+                                                 <asp:Label ID="LtlSaldo" runat="server" Text=""></asp:Label>
                                            &nbsp;
                                             <b>
                                                 <asp:Literal ID="LtlMoneda" runat="server"></asp:Literal></b>
@@ -1476,9 +1476,9 @@
            let totalAnt = 0;

            //si es con.nc,es.el.total
-            let Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));
+            let Total = ToDouble($get("C_LtlSaldo").innerText.replace(",", ""));

-            let SaldoCompra = parseFloat(parseFloat($get("C_LtlSaldo").value.replace(",", "")).toFixed(2));
+            let SaldoCompra = parseFloat(parseFloat($get("C_LtlSaldo").innerText.replace(",", "")).toFixed(2));

            if (t.checked) {

@@ -1517,7 +1517,7 @@

        function FnCambiaAnt(chk, txt, saldo) {

-            let Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));// ToDouble($get('TxtSubTotal').value);
+            let Total = ToDouble($get("C_LtlSaldo").innerText.replace(",", ""));// ToDouble($get('TxtSubTotal').value);

            let importeTxt = parseFloat(txt.value.replace(/,/g, ''));

--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -1402,6 +1402,8 @@ Partial Class Ventas_PVCobranza
                            Dim Importe = GvRow.FCTextBox(String.Format("TxtAnticipo{0}", GvRow.RowIndex)).Text.ToDecimal()

                            DtPagos.Rows.Add({CveFormaPagoAnt, Importe})
+
+                            PagadoSinEfectivo += Importe
                        End If
                    Next
                End If
--- a/Ventas/RepComisionesSMS.aspx
+++ b/Ventas/RepComisionesSMS.aspx
@@ -206,8 +206,8 @@
                 <div class="modal-body">

                      <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
-                         <input type="text" id="TxtBusquedaComiciones" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                         <input type="text" id="TxtBusquedaComisiones" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComisiones','{0}')", GvComisiones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComisiones','{0}')", GvComisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                     </div>
                     <div class="row">
                         <div class="col-md-12">
@@ -330,8 +330,8 @@
                        </div>

                        <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
-                            <input type="text" id="TxtBusquedaComicionesEspeciales" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisionesEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComicionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            <input type="text" id="TxtBusquedaComisionesEspeciales" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComisionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComisionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                        </div>
                        <div class="row">
                            <div class="col-md-12">
--- a/Ventas/RepVentasUtilidad.aspx
+++ b/Ventas/RepVentasUtilidad.aspx
@@ -201,6 +201,12 @@
                         <div class="col-md-2">
                            <asp:Dropdownlist runat="server" ID="DdlMarcas" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="Marca" DataValueField="CveMarca" />
                        </div>
+                         <div class="col-md-1 truncate">
+                             Proveedor:
+                         </div>
+                         <div class="col-md-2">
+                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                         </div>
                    </div>
                </div>
            </div>
@@ -256,15 +262,15 @@

            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados"  CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                <Columns>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio"   DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal"   DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Descuento"   DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion"   DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2"   DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio"   DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal"   DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Descuento"   DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion"   DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2"   DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
                    <asp:HyperLinkField Text="Ir" DataNavigateUrlFields="CveVenta" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Center" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Folio"  ItemStyle-CssClass="Texto"  DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Folio"  ItemStyle-CssClass="Texto"  DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
                    <asp:TemplateField HeaderText="Costo" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%">
                        <ItemTemplate>
                            <asp:HyperLink ID="HLCosto" runat="server" Text='<%# If(Eval("Costo").ToString() = "0", "-", Eval("Costo", "{0:#,##0.00}")) %>'> </asp:HyperLink>
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -73,6 +73,11 @@ Partial Class Ventas_RepVentasUtilidad
        'Carga Productos
        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")

+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
            DdlPS.SelectedText = "Todos"
@@ -99,6 +104,7 @@ Partial Class Ventas_RepVentasUtilidad
        Dim CveCategoria As String = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString
        Dim CvePS As String = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS") <> "", Request("CvePS"), "-1").ToString
        Dim CveMarca As String = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca") <> "", Request("CveMarca"), "-1").ToString
+        Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero

        DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
        DdlVendedor.SelectedValuesIfExistM(CveVendedor)
@@ -117,6 +123,11 @@ Partial Class Ventas_RepVentasUtilidad

        DdlMarcas.SelectedValueExist(CveMarca)

+        If CveProveedorCompra > 0 Then
+            DdlProveedores.SelectedValue = CveProveedorCompra.ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString
+        End If
+
        txtFechaI.Text = FechaI
        txtFechaF.Text = FechaF

@@ -164,7 +175,7 @@ Partial Class Ventas_RepVentasUtilidad
        Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
        Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString

-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
            DtVentas = ObjVentas.DtResultados
            GvDatos.DataSource = ObjVentas.DtResultados
            GvDatos.DataBind()
@@ -244,9 +255,8 @@ Partial Class Ventas_RepVentasUtilidad
                e.Row.Cells(15).ToolTip = "Factura sin pago registrado"
            End If

-
-            Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",
-                                            e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"))
+            Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}",
+                                            e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), -1, e.Row.DBCampo("CveProveedorCompra"))
            e.Row.FCHyperLink("HLCosto").NavigateUrl = Liga
            e.Row.FCHyperLink("HlGanancia").NavigateUrl = Liga
            e.Row.FCHyperLink("HlPorGanancia").NavigateUrl = Liga
@@ -316,7 +326,7 @@ Partial Class Ventas_RepVentasUtilidad
        Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
        Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString

-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then

            Dim FechaInicio As String = txtFechaI.Text
            Dim FechaFin As String = txtFechaF.Text
--- a/Ventas/RepVentasUtilidadDetalle.aspx
+++ b/Ventas/RepVentasUtilidadDetalle.aspx
@@ -216,7 +216,12 @@
                         <div class="col-md-2">
                            <asp:Dropdownlist runat="server" ID="DdlMarcas" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="Marca" DataValueField="CveMarca" />
                        </div>
-
+                        <div class="col-md-1 truncate">
+                            Proveedor:
+                        </div>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                        </div>
                    </div>
                </div>
            </div>
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -98,6 +98,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            Orden = IfNull(Request("Orden"), "-1").ToString.ToEntero
            CvePS = IfNull(Request("CvePS"), "-1").ToString.ToEntero
            CveClasificacion = IfNull(Request("CveClasificacion"), "-1").ToString.ToEntero
+
            CargaCombos()

            CargaDatos()
@@ -122,9 +123,9 @@ Partial Class Ventas_RepVentasUtilidadDetalle
    Private Sub CargaCombos()

        'Carga Clientes
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
-        If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataBind()
+        'If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)

        'CargaSubProyectos
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
@@ -140,6 +141,11 @@ Partial Class Ventas_RepVentasUtilidadDetalle
            DdlVendedor.Enabled = False
        End If

+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
        'Carga Productos
        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")

@@ -158,14 +164,21 @@ Partial Class Ventas_RepVentasUtilidadDetalle
        DdlMarcas.DataBind()
        DdlMarcas.Items.Insert(0, New ListItem("Todas", "-1"))

+        Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero
+
+        If CveProveedorCompra > 0 Then
+            DdlProveedores.SelectedValue = CveProveedorCompra.ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString
+        End If
+
        'Cargo Clasificaciones
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()

        DdlClasificacion.SelectedValueExist(CveClasificacion)
        DdlPS.SelectedValue = CvePS.ToString
-        If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString
+        If CvePS.ToEntero > 0 AndAlso GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
+            DdlPS.SelectedText = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString
        Else
            DdlPS.SelectedText = "Todos"
        End If
@@ -178,7 +191,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
        Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString

        If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, If(CveVenta = -1, Orden, CveVenta), DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
            DtVentas = ObjVentas.DtResultados
            GvDatos.DataSource = ObjVentas.DtResultados
            GvDatos.DataBind()
@@ -299,7 +312,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
        Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
        Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
        If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then

            Dim FechaInicio As String = txtFechaI.Text
            Dim FechaFin As String = txtFechaF.Text
@@ -357,7 +370,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
        Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
        Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
        If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then

            Dim FechaInicio As String = txtFechaI.Text
            Dim FechaFin As String = txtFechaF.Text
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -136,6 +136,7 @@
                                    <asp:ListItem Text="Clasificación" Value="8"></asp:ListItem>
                                    <asp:ListItem Text="Categoría" Value="10"></asp:ListItem>
                                    <asp:ListItem Text="Marca" Value="9"></asp:ListItem>
+                                     <asp:ListItem Text="Proveedor" Value="11"></asp:ListItem>
                                </asp:DropDownList>
                            </div>
                        </div>
@@ -200,6 +201,12 @@
                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
                               </asp:Dropdownlist>
                        </div>
+                         <div class="col-md-1 truncate">
+                             Proveedor:
+                         </div>
+                         <div class="col-md-2">
+                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                         </div>
                    </div>
                </div>
            </div>
@@ -243,7 +250,7 @@
                DataKeyNames=""
                CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="100%" OnRowDataBound="GvDatos_RowDataBound">
                <Columns>
-                    <asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}" />
+                    <asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}&CveProveedorCompra={11}" />
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataField="Ventas" DataFormatString="{0:N2}" />
                    <%--<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Crédito" DataField="Credito" DataFormatString="{0:N2}" />
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Crédito" DataField="PorcentajeCredito"  ItemStyle-Width="30px"  />
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -2,7 +2,6 @@
 Option Strict On

 Imports System.Data
-Imports System.Drawing
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Ventas_RepVentasUtilidadPadre
@@ -82,6 +81,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()

+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
        'Carga Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
@@ -161,7 +165,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
        If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientesWS.SelectedValue.ToEntero,
                                                    If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM), txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
                                                    UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
-                                                   DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero) Then
+                                                   DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtDatos = ObjVentas.DtResultados
        End If
@@ -276,9 +280,9 @@ Partial Class Ventas_RepVentasUtilidadPadre
                e.Row.CssClass = "Totales"
                e.Row.Cells(0).Text = "Total"
                Dim Css As String = "Texto"
-                Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}",
+                Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}&CveProveedorCompra={11}",
                                                   e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"),
-                                                   e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"))
+                                                   e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveProveedorCompra"))
                e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)

                'e.Row.Cells(3).Text =
@@ -358,7 +362,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
        If TxtModalFechaInicio.Text = "" Then FechaI = MinFecha
        If TxtModalFechaFin.Text = "" Then FechaF = MaxFecha

-        If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1) Then
            GvPorcentajes.DataSource = ObjVentas.DtResultados.FiltraParametros($" CveVenta > 0 AND PorNeto <= {TxtModalPorcentaje.Text.ToDecimal} AND TipoDocto = 'Ing' AND CveEstatusFactura IN(2,3) ")
        End If

--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2868,6 +2868,7 @@ Partial Class Ventas
                        TmpDT.Columns("Costo").DefaultValue = 0D
                        TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
                        TmpDT.Columns("UltimoCosto").DefaultValue = 0D
+                        If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String))

                        GvPS.DataSource = ObjVentas.DtResultados
                        GvPS.DataBind()
@@ -8422,7 +8423,8 @@ Partial Class Ventas
            Dim ObjClie As New ClsClientes
            If ObjClie.GetClienteInformacionCompleta(CveCliente, UsuarioActual.CveEmpresa) Then
                If Not CBool(ObjClie.DtResultados.FiltroPrimeroValor("InformacionCompleta")) Then
-                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", "Información incompleta")
+                    Dim Faltante As String = ObjClie.DtResultados.FiltroPrimeroValor("Faltante")
+                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0} <br><br> Falta la siguiente información: <br>{1}", "Información incompleta", Faltante)
                    Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                    TieneBloqueoPorCreditoVencimiento = 1
                End If
@@ -9172,7 +9174,7 @@ Partial Class Ventas

                    If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then
                        If CveVenta > 0 Then
-                            Dim NombrePromo As String = e.Row.DBCampo("Promocion") ' DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}")
+                            Dim NombrePromo As String = If(TmpDT.Columns.Contains("Promocion"), e.Row.DBCampo("Promocion"), "")
                            e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
                        Else
                            If DtPromociones IsNot Nothing Then
@@ -10487,7 +10489,7 @@ Partial Class Ventas
                    Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
                    If Not EsValido Then

-                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("CodigoPS").ToString())
+                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo.<br/>", dr("CodigoPS").ToString())
                        If TienePermisoImportes Then
                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", PorcentajeMinimoCostoEmpresa, CostoMenor)
@@ -11501,6 +11503,10 @@ Partial Class Ventas
                                    DebeTimbrar = False
                                End If

+                                If UsuarioActual.CveEmpresa = 188 AndAlso ObjFactura.CveSubProyecto.Contiene(12696, 12698) Then
+                                    DebeTimbrar = False
+                                End If
+
                                If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then
                                    If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then

@@ -18473,9 +18479,25 @@ Partial Class Ventas
            Exit Sub
        End If

+        If UsuarioActual.CveEmpresa = 188 AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero().Contiene(12696, 12698) Then
+            Alert("Esta factura no puede ser timbrada", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
        If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then
            If UsuarioActual.Empresa.FacturaProduccion Then

+                Using ObjVta As New ClsVentas
+                    If ObjVta.GetVenta(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                        Dim RowVenta As DataRow = ObjVta.DtResultados.FiltroPrimero("")
+                        If RowVenta IsNot Nothing AndAlso RowVenta("SeTimbro").ToString() = "Si" Then
+                            Dim Liga = $"document.location.href=""/Ventas/Ventas.aspx?CveVenta={Me.CveVenta}"";"
+                            Alert("La factura ya ha sido timbrada previamente", TipoMensaje.MsgAdvertencia, JSBtnAceptar:=Liga, ShowCloseButton:=False)
+                            Exit Sub
+                        End If
+                    End If
+                End Using
+
                CreaObjetosVenta()

                'PARA CUANDO YA ESTA GUARDADA LA VENTA