general

.gitignore

@@ -269,3 +269,5 @@ paket-files/
 __pycache__/
 *.pyc
 /Utilerias
+/Default.aspx
+/Default.aspx.cs

Acumuladores/CatFoliosGarantia.aspx

@@ -90,8 +90,8 @@
                                 <label class="col-md-1 truncate">Estatus:</label>
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
-                                        <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Activo" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                        <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
                                         <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
@@ -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: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>
@@ -281,6 +281,14 @@
                                     <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>
                                     <i></i>
+                                </div>
+                                 <div class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= DdlArea.ClientID.ToString()%>">Area:</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:DropDownList>
+                                    <i></i>
                                 </div>
                                 <%--                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                     <asp:TextBox ID="TxtCargo" CssClass="form-control " Width="150px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important; margin-right: 10px!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -38,7 +38,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         If Not Page.IsPostBack Then
             CargaSubProyectos()
-            CargadatosGvFolioGarantia(-1, "-1")
+            CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
         End If
 
     End Sub
@@ -57,7 +57,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         Dim objAcum As New ClsAcumuladores
 
-        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor) Then
+        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1) Then
             GvFolioGarantia.DataSource = objAcum.DtResultados
         Else
             GvFolioGarantia.DataSource = Nothing
@@ -116,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
         If Not Actualizar Then
-            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
+            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 ChkEstatus.Checked = True

App_Code/ClsAcumuladores.vb

@@ -483,7 +483,7 @@ Public Class ClsAcumuladores
 
 #Region " FOLIOS GARANTÍA "
 
-    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional TipoFolio As String = "-1") As Boolean
+    Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional TipoFolio As String = "-1", Optional Area As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -493,7 +493,8 @@ Public Class ClsAcumuladores
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@tipoFolio", SqlDbType.VarChar).Value = TipoFolio
+            .Add("@tipoFolio", SqlDbType.VarChar).Value = TipoFolio
+            .Add("@Area", SqlDbType.Int).Value = Area
         End With
 
         Try
@@ -508,7 +509,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
+    Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -522,7 +523,8 @@ Public Class ClsAcumuladores
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
-            .Add("@Limite", SqlDbType.Int).Value = Limite
+            .Add("@Limite", SqlDbType.Int).Value = Limite
+            .Add("@Area", SqlDbType.Int).Value = Area
 
         End With
 

App_Code/ClsContabilidad.vb

@@ -149,6 +149,24 @@ Public Class ClsContabilidad
 #End Region
 
 
+
+    Public Function CuentasContablesSigGet(cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Conta_CuentasContablesSigGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex1 As SqlException
+            OnError("Ocurrió un error al obtener las Cuentas Contables", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Cuentas Contables", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
 #Region " C O N T A B I L I D A D - P R E P O L I Z A"
     Public Function ObtenerTipoPoliza(Valor1 As String, Valor2 As String, CveEmpresa As Integer) As Integer
         Dim Retorno As Integer = -1
@@ -1962,9 +1980,28 @@ Public Class ClsContabilidad
 #End Region
 
 #Region " C O N T A B I L I D A D - C O N C E P T O S - C O N T A B L E S "
-    Public Function GetConta_ConceptosContables() As Boolean
+    Public Function GetConta_CuentasDataContabilidad(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_CuentasDataContabilidadGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener lod datos de Concepto Contables.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetConta_ConceptosContables(Optional Estado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_ConceptosContablesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Estado", SqlDbType.Int).Value = Estado
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -4572,26 +4609,10 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetMonedas() As Boolean
+    Public Function GetAgrupadoresSAT() As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter(" SELECT * FROM Monedas ".ToString, CommandType.Text)
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar las Monedas.", ex)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetAgrupadoresSAT(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter(" SELECT CveAgrupadorSAT, Codigo + REPLICATE(' ', 10 - len(Codigo)) + ' - ' + Nombre AS CodigoNombre FROM AgrupadoresSAT where CveEmpresa= '" & CveEmpresa & "'", CommandType.Text)
-
+        DataAdapter("PA_Conta_AgrupadoresSATGet")
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -4605,7 +4626,7 @@ Public Class ClsContabilidad
     Public Function UpdateCuenta(CveCuenta As Integer, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1,
                                  Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveConceptoAdmin As Integer = -1, Optional CveProveedor As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1,
-                                 Optional CveBancoCuenta As Integer = -1) As Boolean
+                                 Optional CveBancoCuenta As Integer = -1, Optional CveAlmacen As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_UpdateCuentas")
@@ -4625,6 +4646,7 @@ Public Class ClsContabilidad
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
 
         End With
         Try

App_Code/ClsInventarios.vb

@@ -355,7 +355,7 @@ Public Class ClsInventarios
     End Function
 
 
-    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1) As Boolean
+    Public Function AddAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, CveUsuario As Integer, CveEmpresa As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesAdd")
@@ -370,6 +370,7 @@ Public Class ClsInventarios
             .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
         End With
 
         Try
@@ -388,7 +389,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1) As Boolean
+    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesUpdate")
@@ -403,6 +404,7 @@ Public Class ClsInventarios
             .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
         End With
 
         Try

App_Code/ClsProductosServicios.vb

@@ -1639,7 +1639,8 @@ Public Class ClsProductosServicios
 
 
 #Region "Precios Lista"
-    Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1, Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
+    Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1,
+                                      Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PSPrecioListaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1649,7 +1650,7 @@ Public Class ClsProductosServicios
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@Estado", SqlDbType.Int).Value = Estado
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsSisEmpresas.vb

@@ -463,7 +463,8 @@ Public Class ClsSisEmpresas
                 _Empresa.CveDistribuidor = Data.Rows(0)("CveDistribuidor").ToString.ToEntero
                 _Empresa.DiasPermitidos = Data.Rows(0)("DiasPermitidos").ToString.ToEntero
                 _Empresa.AsientoContableComprasContado = If(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString = "", False, CBool(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString))
-                _Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero '0 - Sin Conta, 1- Contabilidad SIG, 2- Contabilidad Contpaq
+                _Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero
+                _Empresa.TipoContabilidad = Data.Rows(0)("Conta_TipoContabilidad").ToString.ToEntero '0 - Sin Conta, 1- Contabilidad SIG, 2- Contabilidad Contpaq
                 _Empresa.DefaultAsistencias = If(Data.Rows(0)("RH_DefaultAsistencias").ToString = "", False, CBool(Data.Rows(0)("RH_DefaultAsistencias").ToString))
                 _Empresa.CIEC = Data.Rows(0)("CIEC").ToString
                 _Empresa.Localidad = Data.Rows(0)("Localidad").ToString

App_Code/ClsSisUsuarios.vb

@@ -891,7 +891,7 @@ Public Class ClsSisUsuarios
         Return Retorno
     End Function
 
-    Public Function AddBitacora(CveModulo As Integer, Accion As String, Resultado As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddBitacora(CveModulo As Integer, Accion As String, Resultado As String, CveUsuario As Integer, CveEmpresa As Integer, Optional URL As String = "-1", Optional TiempodeEjecucion As Long = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Sis_UsuariosBitacoraAdd")
 
@@ -901,6 +901,8 @@ Public Class ClsSisUsuarios
             .Add("@Resultado", SqlDbType.VarChar).Value = Resultado
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@URL", SqlDbType.VarChar).Value = URL
+            .Add("@TiempodeEjecucion", SqlDbType.BigInt).Value = TiempodeEjecucion
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -529,6 +529,24 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+    Public Function GetPagos(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasPagosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Pago de la Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function RemoveVta_VentaPago(CveVenta As Integer, CveMetodoPago As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasPagoRemove")
@@ -1899,7 +1917,8 @@ Public Class ClsVentas
     End Function
 
 #Region "   PROMOCIONES   "
-    Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
+    Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
+                                   CveSubProyecto As Integer, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesGet")
 
@@ -1911,6 +1930,7 @@ Public Class ClsVentas
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
         End With
 
         Try
@@ -1922,7 +1942,9 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String) As Integer
+    Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
+                                   CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
+                                   Optional CveMarca As Integer = -1) As Integer
         Dim Retorno = -1
         DataAdapter("PA_Vta_PromocionesAdd")
 
@@ -1939,6 +1961,7 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -1951,7 +1974,8 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer) As Boolean
+    Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
+                                      CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesUpdate")
 
@@ -1967,6 +1991,7 @@ Public Class ClsVentas
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CvePromocion", SqlDbType.Float).Value = CvePromocion
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
         End With
 
         Try
@@ -2043,7 +2068,7 @@ Public Class ClsVentas
     Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double,
                                           AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean,
                                           AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1,
-                                          Optional CveClasificacion As Integer = -1) As Boolean
+                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2067,6 +2092,7 @@ Public Class ClsVentas
             .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
         End With
 
         Try
@@ -2081,7 +2107,7 @@ Public Class ClsVentas
     Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double,
                                              PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean,
                                              AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime,
-                                             Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1) As Boolean
+                                             Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleUpdate")
 
@@ -2106,6 +2132,7 @@ Public Class ClsVentas
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
         End With
 
         Try
@@ -2777,7 +2804,7 @@ Public Class ClsVentas
         Try
 
             Dim objServicio As Cancelacion.CancelacionSoapClient = New Cancelacion.CancelacionSoapClient()
-        Dim resp As Cancelacion.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
+            Dim resp As Cancelacion.StructCancel = objServicio.ObtienePendientes(RFC, "UserTest", "1234567890")
             If resp.Estado = 0 Then
                 Dim XmlPendientes As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml))
                 Dim theReader As IO.StringReader = New IO.StringReader(XmlPendientes)
@@ -4290,7 +4317,7 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
-    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer) As Boolean
+    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -4300,6 +4327,7 @@ Public Class ClsVentas
             .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad
             .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -4338,7 +4366,7 @@ Public Class ClsVentas
         Return retorno
     End Function
     Public Function UpdateMetasVendedores(CveMeta As Integer, CveVendedor As Integer, MesAño As String, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal,
-                                          CveClasificacion As Integer) As Boolean
+                                          CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedoresUpdate", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -4349,6 +4377,7 @@ Public Class ClsVentas
             .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad
             .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/Empresa.vb

@@ -153,6 +153,7 @@ Public Class Empresa
     Public Property DiasPermitidos As Integer
     Public Property AsientoContableComprasContado As Boolean
     Public Property TipoContabilizacion As Integer
+    Public Property TipoContabilidad As Integer
     Public Property DefaultAsistencias As Boolean
     Public Property FormatoImpresion As Integer
     Public Property EsPersonaFisica As Integer

App_Code/LogicNominas.vb

@@ -17,6 +17,7 @@ Public Class LogicNominas
         Dim sw As Diagnostics.Stopwatch = Nothing
         If guardarLogTimbrado Then
             sw = New Diagnostics.Stopwatch
+
             sw.Start()
         End If
         Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual) 'CvePersonal, CvePeriodo,

App_Code/Modelos.vb

@@ -4001,7 +4001,7 @@ Namespace Modelos
             Dim TieneAlmacen As Boolean = False
 
             'VALIDA QUE LA FACTURA NO TENGA PAGOS
-            If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
+            If Not EsRefacturacion AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
                 Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
@@ -4033,7 +4033,7 @@ Namespace Modelos
             End If
 
             If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then
-                Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
+                Retorno.Mensaje = "La factura no se puede cancelar debido a que el anticipo ha sido amortizado."
                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
                 Return Retorno
@@ -8828,6 +8828,7 @@ Namespace Modelos
             Estado = ""
             Pais = ""
             CP = ""
+            Telefono = ""
             AplicaFord = False
             Ford_GSDB = ""
             AplicaFEMSA = False

App_Code/MyHub.vb

@@ -15,7 +15,7 @@ Public Class MyHub
     Private Sub RemoveUsuarios()
     End Sub
 
-    Public Shared Sub RemoveConexiones(CveUsuario As Integer) 
+    Public Shared Sub RemoveConexiones(CveUsuario As Integer)
     End Sub
 
     Public Sub ShowUsersOnLine()

App_Code/Notificaciones.vb

@@ -31,4 +31,8 @@ Public Class Notificaciones
         Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
     End Sub
 
+    'Public Shared Sub AlertaVentana(Message As String, Para As List(Of String), Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar)
+    '    Dim Clients As Hubs.IHubConnectionContext(Of Object) = GlobalHost.ConnectionManager.GetHubContext(Of Notificaciones)().Clients
+    '    Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
+    'End Sub
 End Class

App_Code/Usuario.vb

@@ -115,6 +115,7 @@ Namespace ADSSession
         getListasession = 3 'solo lectura
         CambiarEmpresa = 4
         getSession = 5
+        CambiarModulo = 6
     End Enum
     Public Enum OpcionHub As Integer
         agregar = 1
@@ -158,7 +159,7 @@ Namespace ADSSession
                 HttpContext.Current.Session(strsessionDpage) = value
             End Set
         End Property
-        Public Shared Function SessionManager(opcion As OpcionSession, Optional obj As ADSSessionObj = Nothing, Optional CveEmpresa As Integer = -1, Optional SessionID As String = Nothing) As Object
+        Public Shared Function SessionManager(opcion As OpcionSession, Optional obj As ADSSessionObj = Nothing, Optional CveEmpresa As Integer = -1, Optional SessionID As String = Nothing, Optional modulo As String = "") As Object
             SyncLock strsessionid 'todo el codigo que este dentro de este corchete no se ejecutara mas de una vez al mismo tiempo en el servidor
                 If _dicSessionobj Is Nothing Then
                     _dicSessionobj = New ConcurrentDictionary(Of String, ADSSessionObj)
@@ -194,6 +195,18 @@ Namespace ADSSession
                                 obj.CveEmpresa = CveEmpresa
                             End If
                             retorno = obj
+
+                        Case OpcionSession.CambiarModulo
+                            If Not IsNothing(HttpContext.Current) AndAlso Not IsNothing(HttpContext.Current.Session) AndAlso Not IsNothing(HttpContext.Current.Session(strsessionid)) Then
+                                obj = DirectCast(HttpContext.Current.Session(strsessionid), ADSSessionObj)
+                                obj.Modulo = modulo
+                                obj.LastPostback = DateTime.Now
+                                If _dicSessionobj.TryGetValue(obj.SessionID, obj) Then
+                                    obj.Modulo = modulo
+                                    obj.LastPostback = DateTime.Now
+                                End If
+                                retorno = obj
+                            End If
                     End Select
                 Catch ex As Exception
                     retorno = Nothing
@@ -227,6 +240,8 @@ Namespace ADSSession
         End Sub
         Public Property CveUsuario As Integer
         Public Property CveEmpresa As Integer
+        Public Property Modulo As String
+        Public Property LastPostback As DateTime
         Protected Property _SessionID As String
         Private Property _ipAdrres As String
         Public ReadOnly Property IpAddres As String

Ashx/CargaEventos.ashx

@@ -33,8 +33,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
         If Not GetEventos(CveUsuario, CveEmpresa, FI, FF) Then
             'Convierte el objeto de Eventos en JSON
-            Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
-            Dim sJSON As String = oSerializer.Serialize(events)
+            'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
+            Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
 
             context.Response.Write(sJSON)
         End If

Ashx/SIGGPS.ashx

@@ -363,7 +363,7 @@ Public Class SIGGPS : Implements IHttpHandler, IRequiresSessionState
                 strBody.Append("</tr>")
             End If
             strBody.Append("<tr>")
-            strBody.Append("<td style=""width: 187px;"" colspan=""3""><img src=""https://maps.googleapis.com/maps/api/staticmap?size=700x340&amp;zoom=14&amp;center=20.5269,-100.868&amp;path=&amp;markers=icon:http://gps.signalsgps.com/Imagenes/rsz_11rsz_car.png|20.5269,-100.868&amp;sensor=false&amp;key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4"" /></td>")
+            strBody.AppendFormat("<td style=""width: 187px;"" colspan=""3""><img src=""{0}"" /></td>", Row("Liga"))
             strBody.Append("</tr>")
             strBody.Append("</tbody>")
             strBody.Append("</table>")

Ashx/SIGWeb.ashx

@@ -210,6 +210,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 DtRetorno = dt.FiltraParametros($"NombreComercial like '%{Name}%' OR Nombre like  '%{Name}%'  ")
             End If
+            dt.Dispose()
         End If
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
@@ -220,6 +221,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             context.Response.Write("[]")
         End If
+        DtRetorno.Dispose()
 
         Return retorno
     End Function
@@ -256,6 +258,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like  '%{Name}%'")
             End If
+            dt.Dispose()
         End If
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
@@ -266,7 +269,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             context.Response.Write("[]")
         End If
-
+        DtRetorno.Dispose()
         Return retorno
     End Function
 #End Region
@@ -377,7 +380,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
             End If
 
-            If usuario.Empresa.Funcionalidad(558) = "1" Then
+            If usuario.Empresa.Funcionalidad(558) = "1" AndAlso DtPSRetorno IsNot Nothing Then
                 Try
                     Dim NombreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
                     DtPSRetorno = DtPSRetorno.FiltraParametros("", String.Format("{0} DESC,PSCodigo", NombreFiltroColumna))
@@ -464,6 +467,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     End Try
 
                 End If
+                DTPS = Nothing
             End If
             If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
                 DtPSRetorno.Columns("CvePS").ColumnName = "id"
@@ -478,6 +482,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             Else
                 context.Response.Write("[]")
             End If
+            DtPSRetorno.Dispose()
         End If
 
         Return retorno

Bancos/PopIEVentas.aspx.vb

@@ -322,6 +322,15 @@ Partial Class Bancos_PopIEVentas
         End Set
     End Property
 
+    Private Property CveCorte As Integer
+        Get
+            Return ViewState("CveCorte").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCorte") = value
+        End Set
+    End Property
+
     Private Property TipoCambioOriginal As Decimal
         Get
             Return ViewState("TipoCambioOriginal").ToString.ToDecimal
@@ -527,7 +536,7 @@ Partial Class Bancos_PopIEVentas
                 ViewState("IdCtaAnticipo") = 0
                 ViewState("IdCtaContMonedaExtranjeraAnticipo") = 0
                 ViewState("IdCtaContMonedaComplementariaAnticipo") = 0
-
+                CveCorte = -1
 
                 IdCuentaBancariaComplementaria = 0
 
@@ -672,48 +681,46 @@ Partial Class Bancos_PopIEVentas
             If ObjVenta.DtResultados IsNot Nothing AndAlso ObjVenta.DtResultados.Rows.Count > 0 Then
 
 
-
-                'CargaProveedor
                 Dim dr As DataRow = ObjVenta.DtResultados.Rows(0)
 
                 Dim Validada As Boolean = True
                 'JJMQ:20190606 Se cancela código de validacion ante el SAT por lentitud en el servicio.
                 'Sustituir la línea anterior por todo lo siguiente hasta donde termina el end if para que valide de nueva cuenta
                 'Dim Validada As Boolean = False
-                'If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
+                If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
 
 
-                '    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), dr("ClienteRFC").ToString, UsuarioActual.Empresa.RFC)
+                    Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), dr("ClienteRFC").ToString, UsuarioActual.Empresa.RFC)
 
-                '    If Valida.EsValida > 0 Then
-                '        If Valida.EsValida = 2 Then
-                '            Validada = False
-                '            'Dim ObjDatos As New ClsCompras
+                    If Valida.EsValida > 0 Then
+                        If Valida.EsValida = 2 Then
+                            Validada = False
+                            'Dim ObjDatos As New ClsCompras
 
