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

Acarreos/CatChoferes.aspx.vb

@@ -40,7 +40,7 @@ Partial Class Acarreos_CatChoferes
 
     Private Sub CargaDatos()
         Dim ObjAcar As New ClsAcarreos()
-        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then
+        If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then
             GvChofer.DataSource = ObjAcar.DtResultados
             GvChofer.DataBind()
         End If

App_Code/ClsPaginas.vb

@@ -3868,6 +3868,32 @@ Public Class ClsPaginas
     End Property
 
 #End Region
+
+
+
+    Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)
+
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjInv As New ClsVentas
+                If ObjInv.GetClientesVendedoresSubProyectos(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
+                ObjInv.Dispose()
+            End If
+            Dim Str As StringBuilder = New StringBuilder()
+            Str.Append("1 = 1 ")
+            If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0} ", CveCliente)
+            If CveSubProyecto <> -1 Then Str.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto)
+
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTClientesVendedoresSubProyectos = Dv.ToTable
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa)
+            Application(AppNombre) = value
+        End Set
+    End Property
+
 #End Region
 
 

App_Code/ClsRH.vb

@@ -1968,6 +1968,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Nuevo Personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then
+                Alert("El Nuevo Personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al guardar el nuevo Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/ClsVentas.vb

@@ -5249,6 +5249,66 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+
+#Region "C L I E N T E S    V E N D E D O R E S   S U B P R O Y E C T O S"
+
+    Public Function GetClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+    Public Function AddClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function RemoveClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+#End Region
+
 #Region "IDisposable Support"
 
 

Bancos/IE.aspx.vb

@@ -1085,7 +1085,7 @@ Partial Class Bancos_IE
                     If DdlTipoTransaccion.SelectedValue = "9" Then
                         Dim Dep As New ClsGenerales
                         If Dep.GetCuentasDepositos(CveProveedor:=ObjIE.CveProveedor) Then
-                            DdlCuentaDeposito.DataSource = Dep.DtResultados
+                            DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
                             If Dep.DtResultados.Rows.Count > 0 Then
                                 trCuentaDeposito.Visible = True
                                 DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
@@ -2769,8 +2769,9 @@ Partial Class Bancos_IE
                                     ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
 
                                     If TxtIvaIxC.Text.ToDouble > 0 Then
+                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
                                         'Iva
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=If(PorcentajeIVA.ToString().Contiene("0.08", "0.16"), PorcentajeIVA, 0))
                                     End If
 
                                     'Bancos
@@ -2862,7 +2863,8 @@ Partial Class Bancos_IE
                                                     If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
                                                         Dim CveConIVA As Integer = 61
                                                         If UsuarioActual.CveEmpresa = 70 Then CveConIVA = 299
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
+                                                        Dim PorcentajeIVA = (TxtIvaIxC.Text.ToDecimal() / (TxtImporte.Text.ToDecimal() - TxtIvaIxC.Text.ToDecimal())).RoundSQL(2)
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, CveConIVA, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If
@@ -4690,7 +4692,7 @@ Partial Class Bancos_IE
 
                         'genera nuevo IE contrario
                         If Not ErrorCancelar Then
-                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) <= 0 Then
+                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
                                 ErrorCancelar = True
                             End If
                         End If
@@ -5250,7 +5252,7 @@ Partial Class Bancos_IE
 
                 If Dep.DtResultados.Rows.Count > 0 Then
 
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
                     trCuentaDeposito.Visible = True
                     BtnGuardar.ToolTip = ""
 

Bancos/PagoElectronicoGrupos.aspx

@@ -574,7 +574,7 @@
                                        Prefijo Folio:
                                    </div>
                                    <div class="col-md-6" style="text-align:left!important">
-                                       <asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control"  Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
+                                       <asp:TextBox ID="TxtFolio" MaxLength="6" runat="server" CssClass="CSSPrefijo form-control"  Style="width:150px!important;height:28px!important" onkeyup="PrefijoFolioEnviados(this)" ></asp:TextBox>
                                    </div>
                                </div>                                        
                                         
@@ -606,7 +606,7 @@
                                                 <asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" HeaderText="Nuevo Folio">
                                                     <ItemTemplate>
-                                                        <asp:TextBox ID="TxtFolio" MaxLength="25" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important"  ></asp:TextBox>
+                                                        <asp:TextBox ID="TxtFolio" MaxLength="15" onkeyup="validaLongitudFolio(this);" runat="server" CssClass="CSSPrefijo form-control" CausesValidation="true" Style="width: 150px !important; height:25px!important"  ></asp:TextBox>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
 
@@ -928,6 +928,17 @@
             
         }
 
+        function validaLongitudFolio(v) {
+            var TamanioS = String(v.value);
+            var Tamanio = TamanioS.lenght;
+            alert(Tamanio);
+
+            if (Tamanio >= 14) {
+                alert("El folio especificado es demaciado grande");
+            }
+            
+        }
+
 
     </script>
 </asp:Content>

Bancos/PolizaCheque.aspx

@@ -43,6 +43,8 @@
                                 <div class="col-md-10">
                                     <asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlPlantilla" runat="server" ControlToValidate="DdlPlantilla" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCEDdlPlantilla" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlPlantilla" Width="300px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
                         </div>

Bancos/PolizaCheque.aspx.vb

@@ -160,6 +160,7 @@ Partial Class Bancos_PolizaCheque
                 .Add("Personal", Type.GetType("System.String"))
                 .Add("CvePersonal", Type.GetType("System.Int32"))
                 .Add("CveSubProyecto", Type.GetType("System.Int32"))
+
             End With
 
             GvMov.DataBind()
