Acumuladores/CatFoliosGarantia.aspx

@@ -119,7 +119,7 @@
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                             data-sort="true"
                             data-freezerows="1"
@@ -135,7 +135,7 @@
                                         &nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Limite">
+                                <asp:TemplateField HeaderText="Límite">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal>
                                     </ItemTemplate>
@@ -151,7 +151,7 @@
                                         &nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Area" />
+                                <asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Área" />
                                 <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
@@ -269,9 +269,9 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
                                     <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
-                                        <asp:ListItem Value="general" Selected ="True">general</asp:ListItem>
+                                        <asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
-                                        <asp:ListItem Value="optima">optima</asp:ListItem>
+                                        <asp:ListItem Value="optima">Optima</asp:ListItem>
-                                        <asp:ListItem Value="motobateria">motobateria</asp:ListItem>
+                                        <asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
                                     </asp:DropDownList>
                                     <i></i>
                                 </div>
@@ -279,14 +279,14 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label>
+                                    <label for="<%= TxtLimite.ClientID.ToString()%>">Límite:</label>
                                     <i></i>
                                 </div>
                                  <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= DdlArea.ClientID.ToString()%>">Area:</label>&nbsp;
+                                    <label for="<%= DdlArea.ClientID.ToString()%>">Área:</label>&nbsp;
                                     <asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
-                                        <asp:ListItem Value="2">Almacen</asp:ListItem>
+                                        <asp:ListItem Value="2">Almacén</asp:ListItem>
                                     </asp:DropDownList>
                                     <i></i>
                                 </div>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 #Region "Folios Garantía"
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
+        GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text
     End Sub
 
     Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

App_Code/ClsBancos.vb

@@ -3475,7 +3475,7 @@ Public Class ClsBancos
 #End Region
 
 #Region "PagosCajaChica"
-    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1) As Boolean
+    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_BancosCajaChicaPagosGet")
 
@@ -3485,6 +3485,7 @@ Public Class ClsBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try

App_Code/ClsClientes.vb

@@ -1068,7 +1068,7 @@ Public Class ClsClientes
     '    Return Retorno
     'End Function
     Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean
+                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1101,6 +1101,7 @@ Public Class ClsClientes
 
             .Add("@LT", SqlDbType.VarChar).Value = LT
             .Add("@LG", SqlDbType.VarChar).Value = LG
+            .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
         End With
 
@@ -1120,7 +1121,7 @@ Public Class ClsClientes
         Return Retorno
     End Function
     Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean
+                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1156,6 +1157,7 @@ Public Class ClsClientes
 
             .Add("@LT", SqlDbType.VarChar).Value = LT
             .Add("@LG", SqlDbType.VarChar).Value = LG
+            .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
         End With
 

App_Code/ClsCompras.vb

@@ -589,6 +589,9 @@ Public Class ClsCompras
         Catch ex As SqlException
             If ex.Message.Contains("FK_Inv_MovimientosDetalle_Inv_MovimientosDetalleEntrada") Then
                 Alert(String.Format("No se puede eliminar la compra, porque tiene movimientos de salida de Almacen relacionados."), TipoMensaje.MsgAdvertencia)
+
+            ElseIf ex.Message.Contains("50015") Then
+                Alert("No se puede eliminar na compra debido a que el perido esta cerrado.", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al eliminar la Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
@@ -3071,6 +3074,39 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "REPORTE PUE SIN PAGO"
 
     Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean

App_Code/ClsInventarios.vb

@@ -4543,6 +4543,31 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
+    Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1,
+                                 Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha,
+                                 Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesRep")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Folio", SqlDbType.VarChar).Value = Folio
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
     Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RecepcionAlmacenFleteGet")
@@ -4563,6 +4588,65 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+#Region "   FLETES COMPRAS   "
+
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function PendientesAlmacenFletesComprasGet(CveFlete As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PendientesAlmacenFletesComprasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Importaciones pendientes de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
+
+
 #Region "   FLETES DETALLE   "
     Public Function AddFleteDetalle(CveFlete As Integer, CveCompra As Integer) As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsProductosServicios.vb

@@ -58,8 +58,6 @@ Public Class ClsProductosServicios
     Public Property Estado2 As Integer
     Public Property CveMarca As Integer
 
-    Public Property AlmacenSeccion As String
-
     Public Property IEPSPorcentaje As Double
 
     Public Property AplicaIEPS As Boolean
@@ -283,7 +281,7 @@ Public Class ClsProductosServicios
 
                 Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                 CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
-                'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
+                VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
                 CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
                 RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
 
@@ -2112,13 +2110,14 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer) As Boolean
+    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosSATUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsSisUsuarios.vb

@@ -415,6 +415,123 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
 
+
+    Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
+        Dim Retorno As Usuario = Nothing
+
+        DataAdapter("PA_Sis_UsuariosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = -1
+            .Add("@CveRol", SqlDbType.Int).Value = -1
+            .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
+            .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Retorno = New Usuario
+
+                Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Retorno.Usuario = Usuario
+                Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
+                Retorno.Nombre = Data.Rows(0)("Nombre").ToString
+                Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
+                Retorno.Rol = Data.Rows(0)("Rol").ToString
+                'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+                Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                Retorno.CveCliente = CveCliente
+                Retorno.ClienteGPS = False
+                Retorno.Portal = True
+                Retorno.Referencia = Data.Rows(0)("Referencia").ToString
+                Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
+                'Retorno.Liga = Data.Rows(0)("Liga").ToString
+                'cargo los modulos del usuario y genero el menú
+                Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveCliente)
+
+                Dim UsuariosModulos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
+                Next
+                Retorno.Modulos = UsuariosModulos
+                ''cargo los procesos del usuario
+                dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
+                Dim UsuariosProcesos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
+                Next
+                Retorno.Procesos = UsuariosProcesos
+            End If
+
+        Catch ex As SqlException
+            OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
+            Retorno = Nothing
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
+        Dim Retorno As Usuario = Nothing
+
+        DataAdapter("PA_Sis_UsuariosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveUsuario", SqlDbType.Int).Value = -1
+            .Add("@CveRol", SqlDbType.Int).Value = -1
+            .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
+            .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+            .Add("@EsLogIn", SqlDbType.Bit).Value = 1
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Retorno = New Usuario
+
+                Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Retorno.Usuario = Usuario
+                Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
+                Retorno.Nombre = Data.Rows(0)("Nombre").ToString
+                Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
+                Retorno.Rol = Data.Rows(0)("Rol").ToString
+                'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+                Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                Retorno.CveProveedor = CveProveedor
+                Retorno.ClienteGPS = False
+                Retorno.Portal = True
+                Retorno.Referencia = Data.Rows(0)("Referencia").ToString
+                Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
+                'Retorno.Liga = Data.Rows(0)("Liga").ToString
+                'cargo los modulos del usuario y genero el menú
+                Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor)
+
+                Dim UsuariosModulos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
+                Next
+
+                Retorno.Modulos = UsuariosModulos
+                ''cargo los procesos del usuario
+                dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
+                Dim UsuariosProcesos As New HybridDictionary
+                For Each Row As DataRow In dttmp.Rows
+                    UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
+                Next
+                Retorno.Procesos = UsuariosProcesos
+            End If
+
+        Catch ex As SqlException
+            OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
+            Retorno = Nothing
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #Region "U S U A R I O - I N D I C A D O R E S"
     Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
 
@@ -2672,6 +2789,78 @@ Public Class ClsSisUsuarios
 
         Return Retorno
     End Function
+
+    Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosClienteGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosProveedoresAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Sis_UsuariosProveedorGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 

App_Code/ClsVentas.vb

@@ -341,7 +341,7 @@ Public Class ClsVentas
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1) As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -432,6 +432,7 @@ Public Class ClsVentas
             .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
             .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
             .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
+            .Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With

App_Code/Modelos.vb

@@ -5613,6 +5613,7 @@ Namespace Modelos
         Public Property Pagado As Decimal
         Public Property DescuentoProntoPago As Decimal
         Public Property CveVentaRNCCargo As Integer
+        Public Property FacturarSucursal As Boolean = False
         'Public Property Sucursal As SucursalModel
         Public Property SubProyecto As Modelos.SubProyectoModel
 
@@ -9079,6 +9080,7 @@ Namespace Modelos
             FormatoFactura = ""
             Sucursal = ""
             CorreoSucursal = ""
+            RFC = ""
         End Sub
         Public Sub New()
             MyBase.New()
@@ -9095,6 +9097,8 @@ Namespace Modelos
             End Get
         End Property
         Public Property CveSucursal As Integer
+        Public Property RFC As String
+        Public Property Nombre As String
         Public Property Calle As String
         Public Property Direccion As String
         Public Property NoExt As String
@@ -9114,6 +9118,7 @@ Namespace Modelos
         Public Property TelefonoSucursal As String
         Public Property ImprimeNombreSucursal As String
 
+
     End Class
 
     <Serializable>

App_Code/Timbrado.vb

@@ -725,7 +725,7 @@ Public Class Timbrado
             If Msg = String.Empty Then
 
                 'Nodo receptor
-                Msg = CFDi.ReceptorCfd(Ventas.Cliente.RFC, Ventas.Cliente.Nombre, "", "", Ventas.ClaveUsoCFDI)
+                Msg = CFDi.ReceptorCfd(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, "", "", Ventas.ClaveUsoCFDI)
                 If Msg = String.Empty Then
 
                     'Nodo conceptos, se agregan los PS
@@ -941,7 +941,7 @@ Public Class Timbrado
 
 
                                                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                                                        CBB.GenerarCBB(UsuarioActual.Empresa.RFC, Ventas.Cliente.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB)
+                                                        CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB)
 
                                                         ''Genero la addenda de 7-Eleven
                                                         'If sevenElevenNumProveedor <> "" AndAlso sevenElevenFolio <> "" AndAlso sevenElevenTienda <> "" AndAlso sevenElevenFecha <> "" AndAlso sevenElevenFecha <> "__/__/____" Then

Bancos/DepositosCaja.aspx

@@ -23,17 +23,16 @@
 
     <asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                 <div class="portlet-title portlet-filterT smalltitle">
-
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-primary" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
                     </div>
-
+                    <div class="titlefiltros  caption ">
-                    <div class="portlet-body">
                         <div class="row">
 
-                            <label class="col-md-2 truncate" style="width: 110px;">Cuenta de Caja:</label>
+                            <label class="col-md-1 truncate" style="width: 110px;">Cuenta:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 </asp:DropDownList>
@@ -43,7 +42,7 @@
                             <label class="col-md-1 truncate" style="width: 40px;">F.I.:</label>
                             <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important;">
-                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -58,7 +57,7 @@
                             <label class="col-md-1 truncate" style="width: 40px;">F.F.:</label>
                             <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important;">
-                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -76,13 +75,24 @@
                                     <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
                                     <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
                                     <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
+                                    <asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
+                                    <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                             
                         </div>
 
-                    </div>
+                   </div>
+                 </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                         <label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                                </asp:DropDownList>
+                            </div>
 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Bancos/DepositosCaja.aspx.vb

@@ -19,6 +19,8 @@ Partial Class Bancos_DepositosCaja
         If Not IsPostBack Then
             FacturasCheckadas = 0
             TxtFecha.Text = Now.ToShortDateString
+            txtFechaI.Text = Now.AddDays(-1).ToShortDateString
+            txtFechaF.Text = Now.ToShortDateString
             CargaCuentas()
         End If
     End Sub
@@ -29,6 +31,10 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
+
+        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -41,7 +47,7 @@ Partial Class Bancos_DepositosCaja
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
-        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero)
+        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero)
 
         GvFacturas.DataSource = ObjBancos.DtResultados
         ObjBancos.Dispose()

Bancos/IE.aspx.vb

@@ -3626,7 +3626,7 @@ Partial Class Bancos_IE
                                     TipoMovimiento = False
                                 End If
 
-                                If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then
                                     IDCtaBeneficiario = IdCtaAnticipoExtranjera
                                     CveCuentaConta = 0
                                 End If
@@ -3634,7 +3634,7 @@ Partial Class Bancos_IE
                                 'MOVIMIENTOS EGRESOS
                                 If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                     Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
-                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
+                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
                                         If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                             MsgError = "Detalle"
                                         End If

Bancos/PolizaCheque.aspx.vb

@@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque
             CodigoCuenta = ""
             NombreCuenta = ""
 
-            If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+            If UsuarioActual.Empresa.UsaContabilidad Then
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
+                If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
 
 
-                If drr IsNot Nothing Then
+                    If drr IsNot Nothing Then
-                    IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        CodigoCuenta = drr("CuentaFormato").ToString()
+                        NombreCuenta = drr("Nombre").ToString()
+                        'Cuenta = drr("Nombre").ToString()
+                    End If
+                    EsComodin = 0
+
+
+                ElseIf drt("CveConcepto").ToString = "30" Then
+                    'saco la clave de la cuenta bancaria seleccionada
+                    If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
+                        Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
+                        If drr IsNot Nothing Then
+                            IdCuenta = drr("Id").ToString.ToEntero
+                            CodigoCuenta = drr("CuentaFormato").ToString()
+                            NombreCuenta = drr("Nombre").ToString()
+                            '  Cuenta = drr("Nombre").ToString()
+                            EsComodin = 1
+                        Else
+
+                            ' Rad.Checked = False
+                            If UsuarioActual.CveEmpresa <> 126 Then
+                                Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
+                                GvMov.DataBind()
+                                UPMovs.Update()
+                                Exit Sub
+                            End If
+
+                        End If
+                    End If
+                ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
+
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
+
+                    IdCuenta = IdCtaFondoGarantia
                     CodigoCuenta = drr("CuentaFormato").ToString()
                     NombreCuenta = drr("Nombre").ToString()
                     'Cuenta = drr("Nombre").ToString()
+
+                    EsComodin = 0
+
                 End If
-                EsComodin = 0
-
-
-            ElseIf drt("CveConcepto").ToString = "30" Then
-                'saco la clave de la cuenta bancaria seleccionada
-                If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
-                    If drr IsNot Nothing Then
-                        IdCuenta = drr("Id").ToString.ToEntero
-                        CodigoCuenta = drr("CuentaFormato").ToString()
-                        NombreCuenta = drr("Nombre").ToString()
-                        '  Cuenta = drr("Nombre").ToString()
-                        EsComodin = 1
-                    Else
-
-                        ' Rad.Checked = False
-                        If UsuarioActual.CveEmpresa <> 126 Then
-                            Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
-                            GvMov.DataBind()
-                            UPMovs.Update()
-                            Exit Sub
-                        End If
-
-                    End If
-                End If
-            ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
-
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
-
-                IdCuenta = IdCtaFondoGarantia
-                CodigoCuenta = drr("CuentaFormato").ToString()
-                NombreCuenta = drr("Nombre").ToString()
-                'Cuenta = drr("Nombre").ToString()
-
-                EsComodin = 0
-
             End If
 
+
+
             Dim dr As DataRow = DtMovimientos.NewRow
             dr("IdCuenta") = IdCuenta
             dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta

Compras/Compras.aspx

@@ -4802,15 +4802,19 @@
                         </div>
                       
                         <div class="form-group form-md-line-input input-iconright">
-                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
+                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="Cantidad,CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
                                    <Columns>
+                                       <%--<%#Eval("Cantidad") %>--%>
                                         <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
-                                                <ItemTemplate>
+                                            <ItemTemplate>
-                                                    <asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
+                                                <asp:TextBox ID="TxtCant" runat="server" Text='' Width="50px" ></asp:TextBox>
-                                                </ItemTemplate>
+                                                <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCant" runat="server" MinimumValue="0" Type="Double" ErrorMessage="Supera el total disponible"></asp:RangeValidator>
-                                            </asp:TemplateField>
+                                            </ItemTemplate>
+                                       </asp:TemplateField>
+                                       <asp:BoundField DataField="Cantidad" HeaderText="Total"/>
                                        <asp:BoundField DataField="UM" headertext="UM" />
                                        <asp:BoundField DataField="CodigoPS" headertext="Producto" />
+                                       <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                    </Columns>
                                </asp:GridView>
                         </div>

Compras/Compras.aspx.vb

@@ -1145,7 +1145,7 @@ Partial Class Compras_Compras
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
             Modalidad = ""
-            Version = ""
+            Version = "3.3"
             CveMetodoPago = -1
             RFCProv = ""
             CargaDdlTipoGasto()
@@ -1743,8 +1743,26 @@ Partial Class Compras_Compras
                     Select Case TipoComprobante
                         Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                         Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
-                        Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+                        Case "I"
-                        Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
+                            DdlTipoComprobante.SelectedValue = "Fac"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
+                            DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
+                        Case "E"
+                            DdlTipoComprobante.SelectedValue = "NC"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                            ChkAplicaNotaCredito.Enabled = False
+
+
+
+                            DdlTipoCompra.Items.Clear()
+                            DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
+                            DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
+
+
                     End Select
 
                     'DIV ALIAS
@@ -3935,6 +3953,24 @@ Partial Class Compras_Compras
             End If
         End If
 