-                '            'If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then
+                            'If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then
 
-                '            'End If
-                '            'ObjDatos.Dispose()
+                            'End If
+                            'ObjDatos.Dispose()
 
-                '            BtnGuardar.Enabled = False
+                            BtnGuardar.Enabled = False
 
-                '            If UsuarioActual.Empresa.UsaAC Then
-                '                RegistraScript("if (confirm('La factura está cancelada ante el SAT., ¿Desea eliminar la compra?')) { $get('BtnEliminarCompra').click();}")
-                '            Else
-                '                Alert("La factura está cancelada ante el SAT.")
-                '            End If
+                            If UsuarioActual.Empresa.UsaAC Then
+                                RegistraScript("if (confirm('La factura está cancelada ante el SAT., ¿Desea eliminar la compra?')) { $get('BtnEliminarCompra').click();}")
+                            Else
+                                Alert("La factura está cancelada ante el SAT.")
+                            End If
 
-                '        Else
-                '            Validada = True
-                '        End If
-                '    Else
-                '        'no se pudo validar, pero ya tuvo la primera vuelta de validacion
-                '        Validada = True
-                '    End If
-                '    Valida.Dispose()
-                'Else
-                '    Validada = True
-                'End If
+                        Else
+                            Validada = True
+                        End If
+                    Else
+                        'no se pudo validar, pero ya tuvo la primera vuelta de validacion
+                        Validada = True
+                    End If
+                    Valida.Dispose()
+                Else
+                    Validada = True
+                End If
 
 
                 If Validada Then
@@ -725,7 +732,7 @@ Partial Class Bancos_PopIEVentas
                     CveMoneda = dr("CveMoneda").ToString.ToEntero
                     CveMonedaVenta = dr("CveMoneda").ToString.ToEntero
                     CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
-                    NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
+                    NombreCliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
                     SerieFolio = dr("SerieFolio").ToString
                     TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                     CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
@@ -777,6 +784,12 @@ Partial Class Bancos_PopIEVentas
 
                     FechaVenta = dr("Fecha").ToString.ToDate
                     SaldoVenta = dr("Saldo").ToString.ToDouble
+
+
+                    'Cortes de Caja
+                    If UsuarioActual.TienePermisoProceso(160) Then
+                        CargaCorteCaja()
+                    End If
                 End If
 
 
@@ -786,6 +799,19 @@ Partial Class Bancos_PopIEVentas
         ObjVenta.Dispose()
     End Sub
 
+    Private Sub CargaCorteCaja()
+        'Checar si hay un Turno Abierto
+        Dim ObjPVenta As New ClsPuntoVenta
+
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                CveCorte = ObjPVenta.CveCorte
+            End If
+        End If
+        ObjPVenta.Dispose()
+    End Sub
+
     Private Sub CargaCliente(ByVal CveCliente As Integer, RFC As String)
         Dim ObjCliente As New ClsClientes
 
@@ -1497,7 +1523,7 @@ Partial Class Bancos_PopIEVentas
 
                             Select Case RBLContado.SelectedValue
                                 Case "1" ' Banco
-                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"))
+                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte)
                                     If CveIE > 0 Then
                                         If CveVenta > 0 Then
                                             CveConcepto = 2

Compras/Compras.aspx.vb

@@ -16723,7 +16723,7 @@ Partial Class Compras_Compras
         Dim DiferenciaPermitida = 0.6
 
         If Math.Abs(DifTotales) > DiferenciaPermitida Then
-            Alert("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
             EsValido = False
         ElseIf DifTotales <> 0 Then
             TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString

Compras/PopUpVerFactura.aspx

@@ -12,7 +12,7 @@
 <asp:Content ID="Content8" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content9" ContentPlaceHolderID="C" runat="Server">
-    <rvweb:ReportViewer Width="1000" Height="500" ID="ReportViewer1" runat="server"></rvweb:ReportViewer>
+   
 </asp:Content>
 <asp:Content ID="Content10" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Contabilidad/ContabilizacionCompras.aspx

@@ -129,7 +129,7 @@
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleCompras" runat="server" CssClass="Texto">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" CssClass="table detallerow  table-hover" Style=" float: right; width: 95%;" DataKeyNames="IdCtaContable,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" CssClass="table detallerow  table-hover" Style=" float: right; width: 95%;" DataKeyNames="IdCtaContable,CveCuenta,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento">
                                                                 <ItemStyle HorizontalAlign="Left" Width="150px" />
@@ -142,7 +142,7 @@
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto">
                                                                 <ItemStyle HorizontalAlign="Left" Width="120px" />
                                                             </asp:BoundField>
-                                                            <asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta">
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta">
                                                                 <ItemStyle CssClass="truncate" Font-Italic="True" HorizontalAlign="Left" Width="150px" />
                                                             </asp:BoundField>
                                                             <asp:TemplateField HeaderText="Cargos">
@@ -240,7 +240,7 @@
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetallePagos" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="IdCtaContable, CveCuenta,Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto">
@@ -249,7 +249,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
                                                             <asp:TemplateField HeaderText="Cargos">
                                                                 <ItemTemplate>
                                                                     <asp:Literal ID="LtlC" runat="server" Text='<%# Eval("Cargo", "{0:N2}") %>'></asp:Literal>
@@ -345,7 +345,7 @@
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleAnticipos" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable,CveCuenta, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto">
@@ -354,7 +354,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>
@@ -435,7 +435,7 @@
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleAmortizaciones" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="text-align: center; float: right; width: 95%;" DataKeyNames="IdCtaContable,CveCuenta, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto">
@@ -444,7 +444,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="IdCtaContable" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" ItemStyle-CssClass="truncate" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>

Contabilidad/ContabilizacionCompras.aspx.cs

@@ -42,7 +42,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
             TienePermisoEditar = false;
             DdlProveedores.setEsWebService(true);
             DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
-            if (UsuarioActual.Empresa.UsaContabilidad)
+            if (UsuarioActual.Empresa.TipoContabilidad == 2 && UsuarioActual.Empresa.UsaContabilidad)
             {
                 TienePermisoEditar = false;
                 ClsContPAQi ObjCont = new ClsContPAQi(UsuarioActual.Empresa);
@@ -53,35 +53,39 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
 
                 //DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
                 //DdlProveedores.DataBind();
-
-                DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
-                DdlPersonal.DataBind();
-
-                DdlPlantillasPolizas.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa);
-                DdlPlantillasPolizas.Items.Insert(0, new ListItem("Todos", "-1"));
-                DdlPlantillasPolizas.DataBind();
-
-                txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString();
-                txtFechaF.Text = DateTime.Now.ToShortDateString();
-
+                 
                 //CargaDatos();       
+                 
+            }
 
-                if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
-                {
-                    TienePermisoEditar = true;
-                    TienePermisoVerPoliza = true;
-                }
-            }
-            else
+            DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
+            DdlPersonal.DataBind();
+
+            DdlPlantillasPolizas.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa);
+            DdlPlantillasPolizas.Items.Insert(0, new ListItem("Todos", "-1"));
+            DdlPlantillasPolizas.DataBind();
+
+            txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString();
+            txtFechaF.Text = DateTime.Now.ToShortDateString();
+
+            if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 || UsuarioActual.CveUsuario == 171 || UsuarioActual.TienePermisoProceso(221))
             {
-                Alert("Este módulo requiere el uso de Contabilidad.", ModExtensiones.TipoMensaje.MsgAdvertencia);
-               // BtnConsultar.Enabled = false;
-                BtnContabilizarCompras.Enabled = false;
-                BtnContabilizarPagos.Enabled = false;
-                BtnContabilizarAnticipos.Enabled = false;
-                BtnContabilizarAmortizaciones.Enabled = false;
+                TienePermisoEditar = true;
+                TienePermisoVerPoliza = true;
             }
 
+            txtFechaI.Text = DateTime.Now.ToShortDateString();
+            txtFechaF.Text = DateTime.Now.ToShortDateString();
+            //else
+            //{
+            //    Alert("Este módulo requiere el uso de Contabilidad.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+            //   // BtnConsultar.Enabled = false;
+            //    BtnContabilizarCompras.Enabled = false;
+            //    BtnContabilizarPagos.Enabled = false;
+            //    BtnContabilizarAnticipos.Enabled = false;
+            //    BtnContabilizarAmortizaciones.Enabled = false;
+            //}
+
         }
 
         BtnConsultar.Click += new EventHandler(this.BtnConsultar_Click);
@@ -310,6 +314,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
             int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero();
+            int cvecuenta = e.Row.DataKey("CveCuenta").ToString().ToEntero();
             int CveConcepto = e.Row.DBCampo("CveConceptoContable").ToEntero();
 
             if (CveConcepto.Contiene(5, 6, 14, 16, 17, 19, 206, 22, 23, 25, 26, 18, 60, 183, 184, 185, 186 ,205, 240, 243, 244, 248, 249,15,22,248,249,237))
@@ -337,21 +342,37 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/OC/OC.aspx?OC={0}", e.Row.DBCampo("CveOC"));
             }
 
-
-            if (cuenta > 0)
+            if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG
             {
-                DataRow dr = DTmpC.FiltroPrimero(String.Format("Id = {0}", cuenta));
+                if (cvecuenta == 0)
+                {
+                    e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+                    ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
+                }
 
-                if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
             }
             else
             {
-                e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+                if (UsuarioActual.Empresa.TipoContabilidad == 2) // conta Contpaq
+                {
 
-                ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Enabled = false;
-                ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").ToolTip = "Hay conceptos sin cuenta asignada";
+                    if (cuenta > 0)
+                    {
+                        DataRow dr = DTmpC.FiltroPrimero(String.Format("Id = {0}", cuenta));
+
+                        if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
+                    }
+                    else
+                    {
+                        e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+
+                        ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Enabled = false;
+                        ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").ToolTip = "Hay conceptos sin cuenta asignada";
+                    }
+                }
             }
 
+
             if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = "";
 
             if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = "";

Contabilidad/ContabilizacionVentas.aspx

@@ -111,12 +111,12 @@
                                     <asp:Button ID="BtnContabilizarVentas" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
                                 </div>
 
-                                <asp:GridView ID="GvV" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
+                                <asp:GridView ID="GvV" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
                                     <Columns>
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleVentas" runat="server" CssClass="Texto">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="IdCtaContable,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="CveCuenta,IdCtaContable,Cargo,Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto"  ItemStyle-Font-Size="Smaller">
@@ -125,7 +125,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>
@@ -203,12 +203,12 @@
                                     <asp:Button ID="BtnContabilizarPagos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
                                 </div>
 
-                                <asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
+                                <asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
                                     <Columns>
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetallePagos" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="CveCuenta,IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto" ItemStyle-Font-Size="Smaller">
@@ -217,7 +217,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-Width="150px" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>
@@ -292,12 +292,12 @@
                                     <asp:Button ID="BtnContabilizarAnticipos" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
                                 </div>
 
-                                <asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
+                                <asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table  table-advance table-hover" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
                                     <Columns>
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleAnticipos" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style="float: right; width: 95%;" DataKeyNames="CveCuenta,IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto" ItemStyle-Font-Size="Smaller">
@@ -306,7 +306,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-Width="150px" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>
@@ -386,7 +386,7 @@
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:Panel ID="PnlDetalleAmortizaciones" runat="server">
-                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style=" float: right; width: 95%;" DataKeyNames="IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
+                                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="false" CssClass="table detallerow  table-hover" Style=" float: right; width: 95%;" DataKeyNames="CveCuenta,IdCtaContable, Cargo, Abono" GridLines="None" OnRowDataBound="GvD_RowDataBound">
                                                         <Columns>
                                                             <asp:BoundField DataField="ConceptoContable" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="150px" HeaderText="Movimiento" />
                                                             <asp:TemplateField HeaderText="Concepto"  ItemStyle-Font-Size="Smaller">
@@ -395,7 +395,7 @@
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:BoundField DataField="SubProyecto" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px" HeaderText="SubProyecto" />
-                                                            <asp:BoundField DataField="" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
+                                                            <asp:BoundField DataField="CodigoNombreCuenta" ItemStyle-Font-Size="Smaller" ItemStyle-Font-Italic="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px" HeaderText="Cuenta" />
                                                             <asp:BoundField DataField="Cargo" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Cargos" />
                                                             <asp:BoundField DataField="Abono" ItemStyle-Font-Size="Smaller" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" DataFormatString="{0:N2}" HeaderText="Abonos" />
                                                         </Columns>

Contabilidad/ContabilizacionVentas.aspx.cs

@@ -35,7 +35,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
         {
             TienePermisoVerPoliza = false;
             TienePermisoEditar = false;
-            if (UsuarioActual.Empresa.UsaContabilidad)
+            if (UsuarioActual.Empresa.TipoContabilidad == 2 && UsuarioActual.Empresa.UsaContabilidad)
             {
                 TienePermisoEditar = UsuarioActual.TienePermisoProceso(221);
 
@@ -51,16 +51,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
                     TienePermisoVerPoliza = true;
                 }
             }
-            else
-            {
-                Alert("Este módulo requiere el uso de Contabilidad.", ModExtensiones.TipoMensaje.MsgAdvertencia);
-                //BtnConsultar.Enabled = false;
-                BtnContabilizarVentas.Enabled = false;
-                BtnContabilizarPagos.Enabled = false;
-                BtnContabilizarAnticipos.Enabled = false;
-                BtnContabilizarAmortizaciones.Enabled = false;
-                ImgExcel2.Visible = false;
-            }
+            //else
+            //{
+            //    Alert("Este módulo requiere el uso de Contabilidad.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+            //    //BtnConsultar.Enabled = false;
+            //    BtnContabilizarVentas.Enabled = false;
+            //    BtnContabilizarPagos.Enabled = false;
+            //    BtnContabilizarAnticipos.Enabled = false;
+            //    BtnContabilizarAmortizaciones.Enabled = false;
+            //    ImgExcel2.Visible = false;
+            //}
 
             DdlClientes.setEsWebService(true);
             DdlClientes.Attributes.Add("data-metodo", "getcliente");
@@ -330,7 +330,8 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
     {
         if (e.Row.RowType == DataControlRowType.DataRow)
         {
-            int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero();           
+            int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero();
+            int cvecuenta = e.Row.DataKey("CveCuenta").ToString().ToEntero();
             int CveConcepto = e.Row.DBCampo("CveConceptoContable").ToEntero();
 
             if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26))
@@ -354,19 +355,36 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal"));
             }
 
