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

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

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

Ashx/CargaEventos.ashx

@@ -62,13 +62,18 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         Dim CveEstatus As Integer = -1
                         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")}"

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

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" />
@@ -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" />

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") _
+                    Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")
-                 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,6 +1349,8 @@ Partial Class Bancos_PagoElectronicoGrupos
 
 
 
+
+
     'Protected Sub CrearDetalle()
     '    Dim Resultado = True
     '    Dim CuentaDeposito As String = ""
@@ -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)

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>
+                        <br />
                         <div class="row">
-                             <div class="col-md-2" style="text-align: left">SubProyecto:</div>
+                            <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 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>
+                            </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>

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

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
+                        If Not ComparaDatatables(False) Then
-                            Retorno = False
+                            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
+                    (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
-                    (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
+                    (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
+        If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 And CveCompra <= 0 Then
-        '    InicializaAplicaNCFact()
+            InicializaAplicaNCFact()
-        'End If
+        End If
 
     End Sub
     Private Sub OriginalesVisible(Accion As Boolean)

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>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -349,43 +349,52 @@ Partial Class Compras_ReembolsosComprobaciones
         DdlCuentaDeposito.SelectedValue = Nothing
         DdlCuentaDeposito.Items.Clear()
 
-        trCuentaDeposito.Visible = False
+        DVValidacionesCuentaDeposito.Visible = False
-        DdlCuentaDeposito.Enabled = 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
+            trCuentaDeposito.Visible = True
-                DdlCuentaDeposito.Enabled = True
+            DdlCuentaDeposito.Enabled = True
 
-                Dim Dep As New ClsGenerales
+            Dim Dep As New ClsGenerales
-                If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
 
-                    If DdlTipoTransaccion.SelectedValue = "9" Then
+                If DdlTipoTransaccion.SelectedValue = "9" Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
-                    Else
+                ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
-                    End If
+                Else
-
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados
-
-                    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()
+                'If Dep.DtResultados.Rows.Count > 0 Then
-                DdlCuentaDeposito.DataBind()
+                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()

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)

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

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

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>

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";
+            }
+
+
         }
     }
 

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>

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

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 LastSaldoID As Decimal = ultimaFila("SaldoICargo").ToString.ToDecimal
-        Dim LastTotalAbonos As Decimal = ultimaFila("TotalAbonos").ToString.ToDecimal
+        Dim LastTotalAbonos As Decimal = ultimaFila("Abonos").ToString.ToDecimal
-        Dim LastTotalCargos As Decimal = ultimaFila("TotalCargos").ToString.ToDecimal
+        Dim LastTotalCargos As Decimal = ultimaFila("Cargos").ToString.ToDecimal
-        Dim LastSaldoAD As Decimal = ultimaFila("SaldoAD").ToString.ToDecimal
+        Dim LastSaldoAD As Decimal = ultimaFila("SaldoFCargo").ToString.ToDecimal
-        Dim LastSaldoIA As Decimal = ultimaFila("SaldoIA").ToString.ToDecimal
+        Dim LastSaldoIA As Decimal = ultimaFila("SaldoIAbono").ToString.ToDecimal
-        Dim LastSaldoAA As Decimal = ultimaFila("SaldoAA").ToString.ToDecimal
+        Dim LastSaldoAA As Decimal = ultimaFila("SaldoFAbono").ToString.ToDecimal
 
         WSReporte.Cell(CuerrentRow, 2).Value = "Sumas Iguales"
         WSReporte.Cell(CuerrentRow, 3).Value = LastSaldoID

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

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>

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>

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

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)

OS/OrdenesServicios.aspx.vb

@@ -343,8 +343,8 @@ Partial Class OS_OrdenesServicios
             CargaPS(-1, DdlPSDetalle)
             CargaPsMateriales()
             'CargaClasificaciones()
-            CargaPSCaracteristicasOpciones()
+            'CargaPSCaracteristicasOpciones()
-            CargaCuentasCaracteristicas()
+            '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

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)

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>

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

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
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso CveCorte <= 0 Then
-            Dim ObjPVenta As New ClsPuntoVenta
+        '    Dim ObjPVenta As New ClsPuntoVenta
-            If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
+        '    If ObjPVenta.GetVta_Cortes(TxtFechaDocumento.Text, TxtFechaDocumento.Text, -1, -1, UsuarioActual.CveEmpresa, -1) Then
-                DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
+        '        DdlCorteCaja.DataSource = ObjPVenta.DtResultados.FiltraParametros($"CveSubProyecto={CveSubProyecto}")
-                DdlCorteCaja.DataBind()
+        '        DdlCorteCaja.DataBind()
-            End If
+        '    End If
-            ObjPVenta.Dispose()
+        '    ObjPVenta.Dispose()
-            DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        '    DdlCorteCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            UpModalCorte.Update()
+        '    UpModalCorte.Update()
-            RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
+        '    RegistraScript("$('#ModalCorte').modal({backdrop: 'static', keyboard: false}, 'show')")
-        Else
+        'Else
-            GenerarPago()
+        '    GenerarPago()
-        End If
+        '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
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-        Calendario.EndDate = NowADS()
+            RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString
-
+            Calendario.EndDate = NowADS().AddDays(2)
+        Else
+            RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+            Calendario.EndDate = NowADS()
+        End If
     End Sub
 
 

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
 

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, ''));
 

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

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;" />
+                         <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('TxtBusquedaComiciones','{0}')", GvComisiones.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                         <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;" />
+                            <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('TxtBusquedaComicionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            <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">

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="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" 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,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" 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,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" 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,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" 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,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" 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,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="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" 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,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>

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}&CveMarca={9}&CveProveedorCompra={10}",
-            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"), -1, e.Row.DBCampo("CveProveedorCompra"))
-                                            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"))
             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

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>

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.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
+        'DdlClientes.DataBind()
-        If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
+        '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
+        If CvePS.ToEntero > 0 AndAlso GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString
+            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

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

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
 

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