@@ -470,8 +471,8 @@ Partial Class Bancos_PolizaCheque
             dr("Proyecto") = drt("Proyecto")
             dr("Personal") = drt("Personal")
             dr("CvePersonal") = drt("CvePersonal")
-            'dr("Cargo") = TxtCargoImporte.Text.ToDouble
+            'dr("CveConcepto") = drt("CveConcepto")
-            'dr("Abono") = TxtAbonoImporte.Text.ToDouble
+
 
             DtMovimientos.Rows.Add(dr)
         Next
@@ -818,6 +819,8 @@ Partial Class Bancos_PolizaCheque
         Dim TotalCargos, TotalAbonos, ImporteDocumento As Decimal
         Dim CvePrePoliza As Integer
 
+        Dim ValidaConcepto30 As Boolean = False
+
         If DdlCuenta.SelectedValue.ToEntero <= 0 Then
             If UsuarioActual.CveEmpresa <> 126 Then
                 Alert("Seleccione la Cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -833,6 +836,23 @@ Partial Class Bancos_PolizaCheque
 
         Next
 
+        For Each Gvr As GridViewRow In GvMov.Rows
+
+            If Gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                If Gvr.FCTextBox("TxtAbono").Text.ToDecimal = TxtImporte.Text.ToDecimal Or Gvr.FCTextBox("TxtCargo").Text.ToDecimal = TxtImporte.Text.ToDecimal Then
+                    ValidaConcepto30 = True
+                End If
+
+            End If
+
+        Next
+
+        If Not ValidaConcepto30 Then
+            Alert("El importe no coincide con el concepto de bancos.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
         Dim filemove As String = ""
         Dim Comprobante As String = ""

Compras/PopUpVerFactura.aspx.vb

@@ -933,6 +933,13 @@ Partial Class PopUpVerFactura
             Dim NumPermiso As String = ""
             Dim Aseguradora As String = ""
             Dim NumPolizaSeguro As String = ""
+            Dim NombreAseguradoraMedioAmbiente As String = ""
+            Dim NumPolizaSeguroMedioAmbiente As String = ""
+            Dim NombreAseguradoraCarga As String = ""
+            Dim NumPolizaSeguroCarga As String = ""
+
+
+
             Dim PlacaVM As String = ""
             Dim AnioModeloVM As String = ""
             'TIMBRADO
@@ -951,7 +958,7 @@ Partial Class PopUpVerFactura
                     Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                     If Dr IsNot Nothing Then
                         SerieFolio = Dr("SerieFolio").ToString
-                        Telefono = Dr("ChrTelefono").ToString
+                        Telefono = Dr("Telefono").ToString
                     End If
                 End If
             End If
@@ -1064,6 +1071,14 @@ Partial Class PopUpVerFactura
                     NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
                     Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "")
                     NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "")
+
+                    'Por Definir de donde sale
+                    'NombreAseguradoraMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "")
+                    'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "")
+
+
                 End If
 
                 Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces)
@@ -1181,8 +1196,16 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
                 params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
                 params.Add(New ReportParameter("NumPermiso", NumPermiso))
+
                 params.Add(New ReportParameter("Aseguradora", Aseguradora))
                 params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro))
+
+                params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente))
+                params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente))
+
+                params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga))
+                params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga))
+
                 params.Add(New ReportParameter("PlacaVM", PlacaVM))
                 params.Add(New ReportParameter("AnioVM", AnioModeloVM))
                 'TIMBRADO
@@ -2110,9 +2133,11 @@ Partial Class PopUpVerFactura
                 If Archivo.Exists Then
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 Else
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -2144,9 +2169,11 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                     End If
                     If UsuarioActual.CveEmpresa = 119 Then
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
 
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
@@ -2209,9 +2236,11 @@ Partial Class PopUpVerFactura
 
                         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                     ElseIf UsuarioActual.CveEmpresa = 140 Then
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If
@@ -2271,9 +2300,11 @@ Partial Class PopUpVerFactura
 
                 Else
 
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -2448,9 +2479,11 @@ Partial Class PopUpVerFactura
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         ElseIf UsuarioActual.CveEmpresa = 140 Then
 
-                            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                             If Imagen.Exists Then
-                                params.Add(New ReportParameter("LogoPath", logouri))
+                                'params.Add(New ReportParameter("LogoPath", logouri))
+                                Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                                params.Add(New ReportParameter("LogoPath", LogoRuta))
                             Else
                                 params.Add(New ReportParameter("LogoPath", ""))
                             End If
@@ -2488,9 +2521,11 @@ Partial Class PopUpVerFactura
 
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If
@@ -2568,9 +2603,11 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -2597,9 +2634,11 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -2667,9 +2706,11 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                     End If
 
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -2752,9 +2793,11 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                     End If
 
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -2901,10 +2944,12 @@ Partial Class PopUpVerFactura
                 Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                 If Archivo.Exists Then
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -2953,10 +2998,13 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                 Else
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        ' params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
+
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3001,10 +3049,12 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("CantidadProductos", "500"))
                         params.Add(New ReportParameter("CantidadUsados", "500"))
                         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If
@@ -3018,10 +3068,12 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                     ElseIf UsuarioActual.CveEmpresa = 153 Then
                         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If
@@ -3037,10 +3089,12 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                 Else
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3152,7 +3206,7 @@ Partial Class PopUpVerFactura
             Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                 Dim params As New List(Of ReportParameter)
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))
 
                 params.Add(New ReportParameter("Folio", Folio))