-            if (cuenta > 0)
-            {
-                DataRow dr = DTmpC.FiltroPrimero(String.Format("Id = {0}", cuenta));
 
-                if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
+            if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG
+            {
+                if (cvecuenta == 0)
+                {
+                    e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+                    ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
+                }
+
             }
             else
             {
-                e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+                if (UsuarioActual.Empresa.TipoContabilidad == 2) // conta Contpaq
+                {
+                    if (cuenta > 0)
+                    {
+                        DataRow dr = DTmpC.FiltroPrimero(String.Format("Id = {0}", cuenta));
 
-                ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
+                        if (dr != null) e.Row.Cells[3].Text = string.Format("{0}<br/>{1}", dr["CuentaFormato"], dr["Nombre"]);
+                    }
+                    else
+                    {
+                        e.Row.Cells[0].ForeColor = System.Drawing.Color.Red;
+
+                        ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false;
+                    }
+
+                }
             }
-
+           
             if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = "";
 
             if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = "";

Contabilidad/RegPrePoliza.aspx.vb

@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
 

Contabilidad/RegPrePolizaS.aspx

@@ -456,7 +456,7 @@
                         <asp:TemplateField>
                             <HeaderTemplate>Cuenta</HeaderTemplate>
                             <ItemTemplate>
-                                <asp:Literal ID="DdlCtaContable" runat="server" Text='<%# Eval("CodigoCuentaContable") %>'></asp:Literal><br />
+                                <asp:Literal ID="DdlCtaContable" runat="server" Text='<%# Eval("CodigoNombreCuenta") %>'></asp:Literal><br />
                                 <%--<asp:HiddenField ID="HdnCtaContable" runat="server" Value='<%# Eval("IdCtaContable") %>' />--%>
                                 <%--<asp:DropDownList ID="DdlCtaContable" runat="server" Width="200px" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />--%>
                             </ItemTemplate>

Contabilidad2/CatCuentas.aspx

@@ -75,7 +75,7 @@
                 </fieldset>
             </div>
 
-<%--            <asp:Button ID="BtnCambiaAgrupadorSAT" OnClick="BtnCambiaAgrupadorSAT_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
+            <%--            <asp:Button ID="BtnCambiaAgrupadorSAT" OnClick="BtnCambiaAgrupadorSAT_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
 
             <div class="catcuentasform">
 
@@ -170,6 +170,62 @@
                             <asp:TextBox ID="TxtNomIngles" Style="width: 100%;" runat="server"></asp:TextBox>
                         </div>
                     </div>
+                    <br />
+                    <hr />
+                    <div class="form-line">
+                        <div class="catcuentas left">Concepto</div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlConcepto" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true" Width="100%"
+                                OnSelectedIndexChanged="DdlConcepto_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me" runat="server">
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                    <asp:Panel runat="server" ID="PnlOpcion1" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Proveedor:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" data-metodo="getproveedores" UsaWebService="true" Width="100%" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Porcentaje IVA():"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Clasificación"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion4" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Cuenta Bancaria "></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="ddlBancos" Width="100%" CssClass="select2me"  DataValueField="CveCuenta" DataTextField="NumCuenta" runat="server"></asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion5" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Almacén"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlAlmacen" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen" CssClass="select2me"></asp:DropDownList>
+                        </div>
+                    </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion6" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Cliente:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
+                        </div>
+                    </asp:Panel>
+
+
                     <br />
                     <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" runat="server" Text="Guardar" />
                     <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar" />

Contabilidad2/CatCuentas.aspx.vb

@@ -14,15 +14,66 @@ Partial Class Contabilidad2_CatCuentas
             ViewState("DtDatos") = value
         End Set
     End Property
+
+    Private Property DtConceptosconta As DataTable
+        Get
+            Return CType(ViewState("DtConceptosconta"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtConceptosconta") = value
+        End Set
+    End Property
     Private Property IDSelected As Integer
         Get
-            Return ViewState("idsel").ToString.ToEntero
+            Return ViewState("idsel").ToString.ToEntero()
         End Get
         Set(value As Integer)
             ViewState("idsel") = value
         End Set
     End Property
+#Region "Contabilidadnew"
+    Private Property CveProveedor As Integer
+        Get
+            Return ViewState("CveProveedor").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveProveedor") = value
+        End Set
+    End Property
+    Private Property CveCliente As Integer
+        Get
+            Return ViewState("CveCliente").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveCliente") = value
+        End Set
+    End Property
+    Private Property CveClasificacion As Integer
+        Get
+            Return ViewState("CveClasificacion").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveClasificacion") = value
+        End Set
+    End Property
 
+    Private Property CveBancoCuenta As Integer
+        Get
+            Return ViewState("CveBancoCuenta").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveBancoCuenta") = value
+        End Set
+    End Property
+    Private Property CveAlmacen As Integer
+        Get
+            Return ViewState("CveAlmacen").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacen") = value
+        End Set
+    End Property
+#End Region
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -30,9 +81,28 @@ Partial Class Contabilidad2_CatCuentas
             'inicio()
             'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');")
             '  If UsuarioActual.Empresa.UsaContabilidad Then
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            DdlAlmacen.DataBind()
+            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             CargaMonedas()
             CargaAgrupadorSAT()
             CargaDatos()
+            Using objconta As New ClsContabilidad
+                objconta.GetConta_ConceptosContables(1)
+                DtConceptosconta = objconta.DtResultados
+            End Using
+            Using ObjBancos As New ClsBancos
+                If ObjBancos.GetBancosCuentas(-1) Then
+                    ddlBancos.DataSource = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                    ddlBancos.DataBind()
+                    ddlBancos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                End If
+            End Using
+
+
+            DdlConcepto.DataSource = DtConceptosconta
+            DdlConcepto.DataBind()
+            DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
             'Else
             '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
             '    MEECuenta.Enabled = False
@@ -41,22 +111,16 @@ Partial Class Contabilidad2_CatCuentas
     End Sub
 
     Private Sub CargaMonedas()
-        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim ObJConta As New ClsContabilidad
 
-
-        If ObJConta.GetMonedas() Then
-            DdlMoneda.DataSource = ObJConta.DtResultados
-        End If
-        ObJConta.Dispose()
+        DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
     End Sub
 
     Private Sub CargaAgrupadorSAT()
-        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.GetAgrupadoresSAT(UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetAgrupadoresSAT() Then
             DdlAgrupadorSAT.DataSource = ObjConta.DtResultados
         End If
 
@@ -126,9 +190,28 @@ Partial Class Contabilidad2_CatCuentas
         updatos.Update()
 
     End Sub
+    Private Sub limpiavalorescontables()
 
+
+        DdlConcepto.SelectedValueExist(-1)
+        onconceptochange()
+        CveProveedor = -1
+        DdlProveedores.SelectedText = ""
+        DdlProveedores.SelectedValue = CveProveedor
+        CveCliente = -1
+        DdlClientesWS.SelectedText = ""
+        DdlClientesWS.SelectedValue = CveCliente
+        Dim PorcentajeImpuesto As Decimal = -1
+        DdlClasificacion.SelectedValueExist(PorcentajeImpuesto)
+        CveClasificacion = -1
+        DdlClasificacion.SelectedValueExist(CveClasificacion)
+        CveBancoCuenta = -1
+        CveAlmacen = -1
+        DdlAlmacen.SelectedValueExist(CveAlmacen)
+    End Sub
     Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick
         LimpiarCampos()
+        limpiavalorescontables()
         Dim dt As DataTable
         Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
         IDSelected = obj.Cve
@@ -141,6 +224,32 @@ Partial Class Contabilidad2_CatCuentas
             DTcuenta.SelectedValue = dr("Tipo").ToString()
             DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
             DdlMoneda.SelectedValue = dr("CveMoneda").ToString
+            Using objconta As New ClsContabilidad
+                objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
+                If objconta.DtResultados.Rows.Count > 0 Then
+                    Dim rowcc As DataRow = objconta.DtResultados.Rows(0)
+                    DdlConcepto.SelectedValue = -1
+                    DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero())
+                    onconceptochange()
+                    CveProveedor = rowcc("CveProveedor").ToString().ToEntero()
+                    DdlProveedores.SelectedText = rowcc("Proveedor").ToString().ToEntero()
+                    DdlProveedores.SelectedValue = CveProveedor
+                    CveCliente = rowcc("CveCliente").ToString().ToEntero()
+                    DdlClientesWS.SelectedText = rowcc("Cliente").ToString().ToEntero()
+                    DdlClientesWS.SelectedValue = CveCliente
+                    Dim PorcentajeImpuesto As Decimal = rowcc("PorcentajeImpuesto").ToString().ToDecimal() * 100
+                    TxtPorcentaje.Text = (PorcentajeImpuesto)
+                    CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
+                    DdlClasificacion.SelectedValueExist(CveClasificacion)
+                    CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                    ddlBancos.SelectedValue = -1
+                    ddlBancos.SelectedValueExist(CveBancoCuenta)
+                    CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
+                    DdlAlmacen.SelectedValue = -1
+                    DdlAlmacen.SelectedValueExist(CveAlmacen)
+                End If
+
+            End Using
 
             If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then
                 DdlAgrupadorSAT.SelectedValue = -1
@@ -178,22 +287,36 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        Dim ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
 
-        If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString) Then
+        Dim CveConceptoAdmin As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim CveProveedor As Integer = DdlProveedores.SelectedValue.ToEntero()
+        Dim CveCliente As Integer = DdlClientesWS.SelectedValue.ToEntero()
+        Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero()
+        Dim PorcentajeImpuesto As Decimal = TxtPorcentaje.Text.ToDecimal() / 100
+        Dim CveBancoCuenta As Integer = ddlBancos.SelectedValue.ToEntero
+        Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero()
+        If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString,
+                                CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
 
             Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
-            If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
-                Dim IdAgrupador As Integer
 
-                If ObjConta2.GetAgrupadoresSAT() Then
-                    IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                End If
-                If Id > 0 Then
-                    If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+
+                Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+
+                    If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                        Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+                        Dim IdAgrupador As Integer
+
+                        If ObjConta2.GetAgrupadoresSAT() Then
+                            IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                        End If
+                        If Id > 0 Then
+                            If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                            End If
+                        End If
                     End If
-                End If
+                End Using
             End If
 
             Dim customerRow As Data.DataRow
@@ -216,7 +339,6 @@ Partial Class Contabilidad2_CatCuentas
         End If
 
         ObjConta.Dispose()
-        ObjConta2.Dispose()
 
     End Sub
     Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click
@@ -373,4 +495,47 @@ Partial Class Contabilidad2_CatCuentas
     'Protected Sub BtnCambiaAgrupadorSAT_Click(sender As Object, e As EventArgs)
     '    CargaAgrupadorSAT()
     'End Sub
+    Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        onconceptochange()
+    End Sub
+    Private Sub onconceptochange(Optional CveCuenta As Integer = -1)
+        PnlOpcion1.Visible = False
+        pnlOpcion2.Visible = False
+        pnlOpcion3.Visible = False
+        pnlOpcion4.Visible = False
+        pnlOpcion5.Visible = False
+        pnlOpcion6.Visible = False
+        Dim CveConceptoContable As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim row As DataRow = Nothing
+        Dim CveTipoSaldo As Integer = 0
+        Dim CveParejaContable As Integer = 0
+        If CveConceptoContable > 0 Then
+            row = DtConceptosconta.FiltroPrimero(String.Format("CveConceptoContable={0}", CveConceptoContable))
+            CveTipoSaldo = row("CveTipoSaldo").ToString.ToEntero()
+            CveParejaContable = row("CveParejaContable").ToString().ToEntero()
+        End If
+        If Not IsNothing(row) Then
+            Select Case CveTipoSaldo
+                Case 1
+                    PnlOpcion1.Visible = True
+                Case 2
+                    pnlOpcion2.Visible = True
+                Case 3
+                    pnlOpcion3.Visible = True
+                    If DdlClasificacion.Items.Count < 2 Then
+                        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1)
+                        DdlClasificacion.DataBind()
+                    End If
+                Case 4
+                    pnlOpcion4.Visible = True
+                Case 5
+                    pnlOpcion5.Visible = True
+
+                Case 6
+                    pnlOpcion6.Visible = True
+
+            End Select
+        End If
+    End Sub
+
 End Class

Empresas/141/Formatos/Cotizacion.rdlc

@@ -905,7 +905,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
+                                  <Value>=Fields!PS.Value &amp; IIF(Fields!Obs.Value &lt;&gt; "",System.Environment.NewLine &amp;"Observaciones: ","") &amp; Fields!Obs.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>8.75pt</FontSize>

Empresas/141/Formatos/Factura.rdlc

@@ -491,31 +491,31 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>0.53032in</Width>
+                  <Width>0.54014in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.58129in</Width>
+                  <Width>0.59111in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.79377in</Width>
+                  <Width>0.80359in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.65422in</Width>
+                  <Width>0.66404in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.59092in</Width>
+                  <Width>2.60074in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.8212in</Width>
+                  <Width>0.83102in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.63048in</Width>
+                  <Width>0.6403in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.68106in</Width>
+                  <Width>0.69088in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.88308in</Width>
+                  <Width>0.80447in</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -919,6 +919,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Cantidad1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -954,6 +955,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="UM">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -989,6 +991,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="SATClaveProdServ">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1024,6 +1027,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="SATClaveUM">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1059,6 +1063,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PS">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1092,6 +1097,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PU1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1126,6 +1132,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PorcentajeIVA">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1163,6 +1170,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Descuento1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1200,6 +1208,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="TiempoEntrega">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1265,7 +1274,7 @@
             <Top>1.92778in</Top>
             <Left>0.09836in</Left>
             <Height>0.36206in</Height>
-            <Width>8.16634in</Width>
+            <Width>8.16633in</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>

Empresas/Grales/Formatos/Telcel.rdlc

@@ -523,10 +523,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>9.32552cm</Width>
+              <Width>5.08917cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>9.32552cm</Width>
+              <Width>4.82075cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>4.86395cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.88188cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -573,8 +579,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox43">
@@ -610,8 +618,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -659,8 +669,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="UM4">
@@ -698,8 +710,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -746,8 +760,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox60">
@@ -785,6 +801,179 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox8">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>No. Ext:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox8</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox14">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!NoExt.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox14</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox9">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>No. Int:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox9</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox34">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!NoInt.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox34</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
                   </CellContents>
                 </TablixCell>
               </TablixCells>
@@ -833,8 +1022,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox57">
@@ -872,8 +1063,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
             <TablixRow>
@@ -920,8 +1113,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox54">
@@ -959,6 +1154,362 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox39">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>MUNICIPIO Y/O DELEGACIÓN:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox39</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox45">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!EnvioCiudad.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox45</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox47">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>ESTADO:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox47</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox49">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!EnvioEstado.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox49</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                    <ColSpan>2</ColSpan>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell />
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>PAÍS:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox6">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!Pais.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox6</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox10">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>CP:</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox10</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <RightBorder>
+                          <Style>Solid</Style>
+                          <Width>1.25pt</Width>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox12">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Parameters!CP.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox12</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                          <Width>5pt</Width>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
                   </CellContents>
                 </TablixCell>
               </TablixCells>
@@ -1004,8 +1555,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox50">
@@ -1038,8 +1591,10 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
+                <TablixCell />
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -1048,6 +1603,8 @@
           <TablixMembers>
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1058,12 +1615,16 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixRowHierarchy>
         <Top>4.37416cm</Top>
         <Left>0.3937cm</Left>
-        <Height>3.6cm</Height>
-        <Width>18.65104cm</Width>
+        <Height>6cm</Height>
+        <Width>18.65575cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -1076,7 +1637,7 @@
     <Height>4.85103in</Height>
     <Style />
   </Body>
-  <Width>7.98823in</Width>
+  <Width>7.49978in</Width>
   <Page>
     <PageHeader>
       <Height>7.37017cm</Height>
@@ -1942,6 +2503,36 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NoInt">
+      <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="Pais">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="logodetelcelpng4">

GPS/Trayectos.aspx.vb

@@ -185,7 +185,7 @@ Partial Class GPS_Trayectos
 
                 Try
                     Dim CveTrayecto As Integer = ObjGPS.AddTrayecto(Nombre, DateTime.Now, "", CveDispositivo, UsuarioActual.CveCliente, EnviarNotificacion:=ChkNotificacion.Checked,
-                                                                    CorreosNotificacion:=TxtCorreoNot.Text, Intervalo:=If(ChkNotificacion.Checked, 0, DdlIntervalo.SelectedValue.ToEntero()),
+                                                                    CorreosNotificacion:=TxtCorreoNot.Text, Intervalo:=If(ChkNotificacion.Checked, DdlIntervalo.SelectedValue.ToEntero(), 0),
                                                                     EnviarLiga:=ChkEnviarLiga.Checked)
 
                     If CveTrayecto > 0 Then

Inventarios/CatAlmacenes.aspx

@@ -151,7 +151,7 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAlmacen,IdCtaContable,Inventariable,Modalidad,CveTipoAlmacen,Almacen,Estatus,CveSubProyecto,Orden,CveCuenta" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" data-heighterror="300px" data-freezerows="1" GridLines="None">
                 <Columns>
                     <asp:TemplateField ItemStyle-Width="15%" HeaderText="Almacen">
                         <ItemTemplate>
@@ -233,7 +233,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtAlmacen" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtAlmacen.ClientID.ToString()%>">Almacen:</label>
+                                    <asp:Label AssociatedControlID="TxtAlmacen" runat="server" Text="Almacen:"></asp:Label>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-6">
@@ -244,13 +244,13 @@
                                     </div>--%>
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataValueField="CveSubProyecto" DataTextField="SubProyecto" ValidationGroup="GrpObligatorio" Width="100%" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <label for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
+                                            <asp:Label AssociatedControlID="DdlSubProyecto" runat="server" Text="SubProyecto:"></asp:Label>
                                         </div>
                                     </div>
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlTipoAlmacen" runat="server" AppendDataBoundItems="true" DataValueField="CveTipoAlmacen" DataTextField="TipoAlmacen" ValidationGroup="GrpObligatorio" Width="100%" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <label for="<%= DdlTipoAlmacen.ClientID.ToString()%>">Tipo de Almacen:</label>
+                                            <asp:Label AssociatedControlID="DdlTipoAlmacen" runat="server" Text="Tipo de Almacen:"></asp:Label>
                                         </div>
                                     </div>
                                 </div>
@@ -261,14 +261,21 @@
                                                 <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                                 <asp:ListItem Selected="True" Text="Solo Existencia" Value="0"></asp:ListItem>
                                             </asp:DropDownList>
-                                            <label for="<%= DdlModalidad.ClientID.ToString()%>">Modalidad:</label>
+                                            <asp:Label AssociatedControlID="DdlModalidad" runat="server" Text="Modalidad:"></asp:Label>
                                         </div>
                                     </div>
                                     <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright" id="divddlcc" visible="false" runat="server">
-                                            <asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <label for="<%= DdlCuentasContables.ClientID.ToString()%>">Cuenta Contable:</label>
-                                        </div>
+                                        <asp:Panel CssClass="" ID="divddlcc" Visible="false" runat="server">
+                                            <asp:Panel CssClass="form-group form-md-line-input input-iconright" ID="divCuentasCompac" Visible="false" runat="server">
+                                                <asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                                <asp:Label AssociatedControlID="DdlCuentasContables" runat="server" Text="Cuenta Contable:"></asp:Label>
+                                            </asp:Panel>
+
+                                            <asp:Panel CssClass="form-group form-md-line-input input-iconright" ID="pnlCuentassig" Visible="false" runat="server">
+                                                <asp:DropDownList ID="DdlCuentasSig" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100%" ValidationGroup="GrpObligatorio" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                                <asp:Label AssociatedControlID="DdlCuentasSig" runat="server" Text="Cuenta Contable:"></asp:Label>
+                                            </asp:Panel>
+                                        </asp:Panel>
                                     </div>
                                 </div>
                                 <div class="row">
@@ -278,14 +285,14 @@
                                                 <asp:ListItem Selected="True" Text="Si" Value="1"></asp:ListItem>
                                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                                             </asp:DropDownList>
-                                            <label for="<%= DdlInventariable.ClientID.ToString()%>">Inventariable:</label>
+                                            <asp:Label AssociatedControlID="DdlInventariable" runat="server" Text="Inventariable:"></asp:Label>
                                         </div>
                                     </div>
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright" style="width: 250px!important">
                                             <asp:TextBox ID="TxtOrden" CssClass="form-control " Width="250px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RfvTxtOrden" runat="server" ControlToValidate="TxtOrden" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Orden''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                            <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
+                                            <asp:Label AssociatedControlID="TxtOrden" runat="server" Text="Orden:"></asp:Label>
                                             <i></i>
                                         </div>
                                     </div>
@@ -293,7 +300,7 @@
                                 <br />
                                 <div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
+                                    <asp:Label AssociatedControlID="ChkEstatus" runat="server" Text="Estatus:"></asp:Label>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>

Inventarios/CatAlmacenes.aspx.vb

@@ -84,17 +84,33 @@ Partial Class Inventarios_CatAlmacenes
     End Sub
 
     Private Sub CargaCuentasContables()
-        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-        'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
-        If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
-            DtCuentasContables = ObjContabilidad.DtResultados
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            divCuentasCompac.Visible = False
+            pnlCuentassig.Visible = True
+            Using ObjContabilidad As New ClsContabilidad
+                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                If ObjContabilidad.CuentasContablesSigGet(UsuarioActual.CveEmpresa) Then
+                    DdlCuentasSig.DataSource = ObjContabilidad.DtResultados
+                    DdlCuentasSig.DataBind()
+                    DdlCuentasSig.Items.Insert(0, New ListItem("Selecione", "-1"))
+                End If
+            End Using
         Else
-            DtCuentasContables = Nothing
+            divCuentasCompac.Visible = True
+            pnlCuentassig.Visible = False
+            Using ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+                'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+                If ObjContabilidad.GetCuentasRecursiva(UsuarioActual.Empresa.Funcionalidad(208).ToEntero, 1) Then
+                    DtCuentasContables = ObjContabilidad.DtResultados
+                Else
+                    DtCuentasContables = Nothing
+                End If
+            End Using
+
+            DdlCuentasContables.DataSource = DtCuentasContables
+            DdlCuentasContables.DataBind()
         End If
-        ObjContabilidad.Dispose()
 
-        DdlCuentasContables.DataSource = DtCuentasContables
-        DdlCuentasContables.DataBind()
         UpAddAlmacen.Update()
     End Sub
 
@@ -207,12 +223,17 @@ Partial Class Inventarios_CatAlmacenes
         Dim TieneError = False
         Dim Estatus = 0
         If ChkEstatus.Checked Then Estatus = 1
-        Dim CuentaContable = DdlCuentasContables.SelectedValue.ToEntero
-        If divddlcc.Visible = False Then
-            CuentaContable = 0
+        Dim CuentaContable As Integer = 0
+        Dim CveCuenta As Integer = 0
+        If divddlcc.Visible Then
+            If pnlCuentassig.Visible Then
+                CveCuenta = DdlCuentasSig.SelectedValue.ToEntero()
+            Else
+                CuentaContable = DdlCuentasContables.SelectedValue.ToEntero()
+            End If
         End If
         If HdnModalidad.Value = "A" Then
-            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero) Then
+            If ObjAlmacen.AddAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
                 Alert("El nuevo Almacen se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
                 ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -222,7 +243,7 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -280,6 +301,8 @@ Partial Class Inventarios_CatAlmacenes
         DdlModalidad.SelectedValue = If((GvRow.DataKey("Modalidad")) = "Solo Existencia", 0, 1)
         divddlcc.Visible = If((DdlModalidad.SelectedValue) = 1, True, False)
         DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCtaContable"))
+        DdlCuentasSig.SelectedValueExist(-1)
+        DdlCuentasSig.SelectedValueExist(GvRow.DataKey("CveCuenta"))
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen"))
         TxtAlmacen.Text = GvRow.DataKey("Almacen")

Inventarios/RecepcionAlmacen.aspx

@@ -256,7 +256,7 @@
                                             </div>
 
                                             <asp:Button Text="Recarga" Width="75px" ID="BtnConsultarPendientes" OnClick="BtnConsultarPendientes_Click" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpPendientes" />
-                                            <asp:Timer runat="server" ID="TimmerRefresh" Interval="100000" OnTick="TimmerRefresh_Tick"></asp:Timer>
+                                            <asp:Timer runat="server" ID="TimmerRefresh" Interval="300000" OnTick="TimmerRefresh_Tick"></asp:Timer>
                                             <a href="javascript:;" class="collapse"></a>
                                         </asp:Panel>
                                     </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -601,7 +601,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjInventarios As New ClsInventarios
         If ddlProveedor.SelectedValue.ToEntero > 0 Then
             If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveEmpresa) Then