+        'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
+        If UsuarioActual.CveEmpresa = 72 Then
+
+            Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
+            If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+                Dim StrNoEncontrados As New StringBuilder
+                StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                For Each drt As DataRow In DtNoEncontrados.Rows
+                    StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+                Next
+                Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+                DtNoEncontrados.Dispose()
+                StrNoEncontrados.Clear()
+                Exit Sub
+            End If
+            DtNoEncontrados.Dispose()
+        End If
+
         'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
         Dim GuardaNoDeducibles As Boolean = False
         If ChkEsNoDeducible.Checked Then
@@ -4471,7 +4507,7 @@ Partial Class Compras_Compras
                                             CveConceptoContableAlmacen = 205
                                         End If
                                     Else
-                                    CveConceptoContableAlmacen = 225
+                                        CveConceptoContableAlmacen = 225
                                     End If
 
                                     'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
@@ -4543,19 +4579,13 @@ Partial Class Compras_Compras
                                         Case 237
                                             Select Case FleteImportacionOpcion
                                                 Case 1
-                                                    Dim Dr As DataRow = Nothing
+                                                    If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
-                                                    If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
-                                                        If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                                            Dr = ObjInventario.DtResultados.Rows(0)
-                                                        End If
-                                                    End If
-                                                    If Dr IsNot Nothing Then
-                                                        If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
-                                                            ErrorOC = True
-                                                        End If
-                                                    Else
                                                         ErrorOC = True
                                                     End If
+                                                    ''actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                                                    'If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                    '    ErrorOC = True
+                                                    'End If
                                                 Case 2
                                                     If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
                                                         ErrorOC = True
@@ -5015,7 +5045,7 @@ Partial Class Compras_Compras
 
                                         'ACTUALIZAR PRODUCTO/SERVICIO SAT
                                         If Version = "3.3" Then
-                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
+                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                                 ErrorSATPS = True
                                             End If
                                         End If
@@ -6732,7 +6762,7 @@ Partial Class Compras_Compras
                                                                     If UsuarioActual.CveEmpresa.Contiene(119) Then
                                                                         Dim ContienePSNeteoBonif As Boolean = False
                                                                         For Each Dr As DataRow In TmpDT.Rows
-                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo
                                                                                 ContienePSNeteoBonif = True
                                                                                 Exit For
                                                                             End If
@@ -10144,7 +10174,7 @@ Partial Class Compras_Compras
                     '        ErrorPrepoliza = True
                     '    End If
                     Case 6
-                        Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
+                        Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
                         Dim ConceptoPersonal As String = "", Concepto As String = ""
 
                         If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
@@ -10152,9 +10182,7 @@ Partial Class Compras_Compras
                         Else
                             If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
                                 CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero
-                                CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero
                                 CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero
-                                CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero
                                 CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero
                                 Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49  OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString
                             End If
@@ -10195,7 +10223,7 @@ Partial Class Compras_Compras
                                 End If
 
                                 If importeMovimiento <> 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10242,7 +10270,7 @@ Partial Class Compras_Compras
                                             CveCuenta = 0
                                         End If
 
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                             ErrorPrepoliza = True
                                         End If
 
@@ -10358,7 +10386,7 @@ Partial Class Compras_Compras
                                 'AGREGA MOVIMIENTO
                                 If importeMovimiento <> 0 Then
                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
                                         ErrorPrepoliza = True
                                     End If
                                 End If
@@ -10476,6 +10504,10 @@ Partial Class Compras_Compras
         _TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
         TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble
 
+
+
+
+
         If Version = "3.3" Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
@@ -15351,11 +15383,27 @@ Partial Class Compras_Compras
         Dim SubTotalCompra As Decimal = Amortizacion
         Dim DiferenciaPermitida = 1
         Dim Cont = 0
+        Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
         For Each gvr As GridViewRow In GvOC1.Rows
             SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
             If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
             Cont = 1
+            If GvOC1.Columns(6).Visible Then
+                Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+                Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+                If SatPS.Contains("01010101") Then
+                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
+                    'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+                    'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+
+                End If
+            End If
         Next
+        If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+            Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
             LbSubTotalDif.Visible = False
@@ -15959,6 +16007,46 @@ Partial Class Compras_Compras
 
     End Sub
 
+    Public Sub CargaIndirectosServicios()
+        If DtServicios Is Nothing Then CreaDTServicios()
+        DtServicios.Rows.Clear()
+
+        Dim objps As New ClsProductosServicios
+        Dim dr As DataRow
+        dvFacturas.Visible = False
+        GvFacturas.Visible = False
+
+        For Each DrGv As DataRow In TmpDT.Rows
+            If DrGv("CvePS").ToString.ToEntero > 0 Then
+                If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
+                        dr = DtServicios.NewRow()
+                        dr("Consec") = DrGv("Consec").ToString.ToEntero
+                        dr("Total") = DrGv("Total").ToString.ToDecimal
+                        dr("CvePS") = DrGv("CvePS").ToString.ToEntero
+                        dr("PS") = DrGv("PS").ToString
+                        DtServicios.Rows.Add(dr)
+                    End If
+                End If
+            End If
+        Next
+
+        objps.Dispose()
+
+        If DtServicios.Rows.Count > 0 Then
+            GVServicios.DataSource = DtServicios
+            GVServicios.DataBind()
+            GVServicios.Visible = True
+        Else
+            GVServicios.DataSource = Nothing
+            GVServicios.DataBind()
+        End If
+
+        UpGVServicios.Update()
+        UpFacturas.Update()
+        UPGVFacturas.Update()
+    End Sub
+
     Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
 
         Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen
@@ -16011,7 +16099,7 @@ Partial Class Compras_Compras
         ''Marcamos todos los almacenes como check
         'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True
         'cbAll_CheckedChanged(Nothing, Nothing)
-
+        RegistraScript("$('#ModalFletesImportaciones').modal('hide');")
     End Sub
 
     Private Sub CargaGastosServicios(CvePS As Integer)
@@ -16333,7 +16421,10 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
@@ -16359,7 +16450,9 @@ Partial Class Compras_Compras
 
 
         End If
+
         UPCondicionesPago.Update()
+
     End Sub
 
 
@@ -17602,8 +17695,17 @@ Partial Class Compras_Compras
         ActualizaTotales = True
         Select Case Modalidad
             Case "A" 'ADD
+
+                Dim SATClavePS = -1
+                Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                If PSRow IsNot Nothing Then
+                    SATClavePS = PSRow("SATClavePS").ToString.ToEntero
+                End If
+
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
-                         DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked)
+                      DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
+                      TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
+                      NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -18138,7 +18240,7 @@ Partial Class Compras_Compras
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
 
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -18485,6 +18587,14 @@ Partial Class Compras_Compras
         UPPSolDev.Update()
 
     End Sub
+
+    Private Sub GvSolDev_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolDev.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim ExistenciasAux As Decimal = e.Row.DataKey("Cantidad").ToDecimal
+            e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString
+        End If
+    End Sub
+
     Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
         Dim TieneError As Boolean = False
@@ -19218,13 +19328,13 @@ Partial Class Compras_Compras
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
             End If
-            If Dr IsNot Nothing Then
+            'If Dr IsNot Nothing Then
-                If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
+            '    If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then
-                    Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
+            '        Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia)
-                    ObjInventario.Dispose()
+            '        ObjInventario.Dispose()
-                    Exit Sub
+            '        Exit Sub
-                End If
+            '    End If
-            End If
+            'End If
             ObjInventario.Dispose()
         End If
 
@@ -19247,19 +19357,13 @@ Partial Class Compras_Compras
                 Case 237
                     Select Case FleteImportacionOpcion
                         Case 1
-                            Dim Dr As DataRow = Nothing
+                            If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
-                            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
-                                If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                    Dr = ObjInventario.DtResultados.Rows(0)
-                                End If
-                            End If
-                            If Dr IsNot Nothing Then
-                                If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
-                                    ErrorTrans = True
-                                End If
-                            Else
                                 ErrorTrans = True
                             End If