@@ -3200,7 +3254,9 @@ Partial Class PopUpVerFactura
                 If Not Archivo.Exists Then
 
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3348,9 +3404,11 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                     'End If
                 Else
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3384,9 +3442,11 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -3413,9 +3473,11 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -3447,9 +3509,11 @@ Partial Class PopUpVerFactura
                     Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
                 End If
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -3521,9 +3585,11 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If
 
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3568,9 +3634,11 @@ Partial Class PopUpVerFactura
                         Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                     End If
 
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                     If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                     Else
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
@@ -3611,9 +3679,11 @@ Partial Class PopUpVerFactura
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -3635,7 +3705,7 @@ Partial Class PopUpVerFactura
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 Dim params As New List(Of ReportParameter)
 
                 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
@@ -3672,7 +3742,9 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("NombreRecibio", Recibio))
 
                 If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                 Else
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
@@ -3856,9 +3928,11 @@ Partial Class PopUpVerFactura
 
                     Else
                         Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                         If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If

Empresas/152/Formatos/Cotizacion.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -1853,7 +1853,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>13</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3397,7 +3397,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/152/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -477,7 +477,7 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>5.39118in</Top>
+            <Top>6.39118in</Top>
             <Left>0.06752in</Left>
             <Height>1.60919in</Height>
             <Width>8.23953in</Width>
@@ -1297,7 +1297,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>7.18009cm</Top>
+            <Top>9.72009cm</Top>
             <Left>0.28014cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1986,7 +1986,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2157,7 +2157,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>8.01218cm</Top>
+            <Top>10.55218cm</Top>
             <Left>0.22108cm</Left>
             <Height>2.03224cm</Height>
             <Width>20.79751cm</Width>
@@ -2187,7 +2187,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>10.70259cm</Top>
+            <Top>13.24259cm</Top>
             <Left>0.24983cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -2408,7 +2408,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>10.86338cm</Top>
+            <Top>13.40338cm</Top>
             <Left>0.16383cm</Left>
             <Height>2.44366cm</Height>
             <Width>15.5106cm</Width>
@@ -2443,7 +2443,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>4.26303in</Top>
+            <Top>5.26303in</Top>
             <Left>6.21617in</Left>
             <Height>0.17708in</Height>
             <Width>0.94607in</Width>
@@ -2478,7 +2478,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>4.4555in</Top>
+            <Top>5.4555in</Top>
             <Left>6.21616in</Left>
             <Height>0.17966in</Height>
             <Width>0.94607in</Width>
@@ -2513,7 +2513,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>4.65449in</Top>
+            <Top>5.65449in</Top>
             <Left>6.21616in</Left>
             <Height>0.18819in</Height>
             <Width>0.94607in</Width>
@@ -2548,7 +2548,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>4.86074in</Top>
+            <Top>5.86074in</Top>
             <Left>6.22658in</Left>
             <Height>0.17119in</Height>
             <Width>0.94607in</Width>
@@ -2584,7 +2584,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>5.05137in</Top>
+            <Top>6.05137in</Top>
             <Left>6.237in</Left>
             <Height>0.19596in</Height>
             <Width>0.94607in</Width>
@@ -2620,7 +2620,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>4.28803in</Top>
+            <Top>5.28803in</Top>
             <Left>7.16224in</Left>
             <Height>0.17708in</Height>
             <Width>0.98426in</Width>
@@ -2655,7 +2655,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>4.4805in</Top>
+            <Top>5.4805in</Top>
             <Left>7.16224in</Left>
             <Height>0.17966in</Height>
             <Width>0.98425in</Width>
@@ -2690,7 +2690,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>4.67949in</Top>
+            <Top>5.67949in</Top>
             <Left>7.17266in</Left>
             <Height>0.18819in</Height>
             <Width>0.98425in</Width>
@@ -2726,7 +2726,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>4.88574in</Top>
+            <Top>5.88574in</Top>
             <Left>7.17266in</Left>
             <Height>0.17119in</Height>
             <Width>0.98425in</Width>
@@ -2762,7 +2762,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>5.07637in</Top>
+            <Top>6.07637in</Top>
             <Left>7.18308in</Left>
             <Height>0.19596in</Height>
             <Width>0.98425in</Width>
@@ -2792,7 +2792,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>13.5681cm</Top>
+            <Top>16.1081cm</Top>
             <Left>0.10579cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -2831,7 +2831,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>10.22548cm</Top>
+            <Top>12.76548cm</Top>
             <Left>0.19008cm</Left>
             <Height>0.40655cm</Height>
             <Width>12.88812cm</Width>
@@ -2907,7 +2907,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>7.20863cm</Top>
+            <Top>9.74863cm</Top>
             <Left>1.16095cm</Left>
             <Height>0.62233cm</Height>
             <Width>9.17089cm</Width>
@@ -2948,7 +2948,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>7.38663cm</Top>
+            <Top>9.92663cm</Top>
             <Left>10.47295cm</Left>
             <Height>0.64039cm</Height>
             <Width>9.53276cm</Width>
@@ -2966,8 +2966,99 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Textbox Name="Textbox3">
+            <CanGrow>true</CanGrow>
+            <CanShrink>true</CanShrink>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA **</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>EL CLIENTE NO ACEPTA PÓLIZA DE SEGURO,  *ESTAS LLANTAS SOLO TENDRAN GARANTÍA DE POR VIDA CONTRA DEFECTO DE FABRICA.</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox3</rd:DefaultName>
+            <Top>7.05612cm</Top>
+            <Left>1.15361cm</Left>
+            <Height>1.32415cm</Height>
+            <Width>19.15078cm</Width>
+            <ZIndex>32</ZIndex>
+            <Visibility>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20774,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox15">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>PARA UNA OPTIMA DURACIÓN DE SUS LLANTAS, ESTAS DEBEN ALINEARSE, BALANCEARSE Y ROTAR CADA 6 MESES O 1O MIL KILOMETROS. </Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>PARA HACER VÁLIDA UNA RECLAMACIÓN DEBERÁN CUMPLIR CON EL ANTERIOR REQUISITO</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox15</rd:DefaultName>
+            <Top>8.55666cm</Top>
+            <Left>1.15361cm</Left>
+            <Height>1.05791cm</Height>
+            <Width>19.15078cm</Width>
+            <ZIndex>33</ZIndex>
+            <Visibility>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
-        <Height>19.04565cm</Height>
+        <Height>20.32094cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>
@@ -3731,7 +3822,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/159/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -2012,7 +2012,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2908,7 +2908,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>29</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21083,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3335,7 +3335,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>41</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21085,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -4217,7 +4217,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/160/Formatos/Factura.rdlc