-                Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC')", "AND TipoDocto IN ('Fac')")
+                Dim FiltroTemporal = If(UsuarioActual.CveEmpresa = 119, "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
                 DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
             Else
                 Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError)

Inventarios/RecepcionEntrega.aspx

@@ -283,7 +283,7 @@
 
                                             <asp:Button Text="Recarga" Width="75px" ID="BtnConsultarPendientes" OnClick="BtnConsultarPendientes_Click" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpPendientes" />
 
-                                            <asp:Timer runat="server" ID="TimmerRefresh" Interval="100000" OnTick="TimmerRefresh_Tick"></asp:Timer>
+                                            <asp:Timer runat="server" ID="TimmerRefresh" Interval="300000" OnTick="TimmerRefresh_Tick"></asp:Timer>
 
                                             <a href="javascript:;" class="collapse"></a>
                                         </asp:Panel>

Inventarios/RecepcionEntrega.aspx.vb

@@ -1877,6 +1877,11 @@ Partial Class Inventarios_RecepcionEntrega
 
                 Dim Almacen1 = DdlAlmacen.SelectedValue.ToEntero
 
+                If TipoDocto = "Rem" AndAlso CveAlmacenTraspasoDestino = 0 Then
+                    ErrorMovInv = True
+                    TextoError = "Ocurrió un error. no se tiene definido el almacen destino"
+                End If
+
                 'DEVOLUCION REMISION
                 If TipoMovimiento = 2 And TipoDocto = "Rem" Then
                     ConceptoMovimiento = 8
@@ -1892,7 +1897,7 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
 
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
-                                                            CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
+                                                        CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
                 Folio = ObjInventario.Folio
 
                 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
@@ -1903,6 +1908,12 @@ Partial Class Inventarios_RecepcionEntrega
                     For Each Dr1 As DataRow In DtTraspasos.Rows
                         CveMovimientoSalida = Dr1("CveMovimientoEntrada").ToString.ToEntero
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                            If ObjInventario.DtResultados.Rows.Count = 0 Then
+                                ErrorMovInv = True
+                                TextoError = "Ocurrió un error, no se tienen registros que ingresar"
+                                Exit Sub
+                            End If
+
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString) Then
                                     ErrorMovInv = True
@@ -1910,6 +1921,9 @@ Partial Class Inventarios_RecepcionEntrega
                                     Exit For
                                 End If
                             Next
+                        Else
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al obtener los registros"
                         End If
                         If ErrorMovInv Then Exit For
                     Next
@@ -1990,7 +2004,7 @@ Partial Class Inventarios_RecepcionEntrega
                         TextoError = "No se pudo generar el movimiento de entrada correctamente"
                         ErrorMovInv = True
                     Else
-                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then
                                     ErrorMovInv = True
@@ -1998,6 +2012,9 @@ Partial Class Inventarios_RecepcionEntrega
                                     Exit For
                                 End If
                             Next
+                        Else
+                            ErrorMovInv = True
+                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                         End If
                     End If
 
@@ -2212,7 +2229,7 @@ Partial Class Inventarios_RecepcionEntrega
             End If
 
             ' COMIENZA: VIRTUAL
-            If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
+            If Not ErrorMovInv AndAlso TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then
                 Dim DtPSVirtual As New DataTable("DtTamanios")
 
                 If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -2246,46 +2263,46 @@ Partial Class Inventarios_RecepcionEntrega
                 End If
 
                 If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
+                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                        Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
-                        FolioVirtual = ObjInventario.Folio
+                    FolioVirtual = ObjInventario.Folio
 
-                        If CveMovimientoVirtual > 0 Then
-                            For Each RowUsado As DataRow In DtPSVirtual.Rows
-                                Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                                Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                                Dim PU As Double = RowUsado("PU").ToString().ToDouble()
-                                Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
-                                    ErrorMovInv = True
-                                    TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
-                                    Exit For
-                                End If
-                            Next
-                        Else
-                            ErrorMovInv = True
-                        End If
+                    If CveMovimientoVirtual > 0 Then
+                        For Each RowUsado As DataRow In DtPSVirtual.Rows
+                            Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                            Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
+                            Dim PU As Double = RowUsado("PU").ToString().ToDouble()
+                            Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
 
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then
+                                ErrorMovInv = True
+                                TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar."
+                                Exit For
+                            End If
+                        Next
                     Else
-                        If ValidaVirtual Then
-                            ErrorMovInv = True
-                            TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
-
-                        End If
+                        ErrorMovInv = True
                     End If
 
-                    If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                Else
+                    If ValidaVirtual Then
                         ErrorMovInv = True
-                        TextoError = "No se tienen productos para el almacen virtual."
+                        TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar."
+
                     End If
                 End If
 
-                ' TERMINA: VIRTUAL
+                If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then
+                    ErrorMovInv = True
+                    TextoError = "No se tienen productos para el almacen virtual."
+                End If
+            End If
+
+            ' TERMINA: VIRTUAL
 
 
-                'AGREGA BITACORA A VENTA
-                If Not ErrorMovInv Then
+            'AGREGA BITACORA A VENTA
+            If Not ErrorMovInv Then
                 Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta")
                 If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then
                     ErrorMovInv = True

Inventarios/RecepcionUsados.aspx.vb

@@ -1730,11 +1730,12 @@ Partial Class Inventarios_RecepcionUsados
         DivClienteSucursal.Visible = False
         DdlClientesSucursales.Items.Clear()
 
-        Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("EsDistribuidor", $"CveCliente = {DdlClientes.SelectedValue.ToEntero()}"))
-
-        CargaSucursalesCliente()
-        CargaFacturasCliente()
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("EsDistribuidor", ""))
 
+            CargaSucursalesCliente()
+            CargaFacturasCliente()
+        End If
         UpGenerales.Update()
     End Sub
     Private Sub CargaFacturasCliente()
@@ -2621,7 +2622,7 @@ Partial Class Inventarios_RecepcionUsados
     Private Sub CargaFolioAjuste()
         DdlFolioGarantia.Items.Clear()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=2) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
@@ -2767,6 +2768,8 @@ Partial Class Inventarios_RecepcionUsados
                     "", "-1", "-1", "-1", "", "", "", -1, "", "", CveTamaño)
 
             End If
+        Else
+            Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
         End If
         ObjPS.Dispose()
     End Sub

Inventarios/RepAlmacen.aspx.vb

@@ -40,7 +40,7 @@ Partial Class Inventarios_RepAlmacen
         DdlTipoAlmacen.DataBind()
         DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1)
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveEstatus:=-1)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 

LogIn.aspx

@@ -129,6 +129,7 @@
 
         <script type="text/javascript" src="/Scripts/Notificaciones.js"></script>
         <script>
+            // aqui debe de llammarse Sr, para desconectar
             window.addEventListener("beforeunload", NotificacionesADS.closeopenConexion);
             var prm = Sys.WebForms.PageRequestManager.getInstance();
             prm.add_initializeRequest(function (s, e) {

OC/OC.aspx.vb

@@ -6082,51 +6082,51 @@ Partial Class OC
         End If
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
+    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+
+        Dim unnamed As Integer = 0
+        Dim cols As Integer
+        Dim columns As String()
+        Dim curRow As Integer = 0
+        Dim curCol As Integer = 0
+        Dim dataTable As DataTable = New DataTable()
+        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+
+        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+            If firstRowHasHeaders Then
+
+                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                Else
+                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                End If
+
+                curRow = 1
+            Else
+                dataTable.Columns.Add("Column " & (cols + 1))
+            End If
+        Next
+
+        While curRow < worksheet.Rows.Count
+            columns = New String(cols - 1) {}
+
+            For curCol = 0 To cols - 1
+
+                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                    columns(curCol) = ""
+                Else
+                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                End If
+            Next
+
+            dataTable.Rows.Add(columns)
+            curRow += 1
+        End While
+
+        Return dataTable
     End Function
 
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
@@ -7469,131 +7469,131 @@ Partial Class OC
 
 #End Region
 
-#Region "C A R G A R  E X C E L "
+#Region "C A R G A R  E X C E L "
     Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
-        If TxtExcelCot.getfiles().Archivos.Count > 0 Then
-            Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
-            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
-            CargarArchivoCot(Directorio, file.filename)
-
-            CargaCotizaciones(CveOrdenCompra)
-            RegistraScript("$('#DivCargaExcelCotizaciones').modal('hide');")
-        Else
-            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        If TxtExcelCot.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            CargarArchivoCot(Directorio, file.filename)
+
+            CargaCotizaciones(CveOrdenCompra)
+            RegistraScript("$('#DivCargaExcelCotizaciones').modal('hide');")
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
         End If
     End Sub
 
     Protected Sub BtnDescargarFormatoCot_Click(sender As Object, e As EventArgs)
         'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
-        Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-
+        Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
         Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
-                                    Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
-                                    Where row.RowType = DataControlRowType.DataRow
-                                    Select New With
-                                        {
-                                            .Cantidad = row.DataKey("Cantidad"),
-                                            .Codigo = rowPS("Codigo"),
-                                            .Producto = rowPS("PSCodigo"),
-                                            .PrecioUnitario = row.DataKey("Importe").ToDecimal(),
-                                            .FechaEntrega = "",
-                                            .Observacion = row.DataKey("Observacion")
-                                        }).QueryToDataTable(True)
-        If DtExcel.Rows.Count < 2 Then
-            Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        DtExcel.TableName = "Cotización"
-        'DtExcel.Columns("Codigo").ColumnName = "Código"
-        'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-
-        Dim FileExcel As New ExcelFile()
-
-        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
-        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
-            {
-                .ColumnHeaders = True,
-                .StartRow = 0,
-                .StartColumn = 0
-            })
-        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
-        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
-
-        Dim columnCount = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
-            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
-        Next
-
-        FileExcel.Save(Response, "Cotizacion.xlsx", SaveOptions.XlsxDefault)
-
-    End Sub
-    Protected Sub CargarArchivoCot(Ruta As String, FileName As String)
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-
-        Dim dt As DataTable = Nothing
-        Dim ErrorArchivo = False
-
-        Try
-            dt = ReadExcelFile(Ruta + FileName, True)
-        Catch ex As Exception
-            ErrorArchivo = True
-            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
-        End Try
-
-        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
-            'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
-            If DdlProveedorCot.SelectedValue.ToEntero() <= 0 Then
-                Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-            If Not dt.Columns(0).ColumnName = "Cantidad" Then
-                Alert("El nombre de la tercera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
+                                    Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
+                                    Where row.RowType = DataControlRowType.DataRow
+                                    Select New With
+                                        {
+                                            .Cantidad = row.DataKey("Cantidad"),
+                                            .Codigo = rowPS("Codigo"),
+                                            .Producto = rowPS("PSCodigo"),
+                                            .PrecioUnitario = row.DataKey("Importe").ToDecimal(),
+                                            .FechaEntrega = "",
+                                            .Observacion = row.DataKey("Observacion")
+                                        }).QueryToDataTable(True)
+        If DtExcel.Rows.Count < 2 Then
+            Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        DtExcel.TableName = "Cotización"
+        'DtExcel.Columns("Codigo").ColumnName = "Código"
+        'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        FileExcel.Save(Response, "Cotizacion.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+    Protected Sub CargarArchivoCot(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+            'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
+            If DdlProveedorCot.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
             End If