+                            '''actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                            ''If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            ''    ErrorTrans = True
+                            ''End If
                         Case 2
                             If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
                                 ErrorTrans = True
@@ -20045,6 +20149,9 @@ Partial Class Compras_Compras
 
         DivGastosyServicios.Visible = MostrarGastosServicios
         DivGastosyServiciosFooter.Visible = MostrarGastosServicios
+        If MostrarGastosServicios Then
+            CargaIndirectosServicios()
+        End If
 
         DivVincularCrear.Visible = Not MostrarGastosServicios
         DivVincularCrearFooter.Visible = Not MostrarGastosServicios

Compras/PopUpVerFactura.aspx.vb

@@ -2703,6 +2703,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
 
+                    Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
+                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
+
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
                     params.Add(New ReportParameter("Almacen", Almacen))
@@ -2712,12 +2715,17 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Descuentos", ""))
                     params.Add(New ReportParameter("IVA", ""))
                     params.Add(New ReportParameter("Total", ""))
-                    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                     params.Add(New ReportParameter("NombreRecibio", Recibio))
                     params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                     params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
 
+                    If UsuarioActual.CveEmpresa = 72 Then
+                        params.Add(New ReportParameter("Sucursal", SubProyecto))
+                        params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe))
+                        params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
 
+                    End If
                     params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
                     params.Add(New ReportParameter("Observaciones", Observaciones))

Compras/RepComprasDetalle.aspx

@@ -410,6 +410,7 @@
                             <asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="Descripcion" ItemStyle-Width="100px" HeaderText="Descripción" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -481,7 +482,7 @@
                                         <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
-                                    <td></td>
+                                    <td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td>
                                 </tr>
                                 <tr>
                                     <td>

Compras/RepComprasDetalle.aspx.vb

@@ -153,7 +153,7 @@ Partial Class Compras_RepComprasDetalle
         DdlGrupo.SelectedValueExist(Grupo)
         DdlProveedores.SelectedValue = Proveedor
         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimeroValor("RazonSocial", "").ToString
         Else
             DdlProveedores.SelectedText = "Todos"
         End If
@@ -607,6 +607,7 @@ Partial Class Compras_RepComprasDetalle
         GvDatos.Columns(10).Visible = ChkFolio.Checked
         GvDatos.Columns(11).Visible = ChkFecha.Checked
         GvDatos.Columns(12).Visible = ChkObs.Checked
+        GvDatos.Columns(13).Visible = ChkDescripcion.Checked
         UPDatos.Update()
     End Sub
 

Compras/eFacturas.aspx

@@ -216,7 +216,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Importe">
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" />
                                 </asp:TemplateField>

Contabilidad/ContabilizacionVentas.aspx.cs

@@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"));
             }
-            if (CveConcepto.Contiene(2, 4, 13, 61, 38, 39, 1, 203, 207, 251))
+            if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39,  150, 203, 207, 251))
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"));
             }

Contabilidad/RegPrePoliza.aspx

@@ -190,6 +190,7 @@
                                                     <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
                                                     <br />
                                                     <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />

Contabilidad/RegPrePoliza.aspx.vb

@@ -570,6 +570,16 @@ Partial Class ContabilidadC_RegPrePoliza
             TxtTC.Visible = False
         End If
 
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(69) Then
+            CargaClasificaciones()
+            DdlClasificaciones.Visible = True
+        Else
+        TxtTC.Text = ""
+        DdlClasificaciones.Visible = False
+        End If
+
+
+
     End Sub
 
     Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
@@ -633,6 +643,12 @@ Partial Class ContabilidadC_RegPrePoliza
         '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
 
+    Private Sub CargaClasificaciones()
+        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificaciones.DataBind()
+        '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+
     Private Sub CargaVentas(CveCliente As Integer)
         Dim ObjVentas As New ClsVentas
 
@@ -942,6 +958,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
                                 'MENSAJE PRINCIPAL
                                 MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+                                MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
                                 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
                             Else
                                 Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
@@ -1209,7 +1226,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
             End If
@@ -1278,7 +1295,7 @@ Partial Class ContabilidadC_RegPrePoliza
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
                 dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
-                dr("CveClasificacion") = -1
+                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
                 dr("TC") = TxtTC.Text.ToDouble

Contabilidad/RepIVA.aspx.cs

@@ -215,9 +215,20 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt");
             Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion);
             para.Add(new CrystalParametro("Excel", Formato));
-            string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
+            System.IO.FileInfo Archivo = new System.IO.FileInfo(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato));
+            string Ruta;// = (Archivo.Exists ? string.Format("{0}/{1}", UsuarioActual.Empresa.Ruta, Formato ): ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
+
+            Alert(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato));
+            if (Archivo.Exists)
+            {
+                Ruta = string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato);
+                ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            }else
+            {
+                Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}";
+                ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            }
             Ruta.GuardaLogAD();
-            ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
             //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
         }
         else

Contratos/RepPedidosDevolucionesXContrato.aspx

@@ -140,7 +140,8 @@
                                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                     <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
+                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
                                 </Columns>
                             </asp:GridView>
                         </div>
@@ -180,7 +181,8 @@
                                     <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.##}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="3%" />
                                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                     <asp:BoundField HeaderText="Contrato Externo" DataField="ContratoExterno" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
+                                    <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField HeaderText="Es Interno" DataField="EsInternoTexto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
                                 </Columns>
                             </asp:GridView>
                         </div>

Contratos/RepPedidosDevolucionesXContrato.aspx.vb

@@ -112,6 +112,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
                 e.Row.Cells(1).Text = ""
                 e.Row.Cells(5).Text = ""
                 e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
 
                 Dim Texto = $"Pedido: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
                 Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")
@@ -135,6 +136,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
                 e.Row.Cells(1).Text = ""
                 e.Row.Cells(5).Text = ""
                 e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
 
                 Dim Texto = $"Devolución: <b><a href='/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveVenta")}' target='_blank'>{e.Row.DBCampo("SerieFolio")}</a></b> | "
                 Texto += If(e.Row.DBCampo("CveMovimiento").ToString = "", " SIN MOVIMIENTO DE ALMACÉN", $"Folio Almacén: <b><a href ='/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}' target='_blank'>{e.Row.DBCampo("Folio")}</a></b>")

Empresas/145/Formatos/NotaDevolucion.rdlc

@@ -3301,6 +3301,198 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="ClienteDiasCredito">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MonedaAbreviatura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDireccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioContacto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDepartamento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusFactura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusEntrega">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="PedidoContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DescripcionContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="OrdenCompra">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoRelacionTexto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscalRelacionado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteDatoExtra1">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Contrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCalle">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteMunicipio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClientePais">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

Empresas/72/Formatos/Factura.rdlc

@@ -787,7 +787,7 @@
               <BreakLocation>Start</BreakLocation>
             </PageBreak>
             <KeepTogether>true</KeepTogether>
-            <Top>9.87049in</Top>
+            <Top>9.18657in</Top>
             <Left>0.06548in</Left>
             <Height>1.67778in</Height>
             <Width>8.23221in</Width>
@@ -1367,7 +1367,7 @@
               </Image>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>7.30179in</Top>
+            <Top>6.61787in</Top>
             <Left>0.05817in</Left>
             <Height>1.3508in</Height>
             <Width>8.23035in</Width>
@@ -3408,7 +3408,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox54</rd:DefaultName>
-            <Top>6.7921in</Top>
+            <Top>6.10818in</Top>
             <Left>0.16632cm</Left>
             <Height>0.36385in</Height>
             <Width>4.94037in</Width>
@@ -3444,7 +3444,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox33</rd:DefaultName>
-            <Top>17.25192cm</Top>
+            <Top>15.51477cm</Top>
             <Left>12.71485cm</Left>
             <Height>0.44794cm</Height>
             <Width>8.33799cm</Width>
@@ -3474,7 +3474,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>18.31722cm</Top>
+            <Top>16.58007cm</Top>
             <Left>0.16632cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.88652cm</Width>
@@ -3732,7 +3732,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>14.71903cm</Top>
+            <Top>12.98188cm</Top>
             <Left>0.14775cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.90509cm</Width>
@@ -4038,7 +4038,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>15.01537cm</Top>
+            <Top>13.27822cm</Top>
             <Left>3.16661cm</Left>
             <Height>1.61479cm</Height>
             <Width>15.04148cm</Width>
@@ -4067,7 +4067,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>16.9459cm</Top>
+            <Top>15.20875cm</Top>
             <Left>0.22358cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.90509cm</Width>
@@ -4097,24 +4097,6 @@
               </Border>
             </Style>
           </Image>
-          <Image Name="Image2">
-            <Source>Embedded</Source>
-            <Value>BannerFacturaSIG</Value>
-            <Sizing>Fit</Sizing>
-            <Top>12.35498cm</Top>
-            <Left>0.14775cm</Left>
-            <Height>2.18766cm</Height>
-            <Width>10.48062cm</Width>
-            <ZIndex>25</ZIndex>
-            <Visibility>
-              <Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
-            </Visibility>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-            </Style>
-          </Image>
           <Textbox Name="ImporteLetra">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -4140,7 +4122,7 @@
             <Left>2.22035in</Left>
             <Height>0.18861in</Height>
             <Width>6.06817in</Width>
-            <ZIndex>26</ZIndex>
+            <ZIndex>25</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -4416,7 +4398,7 @@
             <Left>0.06548in</Left>
             <Height>0.34081in</Height>
             <Width>2.08542in</Width>
-            <ZIndex>27</ZIndex>
+            <ZIndex>26</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -4910,11 +4892,11 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>22.07352cm</Top>
+            <Top>20.33637cm</Top>
             <Left>0.14775cm</Left>
             <Height>2.97096cm</Height>
             <Width>20.69254cm</Width>
-            <ZIndex>28</ZIndex>
+            <ZIndex>27</ZIndex>
             <Visibility>
               <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
             </Visibility>
@@ -4925,7 +4907,7 @@
             </Style>
           </Rectangle>
         </ReportItems>
-        <Height>29.49675cm</Height>
+        <Height>27.72404cm</Height>
         <Style />
       </Body>
       <Width>21.12867cm</Width>

Empresas/72/Formatos/NotaCredito.rdlc

@@ -254,7 +254,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>6.98284in</Top>
+        <Top>6.54534in</Top>
         <Left>0.17798in</Left>
         <Height>0.98611in</Height>
         <Width>8.09734in</Width>
@@ -1186,7 +1186,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>4.34222in</Top>
+        <Top>3.90472in</Top>
         <Left>0.14966in</Left>
         <Height>2.61856in</Height>
         <Width>8.22763in</Width>
@@ -1494,7 +1494,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>10.74498cm</Top>
+        <Top>9.63373cm</Top>
         <Left>0.48382cm</Left>
         <Height>0.14316cm</Height>
         <Width>20.56724cm</Width>
@@ -1583,7 +1583,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1591,7 +1591,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1599,7 +1599,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1607,15 +1607,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
+                <Value>Aguascalientes, Ags.  </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1623,7 +1615,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1631,33 +1623,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -1678,21 +1647,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -1702,29 +1663,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -1821,30 +1766,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Line Name="Line5">
-        <Top>1.69533cm</Top>
-        <Left>6.74703cm</Left>
-        <Height>0.38833cm</Height>
-        <Width>0cm</Width>
-        <ZIndex>10</ZIndex>
-        <Style>
-          <Border>
-            <Style>Solid</Style>
-          </Border>
-        </Style>
-      </Line>
-      <Line Name="Line7">
-        <Top>1.72708cm</Top>
-        <Left>9.41258cm</Left>
-        <Height>0.38833cm</Height>
-        <Width>0cm</Width>
-        <ZIndex>11</ZIndex>
-        <Style>
-          <Border>
-            <Style>Solid</Style>
-          </Border>
-        </Style>
-      </Line>
       <Textbox Name="Textbox32">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -1907,7 +1828,7 @@
         <Left>0.48382cm</Left>
         <Height>1.14285cm</Height>
         <Width>4.08234cm</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2169,7 +2090,7 @@
         <Left>5.29091in</Left>
         <Height>1.51932in</Height>
         <Width>2.9844in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2748,7 +2669,7 @@
         <Left>0.17067in</Left>
         <Height>0.37206in</Height>
         <Width>8.10465in</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2777,7 +2698,7 @@
         <Left>0.4335cm</Left>
         <Height>0.43419cm</Height>
         <Width>20.41027cm</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2788,21 +2709,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Image Name="Image2">
-        <Source>Embedded</Source>
-        <Value>Microsoft</Value>
-        <Sizing>Fit</Sizing>
-        <Top>8.23074cm</Top>
-        <Left>0.5393cm</Left>
-        <Height>2.37313cm</Height>
-        <Width>11.6363cm</Width>
-        <ZIndex>16</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
       <Textbox Name="Textbox9">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -2822,7 +2728,7 @@
         <Left>14.3522cm</Left>
         <Height>0.14316cm</Height>
         <Width>6.66711cm</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2859,7 +2765,7 @@
         <Left>3.58384in</Left>
         <Height>0.18861in</Height>
         <Width>4.69148in</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2977,15 +2883,39 @@
         <Left>14.3787cm</Left>
         <Height>0.48004cm</Height>
         <Width>6.64061cm</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
           </Border>
         </Style>
       </Tablix>
+      <Line Name="Line5">
+        <Top>1.53874cm</Top>
+        <Left>6.09322cm</Left>
+        <Height>0.38617cm</Height>
+        <Width>0cm</Width>
+        <ZIndex>17</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Line Name="Line6">
+        <Top>1.53874cm</Top>
+        <Left>8.82941cm</Left>
+        <Height>0.38617cm</Height>
+        <Width>0cm</Width>
+        <ZIndex>18</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
     </ReportItems>
-    <Height>20.24114cm</Height>
+    <Height>19.3151cm</Height>
     <Style />
   </Body>
   <Width>21.27832cm</Width>

Empresas/72/Formatos/NotaDevolucion.rdlc

@@ -254,7 +254,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>5.71563in</Top>
+        <Top>5.21563in</Top>
         <Left>0.05298in</Left>
         <Height>0.98611in</Height>
         <Width>8.29986in</Width>
@@ -655,7 +655,7 @@
           </Image>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>4.19067in</Top>
+        <Top>3.69067in</Top>
         <Left>0.04839in</Left>
         <Height>1.39013in</Height>
         <Width>8.30445in</Width>
@@ -963,7 +963,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>10.41499cm</Top>
+        <Top>9.14499cm</Top>
         <Left>0.13457cm</Left>
         <Height>0.14316cm</Height>
         <Width>21.08165cm</Width>
@@ -994,7 +994,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.28108cm</Top>
+        <Top>13.01108cm</Top>
         <Left>0.16632cm</Left>
         <Height>0.14316cm</Height>
         <Width>21.0499cm</Width>
@@ -1083,7 +1083,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1091,7 +1091,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1099,7 +1099,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1107,15 +1107,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
+                <Value>Aguascalientes, Ags.  </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1123,7 +1115,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1131,33 +1123,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -1178,21 +1147,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -1202,29 +1163,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -1323,7 +1268,7 @@
       </Textbox>
       <Line Name="Line5">
         <Top>1.69533cm</Top>
-        <Left>6.42953cm</Left>
+        <Left>5.79453cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>11</ZIndex>
@@ -1335,7 +1280,7 @@
       </Line>
       <Line Name="Line7">
         <Top>1.72708cm</Top>
-        <Left>9.09508cm</Left>
+        <Left>8.46008cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>12</ZIndex>
@@ -2274,21 +2219,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Image Name="Image2">
-        <Source>Embedded</Source>
-        <Value>Microsoft</Value>
-        <Sizing>Fit</Sizing>
-        <Top>8.19546cm</Top>
-        <Left>0.116cm</Left>
-        <Height>2.03729cm</Height>
-        <Width>11.6363cm</Width>
-        <ZIndex>17</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
       <Textbox Name="Textbox9">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -2308,7 +2238,7 @@
         <Left>14.54911cm</Left>
         <Height>0.14316cm</Height>
         <Width>6.66711cm</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2345,7 +2275,7 @@
         <Left>3.1938in</Left>
         <Height>0.18861in</Height>
         <Width>5.15904in</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2463,7 +2393,7 @@
         <Left>14.57561cm</Left>
         <Height>0.48004cm</Height>
         <Width>6.64061cm</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2471,7 +2401,7 @@
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>17.08592cm</Height>
+    <Height>15.763cm</Height>
     <Style />
   </Body>
   <Width>21.25578cm</Width>

Empresas/72/Formatos/Pedido.rdlc

@@ -285,7 +285,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -293,7 +293,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -301,7 +301,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -309,15 +309,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
+                <Value>Aguascalientes, Ags.  </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -325,7 +317,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -333,33 +325,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
+                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -380,21 +349,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -404,29 +365,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -671,7 +616,7 @@
       </Textbox>
       <Line Name="Line5">
         <Top>1.69533cm</Top>
-        <Left>6.87784cm</Left>
+        <Left>6.24284cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>6</ZIndex>
@@ -683,7 +628,7 @@
       </Line>
       <Line Name="Line7">
         <Top>1.72708cm</Top>
-        <Left>9.54339cm</Left>
+        <Left>8.90839cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>7</ZIndex>

Empresas/72/Formatos/Remision.rdlc

@@ -629,7 +629,7 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>5.80313in</Top>
+            <Top>4.96563in</Top>
             <Left>0.04506in</Left>
             <Height>1.52153in</Height>
             <Width>8.22304in</Width>
@@ -1076,7 +1076,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value>
+                    <Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ" or Parameters!Sucursal.Value = "Hermosillo", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11.78pt</FontSize>
@@ -1116,7 +1116,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>                     Culiacán, Sin.   </Value>
+                    <Value>       Culiacán, Sin.  </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>6.37pt</FontSize>
@@ -1124,15 +1124,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve"> </Value>
+                    <Value xml:space="preserve">                  </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>7pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve">                          </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1156,7 +1148,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">                     </Value>
+                    <Value xml:space="preserve">                  </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1173,13 +1165,13 @@
                   </TextRun>
                 </TextRuns>
                 <Style>
-                  <TextAlign>Left</TextAlign>
+                  <TextAlign>Center</TextAlign>
                 </Style>
               </Paragraph>
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value xml:space="preserve">                     </Value>
+                    <Value xml:space="preserve">        </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>7pt</FontSize>
@@ -1211,7 +1203,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">          </Value>
+                    <Value>   |     </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11pt</FontSize>
@@ -1243,7 +1235,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">         </Value>
+                    <Value>     |     </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11pt</FontSize>
@@ -1268,15 +1260,15 @@
                   </TextRun>
                 </TextRuns>
                 <Style>
-                  <TextAlign>Left</TextAlign>
+                  <TextAlign>Center</TextAlign>
                 </Style>
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox10</rd:DefaultName>
             <Top>0.13104cm</Top>
-            <Left>3.45239cm</Left>
+            <Left>3.23917cm</Left>
             <Height>2.14312cm</Height>
-            <Width>9.51761cm</Width>
+            <Width>10.69394cm</Width>
             <ZIndex>4</ZIndex>
             <Style>
               <Border>
@@ -1524,30 +1516,6 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
-          <Line Name="Line5">
-            <Top>1.69533cm</Top>
-            <Left>6.87784cm</Left>
-            <Height>0.38833cm</Height>
-            <Width>0cm</Width>
-            <ZIndex>7</ZIndex>
-            <Style>
-              <Border>
-                <Style>Solid</Style>
-              </Border>
-            </Style>
-          </Line>
-          <Line Name="Line7">
-            <Top>1.72708cm</Top>
-            <Left>9.54339cm</Left>
-            <Height>0.38833cm</Height>
-            <Width>0cm</Width>
-            <ZIndex>8</ZIndex>
-            <Style>
-              <Border>
-                <Style>Solid</Style>
-              </Border>
-            </Style>
-          </Line>
           <Textbox Name="Textbox36">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -1874,7 +1842,7 @@
             <Left>9.54339cm</Left>
             <Height>5.00803cm</Height>
             <Width>6.98968cm</Width>
-            <ZIndex>9</ZIndex>
+            <ZIndex>7</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1986,7 +1954,7 @@
             <Left>16.60715cm</Left>
             <Height>4.98157cm</Height>
             <Width>4.44569cm</Width>
-            <ZIndex>10</ZIndex>
+            <ZIndex>8</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2569,7 +2537,7 @@
             <Left>0.06548in</Left>
             <Height>0.37206in</Height>
             <Width>8.22304in</Width>
-            <ZIndex>11</ZIndex>
+            <ZIndex>9</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2595,7 +2563,7 @@
             <Left>0.16632cm</Left>
             <Height>0.14316cm</Height>
             <Width>20.88652cm</Width>
-            <ZIndex>12</ZIndex>
+            <ZIndex>10</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2607,24 +2575,6 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
-          <Image Name="Image2">
-            <Source>Embedded</Source>
-            <Value>BannerFacturaSIG</Value>
-            <Sizing>Fit</Sizing>
-            <Top>11.12025cm</Top>
-            <Left>0.22358cm</Left>
-            <Height>2.18766cm</Height>
-            <Width>10.48062cm</Width>
-            <ZIndex>13</ZIndex>
-            <Visibility>
-              <Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
-            </Visibility>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-            </Style>
-          </Image>
           <Textbox Name="Textbox9">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -2644,7 +2594,7 @@
             <Left>15.11602cm</Left>
             <Height>0.14316cm</Height>
             <Width>5.93682cm</Width>
-            <ZIndex>14</ZIndex>
+            <ZIndex>11</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2681,7 +2631,7 @@
             <Left>1.063in</Left>
             <Height>0.18861in</Height>
             <Width>7.22552in</Width>
-            <ZIndex>15</ZIndex>
+            <ZIndex>12</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2707,11 +2657,11 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>14.44724cm</Top>
+            <Top>12.31999cm</Top>
             <Left>0.16632cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.66427cm</Width>
-            <ZIndex>16</ZIndex>
+            <ZIndex>13</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2745,7 +2695,7 @@
             <Left>0.19807cm</Left>
             <Height>0.34219cm</Height>
             <Width>14.74156cm</Width>
-            <ZIndex>17</ZIndex>
+            <ZIndex>14</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2863,7 +2813,7 @@
             <Left>15.11602cm</Left>
             <Height>0.48004cm</Height>
             <Width>5.93682cm</Width>
-            <ZIndex>18</ZIndex>
+            <ZIndex>15</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2895,7 +2845,7 @@
             <Left>5.58063cm</Left>
             <Height>0.6cm</Height>
             <Width>5.12357cm</Width>
-            <ZIndex>19</ZIndex>
+            <ZIndex>16</ZIndex>
             <Visibility>
               <Hidden>=iif(Parameters!EstatusFactura.Value&lt;&gt;"",False,True)</Hidden>
             </Visibility>
@@ -2935,7 +2885,7 @@
             <Left>5.58063cm</Left>
             <Height>0.6cm</Height>
             <Width>5.12357cm</Width>
-            <ZIndex>20</ZIndex>
+            <ZIndex>17</ZIndex>
             <Visibility>
               <Hidden>=iif(Parameters!EstatusEntrega.Value&lt;&gt;"",False,True)</Hidden>
             </Visibility>
@@ -2951,7 +2901,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>18.76339cm</Height>
+        <Height>16.69964cm</Height>
         <Style />
       </Body>
       <Width>21.15868cm</Width>

General/RepPaqueteriasGuias.aspx.cs

@@ -264,7 +264,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3"));
             DdlEstatus.Items.Insert(4, new ListItem("Reasignar Nueva Entrega ", "4"));
             DdlEstatus.Items.Insert(5, new ListItem("Directo a Clientes ", "5"));
-            DdlEstatus.SelectedValue = "-1";
+            DdlEstatus.SelectedValue = "2";
         }
 
         DdlEstatusEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));

Inicio.aspx

@@ -907,7 +907,7 @@
 
                     <asp:GridView ID="gvCancelaPendiente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
                         DataKeyNames="FolioFiscal,RFC,Total"
-                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="99%">
                         <Columns>
                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal">
                                 <ItemTemplate>
@@ -916,10 +916,10 @@
                                     </div>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="10%" />
-                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="50%"  />
-                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
-                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
                             <%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" ">
                                 <ItemTemplate>
                                     <asp:LinkButton runat="server"  CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton>

Inicio.aspx.vb

@@ -36,7 +36,7 @@ Partial Class Inicio
                     If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then
                         retorno = True
                     End If
-
+                    gvCancelaPendiente.DataSource = objventas.DtResultados
                 Else
                     If showalert Then
                         Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
@@ -50,6 +50,7 @@ Partial Class Inicio
             retorno = False
             Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "")
         End Try
+        gvCancelaPendiente.DataBind()
         Return retorno
     End Function
 

Inventarios/AjustesSeccionAlmacen.aspx

@@ -80,7 +80,7 @@
                     <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>
                             <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
-                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="100%" />
+                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="35px" />
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14)")
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14,16)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()
@@ -65,11 +65,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
         Dim ObjInventario As New ClsInventarios
         Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
+        Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
         Dim Dtt As DataTable = Nothing
         Dim CveMovimientoEntrada As Integer = 0
         Dim Folio = 0
         Dim ErrorMovInv As Boolean = False
         Dim TextoError = ""
+        Dim Contador As Integer = 0
         Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
 
 
@@ -106,12 +108,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
                     End If
+                    Contador += 1
 
                 End If
 
             Next
 
-            If Not ErrorMovInv Then
+            If Not ErrorMovInv AndAlso Contador > 0 Then
 
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
@@ -121,7 +124,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                     For Each Row As DataRow In resultado.Rows
                         Dim CvePS = Row("CvePS").ToString().ToEntero()
-                        'Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        Cantidad = Row("Cantidad").ToString.ToDecimal()
                         Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
                         Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
                         Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
@@ -143,8 +146,23 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         End If
                         ind += 1
                     Next
-                    resultado.Dispose()
 
+                    'inserto la prepoliza
+                    If CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
+                        Dim Concepto As String = "Ajuste Sección"
+                        Dim IdCtaContableOrigen As Integer = 0
+                        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                        Dim contabilizable As Boolean = False
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                    resultado.Dispose()
                 Else
                     TextoError = "No se pudo registrar el movimiento"
                     ErrorMovInv = True
@@ -155,16 +173,25 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         End If
 
         If Not ErrorMovInv Then
-            ObjInventario.Commit()
+
-            GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+            If Contador > 0 Then
-            CargaDatos()
+                ObjInventario.Commit()
-            Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+                GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+                CargaDatos()
+                Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+            Else
+                ObjInventario.RollBack()
+                Alert("No se especificaron productos", TipoMensaje.MsgError)
+            End If
+
         Else
             ObjInventario.RollBack()
             Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
+        ObjConta.Dispose()
+        ObjPS.Dispose()
     End Sub
 
     Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click

Inventarios/EntradasSalidas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports System.IO
 Imports Microsoft.Reporting.WebForms
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 
 'Imports DocumentFormat.OpenXml.Wordprocessing
 
@@ -2033,8 +2034,8 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
-
+        '2185
-        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
+        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 1490 OrElse UsuarioActual.CveRol = 1) Then
 
             'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
@@ -2043,6 +2044,24 @@ Partial Class Inventarios_EntradasSalidas
                 DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
             End If
 
+        End If
+
+        ''condicion de limpieza si es el usuario 1490, se dejan sino 
+        If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+            If UsuarioActual.CveUsuario <> 1490 Then
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("16"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("17"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("31"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("32"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("33"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34")) 'si esta dos veces, se tiene que ejecutar 2 veces
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
+
+            End If
 
         End If
 
@@ -4196,7 +4215,7 @@ Partial Class Inventarios_EntradasSalidas
                         ElProductoChange()
                         TxtnSerie.Text = Serie
                         TxtnLote.Text = Lote
-                        DdlSeccionAlmacen.SelectedValue = CveSeccionAlmacen.ToString
+                        DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen.ToString)
                         TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad)
                         AgregarPS()
                         txtPrecio.Text = ""

Inventarios/Fletes.aspx

@@ -63,34 +63,34 @@
                                     </div>
                                 </div>
                             </div>
-                            <div class="row">
+                            <%--<div class="row">
                                 <div class="col-md-12">
                                     <hr />
                                 </div>
                                 <div class="col-md-2">
                                     Modalidad
-                                </div>
+                                </div>--%>
-                                <div class="col-md-5">
+                                <%--<div class="col-md-5">
                                     <asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
                                         <asp:ListItem Text="OC" Value="1" Selected="True" />
                                         <asp:ListItem Text="Compra" Value="2" />
                                     </asp:DropDownList>
-                                </div>
+                                </div>--%>
-                                <div class="col-md-5 text-center">
+                                <%--<div class="col-md-5 text-center">
-                                    <div runat="server" id="DivVincularOC">
+                                    <%--<div runat="server" id="DivVincularOC">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
-                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" />
+                                        <asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
-                                    </div>
+                                    </div>--%>
 
-                                    <div runat="server" id="DivVincularCompra" visible="false">
+                                    <%--<div runat="server" id="DivVincularCompra" visible="false">
                                         <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
                                         <asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
                                         <asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
-                                    </div>
+                                    </div>--%>
-                                </div>
+                                <%--</div>--%>
-                            </div>
+                            <%--</div>--%>
-                        <div class="row">
+                        <%--<div class="row">
                             <div class="col-md-2">Proveedor:</div>
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCProveedor" Text="" runat="server" />
@@ -107,12 +107,51 @@
                             <div class="col-md-10">
                                 <asp:Label ID="LbOCImporte" Text="" runat="server" />
                             </div>
-                        </div>
+                        </div>--%>
                     </div>
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
+        <div class="col-md-6">
+            <asp:UpdatePanel runat="server" ID="UpComprasGrid">
+                <ContentTemplate>
+                    <div class="portlet light smmallpadding bordered " id="PorletCompras">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">COMPRAS DE PRODUCTOS</span>
+                            </div>
+                            <div class="tools">
+                                <a href="javascript:;" class="collapse"></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+                            <div class="row">
+                                <div class="col-md-12">
+                                    <asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
+                                            <asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
+                                            <asp:BoundField HeaderText="Total Productos" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
+                                            <asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
+                                            <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
+                                                <ItemTemplate>
+                                                    <div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
+                                                        <asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />   
+                                                    </div>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>--%>
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
     </div>
 
     <div class="row">
@@ -123,18 +162,18 @@
                         <div class="portlet-title">
                             <div class="caption font-green">
                                 <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Compras Gasto</span>
+                                <span class="caption-subject bold uppercase">Costo Indirecto</span>
                             </div>
                             <div class="tools">
                                 <a href="javascript:;" class="collapse"></a>
                             </div>
-                            <div class="actions">
+                            <%--<div class="actions">
                                 <div class="btn-group">
                                     <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
                                     <asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
                                     <asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
                                 </div>
-                            </div>
+                            </div>--%>
                         </div>
                         <div class="portlet-body rowpadding">
                             <div class="row">
@@ -146,13 +185,13 @@
                                             <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                                             <asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
-                                            <asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Total Indirecto" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
                                             <asp:BoundField HeaderText="Moneda" DataField="Abreviatura" ItemStyle-Width="10%" />
-                                            <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                            <%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                                                 </ItemTemplate>
-                                            </asp:TemplateField>
+                                            </asp:TemplateField>--%>
                                         </Columns>
                                     </asp:GridView>
                                 </div>

Inventarios/Fletes.aspx.vb

@@ -81,18 +81,18 @@ Partial Class Compras_Fletes
                 TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString
 
                 If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then
-                    DdlModalidad.SelectedValue = "1"
+                    'DdlModalidad.SelectedValue = "1"
                 Else
-                    DdlModalidad.SelectedValue = "2"
+                    'DdlModalidad.SelectedValue = "2"
                 End If
-                CambiaModalidad()
+                'CambiaModalidad()
-                HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
+                'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString
-                HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
+                'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString
 
-                LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
+                'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString
-                HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
+                'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString
-                HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
+                'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}")
-                LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
+                'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}"
 
                 If ObjInv.GetFleteDetalle(CveFlete) Then
                     DtCompras = ObjInv.DtResultados
@@ -100,8 +100,12 @@ Partial Class Compras_Fletes
                     Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError)
                 End If
 
+                If ObjInv.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then
+                    GvComprasVinculadas.DataSource = ObjInv.DtResultados
+                End If
+
             Else
-                Alert("No se encontró el flete", TipoMensaje.MsgInformacion)
+                Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia)
             End If
         Else
             Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError)
@@ -109,6 +113,7 @@ Partial Class Compras_Fletes
 
         ObjInv.Dispose()
         CargaGrid()
+        GvComprasVinculadas.DataBind()
         UpRegistro.Update()
 
     End Sub
@@ -123,168 +128,168 @@ Partial Class Compras_Fletes
 #Region "   VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA   "
 
     Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CambiaModalidad()
+        'CambiaModalidad()
         UpRegistro.Update()
     End Sub
-    Private Sub CambiaModalidad()
+    'Private Sub CambiaModalidad()
-        HdnCveOC.Value = "-1"
+    '    HdnCveOC.Value = "-1"
-        HdnCveCompra.Value = "-1"
+    '    HdnCveCompra.Value = "-1"
 
-        LbOCProveedor.Text = ""
+    '    LbOCProveedor.Text = ""
-        HLOCFolio.Text = ""
+    '    HLOCFolio.Text = ""
-        HLOCFolio.NavigateUrl = "#"
+    '    HLOCFolio.NavigateUrl = "#"
-        LbOCImporte.Text = ""
+    '    LbOCImporte.Text = ""
 
-        DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
+    '    DivVincularOC.Visible = DdlModalidad.SelectedValue = "1"
-        DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
+    '    DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2"
-    End Sub
+    'End Sub
 
-    Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
-        VinculaOC()
+    '    VinculaOC()
-    End Sub
+    'End Sub
-    Private Sub VinculaOC()
+    'Private Sub VinculaOC()
-        If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
+    '    If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then
-            Dim ObjInv As New ClsInventarios
+    '        Dim ObjInv As New ClsInventarios
-            Dim ObjOC As New ClsOC
+    '        Dim ObjOC As New ClsOC
-            If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
+    '        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then
-                If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+    '            If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                    If ObjOC.DtResultados.Rows.Count > 0 Then
+    '                If ObjOC.DtResultados.Rows.Count > 0 Then
-                        LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
+    '                    LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString
-                        HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
+    '                    HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}"
-                        HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
+    '                    HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}"
-                        LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
+    '                    LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}"
-                    End If
+    '                End If
-                Else
+    '            Else
-                    HdnCveOC.Value = "-1"
+    '                HdnCveOC.Value = "-1"
-                End If
+    '            End If
-            Else
+    '        Else
-                Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La orden de compra ya forma parte del flete: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-            ObjInv.Dispose()
+    '        ObjInv.Dispose()
-            ObjOC.Dispose()
+    '        ObjOC.Dispose()
-        End If
+    '    End If
-        UpRegistro.Update()
+    '    UpRegistro.Update()
-    End Sub
+    'End Sub
-    Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs)
-        VincularCompra()
+    '    VincularCompra()
-    End Sub
+    'End Sub
-    Private Sub VincularCompra()
+    'Private Sub VincularCompra()
 
-        If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
+    '    If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then
-            Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
+    '    Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios
+    '    Dim ObjInv As New ClsInventarios
-        Dim ErrorAgregar = False
+    '    Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '    If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        Else
+    '    Else
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
+    '        LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString
-            HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
+    '        HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}"
-            HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
+    '        HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
-            LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
+    '        LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}"
-        Else
+    '    Else
-            HdnCveCompra.Value = "-1"
+    '        HdnCveCompra.Value = "-1"
-        End If
+    '    End If
 
-        ObjCompras.Dispose()
+    '    ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
 
 #End Region
 
 #Region "   AGREGA COMPRA GASTO   "
-    Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs)
-        AgregaCompraGasto()
+    '    AgregaCompraGasto()
-    End Sub
+    'End Sub
-    Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
+    'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs)
-        AgregaCompraGasto()
+    '    AgregaCompraGasto()
-    End Sub
+    'End Sub
-    Private Sub AgregaCompraGasto()
+    'Private Sub AgregaCompraGasto()
 
-        If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
+    '    If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then
-            Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
+    '        Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+    '        Exit Sub
-        End If
+    '    End If
 
-        Dim ObjCompras As New ClsCompras
+    '    Dim ObjCompras As New ClsCompras
-        Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
+    '    Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL)
-        Dim ErrorAgregar = False
+    '    Dim ErrorAgregar = False
-        Dim RowCompras As DataRow = Nothing
+    '    Dim RowCompras As DataRow = Nothing
 
-        If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+    '    If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-            RowCompras = ObjCompras.DtResultados.Rows(0)
+    '        RowCompras = ObjCompras.DtResultados.Rows(0)
-            If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
+    '        If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert($"La compra ya forma parte del flete: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        Else
+    '    Else
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
+    '        Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError)
-        End If
+    '    End If
 
-        If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
+    '    If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then
-            ErrorAgregar = True
+    '        ErrorAgregar = True
-            Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '        Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
+    '        If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then
-                ErrorAgregar = True
+    '            ErrorAgregar = True
-                Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+    '            Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            If Not GvDatos.Rows.Count > 0 Then
+    '        If Not GvDatos.Rows.Count > 0 Then
-                DtCompras = RowCompras.Table.Clone
+    '            DtCompras = RowCompras.Table.Clone
-                DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
+    '            DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32"))
-            End If
+    '        End If
-            If CveFlete > 0 Then
+    '        If CveFlete > 0 Then
-                If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
+    '            If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then
-                    ErrorAgregar = True
+    '                ErrorAgregar = True
-                    Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
+    '                Alert("Ocurrió un error al agregar la  compra. Por favor intente de nuevo.", TipoMensaje.MsgError)
-                End If
+    '            End If
-            End If
+    '        End If
-        End If
+    '    End If
 
-        If Not ErrorAgregar Then
+    '    If Not ErrorAgregar Then
-            ObjCompras.Commit()
+    '        ObjCompras.Commit()
-            DtCompras.ImportRow(RowCompras)
+    '        DtCompras.ImportRow(RowCompras)
-            CargaGrid()
+    '        CargaGrid()
-            If CveFlete > 0 Then
+    '        If CveFlete > 0 Then
-                Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
+    '            Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion)
-            End If
+    '        End If
-        Else
+    '    Else
-            ObjCompras.RollBack()
+    '        ObjCompras.RollBack()
-        End If
+    '    End If
 
-        HdnCveCompraGasto.Value = "-1"
+    '    HdnCveCompraGasto.Value = "-1"
-        ObjCompras.Dispose()
+    '    ObjCompras.Dispose()
-        ObjInv.Dispose()
+    '    ObjInv.Dispose()
 
-    End Sub
+    'End Sub
     Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
         Dim TieneError = False
         If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then
@@ -312,18 +317,18 @@ Partial Class Compras_Fletes
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
-        Select Case DdlModalidad.SelectedValue.ToEntero
+        'Select Case DdlModalidad.SelectedValue.ToEntero
-            Case 1
+        '    Case 1
-                If Not HdnCveOC.Value.ToEntero > 0 Then
+        '        'If Not HdnCveOC.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
+        '        '    Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
+        '        '    Exit Sub
-                End If
+        '        'End If
-            Case 2
+        '    Case 2
-                If Not HdnCveCompra.Value.ToEntero > 0 Then
+        '        'If Not HdnCveCompra.Value.ToEntero > 0 Then
-                    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
+        '        '    Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
+        '        '    Exit Sub
-                End If
+        '        'End If
-        End Select
+        'End Select
 
         If Not DtCompras.Rows.Count > 0 Then
             Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia)
@@ -336,7 +341,7 @@ Partial Class Compras_Fletes
         Dim CveFleteTemporal As Integer = 0
 
         If CveFlete < 0 Then
-            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 CveFleteTemporal = ObjInv.CveFlete
             Else
                 ErrorFlete = True
@@ -352,7 +357,7 @@ Partial Class Compras_Fletes
                 ErrorFlete = True
             End If
         Else
-            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then
+            If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then
                 ErrorFlete = True
             End If
         End If
@@ -410,18 +415,18 @@ Partial Class Compras_Fletes
 
         If Archivo.Exists Then
             Dim ImporteGrid As Double = DtCompras.SUM("SubTotal")
-            Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
+            'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0)
-            Dim ImporteData As Double = ImporteStr.ToDouble()
+            'Dim ImporteData As Double = ImporteStr.ToDouble()
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("Folio", LblFolio.Text))
             params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text))
             params.Add(New ReportParameter("Fecha", TxtFecha.Text))
-            params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra")))
+            params.Add(New ReportParameter("Modalidad", "Factura de Compra"))
-            params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text))
+            params.Add(New ReportParameter("Proveedor", ""))
-            params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text))
+            params.Add(New ReportParameter("FolioModalidad", ""))
-            params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString()))
+            params.Add(New ReportParameter("Importe", (ImporteGrid).ToString()))
 
             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1")
         End If
@@ -429,6 +434,4 @@ Partial Class Compras_Fletes
     End Sub
 
 
-
-
 End Class

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -95,7 +95,7 @@ Partial Class Inventarios_Default
     End Sub
     Private Sub CargaDatos(CvePS As Integer, Tipo As Integer)
 
-        If ValidarFiltrosSeleccionados() Then
+        If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then
             Dim ObjInventarios As New ClsInventarios()
             If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
                                                      ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then

Inventarios/RecepcionAlmacen.aspx

@@ -79,7 +79,13 @@
                             <label runat="server" visible="false" id="LblFletes" class="col-md-1 truncate" style="text-align: right;">Folio:</label>
                             <div runat="server" visible="false" id="DivFletes" class="col-md-2" style="display: inline">
                                 <div style="width: 100px; float: left;">
-                                    <asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlFletes" runat="server" DataValueField="CveFlete" DataTextField="FolioDescripcion" OnSelectedIndexChanged="DdlFletes_SelectedIndexChanged" AutoPostBack="true" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
+                                </div>
+                            </div>
+                            <label runat="server" visible="false" id="LblIndirectoFactura" class="col-md-1 truncate" style="text-align: right;">Factura:</label>
+                            <div runat="server" visible="false" id="DivDdlIndirectoFactura" class="col-md-2" style="display: inline">
+                                <div style="width: 100px; float: left;">
+                                    <asp:DropDownList ID="DdlIndirectoFactura" runat="server" DataValueField="CveCompra" DataTextField="SerieFolio" CssClass="select2me" Style="width: 100px !important;"></asp:DropDownList>
                                 </div>
                             </div>
                         </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -613,6 +613,8 @@ Partial Class Inventarios_RecepcionAlmacen
             Case 4
                 LblFletes.Visible = True
                 DivFletes.Visible = True
+                LblIndirectoFactura.Visible = True
+                DivDdlIndirectoFactura.Visible = True
         End Select
 
         CargaFoliosRecepcion()
@@ -711,6 +713,30 @@ Partial Class Inventarios_RecepcionAlmacen
         DdlFletes.DataBind()
         DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
+    Protected Sub DdlFletes_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaFletesFactura()
+    End Sub
+    Private Sub CargaFletesFactura()
+
+        DdlIndirectoFactura.Items.Clear()
+
+        Dim ObjInventarios As New ClsInventarios
+        If DdlFletes.SelectedValue.ToEntero > 0 Then
+            If ObjInventarios.GetFletesCompras(DdlFletes.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                DdlIndirectoFactura.DataSource = ObjInventarios.DtResultados
+            Else
+                Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            End If
+        End If
+        ObjInventarios.Dispose()
+
+        DdlIndirectoFactura.DataBind()
+        DdlIndirectoFactura.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
 #End Region
 
 #Region "  CARGA POR SURTIR - GV  "
@@ -1119,7 +1145,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 CveFleteSurtir = pCveImportacion
                 CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero
-                CveFleteCompra = ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
+                CveFleteCompra = DdlIndirectoFactura.SelectedValue.ToEntero 'ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
                 CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable
                 LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString
                 HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString

Inventarios/RepFletes.aspx

@@ -17,10 +17,20 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
+            </li>--%>
+            <li>
+                <asp:LinkButton ID="LkbPDF" CommandArgument="-1" OnClick="LkbPDF_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LkbExcel" CommandArgument="-1" OnClick="LkbExcel_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
             </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LkbPDF" />
+            <asp:PostBackTrigger ControlID="LkbExcel" />
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -42,12 +52,13 @@
                                 <asp:TextBox runat="server" Width="80px" ID="TxtFolio"></asp:TextBox>
                             </div>
                             <div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
-                            <div class="col-md-3">
+                            <div class="col-sm-2">
-                                <asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
+                                <%--<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
                             </div>
-                            <div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div>
+                            <div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
+                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
                                     <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton runat="server" ID="ImgFechaI" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
@@ -58,9 +69,9 @@
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaI" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
-                            <div class="col-md-1" style="max-width: 70px">Fecha Fin:</div>
+                            <div class="col-md-1" style="max-width: 120px">Fecha Fin:</div>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
-                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
+                                <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
                                     <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton runat="server" ID="ImgFechaF" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
@@ -71,6 +82,14 @@
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
+                            <div class="col-md-1" style="max-width: 70px;">Opción:</div>
+                            <div class="col-sm-2">
+                                <asp:DropDownList runat="server" ID="DdlTipoGasto" Width="100%" CssClass="select2me">
+                                    <asp:ListItem Text="Todo" Value="-1" />
+                                    <asp:ListItem Text="Costo Indirectos multiples facturas" Value="1" Selected="True" />
+                                    <asp:ListItem Text="Costo Indirecto en misma factura" Value="2" />
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -81,8 +100,8 @@
     <table class="table  Widthall ">
         <tr>
             <td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
-            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
+            <%--<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
-            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
+            <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>--%>
         </tr>
     </table>
     <a target="_blank" href="#"></a>
@@ -91,17 +110,33 @@
         <div class="col-md-12">
             <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
-                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
+                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" DataKeyNames="CveFlete">
                         <Columns>
-                            <asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="RazonSocial" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
+                            <asp:TemplateField HeaderText="Folio">
-                            <asp:HyperLinkField HeaderText="Folio" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                <ItemTemplate>
-                            <asp:HyperLinkField HeaderText="Fecha" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                    <asp:HyperLink ID="HlkFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                            <asp:HyperLinkField HeaderText="Descripción" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                                </ItemTemplate>
-                            
+                            </asp:TemplateField>
-                            <asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
+                            <asp:TemplateField HeaderText="Fecha">
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HlkFecha" runat="server" Text='<%# Eval("Fecha", "{0:dd/M/yyyy}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Descripción">
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HlkDescripcion" runat="server" Text='<%# Eval("Descripcion")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <%--<asp:HyperLinkField HeaderText="Folio" ID="HlkFolio" runat="server" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                            <asp:HyperLinkField HeaderText="Fecha" ID="HlkFecha" runat="server" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
+                            <asp:HyperLinkField HeaderText="Descripción" ID="HlkDescripcion" runat="server" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />--%>
+                            <asp:BoundField HeaderText="Total Productos" DataField="Importe" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Total Indirectos" DataField="Costo" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Total" DataField="General" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
+                            <%--<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
                             <asp:BoundField HeaderText="Fecha"  DataField="FechaDocumento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" ItemStyle-Width="10%" />
                             <asp:BoundField HeaderText="Descripción" DataField="DescripcionDocumento" ItemStyle-Width="20%" />
-                            <asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  ItemStyle-Width="5%" />
+                            <asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  ItemStyle-Width="5%" />--%>
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>

Inventarios/RepFletes.aspx.vb

@@ -3,6 +3,8 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
 Partial Class Compras_RepFletes
     Inherits ClsPaginas
 
@@ -24,12 +26,18 @@ Partial Class Compras_RepFletes
     End Sub
 
     Private Sub InicializaValores()
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione"
+        DdlProveedores.SelectedValue = "-1"
+        DdlProveedores.ddl.AutoPostBack = True
+
         TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
         TxtFechaF.Text = Date.Now.ToShortDateString
 
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
+        'DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -40,7 +48,8 @@ Partial Class Compras_RepFletes
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
         If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate) Then
+        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
+                               TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
             DtFletes = ObjInv.DtResultados
         End If
         ObjInv.Dispose()
@@ -55,16 +64,57 @@ Partial Class Compras_RepFletes
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
+            Dim Folio As String = e.Row.DBCampo("Folio").ToString
-            Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
+            Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
-
+            Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
-            e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
+            Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
-            e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
+            e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
-            e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
+            e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
-            e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
+            e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
+            If Folio = "Total" Then
+                e.Row.FCHyperLink("HlkFolio").Font.Underline = False
+                e.Row.CssClass = "Totales"
+            End If
 
         End If
     End Sub
+
+    Private Sub Imprimir(formato As String)
+        Dim Filtros As New StringBuilder("")
+        Filtros.AppendFormat(If(TxtFolio.Text.Length > 0, String.Format("<b>Folio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFolio.Text), ""))
+        Filtros.AppendFormat(If(DdlProveedores.SelectedValue.ToEntero() > 0, String.Format("<b>Proveedor: </b>{0}&nbsp;&nbsp;&nbsp;", DdlProveedores.SelectedText), ""))
+        Filtros.AppendFormat(If(TxtFechaI.Text.Length > 0, String.Format("<b>Fecha Inicio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaI.Text), ""))
+        Filtros.AppendFormat(If(TxtFechaF.Text.Length > 0, String.Format("<b>Fecha Final: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaF.Text), ""))
+        Filtros.AppendFormat(If(DdlTipoGasto.SelectedValue.ToEntero > 0, String.Format("<b>Opción: </b>{0}&nbsp;&nbsp;&nbsp;", DdlTipoGasto.SelectedItem.Text), ""))
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Filtros", Filtros.ToString))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+
+        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)
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
+        If Not ArchivoRuta.Exists Then
+            ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)
+        Else
+            ImprimirPDF("Empresas/Grales/Formatos/RepFletes.rdlc", DtFletes, params, "Reporte de fletes", formato)
+        End If
+    End Sub
+
+    Protected Sub LkbPDF_Click(sender As Object, e As EventArgs)
+        Imprimir("PDF")
+    End Sub
+
+    Protected Sub LkbExcel_Click(sender As Object, e As EventArgs)
+        Imprimir("Excel")
+    End Sub
 #End Region
 
 End Class

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -146,7 +146,7 @@ Partial Class RepNotasSinAlmacen
                 CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
             End If
 
-            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, -1, UsuarioActual.Empresa.CveEmpresa) Then
+            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                 GvCompras.DataSource = Reporte.DtResultados
                 DtNotasSinAlmacenCompras = Reporte.DtResultados
             Else

Sistemas/PopUpAddUsuario.aspx

@@ -21,6 +21,17 @@
         #GvPermisosComandos tr td:nth-child(n+3), #GVNotificaciones tr th:nth-child(n+2) {
             width: 50px;
         }
+        .CustomSpinner {
+            position: fixed;
+            background-image: url(/Imagenes/Loading.gif);
+            background-repeat: no-repeat, repeat;
+            background-size: contain;
+            top: 60px;
+            right: 25px;
+            z-index: 500000;
+            height: 40px;
+            width: 40px;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -430,6 +441,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <div class="CustomSpinner" style="display: none;"></div>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script>
@@ -440,6 +452,10 @@
 
         let myTick = 0
         $('body').on('keyup', '#TxtEmail ', function (e) {
+            changeUser();
+        });
+
+        function changeUser() {
             let Tick = myTick + 1;
             myTick = Tick;
             setTimeout(
@@ -448,22 +464,22 @@
                         myTick = 0;
                         let Tusuario = $('#TxtEmail').val();
                         if (TusuarioOld != Tusuario) {
+                            $('.CustomSpinner').show();
                             TusuarioOld = Tusuario
-                            //console.log(Tusuario)
                             $.ajax({
                                 url: "/Ashx/SIGWeb.ashx",
                                 data: { usuario: Tusuario, metodo: 'GetUser' }
                             }).done(function (data) {
-                                //console.log(data)
                                 if (data == "1") {
                                     $('#BtnCambiarUsuario').click()
+                                } else {
+                                    $('.CustomSpinner').hide();
                                 }
                             });
-
                         }
                     }
-                }, 2000);
+                }, 500);
-        });
+        }
 
         function ADSBegin() {
             TusuarioOld = $('#TxtEmail').val()

Sistemas/PopUpAddUsuario.aspx.vb

@@ -371,7 +371,33 @@ Partial Class Sistemas_PopUpAddUsuario
                 '    Return
                 'End If
 
-                If UsuarioActual.Empresa.CvePlataforma = 3 Then
+                'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE
+                If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then
+                    Dim DtClientesAcceso As DataTable = Nothing
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
+                        'DEBE AGREGAR EL USUARIO AL CLIENTE
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioCliente(CveUsuario, CveCliente) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                    'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR
+                ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then
+                    Dim DtProveedoresAcceso As DataTable = Nothing
+                    If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
+                        'DEBE AGREGAR EL USUARIO AL PROVEEDOR
+                        If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+                            If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
+                                HuboError = True
+                            End If
+                        End If
+                    Else
+                        HuboError = True
+                    End If
+                ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
                     If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
                         HuboError = True
                     End If
@@ -855,6 +881,8 @@ Partial Class Sistemas_PopUpAddUsuario
         CargaModulosPermisos()
         CargaComandos()
         UpDatos.Update()
+
+        RegistraScript(" $('.CustomSpinner').hide();")
     End Sub
 
 End Class

Sistemas/PopUpSeleccionarEmpresa.aspx

@@ -21,7 +21,7 @@
                 <asp:Button ID="BtnSetWindows" runat="server" ClientIDMode="Static" Text="Set Window" Style="display: none;" class="btn btn-primary" />
                 <asp:HiddenField ID="HdnAncho" runat="server" ClientIDMode="Static" Value="-1" />
                 <asp:HiddenField ID="HdnAlto" runat="server" ClientIDMode="Static" Value="-1" />
-                <div id="TblBusqueda" runat="server" border="0" visible="false" >
+                <div id="TblBusqueda" runat="server" border="0" visible="false">
                     <div>
                         Número de registros encontrados: <b>
                             <asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
@@ -29,7 +29,7 @@
                     <div>
                         <input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
                     </div>
-                    <asp:GridView ID="GV" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
+                    <asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false"
                         Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
                         GridLines="None">
                         <Columns>
@@ -46,7 +46,7 @@
                         <AlternatingRowStyle CssClass="TextoAlterno" />
                     </asp:GridView>
 
-                    <asp:GridView ID="GVCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                    <asp:GridView ID="GvPortalRastreo" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
                         Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
                         Style="margin-top: -10px; text-align: center;" GridLines="None">
                         <Columns>
@@ -60,11 +60,39 @@
                             </asp:TemplateField>
                         </Columns>
                     </asp:GridView>
+
+                    <asp:GridView ID="GvPortalCliente" runat="server" DataKeyNames="CveUsuario, CveCliente, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                        Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
+                        Style="margin-top: -10px; text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField>
+                                <HeaderTemplate>Portal del Cliente</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ClienteEmpresa")%>' CommandArgument='<%# Eval("CveCliente") %>' CommandName="Cambia"></asp:LinkButton>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" />
+                                <HeaderStyle HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                    <asp:GridView ID="GvPortalProveedor" runat="server" DataKeyNames="CveUsuario, CveProveedor, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
+                        Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
+                        Style="margin-top: -10px; text-align: center;" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField>
+                                <HeaderTemplate>Portal del Proveedor</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ProveedorEmpresa")%>' CommandArgument='<%# Eval("CveProveedor") %>' CommandName="Cambia"></asp:LinkButton>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" />
+                                <HeaderStyle HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
@@ -93,6 +121,13 @@
             gotourl('/Inicio.aspx');
         }
 
+        function Ir4() {
+            gotourl('/PortalCliente/PortalCliente.aspx');
+        }
+        function Ir5() {
+            gotourl('/PortalProveedor/PortalProveedor.aspx');
+        }
+
         function buscarDT() {
             $('.TxtBusqueda').on('keyup', function () {
                 if (this.value == '') {

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -12,37 +12,50 @@ Partial Class PopUpSeleccionarEmpresa
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CType(Me.Master, BaseMasterPage).EsPopup = True
-            'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
-            'RegistraScript("alertSize();")
             GetEmpresas()
         End If
     End Sub
 
     Private Sub GetEmpresas()
-
-
         Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then
-                LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
+                Dim NumRegistros As Integer = 0
-                GV.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
+                GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
-                GVCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
+
+                GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
+                NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
+
+                LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
             Else
                 LtlTotalRegistros.Text = "0"
-                GV.DataSource = Nothing
+                GvEmpresas.DataSource = Nothing
+                GvPortalRastreo.DataSource = Nothing
+                GvPortalCliente.DataSource = Nothing
+                GvPortalProveedor.DataSource = Nothing
                 Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
             End If
         End If
 
-        GV.DataBind()
+        GvEmpresas.DataBind()
-        GVCliente.DataBind()
+        GvPortalRastreo.DataBind()
+        GvPortalCliente.DataBind()
+        GvPortalProveedor.DataBind()
+
         UPDatos.Update()
 
         TblBusqueda.Visible = True
     End Sub
 
-    Protected Sub GV_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GV.RowCommand
+    Protected Sub GvEmpresas_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvEmpresas.RowCommand
         If e.CommandName = "Cambia" Then
 
             Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
@@ -80,35 +93,7 @@ Partial Class PopUpSeleccionarEmpresa
         End If
 
     End Sub
-
+    Protected Sub GvPortalRastreo_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalRastreo.RowCommand
-    Private Sub GuardaLogR(Mensaje As String)
-        Dim ArchivoW As IO.StreamWriter
-        Dim MensajeLog As String = ""
-        Dim continuar As Boolean = True
-        Try
-            If Not IsNothing(System.Web.HttpContext.Current) Then
-                If Not IsNothing(System.Web.HttpContext.Current.Request) Then
-
-                    MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
-                End If
-            End If
-        Catch
-        End Try
-        MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
-
-        Try
-            ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
-        Catch
-            Exit Sub
-        End Try
-        Try
-            ArchivoW.Write(MensajeLog)
-        Catch
-        End Try
-        ArchivoW.Close()
-        ArchivoW.Dispose()
-    End Sub
-    Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GVCliente.RowCommand
         If e.CommandName = "Cambia" Then
             Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
 
@@ -143,31 +128,88 @@ Partial Class PopUpSeleccionarEmpresa
 
         End If
     End Sub
+    Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
+        If e.CommandName = "Cambia" Then
+            Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
 
+            If gvr IsNot Nothing Then
 
-    Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
+                Dim ObjUsuario As New ClsSisUsuarios
-        RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
+                Dim Usuario As Usuario = Nothing
-    End Sub
+                Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
 
-    Private Sub CreaObjetoEmpresa()
+                ObjUsuario.Dispose()
-        Dim ObjEmpresa As New ClsSisEmpresas()
+
-        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+                If Usuario IsNot Nothing Then
-            'Session("Empresa") = ObjEmpresa
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
-            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
+
-                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
+                    Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
+                    Usuario.ModoSimulacion = ModoSimulacion
+                    ADSSession.ADSSessionConfig.sessionUser = Usuario
+                    ADSSession.ADSSessionConfig.sessionDpage = False
+
+                    If dt IsNot Nothing Then
+                        If dt.Rows.Count >= 1 Then
+                            If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
+                            Usuario.CvePlataforma = 6
+                            UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
+                            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
+                            CreaObjetoEmpresa(Usuario)
+                            'si la contraseña es la prederminada, pide la nueva contraseña
+                            'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
+                            RegistraScript("Ir4();")
+                        End If
+                    End If
+                    dt.Dispose()
+                End If
 
-                Dim EmpresasFuncionalidades As New HybridDictionary
-                For Each Row As Data.DataRow In dttmp.Rows
-                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
-                Next
-                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
             End If
 
-            UsuarioActual.Empresa = ObjEmpresa.Empresa
-        Else
-            Session("Empresa") = Nothing
         End If
-        ObjEmpresa.Dispose()
+    End Sub
+    Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
+        If e.CommandName = "Cambia" Then
+            Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
+
+            If gvr IsNot Nothing Then
+
+                Dim ObjUsuario As New ClsSisUsuarios
+                Dim Usuario As Usuario = Nothing
+                Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
+
+                ObjUsuario.Dispose()
+
+                If Usuario IsNot Nothing Then
+                    Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+
+                    Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
+                    Usuario.ModoSimulacion = ModoSimulacion
+                    ADSSession.ADSSessionConfig.sessionUser = Usuario
+                    ADSSession.ADSSessionConfig.sessionDpage = False
+
+                    If dt IsNot Nothing Then
+                        If dt.Rows.Count >= 1 Then
+                            If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
+                            Usuario.CvePlataforma = 7
+                            UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
+                            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
+                            CreaObjetoEmpresa(Usuario)
+                            'si la contraseña es la prederminada, pide la nueva contraseña
+                            'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
+                            RegistraScript("Ir5();")
+                        End If
+                    End If
+                    dt.Dispose()
+                End If
+
+            End If
+
+        End If
+    End Sub
+
+#Region "F U N C I O N E S"
+    Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
+        RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
     End Sub
 
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -191,8 +233,33 @@ Partial Class PopUpSeleccionarEmpresa
         End If
         ObjEmpresa.Dispose()
     End Sub
+    Private Sub GuardaLogR(Mensaje As String)
+        Dim ArchivoW As IO.StreamWriter
+        Dim MensajeLog As String = ""
+        Dim continuar As Boolean = True
+        Try
+            If Not IsNothing(System.Web.HttpContext.Current) Then
+                If Not IsNothing(System.Web.HttpContext.Current.Request) Then
 
+                    MensajeLog = $"{HttpContext.Current.Request.Url.ToString()}{Environment.NewLine}"
+                End If
+            End If
+        Catch
+        End Try
+        MensajeLog = $"{System.Environment.NewLine}'{DateTime.Now:dd/MM/yyyy hh:mm}' -- {MensajeLog}{Mensaje.Trim()}{Environment.NewLine}"
 
-
+        Try
+            ArchivoW = New IO.StreamWriter(String.Format("{0}\LogSession.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+        Catch
+            Exit Sub
+        End Try
+        Try
+            ArchivoW.Write(MensajeLog)
+        Catch
+        End Try
+        ArchivoW.Close()
+        ArchivoW.Dispose()
+    End Sub
+#End Region
 
 End Class

Site.master.vb

@@ -122,15 +122,11 @@ Partial Class Site
                     '2018.08.14, se movió de la linea 59 a la actual
                     CargaTipoCambio()
 
-
+                    CargaUsuario()
                     If UsuarioActual.Portal = False Then
                         CreaMenu()
                         'Configuracion()
-                        CargaUsuario()
                         CargaBuscadores()
-                    Else
-                        LtMasterPerfil.Text = UsuarioActual.Rol
-                        LtMasterUsuario.Text = UsuarioActual.Usuario
                     End If
 
                 End If

TareasProgramadas/Tareas119.ashx

@@ -92,15 +92,16 @@ public class TareasJam : IHttpHandler
 
 
 
-        ////"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
+        //"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
-        //string FTPServer = "ftp://127.0.0.1/";
+
-        //string TFPUsr = "Toor";
+        string FTPServer = "ftp://127.0.0.1/";
-        //string FTPPass = "agj-3500";
+        string TFPUsr = "Toor";
+        string FTPPass = "agj-3500";
 
 
-        string FTPServer = "ftp://us2.hostedftp.com";
+        //string FTPServer = "ftp://us2.hostedftp.com";
-        string TFPUsr = "agrojam";
+        //string TFPUsr = "agrojam";
-        string FTPPass = "A12345678";
+        //string FTPPass = "A12345678";
 
         bool ErrorProceso = false;
 
@@ -197,8 +198,8 @@ public class TareasJam : IHttpHandler
                 DTAlmacenes.AcceptChanges();
 
 
-                DataTable dtCloned =  DTVentas.Clone();
+                DataTable dtCloned = DTVentas.Clone();
-                dtCloned.Columns[3].DataType = typeof(string);
+                dtCloned.Columns[3].DataType = typeof(DateTime);
 
                 foreach (DataRow row in DTVentas.Rows)
                 {
@@ -206,17 +207,17 @@ public class TareasJam : IHttpHandler
                 }
 
                 DTVentas = dtCloned;
-                foreach(DataRow dRow in DTVentas.Rows)
+                foreach (DataRow dRow in DTVentas.Rows)
                 {
-                    string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
+                    DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
-                    dRow[3] = tmpString;
+                    dRow[3] = tmpDate;
                 }
 
                 DTVentas.AcceptChanges();
 
 
-                dtCloned =  DTAlmacenes.Clone();
+                dtCloned = DTAlmacenes.Clone();
-                dtCloned.Columns[3].DataType = typeof(string);
+                dtCloned.Columns[3].DataType = typeof(DateTime);
 
                 foreach (DataRow row in DTAlmacenes.Rows)
                 {
@@ -224,10 +225,10 @@ public class TareasJam : IHttpHandler
                 }
 
                 DTAlmacenes = dtCloned;
-                foreach(DataRow dRow in DTAlmacenes.Rows)
+                foreach (DataRow dRow in DTAlmacenes.Rows)
                 {
-                    string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
+                    DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
-                    dRow[3] = tmpString;
+                    dRow[3] = tmpDate;
                 }
                 DTAlmacenes.AcceptChanges();
 
@@ -251,6 +252,16 @@ public class TareasJam : IHttpHandler
 
             SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
 
+            var workbookAlmacenes = new ExcelFile();
+            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
+            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
+            {
+                ColumnHeaders = true,
+                StartRow = 0
+            });               
+            worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
+            workbookAlmacenes.Save(RutaAlmacenes);
+
             var workbookProductos = new ExcelFile();
             var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
             worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
@@ -267,6 +278,7 @@ public class TareasJam : IHttpHandler
                 ColumnHeaders = true,
                 StartRow = 0
             });
+            worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
             workbookVentas.Save(RutaVentas);
 
 
@@ -280,14 +292,7 @@ public class TareasJam : IHttpHandler
             workbookClientes.Save(RutaClientes);
 
 
-            var workbookAlmacenes = new ExcelFile();
+        
-            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
-            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
-            {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
-            workbookAlmacenes.Save(RutaAlmacenes);
 
 
             var FInfoProductos = new FileInfo(RutaProductos);
@@ -321,10 +326,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos)
             {
-                CargaVentas = CargarArchivos(FInfoVentas, FTPServer, TFPUsr, FTPPass);
+                CargaVentas = CargarArchivos(FInfoVentas, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 if (CargaVentas)
                 {
-                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length,  $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 }
             }
 
@@ -338,10 +343,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos & CargaVentas)
             {
-                CargaClientes = CargarArchivos(FInfoClientes, FTPServer, TFPUsr, FTPPass);
+                CargaClientes = CargarArchivos(FInfoClientes,  $"{FTPServer}/Clientes", TFPUsr, FTPPass);
                 if (CargaClientes)
                 {
-                    CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
                 }
             }
 
@@ -355,10 +360,10 @@ public class TareasJam : IHttpHandler
 
             if (CargaProductos & CargaVentas& CargaClientes )
             {
-                CargaAlmacenes = CargarArchivos(FInfoAlmacenes, FTPServer, TFPUsr, FTPPass);
+                CargaAlmacenes = CargarArchivos(FInfoAlmacenes, $"{FTPServer}/Stock", TFPUsr, FTPPass);
                 if (CargaClientes)
                 {
-                    CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, FTPServer, TFPUsr, FTPPass);
+                    CargaAlmacenes = VerificarArchivo(FInfoAlmacenes, FInfoAlmacenes.Length, $"{FTPServer}/Stock", TFPUsr, FTPPass);
                 }
             }
 
@@ -433,8 +438,8 @@ public class TareasJam : IHttpHandler
 
 
             ClsSisMail Correo = new ClsSisMail();
-            string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
+           // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
-            // string Para = "oscar.irigoyen@adssistemas.mx";
+            string Para = "oscar.irigoyen@adssistemas.mx";
             string Asunto = ErrorProceso ? $"Carga Layout Corteva  {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
 
             Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
@@ -446,7 +451,7 @@ public class TareasJam : IHttpHandler
     }
 
 
-    private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass)
+    private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass )
     {
         bool Respuesta;
         //var FInfo = new FileInfo(RutaArchivo);

Ventas/ActualizarPrecios.aspx.vb

@@ -1,5 +1,6 @@
 
 Option Explicit On
+Option Strict On
 
 Imports Extensiones
 Imports System.Data
@@ -293,7 +294,7 @@ Partial Class Ventas_ActualizarPrecios
 #Region "C A R G A R  E X C E L "
     Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click
 
-        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows
+        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows.Cast(Of GridViewRow)
                                     Where row.RowType = DataControlRowType.DataRow
                                     Select New With
                                         {
@@ -408,7 +409,7 @@ Partial Class Ventas_ActualizarPrecios
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each row As DataRow In dt.Rows
                     Dim Correcto As Boolean = False
-                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa))
+                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)).ToEntero
                     Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero()
                     Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
                     Dim Porcentaje As Decimal = -1

Ventas/CatClientes.aspx

@@ -60,7 +60,7 @@
                                 <asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                     <asp:ListItem Value="-1">Todos</asp:ListItem>
                                     <asp:ListItem Selected="True" Value="1">Activo</asp:ListItem>
-                                    <asp:ListItem Value="2">Inactivo</asp:ListItem>
+                                    <asp:ListItem Value="0">Inactivo</asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                        

Ventas/CatPS.aspx

@@ -101,15 +101,19 @@
 
 
     <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"> <i class="fa fa-print"></i>  Productos sin SAT</asp:HyperLink>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar productos sin SAT</asp:HyperLink>
     </li>
 
     <li>
-        <asp:LinkButton ID="LBImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LBImprimir" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar PDF</asp:LinkButton>
     </li>
 
     <li>
-        <asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+        <asp:LinkButton ID="LBExcel" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
+    </li>
+
+    <li>
+        <asp:LinkButton ID="LBExcelPersonalizado" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
     </li>
 
 
@@ -216,6 +220,10 @@
                             </asp:TemplateField>
                             <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
                             <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
+                            <asp:BoundField DataField="SatPSDescripcion" HeaderText="Producto Servicio SAT" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="Clasificacion2" HeaderText="Clasificacion 2" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="Marca" HeaderText="Marca" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="VentaMinima" HeaderText="Venta Mínima" Visible="false" ItemStyle-Width="20px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>
@@ -277,11 +285,21 @@
                                 <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
                         </div>
                         <div class="modal-body">
-                            <table style="width: 335px;" class="table table-striped table-advance table-hover">
+                            <table style="width: 100%;" class="table table-striped table-advance table-hover">
                                 <tbody>
                                     <tr>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkAplicaVenta" runat="server" Text="Aplica para Venta" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkProductosServiciosSAT" runat="server" Text="Productos Servicios SAT" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkClasificacion2" runat="server" Text="Clasificación 2" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMarca" runat="server" Text="Marca" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkVentaMinima" runat="server" Text="Venta Mínima" /></td>
                                     </tr>
                                 </tbody>
                             </table>

Ventas/CatPS.aspx.vb

@@ -113,6 +113,11 @@ Partial Class CatPS
             AplicaVenta = False
         End If
 
+        GvDatos.Columns(10).Visible = ChkProductosServiciosSAT.Checked
+        GvDatos.Columns(11).Visible = ChkClasificacion2.Checked
+        GvDatos.Columns(12).Visible = ChkMarca.Checked
+        GvDatos.Columns(13).Visible = ChkVentaMinima.Checked
+
         CargaDatos()
         OrdenaDatos()
         UPDatos.Update()
@@ -255,6 +260,13 @@ Partial Class CatPS
         ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
 
     End Sub
+
+    Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
+        ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1)
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
 #End Region
 
 End Class

Ventas/Clientes.aspx

@@ -443,14 +443,14 @@
                                         --%>
 
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
+                                            <asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                <asp:ListItem  Value="MEX" Text="México"></asp:ListItem>
+                                                <asp:ListItem Value="MEX" Text="México"></asp:ListItem>
-                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem Value="USA" Text="USA"></asp:ListItem>
-                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                                <asp:ListItem Value="CAN" Text="Canada"></asp:ListItem>
                                             </asp:DropDownList>
 
-                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
                                             <i></i>
                                         </div>
@@ -460,7 +460,7 @@
                                             <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
-                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
                                             <i></i>
                                         </div>
@@ -638,13 +638,13 @@
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
 
-                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false" >
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
-                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control"/>
+                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
-                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/>
+                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
                                         </div>
 
@@ -692,7 +692,9 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Sucursales y/o Departamentos</span>
+                                            <span class="caption-subject bold uppercase">
+                                                <asp:Literal ID="LtlGvSucursalesCliente" runat="server" Text="Sucursales y/o Departamentos" />
+                                            </span>
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
@@ -704,7 +706,8 @@
                                             <table class="table table-striped table-advance table-hover" style="width: 100%">
                                                 <thead>
                                                     <tr class="Titulos">
-                                                        <th width="150px">Sucursal y/o Departamento</th>
+                                                        <th width="150px">
+                                                            <asp:Literal ID="LtlNombreSucursalTitulo" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal></th>
                                                         <th></th>
                                                         <th></th>
                                                         <th width="121px">Comandos</th>
@@ -787,7 +790,7 @@
                                             <Columns>
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
-                                                        Sucursal/Depto
+                                                        <asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal/Depto"></asp:Literal>
 
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
@@ -1008,16 +1011,16 @@
                                             <div class="portlet-body form-horizontal form-row-sepe">
                                                 <div class="form-body">
                                                     <div id="divCuentas" runat="server" visible="false">
-                                                         <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
+                                                        <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
-                                                        <ContentTemplate>
+                                                            <ContentTemplate>
-                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
+                                                                <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
-                                                                <Columns>
+                                                                    <Columns>
-                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                        <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
-                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                        <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
-                                                                </Columns>
+                                                                    </Columns>
-                                                            </asp:GridView>
+                                                                </asp:GridView>
-                                                        </ContentTemplate>
+                                                            </ContentTemplate>
-                                                    </asp:UpdatePanel>
+                                                        </asp:UpdatePanel>
 
                                                     </div>
                                                     <div id="divCuentasContp" runat="server" visible="false">
@@ -2369,7 +2372,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Archivos</HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Center"/>
+                                                <ItemStyle HorizontalAlign="Center" />
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HplXML" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i></asp:HyperLink>
                                                     <asp:HyperLink ID="HplPDF" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-pdf-o' style="font-weight:bold;"></i></asp:HyperLink>
@@ -2377,7 +2380,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Reenviar Complemento</HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Center"/>
+                                                <ItemStyle HorizontalAlign="Center" />
                                                 <ItemTemplate>
                                                     <%-- <a id="HLSendMail" runat="server" class="Texto" visible="false">
                                                         <i class="fa fa-envelope fa-2" aria-hidden="true"></i>
@@ -2428,10 +2431,10 @@
                                     <asp:GridView ID="GvPagosNoBancarios" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron pagos no bancarios" Width="50%"
                                         CssClass="table table-striped table-advance table-hover   ScrollAD" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None" DataKeyNames="CvePrePoliza,CveCompra,CveVenta,CvePersonal,ImporteMN,VentaSerieFolio,CompraSerieFolio,NombreCompleto,FechaIng,Abreviatura">
                                         <Columns>
-                                            <asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto"/>
+                                            <asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto" />
-                                            <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}"/>
+                                            <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
-                                            <asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
+                                            <asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                            <asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}"/>
+                                            <asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
                                             <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlImp" runat="server" Text='<%# Eval("ImporteMN", "{0:N2}")%>'></asp:Literal>
@@ -4535,8 +4538,8 @@
                             <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
                             <UserControl:TareaNueva runat="server" id="TareaNueva" />
                             <script> function OnAddedTareaNueva() {
-                                    $('.btnupEventoBitacora').click();
+     $('.btnupEventoBitacora').click();
-                                }
+ }
 
                             </script>
                         </div>
@@ -4654,7 +4657,9 @@
                                 <div class="portlet-title">
                                     <div class="caption font-green">
                                         <i class="fa fa-users font-green"></i>
-                                        <span class="caption-subject bold uppercase">Datos de la Sucursal </span>
+                                        <span class="caption-subject bold uppercase">
+                                            <asp:Literal ID="LtlTituloSurcusalCliente" runat="server" Text="Datos de la Sucursal"></asp:Literal>
+                                        </span>
 
 
 
@@ -4670,7 +4675,9 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Sucursal y/o Departamento:</label>
+                                    <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">
+                                        <asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal>
+                                    </label>
                                 </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
@@ -4738,10 +4745,17 @@
 
                                 </div>
 
-                                <div class="form-group form-md-line-input input-iconright">
+                                <div class="row" style="padding-left: 16px;">
-                                    <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
-                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                        <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                        <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                        <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                    </div>
+                                    <div id="DivRFCSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
+                                        <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="REVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
+                                    </div>
                                 </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
@@ -7069,6 +7083,6 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 
 </asp:Content>

Ventas/Clientes.aspx.vb

@@ -1197,14 +1197,13 @@ Partial Class Clientes
 
     End Sub
     Private Sub CargaSubProyectoss()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+
         DdlSubProyecto.DataBind()
 
-        'If UsuarioActual.CveSucursal = -1 Then
+
-        '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'Else
-        '    DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString
-        'End If
     End Sub
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -1422,6 +1421,7 @@ Partial Class Clientes
                 'TxtEstado.Text = ObjClientes.Estado
                 'TxtPais.Text = ObjClientes.Pais
                 TxtRFC.Text = ObjClientes.RFC
+
                 TxtCP.Text = ObjClientes.CP.ToString
                 TxtTelefono.Text = ObjClientes.Telefono
                 TxtContacto.Text = ObjClientes.Contacto
@@ -1900,6 +1900,15 @@ Partial Class Clientes
         End If
         ObjClientes.Dispose()
         GvDireccionesEnvio.DataBind()
+
+        If TxtRFC.Text = "XAXX010101000" Then
+            GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
+            LtlNombreSucursal.Text = "Cliente"
+            LtlNombreSucursalTitulo.Text = "Cliente"
+            LtlTituloSurcusalCliente.Text = "Datos del cliente"
+            LtlGvSucursalesCliente.Text = "Clientes"
+        End If
+        UpAgregarSucursal.Update()
         UpDatos.Update()
     End Sub
     Public Sub CargaAFAsignados()
@@ -2977,15 +2986,13 @@ Partial Class Clientes
 
         Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
+        Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
 
         If CveCliente > 0 Then
             If Actualizar Then
 
-
                 Dim Estatus As Boolean = ChkEstatusSucursal.Checked
 
-
-
                 If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
                                              TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero,
                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
@@ -3127,6 +3134,7 @@ Partial Class Clientes
     Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing
 
         Me.Actualizar = True
+        Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
 
 
@@ -3147,6 +3155,8 @@ Partial Class Clientes
             TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString
             TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString
             TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString
+            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString
+            DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
             TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString
             TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString
             TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString

Ventas/ProductosServicios.aspx.vb

@@ -821,7 +821,6 @@ Partial Class ProductosyServicios
                 lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}"
                 LtProductoUnificar.Text = ObjProductosServicios.PS
                 ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString
-                TxtAlmacenSeccion.Text = ObjProductosServicios.AlmacenSeccion.ToString
                 DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString)
 
                 DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString

Ventas/Ventas.aspx

@@ -417,11 +417,33 @@
                                 <td width="135px">
                                     <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
                             </tr>
+                            <%--                            <tr runat="server" id="trFacturacionSucursal" visible="false">
+                                <td><b>Facturar Sucursal :</b></td>
+                                <td>
+                                    <asp:CheckBox ID="ChkFacturarSucursal" runat="server" OnCheckedChanged="ChkFacturarSucursal_CheckedChanged" />
+                                </td>
+                            </tr>--%>
                             <tr runat="server" id="trsucursalciente" visible="false">
-                                <td><b>Sucursal :</b></td>
+                                <td align="left" ><b>
-                                <td colspan="3">
+                                    <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
-                                    <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal" Width="150px">
+                                    :</b></td>
-                                    </asp:DropDownList>
+                                <td align="left" >
+                                    <div class="row align-items-start">
+                                        <div class="col-md-10">
+                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
+                                            </asp:DropDownList>
+                                        </div>
+                                        <div class="col-md-2" style="padding: inherit;">
+                                            <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
+                                        </div>
+                                    </div>
+                                </td>
+                                <td align="left" >
+                                    <b>
+                                        <asp:Label ID="LtlTitleRFCSucursal" runat="server" Text=""></asp:Label></b>
+                                </td>
+                                <td align="left" >
+                                    <asp:Label ID="LtlRFCSucursal" runat="server" Text=""></asp:Label>
                                 </td>
                             </tr>
                             <tr align="left" runat="server" id="TrDireccion">
@@ -6880,6 +6902,132 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    <%-- MODAL SUCURSAL --%>
+    <div id="divAgregarSucursal" class="modal fade" role="dialog">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+            <asp:UpdatePanel ID="UpAgregarSucursal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <fieldset>
+                        <table border="0" class="portlet light bordered">
+                            <tr>
+                                <div class="portlet-title">
+                                    <div class="caption font-green">
+                                        <i class="fa fa-users font-green"></i>
+                                        <span class="caption-subject bold uppercase">Datos del cliente </span>
+                                    </div>
+                                    <div class="actions">
+                                        <div class="btn-group">
+                                        </div>
+                                    </div>
+                                </div>
+                            </tr>
+                            <tr>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-12">
+                                        <asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Nombre del cliente:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-12">
+                                        <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="RFVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
+                                    </div>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtDireccionSucursal" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" ControlToValidate="TxtDireccionSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtDireccionSucursal.ClientID.ToString()%>">Calle:</label>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:TextBox ID="TxtNumExtSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator14" runat="server" ControlToValidate="TxtNumExtSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtNumExtSucursal.ClientID.ToString()%>">Número Exterior:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:TextBox ID="TxtNumIntSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= TxtNumIntSucursal.ClientID.ToString()%>">Número Interior:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtCPSucursal" CssClass="form-control " runat="server" MaxLength="5" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator15" runat="server" ControlToValidate="TxtCPSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCPSucursal.ClientID.ToString()%>">Código Postal:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtColoniaSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator16" runat="server" ControlToValidate="TxtColoniaSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtColoniaSucursal.ClientID.ToString()%>">Colonia:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtCiudadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" ControlToValidate="TxtCiudadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCiudadSucursal.ClientID.ToString()%>">Ciudad:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtLocalidadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator18" runat="server" ControlToValidate="TxtLocalidadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtLocalidadSucursal.ClientID.ToString()%>">Localidad:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtEstadoSucursal" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" ControlToValidate="TxtEstadoSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtEstadoSucursal.ClientID.ToString()%>">Estado:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtPaisSucursal" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtPaisSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtPaisSucursal.ClientID.ToString()%>">País:</label>
+                                    </div>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                    <asp:RegularExpressionValidator ID="RegularExpressionValidator4" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
+                                    <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
+                                    <i></i>
+                                </div>
+
+                                <div class="row" style="padding-left: 16px">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:DropDownList ID="DdlVendedorSucursal" runat="server" CssClass="form-control input-sm select2me" Width="250px" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                        </asp:DropDownList>
+                                        <label for="<%= DdlVendedorSucursal.ClientID.ToString()%>">Vendedor:</label>
+                                    </div>
+
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:DropDownList ID="DdlSucursalUsoCFDI" CssClass="form-control  select2me" runat="server" Width="150px" AppendDataBoundItems="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                        <label for="<%=  DdlSucursalUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
+                                    </div>
+
+                                </div>
+                            </tr>
+                        </table>
+                    </fieldset>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgregarSucursal" runat="server" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarSucursal" />
+                        <button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -7744,75 +7892,75 @@
 
         function LimpiaModal() {
             $('#<%= TxtDireccion.ClientID  %>').val('');
-                            $('#<%= TxtColonia.ClientID  %>').val('');
+            $('#<%= TxtColonia.ClientID  %>').val('');
-                            $('#<%= TxtCiudad.ClientID  %>').val('');
+            $('#<%= TxtCiudad.ClientID  %>').val('');
-                            $('#<%= TxtEstado.ClientID  %>').val('');
+            $('#<%= TxtEstado.ClientID  %>').val('');
-                            $('#<%= TxtCP.ClientID  %>').val('');
+            $('#<%= TxtCP.ClientID  %>').val('');
-                        }
+        }
 
-                        function BtnMateriales() {
+        function BtnMateriales() {
-                            $('#BtnMateriales').click();
+            $('#BtnMateriales').click();
-                        }
+        }
 
-                        function BtnEnviarMailCancelacion() {
+        function BtnEnviarMailCancelacion() {
-                            $('#BtnEnviarMailCancelacion').click();
+            $('#BtnEnviarMailCancelacion').click();
-                        }
+        }
-                        function BtnRefacturacionConfirmar() {
+        function BtnRefacturacionConfirmar() {
-                            $('#BtnRefacturacionConfirmar').click();
+            $('#BtnRefacturacionConfirmar').click();
-                        }
+        }
-                        function BtnRefacturacionConfirmarAceptacion(Liga) {
+        function BtnRefacturacionConfirmarAceptacion(Liga) {
-                            $('#BtnRefacturacionConfirmarAceptacion').click();
+            $('#BtnRefacturacionConfirmarAceptacion').click();
-                        }
+        }
-                        function BtnRefrescarPagina() {
+        function BtnRefrescarPagina() {
-                            $('#BtnRefrescarPagina').click();
+            $('#BtnRefrescarPagina').click();
-                        }
+        }
-                        function Recargar() {
+        function Recargar() {
-                            $('#BtnRefrescarPagina').click();
+            $('#BtnRefrescarPagina').click();
-                        }
+        }
-                        function BtnAplicaNuevaNC() {
+        function BtnAplicaNuevaNC() {
-                            $('#BtnAplicaNuevaNC').click();
+            $('#BtnAplicaNuevaNC').click();
-                        }
+        }
 
-                        $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
+        $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
-                        $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
+        $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
 
-                        $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) {
+        $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) {
-                            var $this = $(this);
+            var $this = $(this);
-                            var ind = $this.index();
+            var ind = $this.index();
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active');
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active');
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active');
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active');
-                            //log($this);
+            //log($this);
-                        });
+        });
-                        var scrollfuncion = function () {
+        var scrollfuncion = function () {
-                            var stop = this.scrollTop;
+            var stop = this.scrollTop;
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
-                        }
+        }
-                        function CargaExistenciaAlmacenes(data, params) {
+        function CargaExistenciaAlmacenes(data, params) {
-                            var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
+            var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
-                            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
+            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
-                            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
+            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
-                            var table = $('<table id="TExistencias" ></table>'); div.append(table);
+            var table = $('<table id="TExistencias" ></table>'); div.append(table);
-                            var tbody = $('<tbody></tbody>'); table.append(tbody);
+            var tbody = $('<tbody></tbody>'); table.append(tbody);
-                            $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
+            $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
-                            $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
+            $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
-                            var indexd = 0;
+            var indexd = 0;
-                            data.forEach(function (item) {
+            data.forEach(function (item) {
-                                if (indexd == 0) {
+                if (indexd == 0) {
-                                    var tr = $('<tr></tr>'); tbody.append(tr);
+                    var tr = $('<tr></tr>'); tbody.append(tr);
-                                    var td;
+                    var td;
-                                    for (var key in item) {
+                    for (var key in item) {
-                                        if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); }
+                        if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); }
-                                    }
+                    }
-                                }
+                }
-                                var tr = $('<tr></tr>'); tbody.append(tr);
+                var tr = $('<tr></tr>'); tbody.append(tr);
 
-                                var td;
+                var td;
-                                for (var key in item) {
+                for (var key in item) {
-                                    if (!(key == "text" || key == "id")) {
+                    if (!(key == "text" || key == "id")) {
-                                        if ((item[key] > 0)) {
+                        if ((item[key] > 0)) {
-                                            td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
+                            td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
-                                        } else {
+                        } else {
-                                            if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
+                            if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
                                 var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');"
                                 td = $('<td>' + item[key] + ' <button type="button" class="btn btn-xs btn-primary" onclick="' + buscarAlmacenes + '">Ver mas existencias</button></td>'); tr.append(td);
                             } else {
@@ -7951,17 +8099,17 @@
         function ConvertirPesos(ChkConvertirDoctoPesos) {
             //LIMPIA
             $('#<%= LtlTotalConvertido.ClientID  %>').text('');
-            $("#TrConversionPesosTexto").hide();
+                            $("#TrConversionPesosTexto").hide();
 
-            //CALCULA
+                            //CALCULA
-            if (ChkConvertirDoctoPesos.checked) {
+                            if (ChkConvertirDoctoPesos.checked) {
-                ConvertirDllsPesos();
+                                ConvertirDllsPesos();
-            }
+                            }
-        }
+                        }
 
-        function ConvertirPesosDlls() {
+                        function ConvertirPesosDlls() {
-            var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2)
+                            var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2)
-            $('#<%= LblDolaresConvertidos.ClientID  %>').text(totalPesos);
+                            $('#<%= LblDolaresConvertidos.ClientID  %>').text(totalPesos);
             $("#TrConversionDolaresTexto").show();
         }
 
@@ -8098,5 +8246,26 @@
             }
         };
 
+        function showDivAgregarSucursal() {
+
+            $('#<%= TxtNombreSucursal.ClientID  %>').val('');
+            $('#<%= TxtDireccionSucursal.ClientID  %>').val('');
+            $('#<%= TxtNumExtSucursal.ClientID  %>').val('');
+            $('#<%= TxtNumIntSucursal.ClientID  %>').val('');
+            $('#<%= TxtCPSucursal.ClientID  %>').val('');
+            $('#<%= TxtColoniaSucursal.ClientID  %>').val('');
+            $('#<%= TxtTelefonoSucursal.ClientID  %>').val('');
+            $('#<%= TxtCiudadSucursal.ClientID  %>').val('');
+            $('#<%= TxtLocalidadSucursal.ClientID  %>').val('');
+            $('#<%= TxtEstadoSucursal.ClientID  %>').val('');
+            $('#<%= TxtPaisSucursal.ClientID  %>').val('');
+            $('#<%= TxtCorreoSucursal.ClientID  %>').val('');
+            $('#divAgregarSucursal').modal();
+        }
+
+        function hideDivAgregarSucursal() {
+            $('#divAgregarSucursal').modal('hide');
+        }
+
     </script>
 </asp:Content>

Ventas/Ventas.aspx.vb

@@ -1764,6 +1764,23 @@ Partial Class Ventas
             ViewState("CvePrecioLista") = value
         End Set
     End Property
+    Private Property FacturarSucursal As Boolean
+        Get
+            Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal")))
+        End Get
+        Set(value As Boolean)
+            ViewState("FacturarSucursal") = value
+        End Set
+    End Property
+
+    Private Property ClienteSucursal As Modelos.SucursalModel
+        Get
+            Return CType(ViewState("ClienteSucursal"), Modelos.SucursalModel)
+        End Get
+        Set(value As Modelos.SucursalModel)
+            ViewState("ClienteSucursal") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2643,6 +2660,12 @@ Partial Class Ventas
             End If
 
 
+            'rmf.2020.09.30, codigo de prueba
+            If UsuarioActual.CveEmpresa = 1 Then
+                DivMesesSinIntereses.Visible = True
+                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
+                DivContadoOtros.Visible = True
+            End If
 
             If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
 
@@ -4566,6 +4589,12 @@ Partial Class Ventas
 
                 DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
 
+                Me.FacturarSucursal = CBool(DbRowVenta("FacturarSucursal").ToString())
+
+                If Me.FacturarSucursal Then
+                    HabilitarFacturacionSucursal()
+                End If
+
                 CargaPS(-1, DdlPS)
 
                 'CARGA GV DE OC RELACIONADAS
@@ -4802,7 +4831,10 @@ Partial Class Ventas
     End Sub
     Private Sub CargaUsoCFDI()
         DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+
         DdlUsoCFDI.DataBind()
+        DdlSucursalUsoCFDI.DataBind()
     End Sub
     Private Sub CargaTiposRelacion()
         DdlTiposRelacion.DataSource = GlobalDTVtaTiposRelacion
@@ -5221,6 +5253,11 @@ Partial Class Ventas
                 DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
                 DdlSucursalCliente.DataBind()
 
+                'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
+                If (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
+                    HabilitarFacturacionSucursal()
+                End If
+
                 'CargaFolios()
 
                 CargaDatosEstimaciones(CveCliente)
@@ -5576,6 +5613,11 @@ Partial Class Ventas
 
 
     Private Sub CargaClienteSucursal(CveClienteSuc As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing)
+        Me.ClienteSucursal = Nothing
+        Me.FacturarSucursal = False
+        LtlTitleRFCSucursal.Text = ""
+        LtlRFCSucursal.Text = ""
+
         Dim ObjCliente As New ClsClientes
         If CveClienteSuc > 0 Then
             If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then
@@ -5612,6 +5654,32 @@ Partial Class Ventas
                         UpParametros.Update()
                     End If
 
+                    'SI EL CLIENTE TIENE RFC GENERICO Y LA SUCURSAL TIENE RFC DEBE FACTURAR LA SUCURSAL
+                    If LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then
+                        Me.FacturarSucursal = True
+
+                        LtlTitleRFCSucursal.Text = "RFC:"
+                        LtlRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
+
+                        Me.ClienteSucursal = New Modelos.SucursalModel
+                        Me.ClienteSucursal.Nombre = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString()
+                        Me.ClienteSucursal.RFC = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
+                        Me.ClienteSucursal.NoExt = CliNoExt
+                        Me.ClienteSucursal.NoInt = CliNoInt
+                        Me.ClienteSucursal.Localidad = CliLocalidad
+                        Me.ClienteSucursal.Direccion = LblDireccion.Text
+                        Me.ClienteSucursal.Colonia = LblColonia.Text
+                        Me.ClienteSucursal.Municipio = LblCiudad.Text
+                        Me.ClienteSucursal.Estado = LblEstado.Text
+                        Me.ClienteSucursal.CP = LblCP.Text
+                        Me.ClienteSucursal.Pais = CliPais
+                        Me.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
+                        Me.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
+                        Me.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
+                        Me.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
+
+                    End If
+
                     If CveVenta <= 0 Then
                         CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
 
@@ -5666,10 +5734,12 @@ Partial Class Ventas
             LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
         End If
 
+        ObjCliente.Dispose()
+
         UPPVentas.Update()
         UpEstatus.Update()
         UPCondicionesPago.Update()
-        ObjCliente.Dispose()
+        UpCliente.Update()
     End Sub
     Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal
         Dim Retorno As Decimal = 0
@@ -6630,6 +6700,11 @@ Partial Class Ventas
         DtOCTmpDT = TmpDT.Copy
         TmpDTError = TmpDT.Copy
 
+        If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
+            Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'CUANDO ES PEDIDO SE DEBE ESPECIFICAR EL NUMERO DE CONTRATO
         If TrTipoPedido.Visible AndAlso DdlTipoPedido.SelectedIndex = 2 Then
             If String.IsNullOrEmpty(TxtObsFact.Text.Trim()) Then
@@ -6993,6 +7068,22 @@ Partial Class Ventas
                 Exit Sub
             End If
             dttsat.Dispose()
+
+            If UsuarioActual.CveEmpresa = 72 Then
+                Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
+                If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+                    Dim StrNoEncontrados As New StringBuilder
+                    StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                    For Each drt As DataRow In DtNoEncontrados.Rows
+                        StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+                    Next
+                    Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+                    DtNoEncontrados.Dispose()
+                    StrNoEncontrados.Clear()
+                    Exit Sub
+                End If
+                DtNoEncontrados.Dispose()
+            End If
         End If
 
         If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
@@ -7904,6 +7995,10 @@ Partial Class Ventas
         'ObjFacturaDevolucion.SetSucursal(Me)
 
         ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+            ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+        End If
         ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -8140,6 +8235,11 @@ Partial Class Ventas
         'ObjFacturaBonificacion.SetSucursal(Me)
 
         ObjFacturaBonificacion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaBonificacion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+            ObjFacturaBonificacion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+        End If
+
         ObjFacturaBonificacion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaBonificacion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaBonificacion.ClienteSucursal.Localidad = CliLocalidad
@@ -8371,7 +8471,6 @@ Partial Class Ventas
             ObjFactura = New Modelos.Factura
         End If
 
-
         ObjFactura.Version = "3.3"
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -8383,7 +8482,7 @@ Partial Class Ventas
         ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
         ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue)
-
+        ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC)))
 
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
         'si es cancelacion, debe de conservar el folio actual
@@ -8832,8 +8931,12 @@ Partial Class Ventas
         'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFactura.SetSubProyectoMatriz(Me)
         ObjFactura.SetSubProyecto(Me)
-        ObjFactura.ClienteSucursal = New Modelos.SucursalModel
+        ObjFactura.ClienteSucursal = New Modelos.SucursalModel()
         If Not CveEmpresaCRM > 0 Then
+            If Me.ClienteSucursal IsNot Nothing Then
+                ObjFactura.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+                ObjFactura.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+            End If
             ObjFactura.ClienteSucursal.NoExt = CliNoExt
             ObjFactura.ClienteSucursal.NoInt = CliNoInt
             ObjFactura.ClienteSucursal.Localidad = CliLocalidad
@@ -9232,7 +9335,12 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFacturaDevolucion.SetSubProyectoMatriz(Me)
         ObjFacturaDevolucion.SetSubProyecto(Me)
+
         ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+            ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+        End If
         ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -9245,6 +9353,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
         ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
         ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
+        ObjFacturaDevolucion.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
 
         'ENVIO DIRECCION
         ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel
@@ -9292,13 +9401,18 @@ Partial Class Ventas
 
         Timbre.Comprobante.Confirmacion = ""
 
-        Timbre.Receptor.RFC = Obj.Cliente.RFC
+        If Obj.FacturarSucursal Then
-        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+            Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC
+            Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre
+        Else
+            Timbre.Receptor.RFC = Obj.Cliente.RFC
+            Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+        End If
+
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
 
-
         If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then
 
             Timbre.CFDIRelacionados.TipoRelacion = "07"
@@ -9367,8 +9481,6 @@ Partial Class Ventas
         End If
 
 
-
-
         Dim totSubTotal As Decimal = Obj.SubTotal
         Dim totIVA As Decimal = Obj.IVA
         Dim totRetIVA As Decimal = Obj.RetIVA
@@ -9936,7 +10048,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -14980,6 +15092,10 @@ Partial Class Ventas
                     DdlIVA.SelectedValue = "1.16"
                     PorcentajeIVA = ViewState("IVA").ToString().ToDecimal
             End Select
+            'SI ES COTIZACION HABILITAR EL DDL DE IVA
+            If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+                DdlIVA.Visible = True
+            End If
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA()
             'ViewState("SubProyectoPorcentajeIVA") = dr("IVA")
             ViewState("TipoFormato") = dr("TipoFormato")
@@ -15027,7 +15143,11 @@ Partial Class Ventas
 
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+        DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
+
         DdlVendedor.DataBind()
+        DdlVendedorSucursal.DataBind()
 
         DdlVendedor.SelectedValueExist(CveVendedorActual)
 
@@ -15133,7 +15253,7 @@ Partial Class Ventas
 
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
-                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153}) 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
@@ -15621,6 +15741,11 @@ Partial Class Ventas
                     MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
                     Return False
                 End If
+
+                If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
+                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+                    Return False
+                End If
             End If
         End If
 
@@ -16709,6 +16834,84 @@ Partial Class Ventas
     Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
         ViewState("EstablecioFolio") = True
     End Sub
+    Private Sub HabilitarFacturacionSucursal()
+        trsucursalciente.Visible = True
+        LnkAgregarSucursal.Visible = True
+        LblSucursal.Text = "Cliente"
+        If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
+            DdlSucursalCliente.Enabled = True
+        End If
+        DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
+
+        UpCliente.Update()
+    End Sub
+
+    Protected Sub ChkFacturarSucursal_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+    Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
+        RegistraScript("showDivAgregarSucursal();")
+    End Sub
+
+    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
+
+        Dim LT As String = "0"
+        Dim LG As String = "0"
+
+        If CveCliente > 0 Then
+            Dim ObjCliente As New ClsClientes
+            Try
+                If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, "", "",
+                                          DdlVendedorSucursal.SelectedValue.ToEntero, "", -1, 0, -1, DdlSucursalUsoCFDI.SelectedValue.ToEntero, -1, -1, LT:=LT, LG:=LG, RFC:=TxtRFCSucursal.Text.Trim()) Then
+                    TxtNombreSucursal.Text = ""
+                    TxtCiudadSucursal.Text = ""
+                    TxtColoniaSucursal.Text = ""
+                    TxtCPSucursal.Text = ""
+                    TxtDireccionSucursal.Text = ""
+                    TxtEstadoSucursal.Text = ""
+                    TxtLocalidadSucursal.Text = ""
+                    TxtPaisSucursal.Text = ""
+                    TxtNumExtSucursal.Text = ""
+                    TxtNumIntSucursal.Text = ""
+                    TxtTelefonoSucursal.Text = ""
+                    TxtCorreoSucursal.Text = ""
+
+                    DdlVendedorSucursal.SelectedIndex = 0
+                    DdlSucursalUsoCFDI.SelectedIndex = 0
+
+
+                    Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion)
+
+                    'VUELVE A CARGAR LAS SUCURSALES
+                    DdlSucursalCliente.Items.Clear()
+                    If ObjCliente.GetSucursales(CveCliente) Then
+                        DdlSucursalCliente.DataSource = ObjCliente.DtResultados
+                        If ObjCliente.DtResultados.Rows.Count > 0 Then
+                            trsucursalciente.Visible = True
+                        Else
+                            trsucursalciente.Visible = False
+                        End If
+                    Else
+                        trsucursalciente.Visible = False
+                        DdlSucursalCliente.DataSource = Nothing
+                    End If
+                    DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
+                    DdlSucursalCliente.DataBind()
+
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al agregar la sucursal", ex)
+            End Try
+            ObjCliente.Dispose()
+
+        End If
+
+        UpCliente.Update()
+        RegistraScript("hideDivAgregarSucursal();")
+
+    End Sub
+
+
     Private Sub ConfiguraTipoDocto()
 
         'Esconde Todo
@@ -17824,6 +18027,11 @@ Partial Class Ventas
                 Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
                 Dim RFCReceptor As String = LblRFC.Text.Trim
 
+                'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
+                If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
+                    RFCReceptor = Me.ClienteSucursal.RFC
+                End If
+
                 Dim SWatch As New Stopwatch
                 SWatch.Start()
 
@@ -18472,12 +18680,22 @@ Partial Class Ventas
         Select Case RBLPago.SelectedValue.ToEntero()
             Case 1 'CREDITO
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+                'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("3")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 2 'CONTADO
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
                     DivContado.Visible = True
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
                 TxtFechaPago.Text = Now.ToShortDateString
+                'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("1")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 3 ' TERMINAL
                 DivTerminal.Visible = True
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -18485,6 +18703,7 @@ Partial Class Ventas
 
         LimpiaContado()
         UpContado.Update()
+        UPCondicionesPago.Update()
     End Sub
     Private Sub CargaCuentas()
 
@@ -18497,8 +18716,8 @@ Partial Class Ventas
         Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
 
         DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
 
@@ -20040,6 +20259,12 @@ Partial Class Ventas
 
             Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
             Dim RFCReceptor As String = LblRFC.Text.Trim
+
+            'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
+            If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
+                RFCReceptor = Me.ClienteSucursal.RFC
+            End If
+
             Dim SWatch As New Stopwatch
             SWatch.Start()
             Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
@@ -25953,6 +26178,12 @@ Partial Class Ventas
         Return Retorno
     End Function
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
+
+        If (FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
+            Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
             Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         Else

asmx/WSApp.asmx

@@ -43,6 +43,7 @@ Public Class WSApp
             ObjPS.Dispose()
         End Get
     End Property
+
     Property GlobalDTMonedas() As DataTable
         Get
             GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable)
@@ -326,32 +327,41 @@ Public Class WSApp
             Application("GlobalDTCompProveedores") = value
         End Set
     End Property
-    Property GlobalDTProductosServicios(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional Estatus As Integer = 1, Optional CvePS As Integer = -1, Optional AplicaParaVenta As Integer = -1, Optional CveTipoPS As Integer = -1) As DataTable
+    Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable
         Get
-            If CveEmpresa = -1 Then
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
-                GlobalDTProductosServicios = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
+            If CveEmpresa <> -1 Then
-            Else
+                'sino existe, recarga los datos
+                If Application(AppNombre) Is Nothing Then
+                    Dim ObjPS As New ClsProductosServicios
+                    If ObjPS.GetPSSimplificado(CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
+                    ObjPS.Dispose()
+
+                End If
+
+
+                Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow))
 
-                Dim Cons = DirectCast(Application("GlobalDTProductosServicios"), EnumerableRowCollection(Of DataRow))
                 Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
                 If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
-                If CveClasificacionCosto >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacionCosto) = CveClasificacionCosto))
+                If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
                 If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
-                If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
                 If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
-                If CveTipoPS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = CveTipoPS))
+                If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
 
-                'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable 
                 Try
-                    GlobalDTProductosServicios = Cons.OrderBy(Function(a) a!PS).CopyToDataTable
+                    GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable
                 Catch ex As Exception
-                    GlobalDTProductosServicios = New DataTable
+                    GlobalDTPSSimplificado = New DataTable
                 End Try
-            End If
 
+            Else
+                GlobalDTPSSimplificado = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)).CopyToDataTable
+            End If
         End Get
         Set(value As DataTable)
-            Application("GlobalDTProductosServicios") = value
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
@@ -548,15 +558,19 @@ Public Class WSApp
                 Salida.CveSubProyecto = UsuarioActual.CveSubProyecto
                 Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
 
-                If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                     If ObjClientes.DtResultados.Rows.Count > 0 Then
                         Salida.Cliente = ObjClientes.Nombre
                         Salida.CvePrecioLista = ObjClientes.CvePrecioLista
                         Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
+
+                        retorno = JsonConvert.SerializeObject(Salida)
                     End If
+                Else
+                    retorno = "{}"
                 End If
 
-                retorno = JsonConvert.SerializeObject(Salida)
+
             Else
                 retorno = "{}"
             End If
@@ -712,25 +726,40 @@ Public Class WSApp
                 If ListaPS IsNot Nothing Then
                     Dim Continuar As Boolean = False
                     Dim ObjPS As New ClsProductosServicios
-                    For Each PS In ListaPS
+                    Try
-                        If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
+                        For Each PS In ListaPS
-                            If ObjPS.DtResultados.Rows.Count > 0 Then
+                            Dim CveTipoPS As Integer = GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero()
-                                Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal()
+                            If CveTipoPS > 0 Then
-                                Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero()
+                                If CveTipoPS = 2 Then
+                                    If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
+                                        If ObjPS.DtResultados.Rows.Count > 0 Then
+                                            Dim Existencia As Decimal = ObjPS.DtResultados.Rows(0)("Existencia").ToString().ToDecimal()
+                                            'Dim CveTipoPS As Integer = ObjPS.DtResultados.Rows(0)("CveTipoPS").ToString().ToEntero()
 
-                                Continuar = (CveTipoPS = 2 AndAlso Existencia > 0) OrElse (CveTipoPS = 1)
+                                            Continuar = Existencia > 0
 
-                                If Not Continuar Then
+                                            If Not Continuar Then
-                                    Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
+                                                Retorno.Mensajes.Add($"El producto/servicio {ObjPS.DtResultados.Rows(0)("PS")} no tiene existencia.")
-                                    Exit For
+                                                Exit For
+                                            End If
+                                        Else
+                                            Continuar = False
+                                            Retorno.Mensajes.Add("No se pudo comprobar la existencia.")
+                                            Exit For
+                                        End If
+                                    End If
+                                ElseIf CveTipoPS = 1 Then
+                                    Continuar = True
                                 End If
                             Else
                                 Continuar = False
-                                Retorno.Mensajes.Add("No se pudo comprobar la existencia.")
+                                Retorno.Mensajes.Add("No se pudo comprobar si es producto o servicio.")
-                                Exit For
                             End If
-                        End If
+                        Next
-                    Next
+                    Catch ex As Exception
+                        OnError("Ocurrió un error al consultar la existencia", ex)
+                        Continuar = False
+                    End Try
                     ObjPS.Dispose()
 
                     If Continuar Then
@@ -746,22 +775,15 @@ Public Class WSApp
                             'Dim Correo As String = "japmx95@gmail.com"
                             Dim SerieFolio As String = Factura.SerieFolio
                             Dim DireccionEnvio As String = ""
-                            Dim ObjClientes As New ClsClientes
+                            Using ObjClientes As New ClsClientes
-                            If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+                                If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
-                                If ObjClientes.DtResultados.Rows.Count > 0 Then
+                                    If ObjClientes.DtResultados.Rows.Count > 0 Then
-                                    DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
+                                        DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
+                                    End If
                                 End If
-                            End If
+                            End Using
-                            ObjClientes.Dispose()
-                            Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now)
                             Factura.Dispose()
-                            Try
+                            EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
-                                Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
-                                Dim Mail As New ClsSisMail()
-                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
-                            Catch ex As Exception
-                                OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
-                            End Try
                         Else
                             Factura.Dispose()
                         End If
@@ -780,6 +802,25 @@ Public Class WSApp
 
         Return JsonConvert.SerializeObject(Retorno)
     End Function
+    Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Try
+            Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual))
+            Hilo.Start()
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar el correo de facturación", ex)
+        End Try
+    End Sub
+    Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
+        Factura.Dispose()
+        Try
+            Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
+            Dim Mail As New ClsSisMail()
+            Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
+        End Try
+    End Sub
     <WebMethod()>
     Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
         Dim Retorno = New Modelos.Factura.MMensajeFactura()