@@ -1999,7 +1999,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2895,7 +2895,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>29</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21092,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3322,7 +3322,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>41</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21094,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>

Empresas/161/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -2012,7 +2012,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2908,7 +2908,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>29</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21074,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3335,7 +3335,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>41</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21076,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -4217,7 +4217,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/162/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -2012,7 +2012,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2908,7 +2908,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>29</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21101,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3335,7 +3335,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>41</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21103,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -4217,7 +4217,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/166/Formatos/Cotizacion.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -1780,7 +1780,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>13</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3379,7 +3379,6 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">
       <MIMEType>image/png</MIMEType>

Empresas/166/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -2012,7 +2012,7 @@
             <Width>17.71415cm</Width>
             <ZIndex>12</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -2908,7 +2908,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>29</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 21669,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>
@@ -3335,7 +3335,7 @@
             <Width>19.15078cm</Width>
             <ZIndex>41</ZIndex>
             <Visibility>
-              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
+              <Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 21673,1,0), "DsOC") &gt; 0),false,true)</Hidden>
             </Visibility>
             <Style>
               <Border>

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -382,7 +382,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet3</DataSetName>
-        <Top>5.56865cm</Top>
+        <Top>6.39415cm</Top>
         <Left>0.38395cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.11271cm</Width>
@@ -521,7 +521,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.97857cm</Top>
+        <Top>5.80407cm</Top>
         <Left>0.1841in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1001,7 +1001,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet2</DataSetName>
-        <Top>7.3763cm</Top>
+        <Top>8.2018cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1033,7 +1033,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>6.78622cm</Top>
+        <Top>7.61172cm</Top>
         <Left>0.19973in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1346,7 +1346,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet4</DataSetName>
-        <Top>9.18605cm</Top>
+        <Top>10.01155cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.10097cm</Width>
@@ -1378,7 +1378,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>8.59597cm</Top>
+        <Top>9.42147cm</Top>
         <Left>0.19972in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -1482,7 +1482,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox45</rd:DefaultName>
-        <Top>5.82267in</Top>
+        <Top>6.14767in</Top>
         <Left>0.41187cm</Left>
         <Height>3.03416cm</Height>
         <Width>15.44579cm</Width>
@@ -1501,7 +1501,7 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>5.71082in</Top>
+        <Top>6.03582in</Top>
         <Left>6.18415in</Left>
         <Height>1.2939in</Height>
         <Width>1.53682in</Width>
@@ -1636,7 +1636,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>0.38395cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.73231in</Width>
         <ZIndex>9</ZIndex>
         <Style>
@@ -1696,10 +1696,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Aseguradora: </Value>
+                <Value>Aseguradora Responsabilidad Civil: </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1707,7 +1707,7 @@
                 <Value>=Parameters!Aseguradora.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1722,7 +1722,7 @@
                 <Value>Número de Póliza:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1730,7 +1730,99 @@
                 <Value>=Parameters!NumPoliza.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Medio Ambiente:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroMedioAmbiente.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Aseguradora Carga:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NombreAseguradoraCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Número de Póliza:</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
+                  <FontWeight>SemiBold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!NumPolizaSeguroCarga.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1745,7 +1837,7 @@
                 <Value>Placa:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1753,7 +1845,7 @@
                 <Value>=Parameters!PlacaVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1768,7 +1860,7 @@
                 <Value>Año:</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
@@ -1776,7 +1868,7 @@
                 <Value>=Parameters!AnioVM.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1784,7 +1876,7 @@
                 <Value xml:space="preserve"> </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>7pt</FontSize>
                   <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
@@ -1797,7 +1889,7 @@
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>1.13111in</Top>
         <Left>9.86403cm</Left>
-        <Height>0.76862in</Height>
+        <Height>1.08451in</Height>
         <Width>3.78138in</Width>
         <ZIndex>11</ZIndex>
         <Style>
@@ -2315,7 +2407,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet1</DataSetName>
-        <Top>11.01962cm</Top>
+        <Top>11.84512cm</Top>
         <Left>0.33883cm</Left>
         <Height>1.12062cm</Height>
         <Width>19.09433cm</Width>
@@ -2347,7 +2439,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>10.42954cm</Top>
+        <Top>11.25504cm</Top>
         <Left>0.16633in</Left>
         <Height>0.5cm</Height>
         <Width>7.52776in</Width>
@@ -2384,7 +2476,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>4.896in</Top>
+        <Top>5.221in</Top>
         <Left>6.37477in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2423,7 +2515,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>5.24863in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2461,7 +2553,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.13559in</Top>
+        <Top>5.46059in</Top>
         <Left>6.37685in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2503,7 +2595,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.04438cm</Top>
+        <Top>13.86988cm</Top>
         <Left>5.25071in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12683in</Width>
@@ -2541,7 +2633,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>5.37518in</Top>
+        <Top>5.70018in</Top>
         <Left>6.37893in</Left>
         <Height>0.60856cm</Height>
         <Width>1.30108in</Width>