-            If Not dt.Columns(1).ColumnName = "Codigo" Then
-                Alert("El nombre de la cuarta columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-            If Not dt.Columns(2).ColumnName = "Producto" Then
-                Alert("El nombre de la cuarta columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-            If Not dt.Columns(3).ColumnName = "PrecioUnitario" Then
-                Alert("El nombre de la sexta columna debe ser 'PrecioUnitario'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la tercera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
             End If
-            If Not dt.Columns(4).ColumnName = "FechaEntrega" Then
-                Alert("El nombre de la sexta columna debe ser 'FechaEntrega'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
+            If Not dt.Columns(1).ColumnName = "Codigo" Then
+                Alert("El nombre de la cuarta columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
             End If
-            If Not dt.Columns(5).ColumnName = "Observacion" Then
-                Alert("El nombre de la sexta columna debe ser 'Observacion'. Favor de corregirlo", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-
-            dt.TableName = "Datos"
-            Dim ProductosNoCargados As New StringBuilder()
-            Dim RowsCargados As Integer = 0
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la cuarta columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "PrecioUnitario" Then
+                Alert("El nombre de la sexta columna debe ser 'PrecioUnitario'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "FechaEntrega" Then
+                Alert("El nombre de la sexta columna debe ser 'FechaEntrega'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(5).ColumnName = "Observacion" Then
+                Alert("El nombre de la sexta columna debe ser 'Observacion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
             Dim RowsNoCargados As Integer = 0
             Dim TieneError As Boolean = False
 
             Dim objCotizacion As New ClsOC
             objCotizacion.IniciaTransacSQL()
 
-            Try
+            Try
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
 
                 Dim DtOCDetalle As DataTable = (From row As GridViewRow In GvD.Rows
                                                 Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
                                                 Where row.RowType = DataControlRowType.DataRow
-                                                Select New With
-                                                {
-                                                    .CvePS = row.DataKey("CvePS").ToEntero(),
-                                                    .CveUnidadMedida = rowPS("CveUnidadMedida").ToString().ToEntero(),
-                                                    .CveOrdenCompraDetalle = row.DataKey("CveOrdenCompraDetalle").ToString().ToEntero(),
-                                                    .Codigo = rowPS("Codigo")
+                                                Select New With
+                                                {
+                                                    .CvePS = row.DataKey("CvePS").ToEntero(),
+                                                    .CveUnidadMedida = rowPS("CveUnidadMedida").ToString().ToEntero(),
+                                                    .CveOrdenCompraDetalle = row.DataKey("CveOrdenCompraDetalle").ToString().ToEntero(),
+                                                    .Codigo = rowPS("Codigo")
                                                 }).QueryToDataTable(True)
 
 
@@ -7618,23 +7618,23 @@ Partial Class OC
                     End If
                 Else
                     TieneError = False
-                End If
-
-            Catch ex As Exception
-                TieneError = True
-                OnError("Ocurrió un error al cargar las cotizaciones.", ex)
-            Finally
+                End If
+
+            Catch ex As Exception
+                TieneError = True
+                OnError("Ocurrió un error al cargar las cotizaciones.", ex)
+            Finally
                 If TieneError Then
                     objCotizacion.RollBack()
                     Alert("Ocurrió un error al cargar las cotizaciones.")
                 Else
                     objCotizacion.Commit()
                     Alert("Las cotizaciones se cargaron correctamente.")
-                End If
+                End If
                 objCotizacion.Dispose()
-            End Try
-
-        End If
+            End Try
+
+        End If
     End Sub
 #End Region
 

RH/CatCursos.aspx.vb

@@ -480,9 +480,8 @@ Partial Class RH_CatCursos
             Dim Correo As String = row.DataKey("Correo")
             Dim _Nombres As String = row.DataKey("Nombres")
             Dim _CvePersonal As Integer = row.DataKey("CvePersonal").ToString.ToEntero
-
             Dim chkGrupo As CheckBox = row.FCCheckBox("chkGrupo")
-            Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos de esta empresa   le hace la cordial invitación  para asistir al curso  " & Curso & " Impartido por " & Capacitador & ".  Esperamos contar con su asistencia."
+            Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente, el departamento de Capital Humano de " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación  para asistir al curso  " & Curso & " Impartido por el capacitador " & Capacitador & ".Esperamos contar con su asistencia."
 
             If CveCursoPersonal = -1 Then
                 If chkGrupo.Checked = True Then
@@ -638,11 +637,17 @@ Partial Class RH_CatCursos
 
     End Sub
 
-    Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer) As Byte()
+    Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer, _Fecha As String, _Ubicacion As String) As Byte()
 
+        'Darle formato a la fecha
+        Dim FechaAux As Date = Date.Parse(_Fecha)
+        Dim dia As Integer = Day(FechaAux)
+        Dim mes As Integer = Month(FechaAux)
+        Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
+        Dim año As Integer = Year(FechaAux)
         Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx"
         Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png")
-        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
+        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Capital Humano de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
 
         If Not File.Exists(RutaArchivo) Then
             RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
@@ -773,7 +778,7 @@ Partial Class RH_CatCursos
 
                     Dim ContenidoSB As New StringBuilder
 
-                    ContenidoSB.Append("Buen día. <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos humanos de la empresa le hace la cordial invitación  para asistir al curso  " & _Curso & " Impartido por " & _Capacitador & ".  Esperamos contar con su asistencia.")
+                    ContenidoSB.Append("Buen día. <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de Capital Humano de la empresa le hace la cordial invitación  para asistir al curso  " & _Curso & " Impartido por " & _Capacitador & ".  Esperamos contar con su asistencia.")
 
                     ContenidoSB.Append("<br><br>")
                     ContenidoSB.AppendLine("<table boder='1'>")
@@ -793,7 +798,7 @@ Partial Class RH_CatCursos
 
 
 
-                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal)
+                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
                     MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
 
                     Contador = Contador + 1

Scripts/Notificaciones.js

@@ -93,26 +93,26 @@ var NotificacionesADS = function () {
             closeopenConexion()  
     }
     function loadConection() { 
-            VentanaConConexion = true;
-        localStorage.setItem("AdsNotificacionesIsConnected", valueok);
-        if ($.connection) {
-            let nointentos =0
-            var proxy = $.connection.notificaciones;
-            /*$.connection.hub.url = '/signalr';*/
-            $.connection.hub.disconnected(function () {
-                setTimeout(function () { nointentos = nointentos + 1; if (nointentos < 4) { $.connection.hub.start().done(function () { nointentos = 0 }); console.log('Reconected'); } }, 120000);
-            });
+        //    VentanaConConexion = true;
+        //localStorage.setItem("AdsNotificacionesIsConnected", valueok);
+        //if ($.connection) {
+        //    let nointentos =0
+        //    var proxy = $.connection.notificaciones;
+        //    /*$.connection.hub.url = '/signalr';*/
+        //    $.connection.hub.disconnected(function () {
+        //        setTimeout(function () { nointentos = nointentos + 1; if (nointentos < 4) { $.connection.hub.start().done(function () { nointentos = 0 }); console.log('Reconected'); } }, 120000);
+        //    });
 
-            proxy.client.AlertaVentana = AlertaVentana;
+        //    proxy.client.AlertaVentana = AlertaVentana;
 
-            $.connection.hub.start().done(function () {
-                console.log('Bienvenido');
-            });
-        } else {
-            console.error('Signal Error (no se encontro $.connection)');
+        //    $.connection.hub.start().done(function () {
+        //        console.log('Bienvenido');
+        //    });
+        //} else {
+        //    console.error('Signal Error (no se encontro $.connection)');
 
-        }
-        window.addEventListener("beforeunload", beforeunloadcloseopenConexion);
+        //}
+        //window.addEventListener("beforeunload", beforeunloadcloseopenConexion);
     }
     function initConnection() { 
         let isconnected = localStorage.getItem("AdsNotificacionesIsConnected");

Sistemas/SessionesActivas.aspx

@@ -67,7 +67,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Fecha Login">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaSLogin")%>'></asp:Literal>
+                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaSLogin", "{0:dd/MM/yyyy HH:mm}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="IP">
@@ -75,6 +75,16 @@
                             <asp:Literal ID="LtlRemoteIpAddres" runat="server" Text='<%# Eval("RemoteIpAddres")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Modulo">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlModulo" runat="server" Text='<%# Eval("Modulo")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Post">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlPost" runat="server" Text='<%# Eval("LastPostback")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField>
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEnviarMensaje" OnClick="LnkEnviarMensaje_Click" CssClass="btn btn-circle btn-sm blue" runat="server" Text="<i class='fa fa-comments-o'></i>"></asp:LinkButton>

Sistemas/SessionesActivas.aspx.vb

@@ -14,9 +14,46 @@ Partial Class SessionesActivas
             ViewState("RCveUsuario") = value
         End Set
     End Property
+
+    ReadOnly Property UsuarioActual() As Usuario
+        Get
+            Try
+                'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
+                UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
+            Catch ex As Exception
+                Usuario.CerrarSession()
+                Return Nothing
+            End Try
+        End Get
+    End Property
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            If Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing Then
 
+                Dim AuthorizeRequest As Boolean = False
+                Dim HuboError = False
+                Dim statusCode = 401
+                AuthorizeRequest = False
+
+                Response.StatusCode = statusCode
+                If Not AuthorizeRequest Then
+                    Usuario.CerrarSession()
+                    Response.End()
+                End If
+            End If
+            If UsuarioActual.CveRol <> 1 Then
+
+                Dim AuthorizeRequest As Boolean = False
+                Dim HuboError = False
+                Dim statusCode = 401
+                AuthorizeRequest = False
+
+                Response.StatusCode = statusCode
+                If Not AuthorizeRequest Then
+                    Usuario.CerrarSession()
+                    Response.End()
+                End If
+            End If
             '         Dim listacve As New List(Of String)
             '         listacve.Add("1815")
             '         Notificaciones.AlertaVentana("notificacion", listacve, timeoutseconds:=0)
@@ -33,6 +70,8 @@ Partial Class SessionesActivas
         Dim dtU As DataTable = objUsuarios.DtResultados
         dtU.Columns.Add("FechaSLogin", System.Type.GetType("System.DateTime"))
         dtU.Columns.Add("RemoteIpAddres", System.Type.GetType("System.String"))
+        dtU.Columns.Add("LastPostback", System.Type.GetType("System.DateTime"))
+        dtU.Columns.Add("Modulo", System.Type.GetType("System.String"))
         Dim dtF As DataTable = dtU.Clone
         Dim objlist As List(Of ADSSession.ADSSessionObj) = ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.getListasession)
 
@@ -41,6 +80,8 @@ Partial Class SessionesActivas
             If Not IsNothing(row) Then
                 row("FechaSLogin") = user.FechaLogin
                 row("RemoteIpAddres") = user.IpAddres
+                row("LastPostback") = user.LastPostback
+                row("Modulo") = user.Modulo
                 dtF.Rows.Add(row.ItemArray())
             End If
         Next

Sistemas/UsuarioDetalle.aspx.vb

@@ -1288,12 +1288,14 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub RecargaGlobales(TieneError As Boolean, ObjSubProyectos As ClsSubProyectos, ObjBancos As ClsBancos, ObjOC As ClsOC, ObjUsuarios As ClsSisUsuarios)
         'RECARGA GLOBAL SUBPROYECTOS
         If Not TieneError Then
-            If ObjSubProyectos.GetSubProyectosUsuarios Then
-                Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
-            Else
-                Application("GlobalDTSubProyectosUsuarios") = Nothing
-                TieneError = True
-            End If
+            GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+
+            'If ObjSubProyectos.GetSubProyectosUsuarios Then
+            '    Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
+            'Else
+            '    Application("GlobalDTSubProyectosUsuarios") = Nothing
+            '    TieneError = True
+            'End If
         End If
 
         If Not TieneError Then

Site.master

@@ -694,7 +694,7 @@
         <script type="text/javascript" src="/Scripts/jquery.signalR-2.2.2.min.js"></script>
         <script type="text/javascript" src="/signalr/signalr/hubs"></script>
         <%: Scripts.Render("~/Metronic/assets/global/scripts/JS") %>
-        <script type="text/javascript" src="/Scripts/Notificaciones.js"></script>
+        <script type="text/javascript" src="/Scripts/Notificaciones.js?var1=1"></script>
 
         <script type="text/javascript">
             NotificacionesADS.init();

Ventas/ActualizarPrecios.aspx

@@ -1,373 +1,377 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ActualizarPrecios.aspx.vb" Inherits="Ventas_ActualizarPrecios" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
-        .v-center {
-            display: flex;
-            align-items: center;
-        }
-    </style>
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Actualizar Precios
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
-        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="True" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
-    </li>
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-
-    <asp:UpdatePanel runat="server" ID="UpEncabezado" UpdateMode="Conditional">
-        <ContentTemplate>
-            <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" class="btn btn-primary" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsultar" />
-                        <a href="javascript:;" class="expand"></a>
-                    </div>
-                    <div class="titlefiltros  caption ">
-                        <div class="row v-center">
-                            <label class="col-md-1 v-center truncate">Precio de Lista:</label>
-                            <div class="col-md-1 v-center">
-                                <asp:DropDownList ID="DdlPrecioLista" runat="server"  AppendDataBoundItems="true"  Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 v-center truncate">Clasificación:</label>
-                            <div class="col-md-1 v-center">
-                                <asp:DropDownList ID="DDlClasificacion" runat="server" Width="100%" CssClass="select2me" OnSelectedIndexChanged="DDlClasificacion_SelectedIndexChanged" AutoPostBack="True" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 v-center truncate">PS:</label>
-                            <div class="col-md-2 v-center">
-                                <ADS:Dropdownlost ID="DDlPs" AutoPostBack="false" runat="server" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:200px;"></ADS:Dropdownlost>
-                            </div>
-                            <label id="LblMarca" runat="server" visible="false" class="col-md-1 v-center truncate">Marca:</label>
-                            <asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" runat="server" Visible="false" DataTextField="Marca" DataValueField="CveMarca" Width="206px" Height="22px">
-                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </div>
-                </div>
-                <div class="portlet-body" style="display: none">
-                    <div class="row v-center">
-                        <label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label>
-                        <div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false">
-                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlProveedor" Width="100%" data-metodo="getproveedores" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                        </div>
-                        <label class="col-md-1 v-center truncate">Estado:</label>
-                        <div class="col-md-1 v-center">
-                            <asp:DropDownList ID="DdlEstado" runat="server" Width="100%" CssClass="select2me">
-                                <asp:ListItem Value="-1">Todos</asp:ListItem>
-                                <asp:ListItem Value="1" Selected="True">Activos</asp:ListItem>
-                                <asp:ListItem Value="0">Incativos</asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UPPrecioLista">
-        <ContentTemplate>
-            <div class="row">
-                <div class="col-md-6">
-                    <div class="portlet light smmallpadding traspasorow bordered xspadding">
-                        <div class="portlet-title">
-                            <div class="caption font-green">
-                                <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Actualizar Precio de Lista</span>
-                            </div>
-                            <div class="actions">
-                                <div class="btn-group">
-                                </div>
-                            </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:RadioButtonList AutoPostBack="true" OnSelectedIndexChanged="RblTipo_SelectedIndexChanged" RepeatDirection="Horizontal" ID="RblTipo" runat="server">
-                                        <asp:ListItem Selected="true" Value="Imp" Text="Importe Fijo" />
-                                        <asp:ListItem Value="Por" Text="Porcentaje" />
-                                    </asp:RadioButtonList>
-                                </div>
-                            </div>
-                            <div class="row">
-                                <div class="col-md-6">
-                                    <div runat="Server" id="ImporteFijo" class="form-group form-md-line-input input-iconright" style="width: 50%">
-                                        <asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporte" FilterType="Numbers, Custom" ValidChars="." />
-                                        <label for="<%= TxtImporte.ClientID.ToString()%>">Importe Nuevo:</label>
-                                        <i>$</i>
-                                    </div>
-                                </div>
-                                <div class="col-md-1">
-                                    <a class="btn btn-default" onclick="CambiaImporte();">Aplicar Importe</a>
-                                </div>
-                            </div>
-                            <div class="row">
-                                <div class="col-md-6">
-                                    <div runat="Server" id="Div1" class="form-group form-md-line-input input-iconright" style="width: 50%">
-                                        <asp:TextBox ID="TxtPrecio" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender2" runat="server" TargetControlID="TxtPrecio" FilterType="Numbers, Custom" ValidChars="." />
-                                        <label for="<%= TxtPrecio.ClientID.ToString()%>">Precio Min.:</label>
-                                        <i>$</i>
-                                    </div>
-                                </div>
-                                <div class="col-md-1">
-                                    <a class="btn btn-default" onclick="CambiaPrecio();">Aplicar Precio Min.</a>
-                                </div>
-                            </div>
-
-
-                            <div class="form-group form-md-line-input input-iconright" style="width: 50%">
-                                <asp:TextBox ID="TxtPorcentaje" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                <ajax:FilteredTextBoxExtender ID="FTBSerie" runat="server" TargetControlID="TxtPorcentaje" FilterType="Numbers, Custom" ValidChars=".,-" />
-                                <label for="<%= TxtPorcentaje.ClientID.ToString()%>">Porcentaje Nuevo:</label>
-                            </div>
-                            <div class="text-right">
-                                <asp:LinkButton ID="BtnGuardar" runat="server" AlternateText="Actualizar" CausesValidation="True" CssClass="btn btn-primary" Text="Actualizar Seleccionadas" ValidationGroup="GrpGuardar" />
-                            </div>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div runat="server" visible="false" id="dvDatos">
-                <div align="right">
-                    <input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                </div>
-                <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Porcentaje,CodigoPS"
-                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" ToolTip="Listado de Nombres">
-                    <Columns>
-                        <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
-                            <ItemTemplate>
-                                <asp:CheckBox runat="server" ID="chkPS" />
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:BoundField DataField="Codigo" ItemStyle-Width="10%" HeaderText="Código" />
-                        <asp:BoundField DataField="PS" ItemStyle-Width="30%" HeaderText="Producto/Servicio" />
-                        <asp:BoundField DataField="Clasificacion" ItemStyle-Width="15%" HeaderText="Clasificación" />
-                        <asp:BoundField DataField="PrecioLista" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
-                        <asp:TemplateField HeaderText="">
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
-                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecio" FilterType="Numbers,Custom" ValidChars="." />
-                                <asp:RegularExpressionValidator ID="REVTxtPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
-                                <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Precio Mínimo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right">
-                            <ItemTemplate>
-                                <asp:LinkButton ID="LnkPrecioMinActual" OnClick="LnkPrecioMinActual_Click" runat="server" Text='<%# If(Eval("PrecioMinimo").ToString.Length = 0, "N/A", Eval("PrecioMinimo", "{0:N2}")) %>'></asp:LinkButton>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="">
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtPrecioMinimo" runat="server" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
-                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." />
-                                <asp:RegularExpressionValidator ID="REVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
-                                <ajax:ValidatorCalloutExtender ID="VCTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecioMinimo" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-
-                        <asp:BoundField DataField="UnidadMedida" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="U.M." ItemStyle-HorizontalAlign="Center" />
-                        <asp:BoundField DataField="Moneda" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Moneda" ItemStyle-HorizontalAlign="Left" />
-                        <asp:BoundField DataField="VentaMinima" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="E. Mínimo" ItemStyle-HorizontalAlign="right" />
-
-
-                        <asp:BoundField DataField="ImporteAnterior" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe Anterior" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
-                        <asp:BoundField DataField="PrecioMinimoAnterior" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Precio Mínimo Anterior" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
-                        <asp:BoundField DataField="FechaModificacion" DataFormatString="{0:dd/MM/yyyy hh:mm:ss}" ItemStyle-Width="10%" HeaderText="Fecha Modificación" />
-                        <asp:BoundField DataField="UsuarioModifico" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Usuario Modificó" />
-                        <asp:BoundField DataField="Porcentaje" NullDisplayText="N/A" ItemStyle-Width="10%" DataFormatString="%{0}" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="right" />
-                        <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Fecha Ingreso" />
-                        <asp:BoundField DataField="Usuario" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Usuario Ingresó" />
-
-                    </Columns>
-                </asp:GridView>
-
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <div id="ModalActualizaPrecios" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 900px; margin: auto;">
-            <div class="modal-content">
-
-                <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">
-                        <asp:UpdatePanel ID="UpModalTitulo" runat="server" UpdateMode="Conditional">
-                            <ContentTemplate>
-                                <asp:Literal ID="LtlModalTitleUpModalTitulo" runat="server">Codigo </asp:Literal>
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </h4>
-                </div>
-
-                <div class="modal-body">
-                    <asp:UpdatePanel runat="server" ID="UpModalActualizaPrecios" UpdateMode="Conditional">
-                        <ContentTemplate>
-                            <div class="col-md-12">
-                                <div class="col-md-3" style="text-align: left">
-                                    <input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" /> Seleccionar Todos
-                                </div>
-                                <div class="col-md-9" style="text-align: right">
-                                    <label>Aplicar precio mínimo</label>
-                                    <asp:TextBox ID="TxtAplicarPrecio" runat="server" Width="60px" MaxLength="39"></asp:TextBox>
-                                    <ajax:FilteredTextBoxExtender ID="FilTxtAplicarPrecio" TargetControlID="TxtAplicarPrecio" runat="server" FilterType="Numbers,Custom" ValidChars="." InvalidChars="-+" />
-                                    <a id="lnkAplicarPrecioSucursales" runat="server" class="btn btn-default" onclick="CambiaPrecioModal();">Aplicar</a>
-                                </div>
-                            </div>
-                            <asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios"
-                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" OnRowDataBound="gvSucursal_RowDataBound" Style="text-align: center;" GridLines="None">
-                                <Columns>
-                                    <asp:TemplateField>
-                                        <ItemTemplate>
-                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked="false" CssClass="CsMCheckGvSucursal" />
-                                            <asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1)  %>' />
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Sucursal" ItemStyle-Width="30%">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="LtlSucursal" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
-                                        </ItemTemplate>
-                                        <ItemStyle HorizontalAlign="Left" />
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Precio Mínimo">
-                                        <ItemTemplate>
-                                            <asp:TextBox ID="TxtPrecioMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="39" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' ValidationGroup="GrpEditGuardarO" Width="90px" CssClass="CssMCamviaPrecio"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RFVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditGuardarS"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VCOTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtPrecioMinimo" Width="100px"></ajax:ValidatorCalloutExtender>
-                                            <ajax:FilteredTextBoxExtender ID="FilTxtPrecioMinimo" runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." InvalidChars=",-+" />
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Mínimo" Visible="false">
-                                        <ItemTemplate>
-                                            <asp:TextBox ID="TxtMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Minimo") %>' ValidationGroup="GrpEditGuardarO" Width="100px"></asp:TextBox>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:TemplateField HeaderText="Máximo" Visible="false">
-                                        <ItemTemplate>
-                                            <asp:TextBox ID="TxtMaximo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Maximo")%>' ValidationGroup="GrpEditGuardarO" Width="100px"></asp:TextBox>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:BoundField HeaderText="Precio Mínimo Anterior" DataField="PrecioMinimoAnterior" DataFormatString="{0:N2}" />
-                                    <asp:BoundField HeaderText="Usuario Modificó" DataField="Usuario" />
-                                    <asp:BoundField HeaderText="Fecha Modificación" DataField="FechaModificacion" DataFormatString="{0:dd/MM/yyyy hh:mm:ss}" />
-                                </Columns>
-                                <RowStyle CssClass="Texto" />
-                                <AlternatingRowStyle CssClass="TextoAlterno" />
-                            </asp:GridView>
-
-
-
-                        </ContentTemplate>
-                    </asp:UpdatePanel>
-                </div>
-                <div class="modal-footer">
-                    <asp:UpdatePanel runat="server" ID="UpModalBotonesCodigos" UpdateMode="Conditional">
-                        <ContentTemplate>
-
-                            <asp:LinkButton ID="LnkModalGuardarPreciosMinimos" runat="server" Text="Guardar" CssClass="btn btn-primary" OnClick="LnkModalGuardarPreciosMinimos_Click"></asp:LinkButton>
-                            <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
-
-                        </ContentTemplate>
-
-                    </asp:UpdatePanel>
-                </div>
-            </div>
-        </div>
-    </div>
-
-    <%--CARGA EXCEL--%>
-    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
-            <!-- Modal content-->
-            <div class="modal-content">
-                <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Agregar Excel</h4>
-                </div>
-                <div class="modal-body">
-                    <div class="row v-center">
-                        <div class="col-md-6 v-center">
-                            <label class="col-md-6 v-center truncate">Precio de Lista:</label>
-                            <div class="col-md-6 v-center">
-                                <asp:DropDownList ID="DdlPrecioListaCarga" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList>
-                                <asp:RequiredFieldValidator ID="RFVPrecioListaCarga" runat="server" ControlToValidate="DdlPrecioListaCarga" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio Lista''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEPrecioListaCarga" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecioListaCarga" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </div>
-                        </div>
-                    </div>
-                    <div class="row">
-                        <div class="col-md-12">
-                            <h3>Arraste o haga click para subir el archivo Excel</h3>
-                        </div>
-                    </div>
-                    <div class="row">
-                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
-                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
-                        </div>
-                    </div>
-                </div>
-                <div class="modal-footer">
-                    <div class="row">
-                        <div class="col-md-2" style="text-align: left">
-                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <asp:Button ID="BtnDescargarFormato" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
-                                </ContentTemplate>
-                                <Triggers>
-                                    <asp:PostBackTrigger ControlID="BtnDescargarFormato" />
-                                </Triggers>
-                            </asp:UpdatePanel>
-                        </div>
-                        <div class="col-md-10" style="text-align: right">
-                            <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </div>
-    </div>
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ActualizarPrecios.aspx.vb" Inherits="Ventas_ActualizarPrecios" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .v-center {
+            display: flex;
+            align-items: center;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Actualizar Precios
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li>
+        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="True" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
+    </li>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel runat="server" ID="UpEncabezado" UpdateMode="Conditional">
+        <ContentTemplate>
+            <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" class="btn btn-primary" OnClick="BtnConsultar_Click" ValidationGroup="GrpConsultar" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row v-center">
+                            <label class="col-md-1 v-center truncate">Precio de Lista:</label>
+                            <div class="col-md-1 v-center">
+                                <asp:DropDownList ID="DdlPrecioLista" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 v-center truncate">Clasificación:</label>
+                            <div class="col-md-1 v-center">
+                                <asp:DropDownList ID="DDlClasificacion" runat="server" Width="100%" CssClass="select2me" OnSelectedIndexChanged="DDlClasificacion_SelectedIndexChanged" AutoPostBack="True" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 v-center truncate">PS:</label>
+                            <div class="col-md-2 v-center">
+                                <ADS:Dropdownlost ID="DDlPs" AutoPostBack="false" runat="server" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:200px;"></ADS:Dropdownlost>
+                            </div>
+                            <label id="LblMarca" runat="server" visible="false" class="col-md-1 v-center truncate">Marca:</label>
+                            <div class="col-md-9">
+                                <asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 50%; height: 50px !important;">
+                                    <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
+                                </asp:ListBox>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" >
+                    <div class="row v-center">
+                        <label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label>
+                        <div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlProveedor" Width="100%" data-metodo="getproveedores" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                        </div>
+                        <label class="col-md-1 v-center truncate">Estado:</label>
+                        <div class="col-md-1 v-center">
+                            <asp:DropDownList ID="DdlEstado" runat="server" Width="100%" CssClass="select2me">
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
+                                <asp:ListItem Value="1" Selected="True">Activos</asp:ListItem>
+                                <asp:ListItem Value="0">Incativos</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" UpdateMode="conditional" ID="UPPrecioLista">
+        <ContentTemplate>
+            <div class="row">
+                <div class="col-md-6">
+                    <div class="portlet light smmallpadding traspasorow bordered xspadding">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Actualizar Precio de Lista</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                </div>
+                            </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:RadioButtonList AutoPostBack="true" OnSelectedIndexChanged="RblTipo_SelectedIndexChanged" RepeatDirection="Horizontal" ID="RblTipo" runat="server">
+                                        <asp:ListItem Selected="true" Value="Imp" Text="Importe Fijo" />
+                                        <asp:ListItem Value="Por" Text="Porcentaje" />
+                                    </asp:RadioButtonList>
+                                </div>
+                            </div>
+                            <div class="row">
+                                <div class="col-md-6">
+                                    <div runat="Server" id="ImporteFijo" class="form-group form-md-line-input input-iconright" style="width: 50%">
+                                        <asp:TextBox ID="TxtImporte" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporte" FilterType="Numbers, Custom" ValidChars="." />
+                                        <label for="<%= TxtImporte.ClientID.ToString()%>">Importe Nuevo:</label>
+                                        <i>$</i>
+                                    </div>
+                                </div>
+                                <div class="col-md-1">
+                                    <a class="btn btn-default" onclick="CambiaImporte();">Aplicar Importe</a>
+                                </div>
+                            </div>
+                            <div class="row">
+                                <div class="col-md-6">
+                                    <div runat="Server" id="Div1" class="form-group form-md-line-input input-iconright" style="width: 50%">
+                                        <asp:TextBox ID="TxtPrecio" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                        <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender2" runat="server" TargetControlID="TxtPrecio" FilterType="Numbers, Custom" ValidChars="." />
+                                        <label for="<%= TxtPrecio.ClientID.ToString()%>">Precio Min.:</label>
+                                        <i>$</i>
+                                    </div>
+                                </div>
+                                <div class="col-md-1">
+                                    <a class="btn btn-default" onclick="CambiaPrecio();">Aplicar Precio Min.</a>
+                                </div>
+                            </div>
+
+
+                            <div class="form-group form-md-line-input input-iconright" style="width: 50%">
+                                <asp:TextBox ID="TxtPorcentaje" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                <ajax:FilteredTextBoxExtender ID="FTBSerie" runat="server" TargetControlID="TxtPorcentaje" FilterType="Numbers, Custom" ValidChars=".,-" />
+                                <label for="<%= TxtPorcentaje.ClientID.ToString()%>">Porcentaje Nuevo:</label>
+                            </div>
+                            <div class="text-right">
+                                <asp:LinkButton ID="BtnGuardar" runat="server" AlternateText="Actualizar" CausesValidation="True" CssClass="btn btn-primary" Text="Actualizar Seleccionadas" ValidationGroup="GrpGuardar" />
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div runat="server" visible="false" id="dvDatos">
+                <div align="right">
+                    <input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                </div>
+                <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Porcentaje,CodigoPS"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" ToolTip="Listado de Nombres">
+                    <Columns>
+                        <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
+                            <ItemTemplate>
+                                <asp:CheckBox runat="server" ID="chkPS" />
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:BoundField DataField="Codigo" ItemStyle-Width="10%" HeaderText="Código" />
+                        <asp:BoundField DataField="PS" ItemStyle-Width="30%" HeaderText="Producto/Servicio" />
+                        <asp:BoundField DataField="Clasificacion" ItemStyle-Width="15%" HeaderText="Clasificación" />
+                        <asp:BoundField DataField="PrecioLista" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
+                        <asp:TemplateField HeaderText="">
+                            <ItemTemplate>
+                                <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
+                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecio" FilterType="Numbers,Custom" ValidChars="." />
+                                <asp:RegularExpressionValidator ID="REVTxtPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
+                                <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Precio Mínimo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right">
+                            <ItemTemplate>
+                                <asp:LinkButton ID="LnkPrecioMinActual" OnClick="LnkPrecioMinActual_Click" runat="server" Text='<%# If(Eval("PrecioMinimo").ToString.Length = 0, "N/A", Eval("PrecioMinimo", "{0:N2}")) %>'></asp:LinkButton>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="">
+                            <ItemTemplate>
+                                <asp:TextBox ID="TxtPrecioMinimo" runat="server" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' CssClass="CssCamviaPrecio" MaxLength="39" Width="60px"></asp:TextBox>
+                                <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." />
+                                <asp:RegularExpressionValidator ID="REVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" EnableClientScript="True" ErrorMessage="El campo <b>''PrecioLista''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." ValidationGroup="GrpGuardar" ValidationExpression="^[0-9]{1,15}(?:\.[0-9]{1,4})?$" />
+                                <ajax:ValidatorCalloutExtender ID="VCTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtPrecioMinimo" Width="300px"></ajax:ValidatorCalloutExtender>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+                        <asp:BoundField DataField="UnidadMedida" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="U.M." ItemStyle-HorizontalAlign="Center" />
+                        <asp:BoundField DataField="Moneda" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Moneda" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField DataField="VentaMinima" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="E. Mínimo" ItemStyle-HorizontalAlign="right" />
+
+
+                        <asp:BoundField DataField="ImporteAnterior" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Importe Anterior" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
+                        <asp:BoundField DataField="PrecioMinimoAnterior" NullDisplayText="N/A" ItemStyle-Width="10%" HeaderText="Precio Mínimo Anterior" DataFormatString="$ {0:N2}" ItemStyle-HorizontalAlign="right" />
+                        <asp:BoundField DataField="FechaModificacion" DataFormatString="{0:dd/MM/yyyy hh:mm:ss}" ItemStyle-Width="10%" HeaderText="Fecha Modificación" />
+                        <asp:BoundField DataField="UsuarioModifico" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Usuario Modificó" />
+                        <asp:BoundField DataField="Porcentaje" NullDisplayText="N/A" ItemStyle-Width="10%" DataFormatString="%{0}" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="right" />
+                        <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Fecha Ingreso" />
+                        <asp:BoundField DataField="Usuario" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" HeaderText="Usuario Ingresó" />
+
+                    </Columns>
+                </asp:GridView>
+
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <div id="ModalActualizaPrecios" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 900px; margin: auto;">
+            <div class="modal-content">
+
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">
+                        <asp:UpdatePanel ID="UpModalTitulo" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:Literal ID="LtlModalTitleUpModalTitulo" runat="server">Codigo </asp:Literal>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </h4>
+                </div>
+
+                <div class="modal-body">
+                    <asp:UpdatePanel runat="server" ID="UpModalActualizaPrecios" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="col-md-12">
+                                <div class="col-md-3" style="text-align: left">
+                                    <input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" />
+                                    Seleccionar Todos
+                               
+                                </div>
+                                <div class="col-md-9" style="text-align: right">
+                                    <label>Aplicar precio mínimo</label>
+                                    <asp:TextBox ID="TxtAplicarPrecio" runat="server" Width="60px" MaxLength="39"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="FilTxtAplicarPrecio" TargetControlID="TxtAplicarPrecio" runat="server" FilterType="Numbers,Custom" ValidChars="." InvalidChars="-+" />
+                                    <a id="lnkAplicarPrecioSucursales" runat="server" class="btn btn-default" onclick="CambiaPrecioModal();">Aplicar</a>
+                                </div>
+                            </div>
+                            <asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios"
+                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" OnRowDataBound="gvSucursal_RowDataBound" Style="text-align: center;" GridLines="None">
+                                <Columns>
+                                    <asp:TemplateField>
+                                        <ItemTemplate>
+                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked="false" CssClass="CsMCheckGvSucursal" />
+                                            <asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1)  %>' />
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Sucursal" ItemStyle-Width="30%">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlSucursal" runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                        <ItemStyle HorizontalAlign="Left" />
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Precio Mínimo">
+                                        <ItemTemplate>
+                                            <asp:TextBox ID="TxtPrecioMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="39" Text='<%# Eval("PrecioMinimo", "{0:N2}")%>' ValidationGroup="GrpEditGuardarO" Width="90px" CssClass="CssMCamviaPrecio"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVTxtPrecioMinimo" runat="server" ControlToValidate="TxtPrecioMinimo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEditGuardarS"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCOTxtPrecioMinimo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtPrecioMinimo" Width="100px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:FilteredTextBoxExtender ID="FilTxtPrecioMinimo" runat="server" TargetControlID="TxtPrecioMinimo" FilterType="Numbers,Custom" ValidChars="." InvalidChars=",-+" />
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Mínimo" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:TextBox ID="TxtMinimo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Minimo") %>' ValidationGroup="GrpEditGuardarO" Width="100px"></asp:TextBox>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Máximo" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:TextBox ID="TxtMaximo" Style="text-align: right" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Maximo")%>' ValidationGroup="GrpEditGuardarO" Width="100px"></asp:TextBox>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:BoundField HeaderText="Precio Mínimo Anterior" DataField="PrecioMinimoAnterior" DataFormatString="{0:N2}" />
+                                    <asp:BoundField HeaderText="Usuario Modificó" DataField="Usuario" />
+                                    <asp:BoundField HeaderText="Fecha Modificación" DataField="FechaModificacion" DataFormatString="{0:dd/MM/yyyy hh:mm:ss}" />
+                                </Columns>
+                                <RowStyle CssClass="Texto" />
+                                <AlternatingRowStyle CssClass="TextoAlterno" />
+                            </asp:GridView>
+
+
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" ID="UpModalBotonesCodigos" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <asp:LinkButton ID="LnkModalGuardarPreciosMinimos" runat="server" Text="Guardar" CssClass="btn btn-primary" OnClick="LnkModalGuardarPreciosMinimos_Click"></asp:LinkButton>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+
+                        </ContentTemplate>
+
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+
+    <%--CARGA EXCEL--%>
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Excel</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row v-center">
+                        <div class="col-md-6 v-center">
+                            <label class="col-md-6 v-center truncate">Precio de Lista:</label>
+                            <div class="col-md-6 v-center">
+                                <asp:DropDownList ID="DdlPrecioListaCarga" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVPrecioListaCarga" runat="server" ControlToValidate="DdlPrecioListaCarga" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio Lista''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCEPrecioListaCarga" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecioListaCarga" Width="300px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
+                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarFormato" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarFormato" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script>
 
-        function CambiaImporte() {
+        function CambiaImporte() {
             var topLevelElem = document.getElementById("form1");
             var checks = topLevelElem.getElementsByTagName("input");
             var idd = '';
 
             var valor = $('#<%= TxtImporte.ClientID  %>').val();
 
-            for (var i = 0; i < checks.length; i++) {
-                if (checks[i].type == "checkbox") {
+            for (var i = 0; i < checks.length; i++) {
+                if (checks[i].type == "checkbox") {
                     debugger;
 
-                    if (checks[i].checked) {
+                    if (checks[i].checked) {
                         idd = checks[i].id.replace('C_GVPrecios_chkPS_', '')
-                        if ($get('C_GVPrecios_TxtPrecio_' + idd) != null) {
-                            $get('C_GVPrecios_TxtPrecio_' + idd).value = FormatoNumero(ToDouble(valor), 2);
-                        }
+                        if ($get('C_GVPrecios_TxtPrecio_' + idd) != null) {
+                            $get('C_GVPrecios_TxtPrecio_' + idd).value = FormatoNumero(ToDouble(valor), 2);
+                        }
 
-                    }
-                }
-            }
+                    }
+                }
+            }
         }
 
-        function CambiaPrecio() {
+        function CambiaPrecio() {
             var topLevelElem = document.getElementById("form1");
             var checks = topLevelElem.getElementsByTagName("input");
             var idd = '';
@@ -378,42 +382,42 @@
             // $('.CssCamviaPrecio').val(valor);
             //}
 
-            for (var i = 0; i < checks.length; i++) {
-                if (checks[i].type == "checkbox") {
+            for (var i = 0; i < checks.length; i++) {
+                if (checks[i].type == "checkbox") {
                     debugger;
 
-                    if (checks[i].checked) {
+                    if (checks[i].checked) {
                         idd = checks[i].id.replace('C_GVPrecios_chkPS_', '')
-                        if ($get('C_GVPrecios_TxtPrecioMinimo_' + idd) != null) {
-                            $get('C_GVPrecios_TxtPrecioMinimo_' + idd).value = FormatoNumero(ToDouble(valor), 2);
-                        }
+                        if ($get('C_GVPrecios_TxtPrecioMinimo_' + idd) != null) {
+                            $get('C_GVPrecios_TxtPrecioMinimo_' + idd).value = FormatoNumero(ToDouble(valor), 2);
+                        }
 
-                    }
-                }
-            }
+                    }
+                }
+            }
         }
 
-        function CambiaPrecioModal() {
+        function CambiaPrecioModal() {
 
             var ChecksGv = $('.CsMCheckGvSucursal').find('input[type=checkbox]');
 
             var valor = $('#<%= TxtAplicarPrecio.ClientID  %>').val();
-            if (!isNaN(valor) && valor.length > 0) {
-                $(".CssMCamviaPrecio").each(function (index) {
-                    if ($($(ChecksGv).get(index)).attr('checked')) {
+            if (!isNaN(valor) && valor.length > 0) {
+                $(".CssMCamviaPrecio").each(function (index) {
+                    if ($($(ChecksGv).get(index)).attr('checked')) {
 
-                        $(this).val(valor);
-                    }
-                });
-            }
+                        $(this).val(valor);
+                    }
+                });
+            }
         }
 
-        function SeleccionarTodosChkGvSucursa() {
-            if ($('#ChkSeleccionarTodos').attr('checked')) {
-                $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', true);
-            } else {
-                $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
-            }
+        function SeleccionarTodosChkGvSucursa() {
+            if ($('#ChkSeleccionarTodos').attr('checked')) {
+                $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', true);
+            } else {
+                $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
+            }
         }
         function FncSeleccionaChk(chk) {
             chk.checked = true;
@@ -421,6 +425,6 @@
 
 
 
-    </script>
-</asp:Content>
-
+    </script>
+</asp:Content>
+

Ventas/ActualizarPrecios.aspx.vb

@@ -130,7 +130,7 @@ Partial Class Ventas_ActualizarPrecios
         If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
             Dim ObjMarcas As New ClsProductosServicios
             If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarca.DataSource = ObjMarcas.DtResultados
+                DdlMarca.DataSource = ObjMarcas.DtResultados.Copy
             End If
             ObjMarcas.Dispose()
             DdlMarca.DataBind()
@@ -145,6 +145,7 @@ Partial Class Ventas_ActualizarPrecios
         Dim objPS As New ClsProductosServicios
         Dim CveProveedor As Integer = -1
         Dim CvePS As Integer = -1
+        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
 
         If DDlPs.SelectedValue.ToEntero > 0 Then
             CvePS = DDlPs.SelectedValue.ToEntero
@@ -155,7 +156,7 @@ Partial Class Ventas_ActualizarPrecios
         End If
 
         If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
-                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
+                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then
             GVPrecios.DataSource = objPS.DtResultados
         End If
         objPS.Dispose()

Ventas/CatMetasVendedores.aspx

@@ -22,7 +22,7 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,CveClasificacionSup,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText ="Vendedor" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
@@ -34,14 +34,14 @@
                             <ajax:ValidatorCalloutExtender ID="VCVendedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVVendedor" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText ="Marca" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText ="Clasificación superior">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMarca" runat="server" Text='<%# Eval("Marca", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlClasificacionSup" runat="server" Text='<%# Eval("ClasificacionSup", "&nbsp;{0}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
-                            <asp:TextBox ID="TxtMarca" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Marca") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVMarca" runat="server" ControlToValidate="TxtMarca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCMarca" runat="server" HighlightCssClass="vco" TargetControlID="RFVMarca" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <asp:TextBox ID="TxtClasificacionSup" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("ClasificacionSup") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVClasificacionSup" runat="server" ControlToValidate="TxtClasificacionSup" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCClasificacionSup" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacionSup" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="Clasificacion">
@@ -54,6 +54,16 @@
                             <ajax:ValidatorCalloutExtender ID="VCClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="Marca" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMarca" runat="server" Text='<%# Eval("Marca", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMarca" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Marca") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMarca" runat="server" ControlToValidate="TxtMarca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMarca" runat="server" HighlightCssClass="vco" TargetControlID="RFVMarca" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField HeaderText ="MesAño">
                         <ItemTemplate>
                             <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "&nbsp;{0}") %>'></asp:Literal>
@@ -120,6 +130,11 @@
                             <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                             <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <label for="DdlMarcas">Clasificacion Superior:</label>
+                            <asp:DropDownList ID="DdlClasificacionSup" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                            <i></i>
+                        </div>
                         <div class="form-group form-md-line-input input-iconright">
                             <label for="DdlMarcas">Clasificacion:</label>
                             <asp:DropDownList ID="DdlClasificacion" runat="server" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me"></asp:DropDownList>

Ventas/CatMetasVendedores.aspx.vb

@@ -45,6 +45,10 @@ Partial Class CatMetasVendedores
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacionSup.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacionSup.DataBind()
+        DdlClasificacionSup.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Protected Sub LnkAgregar_Click() Handles LnkAgregar.Click
@@ -53,24 +57,26 @@ Partial Class CatMetasVendedores
 
     Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click
 
-        If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 Then
+        If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0 Then
+
             Dim ObjVentas As New ClsVentas
             If BtnAgregarMetaVendedor.Text = "Agregar" Then
                 If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
-                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero) Then
+                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero) Then
                     Alert("Se agregó la meta al vendedor")
                 Else
                     Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
                 End If
             ElseIf BtnAgregarMetaVendedor.Text = "Actualizar" Then
                 If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero,
-                                                   TxtMetaCantidad.TextMode.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero) Then
+                                                   TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero,
+                                                   DdlClasificacionSup.SelectedValue.ToEntero) Then
                     Alert("Se actualizó la información de la meta del vendedor")
                 Else
                     Alert("No se pudo actualizar la meta del vendedor", TipoMensaje.MsgError)
                 End If
             End If
-            Else
+        Else
             Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
         End If
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
@@ -94,6 +100,7 @@ Partial Class CatMetasVendedores
         CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero
         DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor")
         TxtFechaI.Text = GvRow.DataKey("MesAño")
+        DdlClasificacionSup.SelectedValue = GvRow.DataKey("CveClasificacionSup")
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion")
         DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca")
         TxtMetaCantidad.Text = GvRow.DataKey("MetaCantidad")

Ventas/Clientes.aspx

@@ -3807,7 +3807,9 @@
 
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
                                                                     <ItemTemplate>
-                                                                        <asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>
+                                                                        <%--<asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>--%>
+                                                                        <asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="DownLoad_ClickDocumentacion" runat="server"
+                                                                            Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
 

Ventas/Clientes.aspx.vb

@@ -6884,6 +6884,60 @@ Partial Class Clientes
         ObjEdoc.Dispose()
 
     End Sub
+    Public Sub DownLoad_ClickDocumentacion(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Adjunto As String = GvRow.DataKey("Adjunto")
+        'Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
+        Dim linkDescarga As String = "C:\inetpub\wwwSIGGIT\Empresas\140\DocElectronica\Clientes\271110\Pagaré.docx"
+
+        Dim memoryStreamDoc As New System.IO.MemoryStream
+        Dim objGemBoxDocument As New clsGemBoxDocument(linkDescarga)
+        Dim Tags As New List(Of TagsDocumentos)
+        Dim ObjClientes As New ClsClientes
+
+        Dim monto As String = ""
+        Dim razonSocial As String = ""
+        Dim direccion As String = ""
+        Dim ciudad As String = ""
+        Dim Telefono As String = ""
+        Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+        Dim hoy As DateTime = DateTime.Now
+        Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
+
+        If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
+            razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
+            direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
+            ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
+            Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
+        End If
+
+        Tags.Add(New TagsDocumentos("{Monto}", monto))
+        Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
+        Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
+        Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
+        Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
+        Tags.Add(New TagsDocumentos("{Direccion}", direccion))
+        Tags.Add(New TagsDocumentos("{Ciudad}", ciudad))
+        Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
+        Tags.Add(New TagsDocumentos("{RazonSocialAval}", UsuarioActual.Empresa.NombreCorto))
+        Tags.Add(New TagsDocumentos("{DireccionAval}", UsuarioActual.Empresa.Direccion))
+        Tags.Add(New TagsDocumentos("{CiudadAval}", UsuarioActual.Empresa.Ciudad))
+        Tags.Add(New TagsDocumentos("{TelefonoAval}", UsuarioActual.Empresa.Telefono))
+
+        'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
+        objGemBoxDocument.SustituirTags(Tags)
+        objGemBoxDocument.GuardarStream()
+        Dim memoryStream As New System.IO.MemoryStream(objGemBoxDocument.GetBytesDocumento())
+        objGemBoxDocument.Dispose()
+        Response.Clear()
+        Response.ContentType = "application/text"
+        Response.AddHeader("content-disposition", "attachment;filename=pagare.docx")
+        Response.Buffer = True
+        MemoryStream.WriteTo(Response.OutputStream)
+        Response.End()
+    End Sub
+
     Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosCliente.RowDataBound
 
 
@@ -6891,7 +6945,8 @@ Partial Class Clientes
 
             Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
             Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
-            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+            'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+            Dim LnkDownLoadDoc As LinkButton = e.Row.FCLinkButton("LnkDownLoadDoc")
             Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
             Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
             Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
@@ -6941,10 +6996,11 @@ Partial Class Clientes
             End If
 
             If documentacionFormato = "" Then
-                ImgDownLoadFormato.Visible = False
+                'ImgDownLoadFormato.Visible = False
+                LnkDownLoadDoc.Visible = False
             Else
                 Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
-                ImgDownLoadFormato.Visible = True
+                LnkDownLoadDoc.Visible = True
             End If
 
             txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
@@ -6956,17 +7012,18 @@ Partial Class Clientes
 
                 If File.Exists(linkDescargaArchivo) Then
 
-                    ImgDownLoad.Visible = True
-                    If extencion.Length > 0 Then
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion & "." & extencion)
-                    Else
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion)
-                    End If
+                    LnkDownLoadDoc.Visible = True
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
+                    'If extencion.Length > 0 Then
+                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion & "." & extencion)
+                    'Else
+                    '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion)
+                    'End If
                 Else
-                    ImgDownLoad.Visible = False
+                    LnkDownLoadDoc.Visible = False
                 End If
             Else
-                ImgDownLoad.Visible = False
+                LnkDownLoadDoc.Visible = False
             End If
 
             If requerido Then
@@ -6975,7 +7032,7 @@ Partial Class Clientes
                 ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
             End If
 
-            If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString.ToEntero = 1 And ImgDownLoad.Visible Then
+            If UsuarioActual.TienePermisoProceso(248) And e.Row.DBCampo("Estatus").ToString.ToEntero = 1 And LnkDownLoadDoc.Visible Then
                 e.Row.FCLinkButton("LnkGvDocumentosEliminar").Visible = True
             End If
 

Ventas/MetasVendedores.aspx

@@ -37,14 +37,16 @@
             padding-right: 4px !important;
             padding-left: 4px !important;
         }
-        .GrupoSuperior{
-            background-color:#000077;
-            color:white;
-            font-weight:bold;
-        }
-        .GrupoSuperior:hover{
-            background-color:#000077;
+
+        .GrupoSuperior {
+            background-color: #000077;
+            color: white;
+            font-weight: bold;
         }
+
+            .GrupoSuperior:hover {
+                background-color: #000077;
+            }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -63,16 +65,15 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpFiltros">
         <ContentTemplate>
-            <div class="portlet solid grey-cascade portlet-filter" style="">
-                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 122px; position: relative;">
+            <div class="portlet solid grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 45px; position: relative;">
                     <div class="tools">
                         <asp:Button ID="btConsultar" CssClass="btn btn-primary" runat="server" ValidationGroup="GrpConsultar" Text="Consultar" /></td>
-                        <a href="javascript:;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
                         <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros caption magindate">
                         <div class="row">
-
                             <div class="col-md-1 truncate text-right">Fecha del mes: </div>
                             <div class="col-md-3 col-sm-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
@@ -83,44 +84,12 @@
                                 </div>
                                 <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaMes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaMes" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
                             </div>
 
                             <div class="col-md-1 text-right">Sucursal: </div>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
                             </div>
-                            <label class="col-md-1 text-right">Marca: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%"></asp:DropDownList>
-                            </div>
-                        </div>
-                        <div class="row" style="margin-top: 10px">
-
-                            <label class="col-md-1 text-right">Vendedor: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlVendedorFiltro" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
-                            </div>
-
-                            <label class="col-md-1 text-right">Categoria: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 text-right">Clasificaciones: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
-                            </div>
-                        </div>
-                        <div class="row" style="margin-top: 10px">
-
-                            <label class="col-md-1 text-right">Sub Clasificaciones: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlClasificacion2" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
-                            </div>
-                            <label class="col-md-1 text-right">Cliente: </label>
-                            <div class="col-md-3">
-                                <asp:DropDownList ID="DdlCliente" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCliente" DataTextField="NombreComercial"></asp:DropDownList>
-                            </div>
                             <label class="col-md-1 text-right">Grupo: </label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlGrupo" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%">
@@ -130,13 +99,37 @@
                                 </asp:DropDownList>
                             </div>
                         </div>
-
                     </div>
                 </div>
                 <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
+                        <label class="col-md-1 text-right">Vendedor: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlVendedorFiltro" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveVendedor" DataTextField="Vendedor"></asp:DropDownList>
+                        </div>
+
+                        <label class="col-md-1 text-right">Categoria: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 text-right">Clasificaciones: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                        </div>
                     </div>
                     <div class="row">
+                        <label class="col-md-1 text-right">Sub Clasificaciones: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 text-right">Cliente: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlCliente" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCliente" DataTextField="NombreComercial"></asp:DropDownList>
+                        </div>
+                        <label class="col-md-1 text-right">Marca: </label>
+                        <div class="col-md-3">
+                            <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%"></asp:DropDownList>
+                        </div>
                     </div>
                     <div id="DivFamiliaSubFamilia" class="row" runat="server" visible="false">
                     </div>
@@ -148,7 +141,7 @@
         <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
             <ContentTemplate>
                 <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Titulo,Etiqueta,RealMes,VtaMesAA,RealAcumulado,RealMesPorcentaje"
-                    CssClass="table table-striped table-advance Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    CssClass="table table-advance Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                     <Columns>
                         <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">

Ventas/MetasVendedores.aspx.vb

@@ -80,16 +80,16 @@ Partial Class MetasVendedores
             Select Case e.Row.DataKey("Etiqueta")
                 Case "GrupoSuperior"
                     e.Row.CssClass = "GrupoSuperior"
-                    e.Row.FCLabel("lblRealMes").Text = ""
-                    e.Row.FCLabel("lblVtaMesAA").Text = ""
-                    e.Row.FCLabel("lblObjMes").Text = ""
-                    e.Row.FCLabel("lblRealAcumulado").Text = ""
-                    e.Row.FCLabel("lblRealMesPorcentaje").Text = ""
-                    e.Row.FCLabel("lblAAntAcumulado").Text = ""
-                    e.Row.FCLabel("lblObjAcumulado").Text = ""
-                    e.Row.FCLabel("lblVarVSAAPerc").Text = ""
-                    e.Row.FCLabel("lblVarVSAA").Text = ""
-                    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
+                '    e.Row.FCLabel("lblRealMes").Text = ""
+                '    e.Row.FCLabel("lblVtaMesAA").Text = ""
+                '    e.Row.FCLabel("lblObjMes").Text = ""
+                '    e.Row.FCLabel("lblRealAcumulado").Text = ""
+                '    e.Row.FCLabel("lblRealMesPorcentaje").Text = ""
+                '    e.Row.FCLabel("lblAAntAcumulado").Text = ""
+                '    e.Row.FCLabel("lblObjAcumulado").Text = ""
+                '    e.Row.FCLabel("lblVarVSAAPerc").Text = ""
+                '    e.Row.FCLabel("lblVarVSAA").Text = ""
+                '    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
                 Case "Categoria"
                     e.Row.CssClass = "Totales"
                 Case "Clasificacion"

Ventas/PV.aspx

@@ -3017,7 +3017,7 @@
                 return;
             //AUTOMOTRIZ-ACUMULADORES
             } else {
-                let regex = new RegExp("^[1X]|^[0-9][A-HJ-M]([[0-2][0-9]|3[0-1])[0-9A-Z][ACEN][2-5]$");
+                let regex = new RegExp("^[1X]|^[0-9][A-HJ-M][0-3][0-9][A-Z][ACEN][2-5]$");
                 arguments.IsValid = regex.test(arguments.Value);
                 return;
             }