@@ -2580,7 +2672,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
-        <Top>13.65293cm</Top>
+        <Top>14.47843cm</Top>
         <Left>5.25279in</Left>
         <Height>0.60856cm</Height>
         <Width>1.12614in</Width>
@@ -2739,7 +2831,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox25</rd:DefaultName>
-        <Top>12.43583cm</Top>
+        <Top>13.26133cm</Top>
         <Left>0.42248cm</Left>
         <Height>2.35375cm</Height>
         <Width>12.73266cm</Width>
@@ -2755,7 +2847,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>7.02116in</Height>
+    <Height>7.34222in</Height>
     <Style />
   </Body>
   <Width>7.82749in</Width>
@@ -3574,6 +3666,30 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroMedioAmbiente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreAseguradoraCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumPolizaSeguroCarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>es-MX</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>

General/SaldosIniciales.aspx.vb

@@ -2612,8 +2612,8 @@ Partial Class General_SaldosIniciales
         libro.Cell(crow, ccol).Value = "Prima vacacional" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Dias aguinaldo" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Metodo Pago" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colmetodopago, rowmetodopago, colmetodopago), True) : ccol = ccol + 1
-
+        libro.Cell(crow, ccol).Value = "SDI" : ccol = ccol + 1
-
+        libro.Cell(crow, ccol).Value = "Nominista" : ccol = ccol + 1
 
 
         libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
@@ -2641,6 +2641,7 @@ Partial Class General_SaldosIniciales
         Response.AddHeader("content-disposition", String.Format("attachment;filename=SaldosInicialesRH.xlsx", ""))
         Response.BinaryWrite(memoryStream.ToArray())
         Response.[End]()
+
     End Sub
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable

Inventarios/RepAnomalias.aspx

@@ -269,8 +269,9 @@
                                         <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>       
+                                <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                         
                                 <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                                <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"/>
                                 <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
@@ -326,6 +327,7 @@
                                         <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                                 
                                 <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
                                 <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
@@ -376,6 +378,7 @@
                                         <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>         
+                                <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                        
                                 <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
                                 <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
@@ -475,8 +478,9 @@
                                 <asp:CheckBox ID="ChkPSFaltante" runat="server" />
                             </ItemTemplate>
                         </asp:TemplateField>       
+                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" Visible="false" />                                          
                         <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" DataFormatString="&nbsp;{0}"  />
                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                         <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
                         <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />

Inventarios/RepAnomalias.aspx.vb

@@ -1,5 +1,7 @@
 Imports System.Data
+Imports System.IO
 Imports Extensiones
+Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_RepAnomalias
@@ -85,13 +87,17 @@ Partial Class Inventarios_RepAnomalias
 
 
         If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
-            GvF.Columns(2).Visible = True 'proveedor
+            GvF.Columns(2).Visible = True 'clasificación
-            GvS.Columns(2).Visible = True 'proveedor
+            GvS.Columns(2).Visible = True 'clasificación
-            GvC.Columns(2).Visible = True 'proveedor
+            GvC.Columns(2).Visible = True 'clasificación
+            GvF.Columns(3).Visible = True 'proveedor
+            GvS.Columns(3).Visible = True 'proveedor
+            GvC.Columns(3).Visible = True 'proveedor
             GvF.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvS.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvC.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
-            GvGrupos.Columns(1).Visible = True 'proveedor
+            GvGrupos.Columns(1).Visible = True 'clasificación
+            GvGrupos.Columns(2).Visible = True 'proveedor
             GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201)   'costo
         End If
 
@@ -221,13 +227,13 @@ Partial Class Inventarios_RepAnomalias
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
-            GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
+            GvS.DataSource = dt.FiltraParametros("Diferencia > 0")
-            Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
+            Dim DtS As DataTable = dt.FiltraParametros("Diferencia > 0")
             BanderaSerieLoteCad(GvS, DtS)
             GvS.DataBind()
 
-            GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
+            GvF.DataSource = dt.FiltraParametros("Diferencia < 0")
-            Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
+            Dim DtF As DataTable = dt.FiltraParametros("Diferencia < 0")
             BanderaSerieLoteCad(GvF, DtF)
             GvF.DataBind()
 
@@ -272,15 +278,15 @@ Partial Class Inventarios_RepAnomalias
             DVGrupos.Visible = True
 
             If DdlGPO.SelectedValue.ToEntero = 2 Then
-                GvGrupos.Columns(4).Visible = False
                 GvGrupos.Columns(5).Visible = False
                 GvGrupos.Columns(6).Visible = False
                 GvGrupos.Columns(7).Visible = False
+                GvGrupos.Columns(8).Visible = False
             Else
-                GvGrupos.Columns(4).Visible = True
                 GvGrupos.Columns(5).Visible = True
                 GvGrupos.Columns(6).Visible = True
                 GvGrupos.Columns(7).Visible = True
+                GvGrupos.Columns(8).Visible = True
             End If
 
             If DdlGPO.SelectedValue.ToEntero = 2 Then
@@ -468,8 +474,25 @@ Partial Class Inventarios_RepAnomalias
             GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
         Next
 
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text)
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", lbFechaI.Text, lbFechaF.Text)
+
+        SbFiltros.AppendFormat("Clasificaciones: {0}|", LblClasif.Text)
+        SbFiltros.AppendFormat("Clasificaciones Excluidas: {0}|", LblClasificacionesExcluidas.Text)
+
+        SbFiltros.AppendFormat("Productos: {0}|", LblProductos.Text)
+        SbFiltros.AppendFormat("Productos Excluidos: {0}|", LblProductosExcluidos.Text)
+
+        SbFiltros.AppendFormat("Proveedores: {0}|", LblProveedores.Text)
+        SbFiltros.AppendFormat("SubProyecto: {0}|", lbSubProyecto.Text)
+
+        SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
+
         'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