Ventas/PV.aspx.vb

@@ -5772,7 +5772,7 @@ Partial Class PV
 
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If

Ventas/Promociones.aspx

@@ -107,9 +107,8 @@
                             <div class="row">
                                 <label class="col-md-2 truncate">Cliente:</label>
                                 <div class="col-md-4">
-                                    <asp:DropDownList ID="DdlCliente" DataTextField="NombreComercial" DataValueField="CveCliente" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RFVCliente" runat="server" ControlToValidate="DdlCliente" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RFVCliente" Width="300px"></ajax:ValidatorCalloutExtender>
+                                      <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                                     </ADS:Dropdownlost>
                                 </div>
                             </div>
 
@@ -117,7 +116,7 @@
                                 <label class="col-md-2 truncate">Moneda:</label>
                                 <div class="col-md-4">
                                     <asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlCliente" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
@@ -139,6 +138,13 @@
                                     </asp:DropDownList>
                                 </div>
                             </div>
+
+                            <div class="row">
+                                <label class="col-md-2 truncate">Marca:</label>
+                                <div class="col-md-4">
+                                    <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
+                                </div>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -171,7 +177,7 @@
                         </div>
                         <div class="portlet-body form">
 
-                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
+                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima, CveRinTamaño" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
                                 <Columns>
                                     <asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
                                     <%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
@@ -181,6 +187,7 @@
                                     <asp:BoundField HeaderText="P.U. Promoción" DataField="PUPromocion" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
                                     <asp:BoundField HeaderText="Condiciones" ItemStyle-HorizontalAlign="Center" DataField="AplicaRestriccionTexto" ItemStyle-Width="15%" />
                                     <asp:BoundField HeaderText="Clasificacion" ItemStyle-HorizontalAlign="Left" DataField="Clasificacion"/>
+                                    <asp:BoundField HeaderText="Rin" ItemStyle-HorizontalAlign="Left" DataField="RinTamaño" Visible="false"/>
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                         <ItemTemplate>
                                             <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandArgument='<%# Container.DataItemIndex%>' CommandName="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
@@ -276,6 +283,16 @@
                                 </div>
                             </div>
 
+                            <div class="row" runat="server" id="DivRin" visible="false">
+                                <label class="col-md-3 truncate">Rin:</label>
+                                <div class="col-md-9">
+                                    <asp:DropDownList ID="DdlRin" DataTextField="RinTamaño" DataValueField="CveRinTamaño" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPromocion_SelectedIndexChanged">
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" InitialValue="-1" ControlToValidate="DdlTipoPromocion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Promoción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+
                             <div class="row">
                                 <label class="col-md-3 truncate">Condiciones:</label>
                                 <div class="col-md-9">

Ventas/Promociones.aspx.vb

@@ -66,7 +66,7 @@ Partial Class Ventas_Promociones
 #Region "  VALORES INICIALES  "
 
     Private Sub CargaValoresIniciales()
-
+        Dim ObjPS As New ClsProductosServicios
         'CLASIFICACIONES
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
@@ -87,12 +87,33 @@ Partial Class Ventas_Promociones
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem("todos", "-1"))
+        'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlCliente.DataBind()
+        'DdlCliente.Items.Insert(0, New ListItem("todos", "-1"))
+        DdlClientes.setEsWebService(True)
 
         TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
         TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            GvDatos.Columns(7).Visible = True
+            DivRin.Visible = True
+            Dim ObjGral As New ClsGenerales
+            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+                DdlRin.DataSource = ObjGral.DtResultados
+            End If
+            ObjGral.Dispose()
+            DdlRin.DataBind()
+            DdlRin.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
     End Sub
 
     Private Sub CreaDT()
@@ -107,9 +128,11 @@ Partial Class Ventas_Promociones
         TempDT.Columns.Add("PUAnterior", GetType(Decimal))
         TempDT.Columns.Add("PUPromocion", GetType(Decimal))
         TempDT.Columns.Add("CveTipoPromocion", GetType(Integer))
+        TempDT.Columns.Add("CveRinTamaño", GetType(Integer))
         TempDT.Columns.Add("TipoPromocion", GetType(String))
         TempDT.Columns.Add("Promocion", GetType(String))
         TempDT.Columns.Add("CantidadMinima", GetType(Integer))
+        TempDT.Columns.Add("RinTamaño", GetType(String))
 
         TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String))
         TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean))
@@ -128,7 +151,7 @@ Partial Class Ventas_Promociones
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
         ChangeDdlProducto()
         DdlTipoPromocion.Items.FindByValue("1").Enabled = False
-        DdlTipoPromocion.Items.FindByValue("3").Enabled = False
+        ' DdlTipoPromocion.Items.FindByValue("3").Enabled = False
     End Sub
     Private Sub ChangeDdlProducto()
         If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
@@ -162,10 +185,12 @@ Partial Class Ventas_Promociones
             TxtFechaI.Text = Dr("FechaInicio").ToString.ToDate.ToShortDateString
             TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
             DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
+            DdlMarca.SelectedValue = Dr("CveMarca").ToString
             If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
-            If Dr("CveCliente").ToString.ToEntero > 0 Then DdlCliente.SelectedValue = Dr("CveCliente").ToString
+            If Dr("CveCliente").ToString.ToEntero > 0 Then DdlClientes.SelectedValue = Dr("CveCliente").ToString
             ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
             DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
+            DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)
 
             If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
                 TempDT = ObjVentas.DtResultados
@@ -294,6 +319,12 @@ Partial Class Ventas_Promociones
             Dr("AplicaDomingo") = False
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            Dr("CveRinTamaño") = DdlRin.SelectedValue.ToEntero
+        Else
+            Dr("CveRinTamaño") = -1
+        End If
+
         If CveConsecutivo >= 0 Then
             Dr.AcceptChanges()
         Else
@@ -322,7 +353,7 @@ Partial Class Ventas_Promociones
 
             RegistraScript("$('#DivAgregar').modal('show')")
             CveConsecutivo = e.CommandArgument.ToString.ToEntero
-
+            DdlRin.SelectedValue = Gvr.DataKey("CveRinTamaño")
             DdlClasificacion.SelectedValue = Gvr.DataKey("CveClasificacion")
             ChangeDdlProducto()
             If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
@@ -383,19 +414,20 @@ Partial Class Ventas_Promociones
 
 
     Private Sub GuardaPromocion()
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
         Dim ObjVentas As New ClsVentas
         Dim TieneError = False
         ObjVentas.IniciaTransacSQL()
         CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
-                                                DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
-                                                UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString)
+                                                DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
+                                                UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToString, DdlMarca.SelectedValue.ToEntero)
 
         If CvePromocion > 0 Then
             For Each Dr As DataRow In TempDT.Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
                                                        Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero,
-                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero)) Then
+                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero) Then
                     TieneError = True
                     Exit For
                 End If
@@ -415,11 +447,13 @@ Partial Class Ventas_Promociones
         ObjVentas.Dispose()
     End Sub
     Private Sub ActualizaPromocion()
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
+
         Dim ObjVentas As New ClsVentas
         Dim TieneError = False
         ObjVentas.IniciaTransacSQL()
 
-        If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CvePromocion, DdlSubProyecto.SelectedValue.ToEntero) Then
+        If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero) Then
 
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,

Ventas/RepIngresos.aspx.vb

@@ -144,10 +144,10 @@ Partial Class Ventas_RepIngresos
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
-        Dim FI As String = If(TxtFechaInicio.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaInicio.Text}")
-        Dim FF As String = If(TxtFechaFin.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaFin.Text}")
-        Dim Tipo As String = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo Docto.:</b>&nbsp;{DdlTipoDocto.SelectedItem.Text}")
-        Dim subProy As String = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>SubProyecto:</b>&nbsp;{DdlSubProyecto.SelectedItem.Text}")
+        Dim FI As String = If(TxtFechaInicio.Text = "", "", $"Fecha Inicio: {TxtFechaInicio.Text} ")
+        Dim FF As String = If(TxtFechaFin.Text = "", "", $"Fecha Fin: {TxtFechaFin.Text} ")
+        Dim Tipo As String = If(DdlTipoDocto.SelectedValue = "", "", $"Tipo Docto: {DdlTipoDocto.GetSelectedText} ")
+        Dim subProy As String = If(DdlSubProyecto.SelectedValue = "", "", $"SubProyecto: {DdlSubProyecto.GetSelectedText} ")
 
         If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
 
@@ -156,7 +156,7 @@ Partial Class Ventas_RepIngresos
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{Tipo}{subProy}"))
-
+            params.Add(New ReportParameter("FechaImpresion", DateAndTime.Now))
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
             Else

Ventas/RepProductosServicios.aspx.vb

@@ -69,7 +69,7 @@ Partial Class Ventas_RepProductosServicios
 
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
-        DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
+        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
         DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
         DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
         DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
@@ -493,7 +493,21 @@ Partial Class Ventas_RepProductosServicios
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.ToDate, MinFecha)
-        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
+        FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
+
+        Dim Cliente = If(DdlClientes.SelectedText = "", "", $"&emsp;<b>Cliente:</b>&nbsp;{DdlClientes.SelectedText}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
+        Dim FechaInicio = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaI.Text}")
+        Dim FechaFin = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{txtFechaF.Text}")
+        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Agrupado por:</b>&nbsp;{DdlGrupo.SelectedItem.Text}")
+        Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text }")
+        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
+        Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S.:</b>&nbsp;{DdlPS.SelectedText}")
+        Dim Proyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b>&nbsp;{DdlSubProyecto.SelectedItem.Text}")
+        Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.SelectedItem.Text}")
+        Dim Usuario = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
+
+
         If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
             Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -503,7 +517,8 @@ Partial Class Ventas_RepProductosServicios
             params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text <> "", FechaF.ToShortDateString, "")))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("Filtros", $"{Grupo}{Cliente}{FechaInicio}{FechaFin}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{Proveedor}"))
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
             Else

Ventas/RepVentaDetalle.aspx.vb

@@ -376,7 +376,7 @@ Partial Class RepVentaDetalle
     Private Sub CargaEstatus()
         DdlEstatus.Items.Clear()
         If DdlTipoComprobante.GetSelectedText <> "" Then
-            DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0})", DdlTipoComprobante.GetSelectedValuesM(True)))
+            DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0})", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing")))
         Else
             DdlEstatus.DataSource = GlobalDTEstatusFactura
         End If

Ventas/Ventas.aspx

@@ -1599,7 +1599,7 @@
                                 <div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server">
                                     <div class="portlet-title">
                                         <div class="caption">
-                                            <i class="fa fa-dropbox"></i>Salida Almacen
+                                            <i class="fa fa-dropbox"></i><asp:Literal ID="LltSalidaAlmacen" runat="server" Text="Salida Almacen"></asp:Literal> 
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -3355,7 +3355,7 @@
                                     <asp:Button ID="BtnGenerarRemision" runat="server" Text="Generar Remisión" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la remisión?" data-btn-ok-label="si" />
                                     <asp:Button ID="BtnGeneraAutorizacion" runat="server" Text="Generar Autorización" OnClick="BtnGeneraAutorizacion_Click" Visible="false" ValidationGroup="GrpEmitirImprimir" CssClass="btn myventasbutton btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea generar la autorización?" data-btn-ok-label="si" />
 
-
+                                    <%--<asp:Button ID="Button2" runat="server" Text="Button" />--%>
                                     <asp:Button ID="BtnGenerarPoliza" runat="server" Text="GenerarPoliza" Visible="false" CssClass="btn myventasbutton btn-primary" />
                                     <asp:Button ID="BtnGenerarOS" runat="server" Text="Generar OS" Visible="false" CssClass="btn myventasbutton btn-primary" />
 
@@ -3364,8 +3364,7 @@
 
                                     <asp:Button ID="BtnEditarRemision" runat="server" Text="Actualizar Remision" CssClass="btn myventasbutton btn-primary" Visible="false" />
                                     <asp:Button ID="BtnPermisoEditarRemision" runat="server" Text="Editar Remision" CssClass="btn myventasbutton btn-primary" Visible="false" />
-
-
+ 
                                     <asp:Button ID="BtnMandaMail" runat="server" Text="MandaMail" CssClass="btn myventasbutton btn-primary" Visible="false" />
                                     <asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
 

WebCaudillo20200311.config

@@ -0,0 +1,428 @@
+<?xml version="1.0"?>
+<!-- 
+    Note: As an alternative to hand editing this file you can use the 
+    web admin tool to configure settings for your application. Use
+    the Website->Asp.Net Configuration option in Visual Studio.
+    A full list of settings and comments can be found in 
+    machine.config.comments usually located in 
+    \Windows\Microsoft.Net\Framework\vx.x\Config 
+-->
+<configuration>
+  <configSections>
+    <section name="ajaxControlToolkit" type="AjaxControlToolkit.AjaxControlToolkitConfigSection, AjaxControlToolkit"/>
+    <sectionGroup name="businessObjects">
+      <sectionGroup name="crystalReports">
+        <section name="rptBuildProvider" type="CrystalDecisions.Shared.RptBuildProviderHandler, CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304, Custom=null"/>
+        <section name="crystalReportViewer" type="System.Configuration.NameValueSectionHandler"/>
+      </sectionGroup>
+    </sectionGroup>
+  </configSections>
+  <ajaxControlToolkit useStaticResources="true" renderStyleLinks="false" htmlSanitizer="AjaxControlToolkit.HtmlEditor.Sanitizer.DefaultHtmlSanitizer, AjaxControlToolkit.HtmlEditor.Sanitizer"/>
+  <businessObjects>
+    <crystalReports>
+      <rptBuildProvider>
+        <add embedRptInResource="true"/>
+      </rptBuildProvider>
+      <crystalReportViewer>
+        <add key="ResourceUri" value="/aspnet_client/system_web/4_0_30319/crystalreportviewers"/>
+      </crystalReportViewer>
+    </crystalReports>
+  </businessObjects>
+  <system.webServer>
+    <staticContent>
+      <remove fileExtension=".woff"/>
+      <remove fileExtension=".woff2"/>
+      <mimeMap fileExtension=".woff" mimeType="application/x-font-woff"/>
+      <mimeMap fileExtension=".woff2" mimeType="application/font-woff2"/>
+    </staticContent>
+    <handlers>
+      <remove name="ChartImageHandler"/>
+      <add name="AspMap.Web.ImageHandler" path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET" preCondition="integratedMode"/>
+      <add name="ChartImageHandler" preCondition="integratedMode" verb="GET,HEAD,POST" path="ChartImg.axd" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
+      <add name="CrystalImageHandler.aspx_GET" verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304" preCondition="integratedMode"/>
+      <add name="ReportViewerWebControlHandler" preCondition="integratedMode" verb="*" path="Reserved.ReportViewerWebControl.axd" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
+      <add name="AjaxFileUploadHandler" verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit"/>
+      <remove name="ExtensionlessUrlHandler-Integrated-4.0"/>
+      <remove name="OPTIONSVerbHandler"/>
+      <remove name="TRACEVerbHandler"/>
+      <add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0"/>
+    </handlers>
+    <defaultDocument>
+      <files>
+        <add value="Inicio.aspx"/>
+      </files>
+    </defaultDocument>
+    <validation validateIntegratedModeConfiguration="false"/>
+  </system.webServer>
+  <!-- BLOQUEO, NO es accesible a todos los usuarios -->
+  <location path="Empresas">
+    <system.web>
+      <authorization>
+        <deny users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <!-- Esta página, es accesible a todos los usuarios -->
+  <location path="Portal">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="PortalGPS">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Proveedores">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="bundles">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Scripts">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Content">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Metronic">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="AIMMGM">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Ashx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Asmx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Loginx.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Login2.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="OC/CotizacionEnLinea.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="ZDG/WhatsApp.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="ZDG/MensajeAutomatico.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Sistemas/WsRespaldos.asmx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Sistemas/NotificacionesEnlinea.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="Politicas.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="ScriptResource.axd">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <location path="PortalGPS/ServiciosGPS.aspx">
+    <system.web>
+      <authorization>
+        <allow users="*"/>
+      </authorization>
+    </system.web>
+  </location>
+  <appSettings>
+    <add key="ChartImageHandler" value="storage=file;timeout=5;dir=C:\inetpub\wwwVentas\Temp;"/>
+    <add key="CrystalImageCleaner-AutoStart" value="true"/>
+    <add key="CrystalImageCleaner-Sleep" value="60000"/>
+    <add key="CrystalImageCleaner-Age" value="120000"/>
+    <add key="ValidationSettings:UnobtrusiveValidationMode" value="None"/>
+    <add key="aspnet:MaxHttpCollectionKeys" value="50000"/>
+    <add key="ContPAQDescargas" value="D:\Compac\Empresas\"/>
+    <add key="RespaldosArchivos" value="\\WIN-80TBS47AVIU\Compac\Empresas\"/>
+    <add key="UrlSitio" value="http://sig.adsistemas.mx/"/>
+    <add key="UrlDirecciones" value="https://addr.signalsgps.com/"/>
+    <add key="EsProduccion" value="0"/>
+  </appSettings>
+  <connectionStrings>
+    <add name="ConexionBD" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_OIC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexion" connectionString="Data Source=192.168.10.111;Initial Catalog=SIG_Resp_OIC;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexionz" connectionString="Data Source=192.168.10.111;Initial Catalog=Ventas20190424;User Id=Usuario;Password=Desarrollo2019;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexiozg" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexionpepper" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexiongdfg" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexionn" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_Pepper;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="ConexionJ" connectionString="Data Source=192.168.0.2;Initial Catalog=Ventas;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="Conexionoscafr" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_OIC;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="ConexionJLC2" connectionString="Data Source=192.168.10.111\server2017,1533;Initial Catalog=SIG_Resp_JLC2;User Id=Usuario;Password=Desarrollo2017;pooling=True; Min Pool Size=10;Application Name=SIGJLC;"/>
+    <add name="ConexionProd" connectionString="Data Source=192.168.0.2;Initial Catalog=Ventas;User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+    <add name="Conexionzxyu" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas2;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+    <add name="Conexionlocal" connectionString="Data Source=Caudillo\Cauditronic;Initial Catalog=Ventas3;User Id=sa;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+    <add name="Conexion8" connectionString="Data Source=(local);Initial Catalog=Ventas;User Id=RMolina;Password=RMol156.321;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+    <add name="ConexionContPAQi" connectionString="Data Source=192.168.0.2\COMPAC,1430;User Id=RMolina;Password=Rene2013;"/>
+    <add name="ConexionDG" connectionString="Data Source=192.168.0.2;Initial Catalog=DG2016;User Id=IPina;Password=IsrPin2708*987;pooling=True; Min Pool Size=10;Application Name=SIG;"/>
+  </connectionStrings>
+  <system.web>
+    <!-- 
+            Set compilation debug="true" to insert debugging 
+            symbols into the compiled page. Because this 
+            affects performance, set this value to true only 
+            during development.
+        -->
+    <httpHandlers>
+      <add path="ChartImg.axd" verb="GET,HEAD,POST" type="System.Web.UI.DataVisualization.Charting.ChartHttpHandler, System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" validate="false"/>
+      <add path="MapImageHandler.axd" verb="*" type="AspMap.Web.ImageHandler, AspMapNET"/>
+      <add path="Reserved.ReportViewerWebControl.axd" verb="*" type="Microsoft.Reporting.WebForms.HttpHandler, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" validate="false"/>
+      <add verb="GET" path="CrystalImageHandler.aspx" type="CrystalDecisions.Web.CrystalImageHandler, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+      <add verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit"/>
+    </httpHandlers>
+    <pages>
+      <controls>
+        <add assembly="Microsoft.AspNet.Web.Optimization.WebForms" namespace="Microsoft.AspNet.Web.Optimization.WebForms" tagPrefix="webopt"/>
+        <add tagPrefix="asp" namespace="System.Web.UI.DataVisualization.Charting" assembly="System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
+        <add tagPrefix="ADS" namespace="ADServerControl" assembly="ADServerControl"/>
+        <add tagPrefix="ajax" namespace="AjaxControlToolkit" assembly="AjaxControlToolkit"/>
+        <add tagPrefix="CR" namespace="CrystalDecisions.Web" assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <add tagPrefix="rvweb" namespace="Microsoft.Reporting.WebForms" assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
+        <add tagPrefix="telerik" namespace="Telerik.Web.UI" assembly="Telerik.Web.UI"/>
+      </controls>
+    </pages>
+    <globalization culture="es-MX" uiCulture="es-MX"/>
+    <httpRuntime executionTimeout="200" maxRequestLength="1550000" targetFramework="4.5"/>
+    <compilation debug="true" strict="true" explicit="true" targetFramework="4.5">
+      <assemblies>
+        <!--<add assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
+        <add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>-->
+        <!--<add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <add assembly="CrystalDecisions.ReportSource, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <add assembly="CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <add assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+        <add assembly="CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>-->
+        <add assembly="Microsoft.SqlServer.Types, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
+        <add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
+        <add assembly="Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91"/>
+        <!--<add assembly="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />
+        <add assembly="Microsoft.ReportViewer.ProcessingObjectModel, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845DCD8080CC91" />-->
+        <!--<add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.ReportSource, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+         <add assembly="CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>-->
+        <add assembly="System.IO.Compression, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
+        <add assembly="System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
+        <add assembly="Stimulsoft.Report, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Stimulsoft.Report.Web, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Stimulsoft.Report.WebDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Stimulsoft.Base, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Stimulsoft.Report.MobileDesign, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Stimulsoft.Report.Mobile, Version=2017.1.10, Culture=neutral, PublicKeyToken=EBE6666CBA19647A"/>
+        <add assembly="Microsoft.VisualBasic, Version=10.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
+        <add assembly="System.Net.Http, Version=4.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
+        <add assembly="stdole, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
+        <add assembly="CrystalDecisions.CrystalReports.Engine, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.Shared, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.ReportSource, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.Web, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <!--<add assembly="log4net, Version=1.2.10.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/> -->
+        <add assembly="CrystalDecisions.ReportAppServer.Controllers, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+        <add assembly="CrystalDecisions.ReportAppServer.DataDefModel, Version=13.0.3500.0, Culture=neutral, PublicKeyToken=692FBEA5521E1304"/>
+      </assemblies>
+      <buildProviders>
+        <add extension=".rdlc" type="Microsoft.Reporting.RdlBuildProvider, Microsoft.ReportViewer.WebForms, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91"/>
+        <add extension=".rpt" type="CrystalDecisions.Web.Compilation.RptBuildProvider, CrystalDecisions.Web, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304"/>
+      </buildProviders>
+    </compilation>
+    <!--
+          The <authentication> section enables configuration 
+          of the security authentication mode used by 
+          ASP.NET to identify an incoming user. 
+        -->
+    <authentication mode="Forms">
+      <forms loginUrl="LogIn.aspx" protection="All" timeout="90" name=".ASPXSIG" path="/" requireSSL="false" slidingExpiration="true" defaultUrl="Inicio.aspx" cookieless="UseDeviceProfile" enableCrossAppRedirects="false"/>
+    </authentication>
+    <authorization>
+      <deny users="?"/>
+    </authorization>
+    <customErrors mode="Off"/>
+    <machineKey validationKey="729966AC958271629627612BB77B2B02A3F24EE20B16FBE6F3E62E4029CE2B11E24CA9EEFDC4B22406550B3C58691B765B093D2C90C15E08AF147B6DBB962F6B" decryptionKey="F73E5A8FB4ED7CB9D5EC4DEE876FEDAD4F5E6829FCB1B590670A8112F8EB7D8F" validation="SHA1" decryption="AES"/>
+    <!-- <sessionState mode="InProc" regenerateExpiredSessionId="true" timeout="60" compressionEnabled="false" />
+    
+           The <customErrors> section enables configuration 
+           of what to do if/when an unhandled error occurs 
+           during the execution of a request. Specifically, 
+           it enables developers to configure html error pages 
+           to be displayed in place of a error stack trace.
+
+           <customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
+             <error statusCode="403" redirect="NoAccess.htm" />
+             <error statusCode="404" redirect="FileNotFound.htm" />
+           </customErrors>
+            -->
+    <sessionState cookieless="UseCookies" customProvider="NCacheSessionProvider" mode="InProc" regenerateExpiredSessionId="true" timeout="120">
+      <providers>
+        <add name="NCacheSessionProvider" type="Alachisoft.NCache.Web.SessionState.NSessionStoreProvider" sessionAppId="WebF1" cacheName="locCache" writeExceptionsToEventLog="false" asyncSession="false" enableLogs="false"/>
+      </providers>
+    </sessionState>
+    <!--<machineKey validationKey="A01D6E0D1A5D2A22E0854CA612FE5C5EC4AECF24" decryptionKey="ACD8EBF87C4C8937" validation="SHA1" />-->
+    <!--
+           The <customErrors> section enables configuration 
+           of what to do if/when an unhandled error occurs 
+           during the execution of a request. Specifically, 
+           it enables developers to configure html error pages 
+           to be displayed in place of a error stack trace.
+
+           <customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
+             <error statusCode="403" redirect="NoAccess.htm" />
+             <error statusCode="404" redirect="FileNotFound.htm" />
+           </customErrors>
+        -->
+  </system.web>
+  <system.serviceModel>
+    <bindings>
+      <basicHttpBinding>
+        <binding name="DgieWSPortSoapBinding"/>
+        <binding name="Service1Soap"/>
+        <binding name="Service1Soap1"/>
+        <binding name="Timbrado33Soap" closeTimeout="00:01:00" openTimeout="00:01:00" receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false" bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard" maxBufferPoolSize="524288" maxBufferSize="5242880" maxReceivedMessageSize="5242880" textEncoding="utf-8" transferMode="Buffered" useDefaultWebProxy="true" messageEncoding="Text">
+          <readerQuotas maxDepth="32" maxStringContentLength="5242880" maxArrayLength="32768" maxBytesPerRead="4096" maxNameTableCharCount="32768"/>
+          <security mode="Transport">
+            <transport clientCredentialType="None" proxyCredentialType="None" realm=""/>
+            <message clientCredentialType="UserName" algorithmSuite="Default"/>
+          </security>
+        </binding>
+      </basicHttpBinding>
+    </bindings>
+    <client>
+      <endpoint address="http://www.banxico.org.mx/DgieWSWeb/DgieWS" binding="basicHttpBinding" bindingConfiguration="DgieWSPortSoapBinding" contract="WSBancoMexico.DgieWSPort" name="DgieWSPort"/>
+      <endpoint address="http://generacfdi.com.mx/wsconsultas/service1.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap" contract="WSRVConsultas.Service1Soap" name="Service1Soap"/>
+      <endpoint address="http://192.168.0.2:8080/ADSistemas/Timbrado.asmx" binding="basicHttpBinding" bindingConfiguration="Service1Soap1" contract="WSGF.Service1Soap" name="Service1Soap1"/>
+      <endpoint address="https://cfdi33-pruebas.buzoncfdi.mx:1443/Timbrado.asmx" binding="basicHttpBinding" bindingConfiguration="Timbrado33Soap" contract="wsReference33.TimbradoSoap" name="Timbrado33SoapPruebas"/>
+    </client>
+  </system.serviceModel>
+  <!--  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="AjaxControlToolkit" publicKeyToken="28f01b0e84b6d53e" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.7.1213" newVersion="4.1.7.1213" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>-->
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" culture="neutral" publicKeyToken="30ad4fe6b2a6aeed"/>
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="WebGrease" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
+        <bindingRedirect oldVersion="0.0.0.0-1.5.2.14234" newVersion="1.5.2.14234"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="EntityFramework" publicKeyToken="b77a5c561934e089"/>
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Owin" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
+        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Owin.Security.OAuth" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
+        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Owin.Security.Cookies" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
+        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Owin.Security" culture="neutral" publicKeyToken="31bf3856ad364e35"/>
+        <bindingRedirect oldVersion="0.0.0.0-3.0.1.0" newVersion="3.0.1.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="AjaxControlToolkit" publicKeyToken="28f01b0e84b6d53e" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-15.1.4.0" newVersion="15.1.4.0"/>
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="HtmlAgilityPack" publicKeyToken="bd319b19eaf3b43a" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-1.4.6.0" newVersion="1.4.6.0"/>
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+  <system.codedom>
+    <compilers>
+      <compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:6 /nowarn:1659;1699;1701"/>
+      <compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:14 /nowarn:41008 /define:_MYTYPE=\&quot;Web\&quot; /optionInfer+"/>
+    </compilers>
+  </system.codedom>
+</configuration>

vwd.webinfo

@@ -32,8 +32,6 @@
     
   
     
-  
-