-        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+
+        ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString())
+
     End Sub
 
 
@@ -480,8 +503,25 @@ Partial Class Inventarios_RepAnomalias
             GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
         Next
 
-        'GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+        Dim SbFiltros As New StringBuilder()
-        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+        SbFiltros.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text)
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", lbFechaI.Text, lbFechaF.Text)
+
+        SbFiltros.AppendFormat("Clasificaciones: {0}|", LblClasif.Text)
+        SbFiltros.AppendFormat("Clasificaciones Excluidas: {0}|", LblClasificacionesExcluidas.Text)
+
+        SbFiltros.AppendFormat("Productos: {0}|", LblProductos.Text)
+        SbFiltros.AppendFormat("Productos Excluidos: {0}|", LblProductosExcluidos.Text)
+
+        SbFiltros.AppendFormat("Proveedores: {0}|", LblProveedores.Text)
+        SbFiltros.AppendFormat("SubProyecto: {0}|", lbSubProyecto.Text)
+
+        SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
+
+        'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+
+        ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Sobran", DatosFiltros:=SbFiltros.ToString())
+
     End Sub
 
 
@@ -491,14 +531,48 @@ Partial Class Inventarios_RepAnomalias
         For Each GvRow As GridViewRow In GvTemp.Rows
             GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
         Next
-        'GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+
-        GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text)
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", lbFechaI.Text, lbFechaF.Text)
+
+        SbFiltros.AppendFormat("Clasificaciones: {0}|", LblClasif.Text)
+        SbFiltros.AppendFormat("Clasificaciones Excluidas: {0}|", LblClasificacionesExcluidas.Text)
+
+        SbFiltros.AppendFormat("Productos: {0}|", LblProductos.Text)
+        SbFiltros.AppendFormat("Productos Excluidos: {0}|", LblProductosExcluidos.Text)
+
+        SbFiltros.AppendFormat("Proveedores: {0}|", LblProveedores.Text)
+        SbFiltros.AppendFormat("SubProyecto: {0}|", lbSubProyecto.Text)
+
+        SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
+
+        ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos Coincidentes", DatosFiltros:=SbFiltros.ToString())
+
     End Sub
 
 
     Private Sub LnkDescarExcelGrupos_Click(sender As Object, e As EventArgs) Handles LnkDescarExcelGrupos.Click
-        Dim Filtros As String = "Almacenes:aASDSAF|Clasificaciones:sdfasf|Fecha:12/12/2323"
+        'Dim Filtros As String = "Almacenes:aASDSAF|Clasificaciones:sdfasf|Fecha:12/12/2323"
-        GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Inventario:" & lbTitulo.Text, "", DatosFiltros:=Filtros)
+        'GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Inventario:" & lbTitulo.Text, "", DatosFiltros:=Filtros)
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Almacenes: {0}|", LblAlmacenes.Text)
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", lbFechaI.Text, lbFechaF.Text)
+
+        SbFiltros.AppendFormat("Clasificaciones: {0}|", LblClasif.Text)
+        SbFiltros.AppendFormat("Clasificaciones Excluidas: {0}|", LblClasificacionesExcluidas.Text)
+
+        SbFiltros.AppendFormat("Productos: {0}|", LblProductos.Text)
+        SbFiltros.AppendFormat("Productos Excluidos: {0}|", LblProductosExcluidos.Text)
+
+        SbFiltros.AppendFormat("Proveedores: {0}|", LblProveedores.Text)
+        SbFiltros.AppendFormat("SubProyecto: {0}|", lbSubProyecto.Text)
+
+        SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text)
+
+        ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString())
+
     End Sub
 
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
@@ -508,10 +582,10 @@ Partial Class Inventarios_RepAnomalias
 
     Private Sub BanderaSerieLoteCad(Gv As GridView, resultado As DataTable)
         If resultado IsNot Nothing Then
-            Gv.Columns(5).Visible = resultado.MAX("CveSeccionAlmacen").ToEntero > 0
+            Gv.Columns(6).Visible = resultado.MAX("CveSeccionAlmacen").ToEntero > 0
-            Gv.Columns(6).Visible = resultado.MAX("Serie") <> ""
+            Gv.Columns(7).Visible = resultado.MAX("Serie") <> ""
-            Gv.Columns(7).Visible = resultado.MAX("Lote") <> ""
+            Gv.Columns(8).Visible = resultado.MAX("Lote") <> ""
-            Gv.Columns(8).Visible = resultado.MAX("FechaCaducidad").ToDate > MinFecha
+            Gv.Columns(9).Visible = resultado.MAX("FechaCaducidad").ToDate > MinFecha
         End If
     End Sub
 
@@ -711,4 +785,160 @@ Partial Class Inventarios_RepAnomalias
 
 
     End Sub
+
+
+    Public Sub ExportarExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100)
+
+        Dim sw1 As New StringWriter()
+        Dim htw1 As New HtmlTextWriter(sw1)
+        GridView.RenderControl(htw1)
+
+        Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+        Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
+
+        htmlStream1.Position = 0
+        Dim sr1 As New StreamReader(htmlStream1)
+        Dim myStr1 = sr1.ReadToEnd()
+        sr1.Dispose()
+        htmlStream1.Dispose()
+        sw1.Dispose()
+
+        Dim HtmlCompleto As String = myStr1
+
+        HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "")
+
+        Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto))
+
+        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet)
+
+        Dim excel As GemBox.Spreadsheet.ExcelFile
+
+        excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options)
+
+        If Usuario IsNot Nothing Then
+
+            Dim TotalRowHeader As Integer = 6
+            Dim TotalRowFooter As Integer = 2
+
+
+            Dim worksheet = excel.Worksheets(0)
+            worksheet.Rows.InsertEmpty(0, TotalRowHeader)
+            Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+            celdasConTexto.Style.Font.Name = "Calibri Light"
+
+            Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
+            RangoNombreEmpresa.Merged = True
+            RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
+            RangoNombreEmpresa.Style.Font.Size = 18 * 20
+            RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
+            RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+
+            Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
+            RangoTitulo.Merged = True
+            RangoTitulo.Value = Titulo
+            RangoTitulo.Style.Font.Size = 20 * 20
+            RangoTitulo.Style.Font.Name = "Calibri Light"
+            RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+            RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+            If DatoTituloExtra.Length > 0 Then
+                Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex)
+                RangoDatoTituloExtra.Merged = True
+                RangoDatoTituloExtra.Value = DatoTituloExtra
+                RangoDatoTituloExtra.Style.Font.Size = 20 * 20
+                RangoDatoTituloExtra.Style.Font.Name = "Calibri Light"
+                RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+            End If
+
+            If DatosFiltros.Length > 0 Then
+
+                Dim Arreglo As String() = DatosFiltros.Split("|"c)
+                worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count)
+                For Each TextoFiltro As String In Arreglo
+
+                    Dim RangoDatosFiltro = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex)
+
+                    RangoDatosFiltro.Merged = True
+                    RangoDatosFiltro.Style.WrapText = True
+                    RangoDatosFiltro.Value = TextoFiltro
+                    RangoDatosFiltro.Style.Font.Size = 11 * 20
+                    RangoDatosFiltro.Style.Font.Name = "Calibri Light"
+                    RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                    RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                    TotalRowHeader += 1
+                Next
+            End If
+
+            'TotalRowHeader += 2
+
+            For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
+
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+
+                If i > 0 Then
+                    Try
+                        worksheet.Columns(i).AutoFit(1)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+            Next
+
+            Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter
+
+            worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
+            worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
+
+            worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
+            worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
+
+            If Imagen.Exists Then
+                Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
+                Using sr As New StreamReader(Ruta)
+                    Dim ms As New MemoryStream()
+                    sr.BaseStream.CopyTo(ms)
+                    worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
+                End Using
+            End If
+
+
+            For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
+
+                If I > 0 Then
+
+                    'If 1 = 1 Then
+                    '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
+                    'Else
+                    '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
+                    'End If
+                    worksheet.Columns(I + 1).Style.NumberFormat = "@"
+
+                    Try
+                        worksheet.Columns(I).AutoFit(1)
+                    Catch ex As Exception
+                    End Try
+
+                End If
+            Next
+
+        End If
+
+        excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
+
+
+    End Sub
+
 End Class

Ventas/Clientes.aspx

@@ -617,9 +617,11 @@
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
-                                            <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
                                             
+                                            <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
+                                            <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                             <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
+
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
@@ -6448,6 +6450,60 @@
         </div>
     </div>
     <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%>
+
+        <div id="DivVendedoresSucursales" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpVendedoresSucursales" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Vendedores por Sucursal</h4>
+                    </div>
+                    <div class="modal-body" style="width: 900px;">
+                        <div class="row">
+                            <div class="col-md-2">
+                                <label>Vendedor:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorSucursalAsignar" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <label>Sucursal:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlSucursalVendedor" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:Button ID="BtnAgregarVendedorSucursal" runat="server" CssClass="btn btn-primary" Text="Agregar" OnClick="BtnAgregarVendedorSucursal_Click" />
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GvVendedoresSucursales" runat="server" DataKeyNames="CveVendedor,CveSubProyecto" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" EmptyDataText="Lista de vendedores por sucursal">
+                                    <Columns>
+                                        <asp:BoundField HeaderText="Vendedor" ReadOnly="true" DataField="Vendedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Sucursal" ReadOnly="true" DataField="SubProyecto" ItemStyle-Width="70%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarVendedorSucursal" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarVendedorSucursal_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el vendedor?" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Ventas/Clientes.aspx.vb

@@ -1373,12 +1373,15 @@ Partial Class Clientes
         Dim item As New ListItem("Seleccione", "-1")
         DdlVendedor.DataSource = dt
         DdlVendedorSucursal.DataSource = dt
+        DdlVendedorSucursalAsignar.DataSource = dt
 
         DdlVendedor.DataBind()
         DdlVendedorSucursal.DataBind()
+        DdlVendedorSucursalAsignar.DataBind()
 
         DdlVendedor.Items.Insert(0, item)
         DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlVendedorSucursalAsignar.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
     End Sub
@@ -1464,6 +1467,11 @@ Partial Class Clientes
 
                 If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
 
+
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then
+                    LnkAgregarVendedorSucursal.Visible = True
+                End If
+
                 'Campos para Modificación
                 LtlCliente.Text = ObjClientes.Nombre
                 TxtNombre.Text = ObjClientes.Nombre
@@ -8565,6 +8573,10 @@ Partial Class Clientes
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectoFiltro.DataBind()
 
+        DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSucursalVendedor.DataBind()
+        DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         'Vendedor
         DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedorFiltro.DataBind()
@@ -8578,16 +8590,16 @@ Partial Class Clientes
 
         'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
         DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
-            DdlPSFiltro.SelectedText = ""
+        DdlPSFiltro.SelectedText = ""
-            DdlPSFiltro.SelectedValue = "-1"
+        DdlPSFiltro.SelectedValue = "-1"
-            'Else
+        'Else
-            '    DdlPSFiltro.ddl.Items.Clear()
+        '    DdlPSFiltro.ddl.Items.Clear()
-            '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
+        '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
-            '    DdlPSFiltro.ddl.DataBind()
+        '    DdlPSFiltro.ddl.DataBind()
-            '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-            'End If
+        'End If
 
-            CargaGrupo()
+        CargaGrupo()
         CargaTipoCentroCosto()
 
     End Sub
@@ -10827,6 +10839,74 @@ Partial Class Clientes
         End If
     End Sub
 
+    Protected Sub LnkAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) Handles LnkAgregarVendedorSucursal.Click
+        If CveCliente > 0 Then
+            DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+            DdlSucursalVendedor.SelectedValueExist("-1")
 
+            CargaProveedoresSucursales()
+            RegistraScript("$('#DivVendedoresSucursales').modal('show');")
+        End If
+    End Sub
+
+    Private Sub CargaProveedoresSucursales()
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, -1, -1, UsuarioActual.CveEmpresa) Then
+                GvVendedoresSucursales.DataSource = ObjVentas.DtResultados
+            End If
+        End Using
+        GvVendedoresSucursales.DataBind()
+        UpVendedoresSucursales.Update()
+    End Sub
+
+
+    Protected Sub LnkEliminarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.RemoveClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se eliminó el vendedor a la sucursal")
+            End If
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+    Protected Sub BtnAgregarVendedorSucursal_Click(sender As Object, e As EventArgs)
+        Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero()
+        Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero()
+
+        Dim Guardar As Boolean = True
+        Using ObjVentas As New ClsVentas
+
+            If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
+                    Guardar = False
+                    Alert("El vendedor ya existe en esta sucursal", TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
+            If Guardar AndAlso ObjVentas.AddClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+                Alert("Se agregó el vendedor a la sucursal")
+            End If
+
+        End Using
+
+        DdlVendedorSucursalAsignar.SelectedValueExist("-1")
+        DdlSucursalVendedor.SelectedValueExist("-1")
+
+        CargaProveedoresSucursales()
+
+        RecargaGlobalDTVendedorSucursal()
+    End Sub
+
+    Private Sub RecargaGlobalDTVendedorSucursal()
+        GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing
+    End Sub
 End Class
 

Ventas/Ventas.aspx.vb

@@ -6111,6 +6111,10 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -13612,7 +13616,7 @@ Partial Class Ventas
                                     Exit For
                                 End If
 
-                                If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119,140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then
+                                If CveConceptoAlmacen = 3 AndAlso UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140}) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") AndAlso Dr("EntregaDirecta").ToString().ToEntero() < 1 Then
                                     Existencia = ObjInventario.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacen, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, RestringirAlmacenes:=1, ExcluyeApartados:=1)
                                     If Existencia < Cantidad Then
                                         OcurrioError = True
@@ -16572,6 +16576,10 @@ Partial Class Ventas
         End If
         ObjSubProyectos.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         UpDetalle.Update()
     End Sub
     Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True)
@@ -16766,6 +16774,10 @@ Partial Class Ventas
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
 
         DdlVendedor.DataBind()
@@ -16875,7 +16887,7 @@ Partial Class Ventas
 
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
-                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153,140}) Then
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then
                         If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
                             Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
                             Return False
@@ -18182,12 +18194,12 @@ Partial Class Ventas
                     dr = DTPresupuestoIngresos.FiltroPrimero(String.Format("CvePresupuestoIngreso = {0}", grp.CvePresupuestoIngreso))
                     Concepto = String.Format("{0} - {1}: {2}", NombreCliente, DdlTipoComprobante.SelectedItem.Text.ToString(), TxtFolio.Text)
 
-                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                    If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaPorEjecutar").ToString().ToEntero(), False, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
-                        If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                        If ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaDevengado").ToString().ToEntero(), True, Paridad * grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                             'CARGO la deuda del cliente 
-                            If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                            If ObjAC.AddMovimiento(IDPoliza, CtaCliente, TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                                 'abono,
-                                If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "") Then
+                                If Not ObjAC.AddMovimiento(IDPoliza, dr("IdCuentaMatriz").ToString().ToEntero(), Not TipoMovto, grp.TotalImporte, "", Concepto, 0, Fecha, "V||" & factura.CveVenta) Then
                                     ErrorAC = True
                                 End If
                             Else
@@ -18213,15 +18225,13 @@ Partial Class Ventas
 
         Else
             ErrorAC = True
-
         End If
 
         If Not ErrorAC Then
             ObjAC.AjustaPoliza(IDPoliza)
-
-            ' Retorno = IDPoliza
         Else
-
+            Retorno.IdPoliza = 0
+            Retorno.FolioPoliza = -1
             Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError)
         End If
 
@@ -21854,7 +21864,7 @@ Partial Class Ventas
             Dim tDT As DataTable = Nothing
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
-                tDT = ObjOC.DtResultados
+                tDT = ObjOC.DtResultados.Copy()
                 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
                 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21867,10 +21877,14 @@ Partial Class Ventas
             If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
 
 
-                ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente")
+                ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
                 HdnCveCliente.Value = CveCliente.ToString()
                 CargaCliente(CveCliente)
 
+                If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                End If
+
                 For Each Dr As DataRow In tDT.Rows
 
                     AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
@@ -32588,6 +32602,24 @@ Partial Class Ventas
         UpModalSolicitud.Update()
     End Sub
 
+    Private Sub CargaVendedoresSubProyectos()
+
+        Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+
+        If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
+            DdlVendedor.Items.Clear()
+            DdlVendedor.SelectedValue = Nothing
+
+            DdlVendedor.DataSource = DtVendedoresSucursales
+            DdlVendedor.DataBind()
+            DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+            DtVendedoresSucursales.Dispose()
+        End If
+
+        UpParametros.Update()
+    End Sub
+
     Public Class MAnticipoRelacionado
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String