Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

AC/RepPresupuestoEgresosMensual.aspx

@@ -10,9 +10,24 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Estado del Ejercicio del Presupuesto de Egresos - Mensual
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> 
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">    
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; 
+
-    <asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;
+    <asp:UpdatePanel runat="server" ID="UpAcciones" >
+        <ContentTemplate>
+             <li>
+                <asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" Visible="false" runat="server"><i class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="BtnImprimir" OnClick="BtnImprimir_Click" Visible="false"  runat="server"><i class="fa fa-file-pdf-o"></i> Imprimir</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+    
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
  

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -18,6 +18,8 @@ Partial Class AC_RepPresupuestoEgresosMensual
         If Not Page.IsPostBack Then
             CargaEjercicios()
             CargaCombos()
+
+
         End If
     End Sub
 
@@ -68,6 +70,10 @@ Partial Class AC_RepPresupuestoEgresosMensual
 
 
     Private Sub CargaDatos()
+
+        ImgExcel.Visible = False
+        BtnImprimir.Visible = False
+
         Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
         Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
         UPPDatos.Update()
@@ -83,6 +89,11 @@ Partial Class AC_RepPresupuestoEgresosMensual
             End If
 
             Gv.DataSource = DtPresupuestoEgresos
+            If DtPresupuestoEgresos IsNot Nothing AndAlso DtPresupuestoEgresos.Rows.Count > 0 Then
+                ImgExcel.Visible = True
+                BtnImprimir.Visible = True
+            End If
+
         Else
             Gv.DataSource = Nothing
             DtPresupuestoEgresos = Nothing

AF/RepDepreciacion.aspx

@@ -43,7 +43,7 @@
         <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
     </li>
     <li>
-        <asp:LinkButton runat="server" ID="BtnDepreciacion" data-toggle="tooltip" data-placement="left" title="Generar Depreciacion" Text="<i class='fa fa-plus'></i> Generar Depreciacion"></asp:LinkButton>
+        <asp:LinkButton runat="server" ID="BtnDepreciacion" data-toggle="tooltip" data-placement="left" title="Generar Depreciación" Text="<i class='fa fa-plus'></i> Generar Depreciación"></asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
@@ -97,7 +97,7 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciacion" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciación" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
@@ -203,7 +203,7 @@
      
                     </div>
                     <div class="modal-footer">
-                        <asp:Button ID="BtnGenerarDepreciacion" runat="server" class="btn btn-success" Text="Generar Depreciacion" ValidationGroup="GrpGuardar" />
+                        <asp:Button ID="BtnGenerarDepreciacion" runat="server" class="btn btn-success" Text="Generar Depreciación" ValidationGroup="GrpGuardar" />
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>

AF/RepDepreciacion.aspx.vb

@@ -30,17 +30,15 @@ Partial Class AF_RepDepreciacion
             Dim ObjInventario As New ClsInventarios
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
             Dim ErrorMovInv As Boolean = False
-            Dim ConceptoPoliza As String = String.Format("Depreciacion - {0}", txtFechaI.Text)
+            Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text)
             Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-
-
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
                 Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
                 If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
-                    Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
+                    Dim ConceptoPolizaDetalle As String = String.Format("Depreciación - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
 
                     If CvePrePoliza > 0 Then
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then

Acumuladores/RepAcumuladoresVigencia.aspx

@@ -30,12 +30,16 @@
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row">
+                            <label class="col-md-1 ">Marcas:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlMarcas" runat="server" DataValueField="CveMarca" DataTextField="Marca" class="select2me" Width="100%"></asp:DropDownList>
+                            </div>
                             <label class="col-md-1 ">Clasificación:</label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="100%"></asp:DropDownList>
                             </div>
                             <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Text="SubProyecto"></asp:Label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
                             </div>
                             <label class="col-md-1 ">Fecha Inicial:</label>
@@ -92,7 +96,7 @@
                     <asp:BoundField DataField="Codigo" HeaderText="Código" />
                     <asp:BoundField DataField="PS" HeaderText="Producto/Servicio" />
                     <asp:BoundField DataField="Serie" HeaderText="Serie" />
-                    <asp:BoundField DataField="Fecha" DataFormatString="{0:d}" HeaderText="Fecha" />
+                    <asp:BoundField DataField="Fecha" DataFormatString="{0:d}" HeaderText="Fecha Compra" />
                     <asp:BoundField DataField="mesestranscurridos" HeaderText="M.Transc." />
                 </Columns>
             </asp:GridView>

Acumuladores/RepAcumuladoresVigencia.aspx.cs

@@ -61,10 +61,14 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
 	private void CargaCombos()
 	{
 		CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
-		DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
+		DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Categoria = 'ACUMULADORES'");
 		DdlClasificaciones.DataBind();
 		DdlClasificaciones.Items.Insert(0, new ListItem("Todos", "-1"));
-	}
+
+        DdlMarcas.DataSource = get_GlobalDTGralMarcas(UsuarioActual.CveEmpresa);
+        DdlMarcas.DataBind();
+        DdlMarcas.Items.Insert(0, new ListItem("Todas", "-1"));
+    }
 
 	protected void BtnConsultar_Click(object sender, EventArgs e)
 	{
@@ -76,7 +80,7 @@ public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas
 	{
 		ClsAcumuladores ObjAcum = new ClsAcumuladores();
 
-		if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()))
+		if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlMarcas.SelectedValue.ToEntero(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()))
 		{
 			GvAcum.DataSource = ObjAcum.DtResultados;
 		}

App_Code/ClsAcumuladores.vb

@@ -1315,11 +1315,12 @@ Public Class ClsAcumuladores
     End Function
 
 #Region "VIGENCIA ACUMULADORES"
-    Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
+    Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveMarca As Integer, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_Inv_ProductosFechasComprasSerie")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@FechaIni", SqlDbType.Date).Value = FechaInicio

App_Code/ClsCompras.vb

@@ -197,7 +197,7 @@ Public Class ClsCompras
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
                               Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
-                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False) As Boolean
+                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -250,6 +250,7 @@ Public Class ClsCompras
             .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
             .Add("@EsImportacion", SqlDbType.Bit).Value = EsImportacion
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 
@@ -274,7 +275,7 @@ Public Class ClsCompras
     Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer,
                                  Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
                                  Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False,
-                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1) As Boolean
+                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -307,6 +308,8 @@ Public Class ClsCompras
 
             .Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto
             .Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto
+
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try
@@ -3273,3 +3276,4 @@ Public Class ClsCompras
 End Class
 
 
+

App_Code/ClsContabilidad.vb

@@ -3871,7 +3871,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean
+    Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean
         Dim Retorno = False
 
 
@@ -3882,6 +3882,7 @@ Public Class ClsContabilidad
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@TipoCuentas", SqlDbType.Int).Value = TipoCuentas
             .Add("@TipoReporte", SqlDbType.Int).Value = TipoReporte
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = Sat
@@ -6567,7 +6568,7 @@ Public Class ClsContabilidad
 #Region "ESTADO RESULTADOS HORIZONTAL"
 
 
-    Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+    Public Function GetEstadosMensual(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta2_EstadoResultadosMensual")
@@ -6576,6 +6577,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
@@ -6595,7 +6597,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+    Public Function GetEstadosMensualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta2_EstadoResultadosMensualHorizontal")
@@ -6604,6 +6606,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
@@ -6652,7 +6655,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean
+    Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta2_EstadoResultadosAnualHorizontal")
@@ -6661,6 +6664,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
@@ -6682,7 +6686,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
+    Public Function GetEstadosSubProyectoHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta2_EstadoResultadosSubProyectolHorizontal")
@@ -6691,6 +6695,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@Divisor", SqlDbType.Int).Value = Divisor
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario

App_Code/ClsGenerales.vb

@@ -1576,7 +1576,7 @@ Public Class ClsGenerales
 
         Return Retorno
     End Function
-    Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer,
+    Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer,
                                         Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                                         Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
                                         Optional ConceptoCIE As String = "-1") As Boolean
@@ -1585,6 +1585,7 @@ Public Class ClsGenerales
         DataAdapter("PA_Gral_CuentasDepositosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
@@ -1626,14 +1627,16 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function RemoveCuentasDepositos(CveCuentaDeposito As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+    Public Function RemoveCuentasDepositos(CveCuentaDeposito As Integer, CveEmpresa As Integer, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Gral_CuentasDepositosRemove")
+        DataAdapter("PA_Gral_CuentasDepositosRemove")
-
+        With SqlAdapter.SelectCommand.Parameters
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
-        SqlAdapter.SelectCommand.Parameters.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+        End With
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1655,8 +1658,9 @@ Public Class ClsGenerales
 
         DataAdapter("PA_Gral_CuentasDepositosPersonalUpdate")
 
-        With SqlAdapter.SelectCommand.Parameters
+        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre
             .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta
             .Add("@CLABE", SqlDbType.VarChar).Value = CLABE
@@ -1685,14 +1689,15 @@ Public Class ClsGenerales
     End Function
 
     Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String,
-                                           RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "",
+                                           RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "",
                                            Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
                                            Optional ConceptoCIE As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosUpdate")
 
-        With SqlAdapter.SelectCommand.Parameters
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre
             .Add("@Plaza", SqlDbType.VarChar).Value = Plaza
             .Add("@Sucursal", SqlDbType.VarChar).Value = Sucursal

App_Code/ClsInventarios.vb

@@ -136,6 +136,7 @@ Public Class ClsInventarios
     Public Property Modulo As String
     Public Property ConAplicacion As Boolean
     Public Property CveInventarioFisicoPadre As Integer
+    Public Property CveFolioGarantia As Integer
 
 
 
@@ -875,7 +876,7 @@ Public Class ClsInventarios
                 ResponsableCarga = dr("ResponsableCarga").ToString
                 ResponsableRecibio = dr("ResponsableRecibio").ToString
                 Modulo = dr("Modulo").ToString
-
+                CveFolioGarantia = dr("CveFolioGarantia").ToString.ToEntero
                 Retorno = True
             End If
 
@@ -985,7 +986,7 @@ Public Class ClsInventarios
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
                                   Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "",
                                   Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1045,6 +1046,7 @@ Public Class ClsInventarios
             .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOP", SqlDbType.Int).Value = CveOP
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -577,7 +577,7 @@ Public Class ClsPaginas
             Dim AppNombre As String = $"GlobalDTProveedoresCuentas-{CveEmpresa}"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Using ObjProveedoresBancos As New ClsGenerales
-                    If ObjProveedoresBancos.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveProveedor:=-1, CveCliente:=-2, CvePersonal:=-2) Then Application(AppNombre) = ObjProveedoresBancos.DtResultados
+                    If ObjProveedoresBancos.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveProveedor:=-2) Then Application(AppNombre) = ObjProveedoresBancos.DtResultados
                 End Using
             End If
             Dim filtros As New List(Of String)
@@ -602,7 +602,7 @@ Public Class ClsPaginas
             Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}"
             If Application(AppNombre) Is Nothing Then
                 Dim P As New ClsGenerales
-                If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-1, CveProveedor:=-2, CvePersonal:=-2) Then Application(AppNombre) = P.DtResultados
+                If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
                 P.Dispose()
             End If
             Dim Str As New StringBuilder
@@ -834,7 +834,7 @@ Public Class ClsPaginas
             End If
             Dim filtros As New List(Of String)
             If CveCategoria <> -1 Then filtros.Add($"CveCategoria = {CveCategoria}")
-            If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion = {UsoClasificacion}")
+            If UsoClasificacion <> -1 Then filtros.Add($"UsoClasificacion IN ({UsoClasificacion},3)  ")
             If CveClasificacion <> -1 Then filtros.Add($"CveClasificacion = {CveClasificacion}")
             If filtros.Count > 0 Then
                 Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)

App_Code/ClsRH.vb

@@ -330,7 +330,8 @@ Public Class ClsRH
     End Function
 
     Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
-                                                chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean
+                                                chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean,
+                                                chkAplicaUtilidades As Boolean, aplicaPago As Integer, aplicaPagoDoble As Integer, aplicaPrimaVac As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_AsistenciasInasistenciasAdd")
@@ -347,6 +348,9 @@ Public Class ClsRH
             .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo
             .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo
             .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades
+            .Add("@AplicaPago", SqlDbType.Int).Value = aplicaPago
+            .Add("@AplicaPagoDoble", SqlDbType.Int).Value = aplicaPagoDoble
+            .Add("@AplicaPrimaVac", SqlDbType.Int).Value = aplicaPrimaVac
 
         End With
 
@@ -367,7 +371,8 @@ Public Class ClsRH
     End Function
 
     Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer,
-chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean
+                                                    chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean,
+                                                    aplicaPago As Integer, aplicaPagoDoble As Integer, aplicaPrimaVac As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_AsistenciasInasistenciasUpdate")
@@ -384,6 +389,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo
             .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo
             .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades
+            .Add("@AplicaPago", SqlDbType.Int).Value = aplicaPago
+            .Add("@AplicaPagoDoble", SqlDbType.Int).Value = aplicaPagoDoble
+            .Add("@AplicaPrimaVac", SqlDbType.Int).Value = aplicaPrimaVac
         End With
 
         Try

App_Code/LogicNominas.vb

@@ -144,7 +144,8 @@ Public Class LogicNominas
         Dim SalarioDiarioSS As Double = 0
         Dim ClaveEstado As String = ""
         Dim MetodoPagoFijo As Boolean
-
+        Dim totalDb As Decimal
+        Dim subTotalDb As Decimal
         Dim CodigoPostal As String = ""
 
         Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
@@ -157,6 +158,8 @@ Public Class LogicNominas
                     Dim drow As DataRow = objNomina.DtResultados.Rows(0)
                     CvePersonal = drow("CvePersonal").ToString().ToEntero()
                     CvePeriodo = drow("CvePeriodo").ToString().ToEntero()
+                    totalDb = drow("Total").ToString().ToDecimal()
+                    subTotalDb = drow("SubTotal").ToString().ToDecimal()
                     cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero()
                     cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal()
                     Serie = objNomina.Serie
@@ -438,9 +441,9 @@ Public Class LogicNominas
         cfdi.Comprobante.Serie = Serie
         cfdi.Comprobante.Folio = Folio
         cfdi.Comprobante.Fecha = Now
-        cfdi.Comprobante.SubTotal = cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal()
+        cfdi.Comprobante.SubTotal = subTotalDb 'cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal()
         cfdi.Comprobante.Descuentos = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()
-        cfdi.Comprobante.Total = cfdi.Comprobante.SubTotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones
+        cfdi.Comprobante.Total = totalDb 'cfdi.Comprobante.SubTotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones
         cfdi.Comprobante.MotivoDescuento = "" '"Deducciones nómina"
         cfdi.Comprobante.Moneda = "MXN"
         cfdi.Comprobante.TipoComprobante = "N"

Bancos/IE.aspx.vb

@@ -1146,20 +1146,17 @@ Partial Class Bancos_IE
                 Else
 
                     If DdlTipoTransaccion.SelectedValue = "9" Then
-                        Dim Dep As New ClsGenerales
+                        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
-                        If Dep.GetCuentasDepositos(CveProveedor:=ObjIE.CveProveedor) Then
+
-                            DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
+                        If dtc IsNot Nothing Then
-                            If Dep.DtResultados.Rows.Count > 0 Then
+                            DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ")
+                            If dtc.Rows.Count > 0 Then
                                 trCuentaDeposito.Visible = True
                                 DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-                                'ElseIf Dep.DtResultados.Rows.Count = 1 Then
+
-                                '    TrCuentaDepositado.Visible = True
-                                '    LitTextoDepositado.Text = "Cuenta Depósito"
-                                '    LitDepositado.Text = Dep.DtResultados.Rows(0)("CuentaDeposito").ToString
-                                'End If
                             End If
                         End If
-                        Dep.Dispose()
+
                         DdlCuentaDeposito.DataBind()
                         UpCuentaDeposito.Update()
                     End If
@@ -1167,9 +1164,6 @@ Partial Class Bancos_IE
                 End If
 
                 LnkComplementoPago.Visible = True
-
-
-
                 If ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelado > 0 Then
                     'cuando es cheque devuelto
                     TabCancelacion.Visible = True
@@ -1185,8 +1179,6 @@ Partial Class Bancos_IE
 
                 End If
 
-
-
                 'DATOS DE CANCELACION
                 If ObjIE.CveEstatusIE = 2 OrElse (ObjIE.CveEstatusIE = 1 AndAlso ObjIE.CveIECancelacion > 0) Then
                     TabCancelacion.Visible = True
@@ -1327,8 +1319,6 @@ Partial Class Bancos_IE
 
         End If
 
-
-        RecargaGlobalCuentasBancarias()
         ObjIE.Dispose()
         ObjIE2.Dispose()
         UPPP.Update()
@@ -3968,7 +3958,6 @@ Partial Class Bancos_IE
         End If
 
         Msg.Clear()
-        RecargaGlobalCuentasBancarias()
         ObjIE.Dispose()
         ObjMov.Dispose()
         If ObjComp IsNot Nothing Then ObjComp.Dispose()
@@ -5206,15 +5195,23 @@ Partial Class Bancos_IE
         'If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout
         trCuentaDeposito.Visible = False
 
+        Dim dtc As DataTable = Nothing
 
-        Dim Dep As New ClsGenerales
+        If CveProveedor > 0 Then
-        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then
+            dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
+        ElseIf CveCliente > 0 Then
+            dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
+        End If
+
+
+        ' If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCliente:=CveCliente, CvePersonal:=CvePersonal) Then
+        If dtc IsNot Nothing Then
 
             If DdlTipoTransaccion.SelectedValue = "9" And CveIE <= -1 Then
 
-                DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
+                DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
 
-                If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
+                If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
                     trCuentaDeposito.Visible = True
                     DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 Else
@@ -5223,10 +5220,9 @@ Partial Class Bancos_IE
                 DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
             ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then
 
+                If dtc.Rows.Count > 0 Then
 
-                If Dep.DtResultados.Rows.Count > 0 Then
+                    DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ")
-
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus = 'True' ")
                     trCuentaDeposito.Visible = True
                     BtnGuardar.ToolTip = ""
 
@@ -5242,15 +5238,14 @@ Partial Class Bancos_IE
                 UpGuardar.Update()
 
             Else
-                DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
+                DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'")
-                If Dep.DtResultados.Rows.Count > 0 Then
+                If dtc.Rows.Count > 0 Then
                     trCuentaDeposito.Visible = True
                     DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                 End If
             End If
 
-
         Else
 
             If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") And CveIE <= -1 Then
@@ -5265,9 +5260,8 @@ Partial Class Bancos_IE
 
             UpGuardar.Update()
 
-
         End If
-        Dep.Dispose()
+
 
         'If DdlTipoTransaccion.SelectedValue = "9" AndAlso DdlCuentaDeposito.Items.Count = 0 Then
         '    BtnIEGuardar.Enabled = False
@@ -5280,7 +5274,7 @@ Partial Class Bancos_IE
         '    trCuentaDeposito.Visible = False
         '    DdlCuentaDeposito.Items.Clear()
         'End If
-        RecargaGlobalCuentasBancarias()
+
         UpCuentaDeposito.Update()
         UpDatos.Update()
     End Sub
@@ -5305,18 +5299,6 @@ Partial Class Bancos_IE
 
     End Sub
 
-    'Recaga CuentasBancarias de Proveedor
-    Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveProveedor > 0 Then
-            GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-            'Dim ObjCuentasBancos As New ClsGenerales
-
-            'If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            '    GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            'End If
-            'ObjCuentasBancos.Dispose()
-        End If
-    End Sub
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         Dim Dep As New ClsGenerales
@@ -6640,7 +6622,6 @@ Partial Class Bancos_IE
             trCuentaDeposito.Visible = True
             DdlCuentaDeposito.Enabled = True
 
-
             Dim Dep As New ClsGenerales
             If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then
 
@@ -6651,15 +6632,12 @@ Partial Class Bancos_IE
                     DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                 End If
-
             End If
 
             Dep.Dispose()
             DdlCuentaDeposito.DataBind()
             UpCuentaDeposito.Update()
 
-
-
         End If
 
     End Sub

Bancos/PagoAcreedor.aspx.cs

@@ -277,7 +277,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
         int CveConceptoContablePago = 42;
         int CveConceptoContableBancoComplementario = 204;
         int CveConceptoContablePrestamoComplementario = 202;
-        int CvePlantillaPoliza = 21;
+        int CvePlantillaPoliza = 43;
         int CvePrePoliza = 0;
         int CveMonedaPago = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero();
         int FolioFijo = 0;
@@ -704,7 +704,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
         int CveConceptoContablePrestamo = 41;
         int CveConceptoContableBancoComplementario = 204;
         int CveConceptoContablePrestamoComplementario = 202;
-        int CvePlantillaPoliza = 45;
+        int CvePlantillaPoliza = 44;
         int CvePrePoliza = 0;
         int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuentaPrestamo.SelectedValue.ToEntero()}").ToEntero();
         int FolioFijo = 0;

Bancos/ProveedoresAbonar.aspx.vb

@@ -650,16 +650,14 @@ Partial Class Bancos_ProveedoresAbonar
             Exit Sub
         End If
 
-        Dim Dep As New ClsGenerales
+        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
-        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then
+        If dtc IsNot Nothing Then
-            Dim Row = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
+            Dim Row = dtc.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
             If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then
                 Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia)
-                Dep.Dispose()
                 Exit Sub
             End If
         End If
-        Dep.Dispose()
 
         'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
         If UsuarioActual.TienePermisoProceso(105) AndAlso (TxtFechaDocumento.Text.ToDate < Now.Date Or TxtFechaDocumento.Text.ToDate > Now.LastDayOfMonth) Then
@@ -1310,22 +1308,22 @@ Partial Class Bancos_ProveedoresAbonar
 #Region " CUENTAS DEPOSITOS"
     Private Sub CargaCuentasDepositos()
         DdlCuentaDeposito.Items.Clear()
-        ' If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout
+
         trCuentaDeposito.Visible = False
 
-        Dim Dep As New ClsGenerales
+        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
-        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then
+        If dtc IsNot Nothing Then
 
-            If Dep.DtResultados.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then
+            If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then
 
                 If DdlTipoTransaccion.SelectedValue = "9" Then
 
-                    If Dep.DtResultados.Rows.Count > 0 Then
+                    If dtc.Rows.Count > 0 Then
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
 
-                    If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
+                    If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
@@ -1335,45 +1333,28 @@ Partial Class Bancos_ProveedoresAbonar
 
                 ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
-
+                    If dtc.Rows.Count > 0 Then
-                    If Dep.DtResultados.Rows.Count > 0 Then
+                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'")
-
-                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" Estatus ='True'")
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
-
                         trCuentaDeposito.Visible = True
                         BtnIEGuardar.ToolTip = ""
                     Else
-
                         BtnIEGuardar.Enabled = False
                         BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
                         Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
-
                     End If
-
-
                     UpGuardar.Update()
                 Else
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
+                    DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'")
-                    If Dep.DtResultados.Rows.Count > 0 Then
+                    If dtc.Rows.Count > 0 Then
                         trCuentaDeposito.Visible = True
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
                 End If
-
                 DdlCuentaDeposito.DataBind()
-
-
-                'If DdlCuentaDeposito.Items.Count > 1 Then
-                '    DdlCuentaDeposito.SelectedIndex = 1
-                'End If
-
-
             Else
 
-
                 If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
-
                     BtnIEGuardar.Enabled = False
                     BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
                     Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia)
@@ -1382,17 +1363,11 @@ Partial Class Bancos_ProveedoresAbonar
                     BtnIEGuardar.Enabled = True
                     BtnIEGuardar.ToolTip = ""
                 End If
-
                 UpGuardar.Update()
-
             End If
-
-
         Else
 
-
             If DdlTipoTransaccion.SelectedValue = "17" Then
-
                 BtnIEGuardar.Enabled = False
                 BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
             Else
@@ -1402,11 +1377,8 @@ Partial Class Bancos_ProveedoresAbonar
             End If
 
             UpGuardar.Update()
-
-
         End If
 
-        Dep.Dispose()
         'Else
         '    trCuentaDeposito.Visible = False
         '    DdlCuentaDeposito.Items.Clear()
@@ -1428,28 +1400,27 @@ Partial Class Bancos_ProveedoresAbonar
 
     Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-        Dim Dep As New ClsGenerales
+        Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
+        If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then
 
-        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
+            If dtc.Rows.Count > 0 Then
 
-            If Dep.DtResultados.Rows.Count > 0 Then
+                If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
-
-                If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
 
                     TrReferenciaCIE.Visible = True
 
-                    TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString
-                    TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+                    TxtConceptoCIE.Text = dtc.Rows(0)("ConceptoCIE").ToString
 
-                    OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    OriReferenciaCIE = dtc.Rows(0)("Referencia").ToString
-                    OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+                    OriConceptoCIE = dtc.Rows(0)("ConceptoCIE").ToString
 
                 Else
                     TrReferenciaCIE.Visible = False
                 End If
 
 
-                If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
+                If Boolean.Parse(dtc.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso dtc.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
 
                     Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia)
                     BtnIEGuardar.Enabled = False
@@ -1466,7 +1437,6 @@ Partial Class Bancos_ProveedoresAbonar
             TrReferenciaCIE.Visible = False
         End If
 
-        Dep.Dispose()
         UpCuentaDeposito.Update()
         UpGuardar.Update()
     End Sub

Compras/Compras.aspx

@@ -5521,6 +5521,7 @@
     </div>
 
 
+ 
 
  
 
@@ -6789,6 +6790,9 @@
             $('#TxtDeudoresOtrosGastosIngresos').val(txtOtrIngEgs.value);
         }
 
+
+ 
+
     </script>
 
 </asp:Content>

Compras/Compras.aspx.vb

@@ -11,6 +11,7 @@ Imports Newtonsoft.Json
 Imports Extensiones
 Imports System.Activities.Expressions
 Imports iText.Barcodes.Dmcode
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -3199,10 +3200,10 @@ Partial Class Compras_Compras
                 'Tiene Importacion
 
                 If dr("EsImportacion").ToString = "True" Then
-                        chkImportacion.Checked = True
+                    chkImportacion.Checked = True
-                    Else
+                Else
-                        chkImportacion.Checked = False
+                    chkImportacion.Checked = False
-                    End If
+                End If
                 CargaComplementosPago()
                 CargaGvBitacora()
                 InventarioMov()
@@ -4203,6 +4204,13 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
+        Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
+
+        If Not CveSubProyectoPrincipal > 0 Then
+            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+        End If
+
+
         If Not ValidaVinculacionNotaFactura() Then
             Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -4920,7 +4928,8 @@ Partial Class Compras_Compras
                               TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                                     CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
                                                     AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
-                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, EsImportacion:=EsImportacion, CveFactura:=CveFactura) Then
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto,
+                                                    EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -6014,7 +6023,7 @@ Partial Class Compras_Compras
 
                                                 For Each Row As DataRow In DTPlatilla.Rows
 
-                                                    Dim CveSubProyectoInsertar As Integer = -1
+                                                    Dim CveSubProyectoInsertar As Integer = CveSubProyectoPrincipal
                                                     Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
 
                                                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
@@ -6226,7 +6235,7 @@ Partial Class Compras_Compras
 
                                                         Case 25 'IEPS X Acreditar
                                                             If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                                CveSubProyectoInsertar = CveSubProyecto
+                                                                'CveSubProyectoInsertar = CveSubProyecto
                                                                 importeMovimiento = CompraActual.IEPS
                                                                 importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
                                                                 If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
@@ -6322,7 +6331,7 @@ Partial Class Compras_Compras
 
                                                         Case 64 'Ganancia
 
-                                                            CveSubProyectoInsertar = CveSubProyecto
+                                                            'CveSubProyectoInsertar = CveSubProyecto
                                                             If CveSubProyectoInsertar <= 0 Then
                                                                 ErrorPrepoliza = True
                                                                 Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia)
@@ -7415,7 +7424,7 @@ Partial Class Compras_Compras
                                                                         Else
 
                                                                             Dim usacomplementariaAnticipo As Boolean = False
-                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 And not UsuarioActual.CveEmpresa.Contiene(13,83), True, False)
+                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 And Not UsuarioActual.CveEmpresa.Contiene(13, 83), True, False)
                                                                             Dim TipoCambioAnt As Decimal = Ant.TCCompra
 
                                                                             Dim ImporteAnt As Decimal = importeMovimiento
@@ -8116,7 +8125,12 @@ Partial Class Compras_Compras
                                     End If
 
                                     If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
-                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>. ", CvePrePoliza)
+                                        Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+                                        Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> Descargar PDF <i class='fa fa-file-pdf-o' aria-hidden='true'></i></a>")
+
+
+
                                     End If
 
                                     If CveMovimientoInventario > 0 Then
@@ -8125,8 +8139,10 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
                                     End If
 
-                                    If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                                        TieneError = True
+                                        If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+                                            TieneError = True
+                                        End If
                                     End If
 
                                     If EntregaDirecta Then
@@ -8220,6 +8236,39 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+    Private Function AsignarSubProyectoPrincipal() As Integer
+
+        Dim CveSubProyectoPrincioal As Integer = -1
+
+        Dim DTSubProyectoPrincipal As New DataTable
+
+        DTSubProyectoPrincipal.Columns.Add("CveSubProyecto", GetType(Integer))
+        DTSubProyectoPrincipal.Columns.Add("Total", GetType(Decimal))
+
+
+        For Each dRow As DataRow In TmpDT.FiltraParametros("", "", {"CveSubProyecto"}).Rows
+
+            Dim CveSubProyectoActual As Integer = dRow("CveSubProyecto").ToString.ToEntero
+
+            If CveSubProyectoActual > 0 Then
+
+                Dim nRow = DTSubProyectoPrincipal.NewRow
+                nRow("CveSubProyecto") = dRow("CveSubProyecto").ToString.ToEntero
+                nRow("Total") = TmpDT.SUMD("Total", $"CveSubProyecto={CveSubProyectoActual}")
+                DTSubProyectoPrincipal.Rows.Add(nRow)
+            End If
+        Next
+
+
+        If DTSubProyectoPrincipal.Rows.Count > 0 Then
+            DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ")
+            CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero
+        End If
+
+        Return CveSubProyectoPrincioal
+
+    End Function
+
     Private Function ValidaVinculacionNotaFactura() As Boolean
 
         Dim Respuesta As Boolean = False
@@ -8825,6 +8874,12 @@ Partial Class Compras_Compras
 
     Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
 
+        Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
+        If Not CveSubProyectoPrincipal > 0 Then
+            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+        End If
+
+
         If CveFactura > 0 Then
             If Not AjustaCombustibles() Then
                 Exit Sub
@@ -8907,7 +8962,7 @@ Partial Class Compras_Compras
                 If ObjCompra.UpdateCompra(TxtDescripcion.Text.Trim, TxtFolioSecundario.Text.Trim, TxtFechaPago.Text.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                    TxtDescuento.Text.ToDouble, TxtSubTotal.Text.ToDouble, TxtIVA.Text.ToDouble, TxtTotal.Text.ToDouble,
                                    UsuarioActual.CveUsuario, CveCompra, CveCajaChica:=DdlRembolsoCajaChica.SelectedValue.ToEntero, CvePersonal:=DdlRembolsoPersonal.SelectedValue.ToEntero, CveProveedorSucursal:=If(DdlProveedorSucursal.SelectedValue.ToEntero > 0, DdlProveedorSucursal.SelectedValue.ToEntero, -1), PorcentajeIVA:=PorcentajeIVA, NumeroReembolso:=TxtRembolsoNumero.Text,
-                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto) Then
+                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal) Then
 
                     If Not ComparaDatatables() Then
 
@@ -13503,10 +13558,10 @@ Partial Class Compras_Compras
 
         For Each Dr As GridViewRow In GVDevolucion.Rows
             'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero
-            cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
+            Cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
-            If cantidad > 0 Then
+            If Cantidad > 0 Then
                 realizadevolucion = True
-                subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * cantidad
+                subtotaldevolucion += Dr.DataKey("PU").ToString.ToDecimal * Cantidad
             End If
         Next
         'si no esta vinculado a nc simplemente me lo brinco
@@ -20600,6 +20655,9 @@ Partial Class Compras_Compras
     'End Function
 
 
+
+
+
 End Class
 
 

Compras/PopUpVerFactura.aspx.vb

@@ -1442,6 +1442,16 @@ Partial Class PopUpVerFactura
             End If
         End If
 
+
+
+
+        'IMPRIME VALE
+        If UrlParametros("OP").ToString = "PREPO" Then
+            If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
+                ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
+            End If
+        End If
+
     End Sub
 
     Private Function Parametros(Cadena As String) As Hashtable
@@ -6866,4 +6876,177 @@ Partial Class PopUpVerFactura
     End Sub
 #End Region
 
+
+#Region "OP PREPO"
+
+
+    Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
+
+
+
+
+        If Not CvePrePoliza > 0 Then
+            Exit Sub
+        End If
+
+
+        'ObjContabilidad.Dispose()
+
+        Dim rutaArchivo As String = ""
+        Dim params As New List(Of ReportParameter)
+        Dim Bytes As Byte() = Nothing
+        Dim DtDetalle As New DataTable
+        Dim CveTipoPolizaImp As Integer = 0
+        Dim FolioPoliza As String = ""
+        Dim ConceptoPolizaImp As String = ""
+        Dim CveMonedaImp As Integer = 0
+        Dim TipoPolizaString = ""
+
+        Dim ObjContabilidad As New ClsContabilidad
+
+        Dim TipoPolImp As String = ""
+
+
+        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+
+            If dr IsNot Nothing Then
+
+                TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
+                CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
+                ConceptoPolizaImp = dr("Concepto").ToString
+                FolioPoliza = dr("FolioPoliza").ToString
+                CveMonedaImp = dr("CveMoneda").ToString.ToEntero
+
+            Else
+                Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
+            End If
+
+        End If
+
+        ObjContabilidad.Dispose()
+
+        Select Case CveTipoPolizaImp
+            Case 1
+                TipoPolizaString = "I"
+                Exit Select
+            Case 2
+                TipoPolizaString = "E"
+                Exit Select
+            Case Else
+                TipoPolizaString = "D"
+                Exit Select
+        End Select
+
+        If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
+
+
+            Dim Archivo As System.IO.FileInfo
+
+            Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+
+            Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
+            Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+
+            Dim ObjConta As New ClsContabilidad
+
+            If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+                Dim dr As DataRow
+                DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
+                dr = DtDetalle.Rows(0)
+
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
+                params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+                params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
+
+                params.Add(New ReportParameter("Numero", FolioPoliza))
+                params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+                params.Add(New ReportParameter("CodigoPostal", ""))
+
+                params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
+                params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
+
+                params.Add(New ReportParameter("Folio", FolioPoliza))
+
+
+                If Logo.Exists Then
+                    params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
+                Else
+                    params.Add(New ReportParameter("pImg", ""))
+                End If
+
+
+                If Archivo.Exists Then
+                    rutaArchivo = Archivo.FullName
+                Else
+                    rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
+                End If
+
+
+            End If
+            ObjConta.Dispose()
+
+
+        Else
+
+            Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
+            params = New List(Of ReportParameter)
+
+            Dim ObjConta As New ClsContabilidad
+            'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
+            If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+
+                Dim dr As DataRow
+                DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
+                dr = DtDetalle.Rows(0)
+                Dim ruta As String = ""
+
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+                params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+                params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+
+                If UsuarioActual.CveEmpresa.Contiene(141) Then
+                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
+                Else
+                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+                End If
+
+                FolioPoliza = dr("FolioPoliza").ToString
+                params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
+                params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
+                params.Add(New ReportParameter("CodigoPostal", ""))
+
+                If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                    params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                End If
+                If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
+                    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                End If
+
+                If Archivo.Exists Then
+                    rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+                Else
+                    rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
+                End If
+            End If
+            ObjConta.Dispose()
+        End If
+
+
+        ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
+
+
+
+
+    End Sub
+
+
+#End Region
+
 End Class

Compras/Proveedores.aspx

@@ -202,168 +202,193 @@
                                             <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                             <a href="javascript:;" class="remove" data-original-title="" title=""></a>
                                         </div>
-                                    </div>
+                                    </div>                                    
-                                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
+                                        <div  class="portlet-body form">
-                                        <div class="form-body">
+                                            
-                                            <table border="0">
+                                            <div class="row">
-                                                <tr>
+                                                <div class="col-md-6">
-                                                    <td>Código:</td>
+                                                    <div class="form-group form-md-line-input ">
-                                                    <td>
+                                                    <asp:TextBox ID="TxtCodigo" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <div class="form-group form-md-line-input" style="width: 114px">
+                                                    <label for="<%= TxtCodigo.ClientID%>">Código:</label>
-                                                            <asp:TextBox ID="TxtCodigo" CssClass="form-control input-sm" runat="server" MaxLength="10"></asp:TextBox><label></label>
+                                                </div>
-                                                        </div>
+                                                </div>
-                                                    </td>
+
-                                                </tr>
+                                                <div class="col-md-6">
-                                                <tr>
+                                                    <div class="form-group form-md-line-input">
-                                                    <td>Razón Social:</td>
+                                                       <asp:TextBox ID="TxtNombreCorto" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
-                                                    <td>
+                                                    <label for="<%= TxtNombreCorto.ClientID%>">Nombre Corto:</label>
-                                                        <div class="form-group form-md-line-input" style="width: 400px">
+                                                </div>
-                                                            <asp:TextBox ID="TxtRazonSocial" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox><label></label>
+                                                </div>
-                                                            <asp:RequiredFieldValidator ID="RFVRazonSocial" runat="server" ControlToValidate="TxtRazonSocial" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Razón Social''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            </div>
-                                                            <ajax:ValidatorCalloutExtender ID="VCERazonSocial" runat="server" HighlightCssClass="vco" TargetControlID="RFVRazonSocial" Width="300px" BehaviorID="_content_VCERazonSocial"></ajax:ValidatorCalloutExtender>
+
-                                                        </div>
+                                            <div class="row">
-                                                    </td>
+	                                            <div class="col-md-12">
-                                                </tr>
+                                                    <div class="form-group form-md-line-input">
-                                                <tr>
+                                                        <asp:TextBox ID="TxtRazonSocial" CssClass="form-control " runat="server" MaxLength="200"></asp:TextBox>
-                                                    <td>Nombre Comercial:</td>
+                                                         <asp:RequiredFieldValidator ID="RFVRazonSocial" runat="server" ControlToValidate="TxtRazonSocial" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Razón Social''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                    <td>
+                                                         <ajax:ValidatorCalloutExtender ID="VCERazonSocial" runat="server" HighlightCssClass="vco" TargetControlID="RFVRazonSocial" Width="300px" BehaviorID="_content_VCERazonSocial"></ajax:ValidatorCalloutExtender>                                                        
-                                                        <div class="form-group form-md-line-input" style="width: 400px">
+                                                        <label for="<%= TxtRazonSocial.ClientID%>">Razón Social:</label>
-                                                            <asp:TextBox ID="TxtNombreComercial" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox><label></label>
+                                                    </div>
-                                                            <asp:RequiredFieldValidator ID="RFVNombreComercial" runat="server" ControlToValidate="TxtNombreComercial" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Comercial''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+	                                            </div>
-                                                            <ajax:ValidatorCalloutExtender ID="VCENombreComercial" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreComercial" Width="300px" BehaviorID="_content_VCENombreComercial"></ajax:ValidatorCalloutExtender>
+                                            </div>
-                                                        </div>
+
-                                                    </td>
+                                            <div class="row">
-                                                </tr>
+                                                <div class="col-md-12">
-                                                <tr>
+                                                    <div class="form-group form-md-line-input">
-                                                    <td>Nombre Corto:</td>
+                                                        <asp:TextBox ID="TxtNombreComercial" CssClass="form-control " runat="server" MaxLength="200"></asp:TextBox>
-                                                    <td>
+                                                        <asp:RequiredFieldValidator ID="RFVNombreComercial" runat="server" ControlToValidate="TxtNombreComercial" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Comercial''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                        <div class="form-group form-md-line-input" style="width: 100px">
+                                                        <ajax:ValidatorCalloutExtender ID="VCENombreComercial" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreComercial" Width="300px" BehaviorID="_content_VCENombreComercial"></ajax:ValidatorCalloutExtender>            
-                                                            <asp:TextBox ID="TxtNombreCorto" CssClass="form-control input-sm" runat="server" MaxLength="10"></asp:TextBox><label></label>
+                                                        <label for="<%= TxtNombreComercial.ClientID%>">Nombre Comercial:</label>
-                                                        </div>
+                                                    </div>
-                                                    </td>
+                                                </div>
-                                                </tr>
+                                            </div>
-                                                <tr>
+
-                                                    <td>Dirección:</td>
+                                            <div class="row">
-                                                    <td>
+                                                <div class="col-md-12">
-                                                        <div class="form-group form-md-line-input" style="width: 400px">
+                                                    <div class="form-group form-md-line-input">
-                                                            <asp:TextBox ID="TxtDireccion" CssClass="form-control input-sm" runat="server"></asp:TextBox><label></label>
+                                                        <asp:TextBox ID="TxtDireccion" CssClass="form-control " runat="server"></asp:TextBox>            
-                                                        </div>
+                                                        <label for="<%= TxtDireccion.ClientID%>">Dirección:</label>
-                                                    </td>
+                                                    </div>
-                                                </tr>
+                                                </div>
-                                                <tr>
+                                            </div>
-                                                    <td>Codigo Postal:</td>
+
-                                                    <td>
+                                            <div class="row">
-                                                        <div class="form-group form-md-line-input" style="width: 200px">
+                                                <div class="col-md-6">
-                                                            <asp:TextBox ID="TxtCP" CssClass="form-control input-sm" runat="server" MaxLength="5"></asp:TextBox><label></label>
+                                                    <div class="form-group form-md-line-input">
-                                                            <ajax:FilteredTextBoxExtender ID="FtbeCP" runat="server" TargetControlID="TxtCP" FilterType="Numbers" />
+                                                        <asp:TextBox ID="TxtCP" CssClass="form-control " runat="server" MaxLength="5"></asp:TextBox>
-                                                        </div>
+                                                        <ajax:FilteredTextBoxExtender ID="FtbeCP" runat="server" TargetControlID="TxtCP" FilterType="Numbers" />            
-                                                    </td>
+                                                        <label for="<%= TxtCP.ClientID%>">Codigo Postal:</label>
-                                                </tr>
+                                                    </div>
-                                                <tr>
+                                                </div>
-                                                    <td>RFC:</td>
+                                            </div>
-                                                    <td>
+
-                                                        <div class="form-group form-md-line-input" style="width: 200px">
+                                            <div class="row">
-                                                            <asp:TextBox ID="TxtRFC" CssClass="form-control input-sm" runat="server" MaxLength="13"></asp:TextBox><label></label>
+                                                <div class="col-md-12">
+                                                    <div class="form-group form-md-line-input">
+                                                          <asp:TextBox ID="TxtRFC" CssClass="form-control " runat="server" MaxLength="13"></asp:TextBox>
                                                             <asp:RegularExpressionValidator ID="REVRFC" runat="server" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardar" ControlToValidate="TxtRFC" ValidationExpression="^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
                                                             <ajax:ValidatorCalloutExtender ID="VCEREVRFC" runat="server" HighlightCssClass="vco" TargetControlID="REVRFC" Width="300px" BehaviorID="_content_VCEREVRFC"></ajax:ValidatorCalloutExtender>
                                                             <asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px" BehaviorID="_content_VCERFC"></ajax:ValidatorCalloutExtender>
+                                                            <ajax:ValidatorCalloutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px" BehaviorID="_content_VCERFC"></ajax:ValidatorCalloutExtender>            
-                                                        </div>
+                                                        <label for="<%= TxtRFC.ClientID%>">RFC:</label>
-                                                    </td>
+                                                    </div>
-                                                </tr>
+                                                </div>
-                                                <tr>
+                                            </div>
-                                                    <td>Teléfono Empresa:</td>
+
-                                                    <td>
+
-                                                        <div class="form-group form-md-line-input" style="width: 120px">
+                                             <div class="row">
+                                                <div class="col-md-12">
+                                                    <div class="form-group form-md-line-input">
+            
+                                                        <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto"  Width="206px"  DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control select2me ">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+
+                                                        <asp:RequiredFieldValidator ID="RfvDdlRegimenFiscal" runat="server" ControlToValidate="DdlRegimenFiscal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RfvDdlRegimenFiscal" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        <label for="<%= DdlRegimenFiscal.ClientID%>">Regimen Fiscal:</label>
+                                                    </div>
+                                                </div>
+                                            </div>
+
+
+
+                                            <div class="row">
+                                                <div class="col-md-12">
+                                                    <div class="form-group form-md-line-input">
                                                             <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
                                                             <asp:RequiredFieldValidator ID="RFVMail" runat="server" ControlToValidate="TxtTelefono" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RFVMail" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RFVMail" Width="300px"></ajax:ValidatorCalloutExtender>                                                            
-                                                            <%-- <asp:RegularExpressionValidator ID="CVTelefono" runat="server" Display="None" ValidationExpression="^\(\d{3}\)\s\d{3}-\d{4}$" ControlToValidate="TxtTelefono" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>--%>
+                                                            <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>            
-                                                            <%-- <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender14" runat="server" HighlightCssClass="vco" TargetControlID="CVTelefono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                                            <label for="<%= TxtTelefono.ClientID%>">Teléfono Empresa:</label>
-                                                            <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                    </div>
-                                                        </div>
+                                                </div>
-                                                    </td>
+                                            </div>
-                                                </tr>
+
-                                                <tr>
+                                            <div class="row">
-                                                    <td>Contacto:</td>
+                                                
-                                                    <td>
+                                                <div class="col-md-6">
-                                                        <div class="form-group form-md-line-input" style="width: 200px">
+                                                    <div class="form-group form-md-line-input">
-                                                            <asp:TextBox ID="TxtContactoNombre" CssClass="form-control input-sm" runat="server" MaxLength="50"></asp:TextBox><label></label>
+                                                        <asp:TextBox ID="TxtContactoNombre" CssClass="form-control " runat="server" MaxLength="50"></asp:TextBox>
-                                                        </div>
+                                                        <label for="<%= TxtContactoNombre.ClientID%>">Contacto:</label>
-                                                    </td>
+                                                    </div>
-                                                </tr>
+                                                </div>
-                                                <tr>
+
-                                                    <td>Celular Contacto:</td>
+                                                 <div class="col-md-6">
-                                                    <td>
+                                                    <div class="form-group form-md-line-input">
-                                                        <div class="form-group form-md-line-input" style="width: 100px">
+                                                        <asp:TextBox ID="TxtContactoTelefono" CssClass="form-control " runat="server" Width="100%" ValidationGroup="GrpGuardar"></asp:TextBox>
-                                                            <asp:TextBox ID="TxtContactoTelefono" CssClass="form-control input-sm" runat="server" Width="100px" ValidationGroup="GrpGuardar"></asp:TextBox>
                                                             <asp:RequiredFieldValidator ID="RFVTxtContactoTelefono" runat="server" ControlToValidate="TxtContactoTelefono" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                            <ajax:ValidatorCalloutExtender ID="VCETxtContactoTelefono" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtContactoTelefono" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                            <ajax:ValidatorCalloutExtender ID="VCETxtContactoTelefono" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtContactoTelefono" Width="300px"></ajax:ValidatorCalloutExtender>                                                            
-                                                            <%--<asp:RegularExpressionValidator ID="REVTxtContactoTelefono" runat="server" Display="None" ValidationExpression="^\(\d{3}\)\s\d{3}-\d{4}$" ControlToValidate="TxtContactoTelefono" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto Telefono''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
+                                                            <ajax:MaskedEditExtender ID="MSKTxtContactoTelefono" runat="server" TargetControlID="TxtContactoTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>            
-                                                            <ajax:ValidatorCalloutExtender ID="VCETxtContactoTelefono2" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtContactoTelefono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                                        <label for="<%= TxtContactoTelefono.ClientID%>">Celular Contacto:</label>
-                                                            <ajax:MaskedEditExtender ID="MSKTxtContactoTelefono" runat="server" TargetControlID="TxtContactoTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                    </div>
-                                                            <label></label>
+                                                </div>
-                                                        </div>
+                                            </div>
-                                                    </td>
+
-                                                </tr>
+                                            <div class="row">
-                                                <tr>
+                                                <div class="col-md-6">
-                                                    <td>Clasificación Proveedor:</td>
+                                                    <div class="form-group form-md-line-input">
-                                                    <td>
+                                                        <asp:DropDownList ID="DdlCveClasificacionProveedor" CssClass="form-control select2me " runat="server" AppendDataBoundItems="True" DataTextField="ProveedorClasificacion" DataValueField="CveProveedorClasificacion" Width="206px">
-                                                        <asp:DropDownList ID="DdlCveClasificacionProveedor" CssClass="form-control select2me input-sm" runat="server" AppendDataBoundItems="True" DataTextField="ProveedorClasificacion" DataValueField="CveProveedorClasificacion" Width="206px">
+                                                        </asp:DropDownList>            
-                                                        </asp:DropDownList>
+                                                        <label for="<%= DdlCveClasificacionProveedor.ClientID%>">Clasificación Proveedor:</label>
-                                                    </td>
+                                                    </div>
-                                                </tr>
+                                                </div>
-                                                <tr>
+                                                 <div class="col-md-6">
-                                                    <td>Responsable:</td>
+                                                    <div class="form-group form-md-line-input">
-                                                    <td>
+                                                          <asp:DropDownList ID="DdlCveUsuarioResponsable" runat="server" CssClass="form-control select2me " AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveUsuario" Width="206px">
-                                                        <asp:DropDownList ID="DdlCveUsuarioResponsable" runat="server" CssClass="form-control select2me input-sm" AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveUsuario" Width="206px">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                        </asp:DropDownList>
+                                                        </asp:DropDownList>            
-                                                    </td>
+                                                        <label for="<%= DdlCveUsuarioResponsable.ClientID%>">Responsable:</label>
-                                                </tr>
+                                                    </div>
-                                                <tr>
+                                                </div>
-                                                    <td>Tipo de Proveedor:</td>
+                                            </div>                                            
-                                                    <td>
+
-                                                        <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me input-sm" Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">
+                                            <div class="row">
-                                                            <%--<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>--%>
+                                                <div class="col-md-12">
+                                                    <div class="form-group form-md-line-input">            
+                                                        <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">                                                           
                                                             <asp:ListItem Selected="True" Text="Proveedor" Value="1"></asp:ListItem>
                                                             <asp:ListItem Selected="False" Text="Acreedor" Value="2"></asp:ListItem>
                                                             <asp:ListItem Selected="False" Text="Ambos" Value="3"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVCveTipoProveedor" runat="server" ControlToValidate="DdlCveTipoProveedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Proveedor''</b> es necesario, por favor seleccione uno." InitialValue="0" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCECveTipoProveedor" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RFVCveTipoProveedor" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                    </td>
+                                                        <label for="<%= DdlCveTipoProveedor.ClientID%>">Tipo de Proveedor:</label>
-                                                </tr>
+                                                    </div>
-                                                <tr>
+
-                                                    <td>Moneda Preferente:</td>
+                                                </div>
-                                                    <td>
+                                            </div>
-                                                        <asp:DropDownList ID="DdlMonedaPrefente" runat="server" CssClass="form-control select2me input-sm" Width="206px" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
+
-                                                    </td>
+
-                                                </tr>
+                                            <div class="row">
-                                                <tr id="TrConfianzaProveedor" runat="server" visible="false">
+                                                <div class="col-md-12">
-                                                    <td>Nivel de confianza al proveedor:</td>
+                                                    <div class="form-group form-md-line-input">
-                                                    <td>
+                                                        <asp:DropDownList ID="DdlMonedaPrefente" runat="server" CssClass="form-control select2me " Width="206px" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
-                                                        <asp:DropDownList ID="DdlConfianzaProveedor" runat="server" CssClass="form-control select2me input-sm" Width="206px">
+                                                        <label for="<%= DdlMonedaPrefente.ClientID%>">Moneda Preferente:</label>
+                                                    </div>
+                                                </div>
+                                            </div>
+
+                                            <div class="row" id="TrConfianzaProveedor" runat="server" visible="false" >
+                                                <div class="col-md-12">
+                                                    <div class="form-group form-md-line-input">
+
+                                                        <asp:DropDownList ID="DdlConfianzaProveedor" runat="server" CssClass="form-control select2me " Width="206px">
                                                             <asp:ListItem Text="Seleccione" Selected="True" Value="-1"></asp:ListItem>
                                                             <asp:ListItem Text="Proveedor dedicado" Value="1"></asp:ListItem>
                                                             <asp:ListItem Text="Proveedor requiere cotización" Value="2"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                    </td>
+            
-                                                </tr>
+                                                        <label for="<%= DdlConfianzaProveedor.ClientID%>">Nivel de confianza al proveedor:</label>
+                                                    </div>
+                                                </div>
+                                            </div>
 
-                                                 <tr>
+                                           
-                                                    <td>Regimen Fiscal:</td>
-                                                    <td>
-                                                        <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto"  Width="206px"  DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control select2me input-sm">
-                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
 
-                                                        <asp:RequiredFieldValidator ID="RfvDdlRegimenFiscal" runat="server" ControlToValidate="DdlRegimenFiscal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RfvDdlRegimenFiscal" Width="350px"></ajax:ValidatorCalloutExtender>
 
-                                                    </td>
-                                                </tr>
 
+                                            <table border="0">
                                                 <tr style="display: none">
                                                     <td>Estatus SAT:</td>
                                                     <td>
@@ -371,7 +396,9 @@
                                                     </td>
                                                 </tr>
                                             </table>
-                                        </div>
+
+
+                                    
                                     </div>
                                 </div>
                             </div>
@@ -3629,67 +3656,97 @@
                         <h4 class="modal-title" id="H2" runat="server">Cuenta Bancaria</h4>
                     </div>
                     <div class="modal-body">
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                            <div class="col-md-6">
-                            <asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
+                                    <asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
-                        </div>
+                                    <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
-                        <div class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
-                            <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                </div>
-                            <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                                        </div>
-                        </div>
+                                     <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                                </div>
+                                 </div>
+                            </div>
+                         <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
                             <label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
                         </div>
+                                 </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
                             <label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
                         </div>
+                                          </div>
+                                 </div>
+                         <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
                         </div>
+                                 </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
                         </div>
+                                          </div>
+                                 </div>
+                        <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                             <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
                         </div>
-                        
+                        </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
                         </div>
-
+ </div>
+                                 </div>
+                        <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
                             <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
                         </div>
-
+</div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Credito Proveedor:</label>
                         </div>
+                                          </div>
+ </div> <div class="row">
+                            <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
                         </div>
-
+                                </div>
+                                     <div class="col-md-6">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
                             <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
                         </div>
-
+ </div>
+                                          </div>
                         <div class="row">
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">

Compras/Proveedores.aspx.vb

@@ -506,6 +506,7 @@ Partial Class Compras_Proveedores
                     CargaAnticipos(CveProveedorSucursal)
                     CargaBancos(CveProveedorSucursal)
                     CargaProveedorSucursales()
+                    CargaCuentasBancarias()
 
                     CargaOC()
                     CargaDocs()
@@ -632,12 +633,17 @@ Partial Class Compras_Proveedores
 
             If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                 TrConfianzaProveedor.Visible = True
+                CondiguraConfiazaProveedor()
             End If
 
             If UsuarioActual.TienePermisoProceso(273) Then
                 GvA.Columns(5).Visible = True
             End If
 
+
+
+
+
         End If
 
         Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString)
@@ -649,6 +655,19 @@ Partial Class Compras_Proveedores
         RegisterPostBackControl()
     End Sub
 
+    Private Sub CondiguraConfiazaProveedor()
+
+        '1 Dedicado
+        '2 Proveedor que requiere Cotización
+
+        If Not UsuarioActual.TienePermisoProceso(355) Then
+            If Not DdlConfianzaProveedor.SelectedValue.ToEntero = 1 Then
+                DdlConfianzaProveedor.Items.Remove(New ListItem("Proveedor dedicado", "1"))
+            End If
+        End If
+
+    End Sub
+
     Private Sub CargaRegimenFiscal()
         DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
         DdlRegimenFiscal.DataBind()
@@ -1729,7 +1748,7 @@ Partial Class Compras_Proveedores
                 ''Agregar Cuentas Bancarias
                 If TempDTCuentasBancos.Rows.Count > 0 Then
                     For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero,
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, UsuarioActual.CveEmpresa,
                                                                       CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString,
                                                                       EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then
                             ErrorBancos = True
@@ -3091,37 +3110,30 @@ Partial Class Compras_Proveedores
     '    CargaCuentasBancarias()
     'End Sub
     Private Sub CargaCuentasBancarias()
-        Dim ObjCuentasBancos As New ClsGenerales
+
         ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
+        If CveProveedor > 0 Then
-            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+            Dim ObjCuentasBancos As New ClsGenerales
-        Else
+            If ObjCuentasBancos.GetCuentasDepositos(CveProveedor, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+            Else
+                Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+            End If
+            ObjCuentasBancos.Dispose()
         End If
 
+
         If CveProveedor < 0 Then
             'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
             TempDTCuentasBancos = DTCuentasBancos.Clone
 
-            'Esconde columna estatus
-            'THEstatus.Visible = False
-            'THEstatusTexto.Visible = False
-            'GvBancosCuentas.Columns(11).Visible = False 'Es la columna estatus CheckBox
-
-            'Mexicanada para acomadar las columnas'
-            'TDEstatusLayout.Visible = False
-            'TDEstatusTexto.Visible = False
-
         End If
 
-        ObjCuentasBancos.Dispose()
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
 
-        RecargaGlobalCuentasBancarias()
-
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
 
@@ -3213,21 +3225,22 @@ Partial Class Compras_Proveedores
                                    CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer,
                                    ConceptoCIE As String)
 
-        Dim ObjCuentasBancos As New ClsGenerales
+
         If Modalidad = "A" Then
 
             If CveProveedor > 0 Then
-
+                Dim ObjCuentasBancos As New ClsGenerales
-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor,
                                                         Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError)
                 End If
-
+                ObjCuentasBancos.Dispose()
             Else
                 Dim Row As DataRow
                 Row = TempDTCuentasBancos.NewRow
@@ -3261,17 +3274,19 @@ Partial Class Compras_Proveedores
 
 
             If CveProveedor > 0 Then
-
+                Dim ObjCuentasBancos As New ClsGenerales
                 If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
-                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
+                                                           False, Estatus, CveMoneda, UsuarioActual.CveEmpresa, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
                                                            ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
                 End If
+                ObjCuentasBancos.Dispose()
 
             Else
 
@@ -3301,7 +3316,7 @@ Partial Class Compras_Proveedores
             End If
 
         End If
-        ObjCuentasBancos.Dispose()
+
         LimpiaCuentasBancarias()
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
         RecargaGlobalCuentasBancarias()
@@ -3387,166 +3402,12 @@ Partial Class Compras_Proveedores
         End If
     End Sub
 
-    ''Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-    ''    Dim id As Integer = e.NewEditIndex
-    ''    GvBancosCuentas.EditIndex = id
-    ''    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-
-    ''    'Dim x As String = GvBancosCuentas.SelectedRowStyle("EstatusPagoElectronico")
-
-    ''    'If CBool(e.Row.DBCampo("EstatusPagoElectronico")) AndAlso e.Row.DBCampo("Referencia").ToString <> "" Then
-
-    ''    'End If
-
-    ''End Sub
-    'Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
-    '    GvBancosCuentas.EditIndex = -1
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    'End Sub
-    'Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
-
-    '    Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
-    '    Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
-    '    Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
-    '    Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
-    '    Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
-    '    Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
-    '    Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
-    '    Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
-    '    Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
-    '    Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString.ToEntero
-    '    Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
-    '    Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
-
-    '    Dim EsBancomer = False
-
-    '    If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
-    '        EsBancomer = True
-    '    End If
-
-    '    ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
-    '    'If EsBancomer AndAlso (CLABE.Length <> 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
-    '    '    Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-    '    '    Exit Sub
-    '    'End If
-
-    '    ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-    '    'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
-    '    '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '    '    Exit Sub
-    '    'End If
-
-    '    'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
-    '    If NumeroCuenta.Length = 0 AndAlso CLABE.Length = 0 AndAlso SWIFT.Length = 0 AndAlso ConvenioCIE.Length = 0 Then
-    '        Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-    '    If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
-    '        Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '        Exit Sub
-    '    End If
-
-    '    If UsuarioActual.CveEmpresa = 66 Then
-    '        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-    '        If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer And SWIFT.Length = 0 Then
-    '            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
-    '        If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
-    '            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'SI CIE TIENE ALGO REFERENCIA OBLIGATORIA
-    '        If ConvenioCIE.Trim.Length <> 0 And Referencia.Trim.Length < 3 Then
-    '            Alert("Cuando se ingresa Convenio CIE se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
-    '        If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length <> 0) Then
-    '            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-    '    Else
-    '        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
-    '        If ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length < 5 Then
-    '            Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-    '    End If
-
-
-
-    '    Dim ObjCuentasBancos As New ClsGenerales
-    '    If CveProveedor > 0 Then
-    '        If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda) Then
-    '            DTCuentasBancos.Clear()
-    '            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
-    '            Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
-    '        Else
-    '            Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
-    '        End If
-    '    Else
-    '        Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
-    '        Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
-    '        Row("BancoNombre") = NombreBanco
-    '        Row("Sucursal") = NumeroSucursal
-    '        Row("CLABE") = CLABE
-    '        Row("SWIFT") = SWIFT
-    '        Row("Plaza") = Plaza
-    '        Row("Cuenta") = NumeroCuenta
-    '        Row("CIE") = ConvenioCIE
-    '        Row("Referencia") = Referencia
-    '        Row("RefCrediProveedor") = RefCrediProveedor
-    '        Row("CveMoneda") = CveMoneda
-    '        Row("Moneda") = Moneda
-    '        Row("Estatus") = Estatus
-    '        TempDTCuentasBancos.AcceptChanges()
-    '    End If
-
-    '    ObjCuentasBancos.Dispose()
-
-    '    GvBancosCuentas.EditIndex = -1
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    '    RecargaGlobalCuentasBancarias()
-    'End Sub
-    'Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
-    '    Dim ObjCuentasBancos As New ClsGenerales
-
-    '    If CveProveedor > 0 Then
-    '        If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero) Then
-    '            DTCuentasBancos.Clear()
-    '            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
-
-    '            Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
-    '        Else
-    '            Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
-    '        End If
-    '    Else
-    '        Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
-    '        TempDTCuentasBancos.Rows.RemoveAt(index)
-    '    End If
-
-    '    If ObjCuentasBancos.GetCuentasDepositos Then
-    '        GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
-    '    End If
-
-    '    CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
-    '    ObjCuentasBancos.Dispose()
-    '    RecargaGlobalCuentasBancarias()
-    'End Sub
-
     Public Sub Delete_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CveProveedor > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero) Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
 
@@ -3567,12 +3428,7 @@ Partial Class Compras_Proveedores
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
         If CveProveedor > 0 Then
             GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
-            'Dim ObjCuentasBancos As New ClsGenerales
 
-            'If ObjCuentasBancos.GetCuentasDepositos() Then
-            '    GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1, True) = ObjCuentasBancos.DtResultados
-            'End If
-            'ObjCuentasBancos.Dispose()
         End If
     End Sub
 
@@ -6277,7 +6133,7 @@ Partial Class Compras_Proveedores
     Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
 
         If ChkPagoElectronico.Checked Then
-            Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia)
+            Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1,6 +1,7 @@
 
 Imports System.Data
 Imports System.Net.NetworkInformation
+Imports ADSNetLibrary.SIGAPI.Models.OC.Response
 'Imports DocumentFormat.OpenXml
 Imports Extensiones
 Imports GemBox.Spreadsheet
@@ -311,6 +312,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
 
+
                 Exit Sub
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
@@ -2734,8 +2736,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         End If
 
-
     End Sub
+
     Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
 
         'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
@@ -2787,12 +2789,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
 
-
-
-
-
-
-
         'Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
         ObjConta.Dispose()
 
@@ -3246,8 +3242,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
 
 
-
-
         Dim ObjConta As New ClsContabilidad
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
         If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -3327,5 +3321,6 @@ Partial Class ContabilidadC_RegPrePolizaS
     'End Sub
 
 
+
 End Class
 

Contabilidad/RepIVA.aspx.cs

@@ -201,17 +201,17 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         if (GvT.Rows.Count > 0 || GvA.Rows.Count > 0)
         {
             System.IO.FileInfo Imagen;
-            String logouri = "";
+           // String logouri = "";
 
             if (UsuarioActual.CveEmpresa.Contiene(119))
             {
                 Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.jpg", UsuarioActual.Empresa.Ruta));
-                logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+                //logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             }
             else
             {
                 Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
-                logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+                //logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
             }
 
             List<CrystalParametro> para = new List<CrystalParametro>();
@@ -220,7 +220,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             para.Add(new CrystalParametro("Filtros", $"<b>Filtros:</b> {FechaI}{FechaF}{TipoMov}"));
             if (Imagen.Exists)
             {
-                para.Add(new CrystalParametro("LogoPath", logouri));
+                para.Add(new CrystalParametro("LogoPath", Imagen.FullName));
             }
             else
             {

Contabilidad2/RepBalanzaComprobacion.aspx

@@ -76,10 +76,16 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                            <label class="col-md-1" >SubProyecto: </label>
+                            <div class="col-md-1">
-                            <div class="col-md-2 ">
+                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
-                                <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
+                            </div>
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                                </asp:DropDownList>
+                            </div>
+                            <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                                 </asp:DropDownList>
                             </div>
                       

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -1,6 +1,7 @@
 Option Explicit On
 Option Strict On
 
+Imports System
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
@@ -53,6 +54,23 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
         End Set
     End Property
 
+    Private Property CveProyecto As Integer
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
+    Private Property CveSubProyecto As Integer
+        Get
+            CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -85,23 +103,27 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             If Not ErrorParametros Then
                 CargaDatos()
             End If
-        Else
 
-            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
-            DdlSubproyecto.DataBind()
         End If
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
 #Region "CARGA DATOS Y GRID"
     Private Sub CargaDatos()
         '        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim ObjConta As New ClsContabilidad
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToEntero
 
         Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
 
-        If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa, 0, DdlNivel.SelectedValue.ToEntero) Then
+        If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, 0, DdlNivel.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados
 
 
@@ -170,7 +192,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                 e.Row.FCLabel("LbSaldoActual").Visible = True
                 e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
             Else
-                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString)
+                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
         End If
     End Sub

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -126,6 +126,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
     '    End Set
     'End Property
 
+    Private Property CveProyecto As Integer
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
+    Private Property CveSubProyecto As Integer
+        Get
+            CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+
 #End Region
 
 
@@ -333,8 +350,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             CargaEjercicios()
 
-            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
+            CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
-            TabSubProyecto.HeaderText = LblSubProyecto.Text & " "
+            TabSubProyecto.HeaderText = LblProyecto.Text & " " & LblSubProyecto.Text & " "
 
 
 
@@ -344,11 +361,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
     Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
 
         If TAB.ActiveTabIndex = 0 Then
-            LiSubProyectoDdl.Visible = True
+            'LiSubProyectoDdl.Visible = True
-            LiSubProyectoLbl.Visible = True
+            'LiSubProyectoLbl.Visible = True
 
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
@@ -368,8 +389,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If TAB.ActiveTabIndex = 1 Then
 
-            LiSubProyectoDdl.Visible = True
+            'LiSubProyectoDdl.Visible = True
-            LiSubProyectoLbl.Visible = True
+            'LiSubProyectoLbl.Visible = True
 
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
@@ -397,8 +418,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             ValidaEjercicios()
 
-            LiSubProyectoDdl.Visible = True
+            'LiSubProyectoDdl.Visible = True
-            LiSubProyectoLbl.Visible = True
+            'LiSubProyectoLbl.Visible = True
 
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
@@ -420,8 +441,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
         If TAB.ActiveTabIndex = 3 Then
-            LiSubProyectoDdl.Visible = True
+            'LiSubProyectoDdl.Visible = True
-            LiSubProyectoLbl.Visible = True
+            'LiSubProyectoLbl.Visible = True
 
             LiEjercicioDdl.Visible = True
             LiEjercicioLbl.Visible = True
@@ -437,8 +458,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LblTri.Visible = False
             DVTri.Visible = False
 
-            LiPeriodoDdl.Visible = False
+            LiPeriodoDdl.Visible = True
-            LiPeriodoLbl.Visible = False
+            LiPeriodoLbl.Visible = True
             DdlPeriodo.SelectedValueExist(12)
 
         End If
@@ -547,11 +568,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
         FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy")
         'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosMes = Nothing
@@ -675,8 +697,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
 
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
 
                 If DdlDivisor.SelectedValue.ToEntero > 1 Then
@@ -713,8 +735,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
 
             If DdlDivisor.SelectedValue.ToEntero > 1 Then
@@ -752,11 +774,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate
         FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
 
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosMesH = Nothing
@@ -1244,27 +1267,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                 e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
 
                 ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
@@ -1352,27 +1375,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
                 e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
 
-                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
-                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
-                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
+                e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto)
 
                 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
@@ -1530,11 +1553,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
         FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}"
 
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
+        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
             DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosAnualH = Nothing
@@ -1631,7 +1655,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexMax
                 Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
-                Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
+                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                Else
+                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
+                End If
+
             Next
 
 
@@ -1706,7 +1735,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexMax
                 Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
-                Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+
+                If DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
+                    Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                Else
+                    Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = "0"
+                End If
+
+
+
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1733,7 +1771,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexMax
                 Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
-                Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+
+
+                If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") > 0 Then
+                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                Else
+                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
+                End If
+
+
+
             Next
 
             Row.Item("Nombre") = "Resultados del Ejercicio"
@@ -1913,11 +1960,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
         FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")
 
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero
 
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
             DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
             'se limpian los subproyectos con importe cero
@@ -2106,11 +2154,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("CtaMayor") = -1
             DtIngresosSubProyectoH.Rows.Add(Row)
 
-            Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = "0.00"
-            Row.Item("ImporteAcumulado") = "0.00"
-            Row.Item("CtaMayor") = -1
-            DtIngresosSubProyectoH.Rows.Add(Row)
         End If
 
         Dim T1 = TotalActual, T2 = TotalAnterior

General/ColectivasDetalle.aspx.vb

@@ -112,7 +112,7 @@ Partial Class General_ColectivasDetalle
                 If TempDTCuentasBancos.Rows.Count > 0 Then
 
                     For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, 1, CveColectiva:=NuevoCveColectiva) Then
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveColectiva:=NuevoCveColectiva) Then
                             ErrorBancos = True
                         End If
                     Next
@@ -205,7 +205,7 @@ Partial Class General_ColectivasDetalle
         Dim Row As DataRow
 
         If CveColectiva > 0 Then
-            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, 1, CveColectiva:=CveColectiva) Then
+            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveColectiva:=CveColectiva) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveColectiva = {0}", CveColectiva)))
 
@@ -294,7 +294,7 @@ Partial Class General_ColectivasDetalle
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CveColectiva > 0 Then
-            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, True, 1) Then
+            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, True, 1, UsuarioActual.CveEmpresa) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveColectiva = {0}", CveColectiva)))
                 Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -322,7 +322,7 @@ Partial Class General_ColectivasDetalle
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CveColectiva > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero) Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveColectiva = {0}", CveColectiva)))
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)

General/SaldosIniciales.aspx.vb

@@ -1170,7 +1170,7 @@ Partial Class General_SaldosIniciales
 
                             If Not ErrorCuentaDeposito Then
                                 Dim ObjGrales As New ClsGenerales(ObjProv.IniciaTransacSQL)
-                                If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, CveProveedor:=ObjProv.CveProveedor) Then
+                                If Not ObjGrales.AddCuentasDepositos(Banco, "-1", "-1", NumeroCuenta, ClabeInter, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa, CveProveedor:=ObjProv.CveProveedor) Then
                                     'ErrorProv = True
                                 End If
                             End If
@@ -1811,6 +1811,9 @@ Partial Class General_SaldosIniciales
                 If Not dt.Columns.Contains("CveCuentaContable") Then
                     dt.Columns.Add("CveCuentaContable", GetType(Integer))
                 End If
+                If Not dt.Columns.Contains("CveCuentaContableDepreciacion") Then
+                    dt.Columns.Add("CveCuentaContableDepreciacion", GetType(Integer))
+                End If
                 Dim sbErrores As New StringBuilder
 
                 For Each Row As DataRow In dt.Rows
@@ -1830,6 +1833,18 @@ Partial Class General_SaldosIniciales
                             ErrorAF = True
                         End If
                     End If
+                    CuentaContable = Row("Cuenta Depreciación").ToString().Trim.Replace("-", "").Replace(" ", "")
+
+                    If CuentaContable.Length > 0 Then
+                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
+
+                        If CveCuentaContable > 0 Then
+                            Row("CveCuentaContableDepreciacion") = CveCuentaContable
+                        Else
+                            sbErrores.AppendLine($"Activo Fijo {Codigo} {Descripcion} cuenta {CuentaContable} no encontrada.<br>")
+                            ErrorAF = True
+                        End If
+                    End If
                 Next
 
                 If Not ErrorAF Then
@@ -1840,9 +1855,11 @@ Partial Class General_SaldosIniciales
                 End If
 
                 Dim ObjAF As New ClsAF
+                ObjAF.IniciaTransacSQL()
+                Dim ObjConta As New ClsContabilidad(ObjAF.IniciaTransacSQL)
                 Try
 
-                    ObjAF.IniciaTransacSQL()
+
 
                     Dim Contador As Integer = 0
                     Dim NumRow As Integer = 0
@@ -1872,7 +1889,7 @@ Partial Class General_SaldosIniciales
                         Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero()
                         Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero()
                         Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
-
+                        Dim CveCuentaContableDepreciacion As Integer = Row("CveCuentaContable").ToString().ToEntero()
 
                         'VALIDACIONES
                         If Not CveSubTipoAF > 0 Then Alert($"No se encontró el SubTipo:   {TipoAF} Descripcion: {Descripcion} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorAF = True : Exit For
@@ -1890,27 +1907,27 @@ Partial Class General_SaldosIniciales
 
                             If CveAF > 0 Then
                                 If CveCuentaContable > 0 Then
-
-                                    Dim ObjConta As New ClsContabilidad(ObjAF.IniciaTransacSQL)
-
                                     If Not ObjConta.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, CveCuentaContable, -1,
                                                   -1, -1, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=CveAF,
                                                   CveTipoGasto:=-1, RegeneraCuenta:=False) Then
                                         ErrorAF = True
                                     End If
-
+                                End If
+                                If CveCuentaContableDepreciacion > 0 Then
+                                    If Not ObjConta.AddCuentasAsignaciones(101, UsuarioActual.CveEmpresa, CveCuentaContableDepreciacion, -1,
+                                                  -1, -1, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=CveAF,
+                                                  CveTipoGasto:=-1, RegeneraCuenta:=False) Then
+                                        ErrorAF = True
+                                    End If
                                 End If
                             Else
                                 ErrorAF = True
                                 Exit For
                             End If
                         End If
-
-
                         NumRow = NumRow + 1
                     Next
 
-
                     If Not ErrorAF Then
                         If Contador > 0 Then
                             Alert(String.Format("Se agregaron: <b>{0}</b> Activos Fijos correctamente. <br>Se Omitieron: <b>{1}</b> Activos Fijos ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
@@ -1933,19 +1950,17 @@ Partial Class General_SaldosIniciales
 
                 Finally
                     ObjAF.Dispose()
+                    ObjConta.Dispose()
                 End Try
 #End Region
 
 
-
-
                 '  C U E N T A S    C O N T A B L E S
             ElseIf RblFormato.SelectedValue = "8" Then
                 Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
                 ObjConta.IniciaTransacSQL()
                 Try
 
-
                     Dim TieneError As Boolean = False
                     Dim ContadorUpdate As Integer = 0
                     Dim ContadorError As Integer = 0

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -77,7 +77,7 @@ Partial Class Inventarios_Default
             DivEquivalentes.Visible = True
             DivPS.Visible = False
         End If
-        If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then
+        If UsuarioActual.CveEmpresa = 119 Then
             TrCompuesto.Visible = True
         End If
         Dim Txt As String = IfNull(Request("Txt"), "").ToString
@@ -98,7 +98,7 @@ Partial Class Inventarios_Default
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             CargarDatosMedRin()
             CargaEquivalencia()
-        ElseIf UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then
+        ElseIf UsuarioActual.CveEmpresa = 119 Then
             CargaDatosCompuesto()
         Else
             CargaDatos(DDlPS.SelectedValue.ToEntero, 1)

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1006,13 +1006,15 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveConceptoEntrada As Integer = 27
         If Not ChkTransitorio.Checked Then CveConceptoEntrada = 27 Else CveConceptoEntrada = 9
 
+        Dim CveFolioGarantia As Integer = Request.QueryString("CveFolioGarantia").ToEntero
+
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                           Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
                                                           CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="",
                                                           ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="",
-                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2")
+                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
         FolioSalida = ObjInventario.Folio
         Folio = ObjInventario.Folio
         If CveMovimientoSalida <= 0 Then
@@ -1033,7 +1035,7 @@ Partial Class Inventarios_TraspasoAlmacen
         'ENTRADA
         CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, CveConceptoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
         FolioEntrada = ObjInventario.Folio
         If CveMovimientoEntrada <= 0 Then
             TextoError = "Ocurrió un error al generar el movimiento de entrada"

Nomina/Finiquito.aspx.cs

@@ -75,12 +75,12 @@ public partial class Nomina_Finiquito : ClsPaginas
         }
 
         set { ViewState["dtempleados"] = value; }
-    } 
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!Page.IsPostBack)
-        { 
+        {
             GvFinOrdinario.DataSource = new DataTable();
             GVFinIndemnizacion.DataSource = new DataTable();
             GvFinOrdinario.DataBind();
@@ -154,22 +154,20 @@ public partial class Nomina_Finiquito : ClsPaginas
                     FechaInicio = LblFechaAlta.Text.ToDateTime();
                     TxtObservaciones.Text = da["Observaciones"].ToString();
                     TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]);
+                    if (da["CveMotivoBaja"].ToString() == "")
                     {
-                        if (da["CveMotivoBaja"].ToString() == "")
+                        chkIndemnizacion.Checked = true;
-                        {
+                        chkSeparacionUnica.Checked = true;
-                            chkIndemnizacion.Checked = true;
+                        chkPrimaantiguedad.Checked = true;
-                            chkSeparacionUnica.Checked = true;
-                            chkPrimaantiguedad.Checked = true;
-                        }
-                        else
-                        {
-                            chkIndemnizacion.Checked = da["ValIndemnizacion"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
-                            chkSeparacionUnica.Checked = da["ValSeparacionunica"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
-                            chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
-                        }
                     }
-                    
+                    else
-                    DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString()=="6"?"-2":"-1"));
+                    {
+                        chkIndemnizacion.Checked = da["ValIndemnizacion"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                        chkSeparacionUnica.Checked = da["ValSeparacionunica"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                        chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                    }
+
+                    DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString() == "6" ? "-2" : "-1"));
                     DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]);
                     TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}";
                     ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE");
@@ -183,6 +181,30 @@ public partial class Nomina_Finiquito : ClsPaginas
                         {
                             loadsobrerecibo(onom);
                         }
+
+                        if (da["Autorizado"].ToString().ToEntero() == 1)
+                        {
+
+                            LnkAutorizar.Visible = false;
+                            LnkTimbrar.Visible = true;
+
+                            LnkGuardarDatos.Enabled = false;
+
+                            LnkGuardarDatos.CssClass = "btn btn-default";
+                            LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado.";
+                        }
+
+                        if (da["SeTimbro"].ToString().ToEntero() == 1)
+                        {
+                            LnkAutorizar.Visible = false;
+                            LnkTimbrar.Visible = false;
+
+                            LnkGuardarDatos.Enabled = false;
+
+                            LnkGuardarDatos.CssClass = "btn btn-default";
+                            LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado.";
+                        }
+                        UpAcciones.Update();
                     }
                 }
                 CamposCalculados();
@@ -537,13 +559,13 @@ public partial class Nomina_Finiquito : ClsPaginas
 
         string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "CveNomina", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
 
-        DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", CvePersonal), "", getcolumnas);
+        DataTable dtr = dtempleados.FiltraParametros(string.Format(" CvePersonal={0}  ", CvePersonal), "", getcolumnas);
         int CveNomina = dtr.Rows[0]["CveNomina"].ToString().ToEntero();
         LogicNominas lognom = new LogicNominas();
 
 
         string Msg = "";
-            Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,versionTimbre:(UsuarioActual.CveEmpresa == 119? VersionTimbradoEnum.PorDefectoEmpresa: VersionTimbradoEnum.Version3_3));
+        Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3));
 
         if (Msg != null && Msg.Length > 0)
         { Alert(Msg, TipoMensaje.MsgAdvertencia); }
@@ -738,7 +760,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                     DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero());
                     DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero());
                     FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
-                    FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
+                    //FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
                     DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
                     DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
                 }
@@ -753,6 +775,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                     NombreCompleto = drow["NombreCompleto"].ToString();
                     RFC = drow["RFC"].ToString();
                     CURP = drow["CURP"].ToString();
+                    FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
                     TipoPeriodo = drow["TipoPeriodo"].ToString();
                     NSS = drow["NSS"].ToString();
                 }
@@ -1087,7 +1110,7 @@ public partial class Nomina_Finiquito : ClsPaginas
             using (ClsRH ObjPersonal = new ClsRH())
             using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL()))
             {
-                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
+                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked, TxtObservaciones.Text) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
                 {
                     DataRow da = ObjPersonal.DtResultados.Rows[0];
                     CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
@@ -1136,7 +1159,8 @@ public partial class Nomina_Finiquito : ClsPaginas
         }*/
         dtempleadosConceptos = null;
         dtempleados = null;
-        if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal) && objnom.DTSetResultados.Tables.Count > 1)
+        LnkAutorizar.Visible = true;
+        if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal,Neto:1) && objnom.DTSetResultados.Tables.Count > 1)
         {
             dtempleados = objnom.DTSetResultados.Tables[3];
             LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "NomAutorizado =0") > 0);
@@ -1164,7 +1188,6 @@ public partial class Nomina_Finiquito : ClsPaginas
             LnkGuardarDatos.CssClass = "btn btn-default";
             LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado.";
         }
-        LnkAutorizar.Visible = true;
     }
 
     protected void LnkAutorizar_Click(object sender, EventArgs e)
@@ -1350,7 +1373,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                 if (continuar)
                 {
                     continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero());
-                    if(onom.DtResultados.Rows.Count > 0)
+                    if (onom.DtResultados.Rows.Count > 0)
                     {
                         DataRow drow = onom.DtResultados.Rows[0];
 
@@ -1358,7 +1381,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                         LtlSFSDI.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["SDI"]);
                         LtlSFDias.Text = string.Format("<pre>{0:##,###,###}</pre>", drow["diasMesAnterior"]);
                         LtlSFPercepciones.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["TotalPercepciones"]);
-                        LtlSFVar.Text = string.Format("<pre>(Percepciones /días)\r\n{0:##,###,###.00##}</pre>", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal() );
+                        LtlSFVar.Text = string.Format("<pre>(Percepciones /días)\r\n{0:##,###,###.00##}</pre>", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal());
                         LtlSF.Text = string.Format("<pre>Si((Tipo de salario ='Fijo'),SDI,(Salario Variable + SDI))\r\n{0:##,###,###.00##}</pre>", drow["SalarioBC"]);
                     }
                     GVSDF.DataSource = onom.DTSetResultados.Tables[1];

Nomina/Nomina.aspx.cs

@@ -106,6 +106,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
         set { ViewState["DtSuaProcesado"] = value; }
     }
 
+    protected bool enviarCorreoEnTimbrado
+    {
+        get
+        {
+            if (ViewState["enviarCorreoEnTimbrado"] == null) { return false; }
+            else { return (bool)ViewState["enviarCorreoEnTimbrado"]; }
+        }
+
+        set { ViewState["enviarCorreoEnTimbrado"] = value; }
+    }
     protected bool PermisoCancelarEmitido
     {
         get
@@ -249,6 +259,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
+            enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? false : true);
             LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1);
             if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); }
             using (ClsRH objrh = new ClsRH())
@@ -556,7 +567,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                 LnkFormatoTabular.Visible = true;
                 HypPDFSTimbrados.Visible = true;
-                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador,Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
+                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador, Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
                 {
                     dtempleados = objnom.DTSetResultados.Tables[3];
                     dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
@@ -1237,9 +1248,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                         if (pdf != null)
                         {
                             List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                            objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
 
-                            if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
+                            if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
                             {
                                 string Ruta = "";
                                 string PathXML = "";
@@ -1252,7 +1262,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                 PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
                                 Xmlname = $"{ObjNomina.SerieFolio}.xml";
                                 XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
-
+                                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
+                                //this.GuardaLog(PathXML);
                                 if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
                                 {
                                     objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
@@ -1326,96 +1337,97 @@ public partial class Nomina_Nomina2 : ClsPaginas
             objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
             dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto", "RFC", "CURP" });
         }
-        using (ClsNominas ObjNomina = new ClsNominas()) { 
+        using (ClsNominas ObjNomina = new ClsNominas())
-            foreach (GridViewRow gvRow in GvNominas.Rows)
         {
-            CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
+            foreach (GridViewRow gvRow in GvNominas.Rows)
-            int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
-            int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
-            LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
-            string Correo = string.Empty;
-            string NombreCompleto = string.Empty;
-            string RFC = string.Empty;
-            string CURP = string.Empty;
-            if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
             {
-                Correo = drow["Correo"].ToString();
+                CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
-                NombreCompleto = drow["NombreCompleto"].ToString();
+                int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
-                RFC = drow["RFC"].ToString();
+                int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
-                CURP = drow["CURP"].ToString();
+                LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
-            }
+                string Correo = string.Empty;
-            if (CvePersonal > 0 && LnkTimbrar.Visible)
+                string NombreCompleto = string.Empty;
-            {
+                string RFC = string.Empty;
-                LogicNominas lognom = new LogicNominas();
+                string CURP = string.Empty;
-
+                if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
-                string Msg = "";
-                Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3));
-
-                if (Msg != null && Msg.Length > 0)
                 {
-                    Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP);
+                    Correo = drow["Correo"].ToString();
-                    msggral = string.Format("{0}<tr><td>{3}</td><td>{2}</td><td><pre>{1}</pre></td></tr>", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo"));
+                    NombreCompleto = drow["NombreCompleto"].ToString();
+                    RFC = drow["RFC"].ToString();
+                    CURP = drow["CURP"].ToString();
                 }
-                else
+                if (CvePersonal > 0 && LnkTimbrar.Visible)
                 {
-                    LnkTimbrar.Visible = false;
+                    LogicNominas lognom = new LogicNominas();
-                    gvRow.CssClass = "success";
-                    gvRow.FindControl("ImgDelete").Visible = false;
-                    gvRow.FindControl("Imgdesautorizar").Visible = false;
 
-                    gvRow.FindControl("LnkCancelar").Visible = true;
+                    string Msg = "";
-                    gvRow.FindControl("HypXml").Visible = true;
+                    Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3));
-                    gvRow.FindControl("HypPDF").Visible = true;
 
-                    gvRow.ForeColor = Color.Green;
+                    if (Msg != null && Msg.Length > 0)
-
-                    if (Correo.Trim().Length > 0)
                     {
-                        byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
+                        Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP);
-                        if (pdf != null)
+                        msggral = string.Format("{0}<tr><td>{3}</td><td>{2}</td><td><pre>{1}</pre></td></tr>", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo"));
+                    }
+                    else
+                    {
+                        LnkTimbrar.Visible = false;
+                        gvRow.CssClass = "success";
+                        gvRow.FindControl("ImgDelete").Visible = false;
+                        gvRow.FindControl("Imgdesautorizar").Visible = false;
+
+                        gvRow.FindControl("LnkCancelar").Visible = true;
+                        gvRow.FindControl("HypXml").Visible = true;
+                        gvRow.FindControl("HypPDF").Visible = true;
+
+                        gvRow.ForeColor = Color.Green;
+
+                        if (enviarCorreoEnTimbrado && Correo.Trim().Length > 0)
                         {
-                            List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
+                            byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
-                            objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
+                            if (pdf != null)
-
-                            if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
                             {
-                                string Ruta = "";
+                                List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                                string PathXML = "";
-                                string PathXMLF = "";
-                                string Xmlname = "";
-                                string XmlnameF = "";
-                                string empleado = "";
-                                Ruta = UsuarioActual.Empresa.Ruta;
-                                PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
-                                PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
-                                Xmlname = $"{ObjNomina.SerieFolio}.xml";
-                                XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
 
-                                if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
+                                if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
                                 {
-                                    objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
+                                    string Ruta = "";
+                                    string PathXML = "";
+                                    string PathXMLF = "";
+                                    string Xmlname = "";
+                                    string XmlnameF = "";
+                                    string empleado = "";
+                                    Ruta = UsuarioActual.Empresa.Ruta;
+                                    PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
+                                    PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                                    Xmlname = $"{ObjNomina.SerieFolio}.xml";
+                                    XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
+
+                                    if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
+                                    {
+                                        objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
+                                    }
+                                    if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
+                                    {
+                                        objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
+                                    }
                                 }
-                                if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
+                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                                //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
+                                using (ClsRH objrh = new ClsRH())
                                 {
-                                    objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
+                                    objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
                                 }
                             }
-                            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
-                            //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
-                            using (ClsRH objrh = new ClsRH())
-                            {
-                                objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
-                            }
                         }
+
+
                     }
 
 
                 }
-
-
             }
         }
-    }
         if (msggral.Length > 0)
         {
 
@@ -1492,16 +1504,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (Correo.Trim().Length > 0)
         {
-                byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
+            byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
             if (pdf != null)
             {
-                List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
+                List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>(); 
-                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
 
                 using (ClsNominas ObjNomina = new ClsNominas())
                 {
 
-                    if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
+                    if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
                     {
                         string Ruta = "";
                         string PathXML = "";
@@ -1514,6 +1525,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                         PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
                         Xmlname = $"{ObjNomina.SerieFolio}.xml";
                         XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                        objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
 
                         if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
                         {
@@ -1597,18 +1609,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
             ClsNominas ObjPeriodo = new ClsNominas();
             ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
             ObjPeriodo.Dispose();
-            if (Correo.Trim().Length > 0)
+            if (enviarCorreoEnTimbrado && Correo.Trim().Length > 0)
             {
                 byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
                 if (pdf != null)
                 {
-                    List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
+                    List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>(); 
-                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
 
                     using (ClsNominas ObjNomina = new ClsNominas())
                     {
 
-                        if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa))
+                        if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
                         {
                             string Ruta = "";
                             string PathXML = "";
@@ -1621,6 +1632,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                             PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
                             Xmlname = $"{ObjNomina.SerieFolio}.xml";
                             XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                            objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
 
                             if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
                             {
@@ -7057,7 +7069,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             while (Neto != NetoSimulado && continuarV)
             {
 
-                if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto,ddlfiniquito.SelectedValue.ToEntero())
+                if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto, ddlfiniquito.SelectedValue.ToEntero())
                     && objnom.DTSetResultados.Tables.Count > 1)
                 {
                     dtempleadosSimula = objnom.DTSetResultados.Tables[3];

Nomina/RepFiniquito.aspx

@@ -30,7 +30,7 @@
 
                             <label class="col-md-1 truncate">Estatus:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlMotivoBaja" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" ValidationGroup="GrpGuardar">
+                                <asp:DropDownList ID="DdlEstatusFiniquito" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" ValidationGroup="GrpGuardar">
                                     <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="Pendientes" Value="0" Selected="True"></asp:ListItem>
                                     <asp:ListItem Text="Guardados" Value="1"></asp:ListItem>

Nomina/RepFiniquito.aspx.cs

@@ -29,10 +29,10 @@ public partial class Nomina_RepFiniquito :  ClsPaginas
             int diafin = DateTime.DaysInMonth(dnow.Year, dnow.Month);
             TxtFechaInicio.Text = string.Format("01/{0:MM/yyyy}", dnow);
             TxtFechaFin.Text = string.Format("{1}/{0:MM/yyyy}", dnow,diafin);
-            RcveEstatusFiniquito = Request["cveEstatusFiniquito"] == null ? 0 : Request["cveEstatusFiniquito"].ToString().ToEntero();
+            RcveEstatusFiniquito = Request["cveEstatusFiniquito"] == null ? -1 : Request["cveEstatusFiniquito"].ToString().ToEntero();
             RcveSubProyecto = Request["cveSubProyecto"] == null ? 0 : Request["cveSubProyecto"].ToString().ToEntero();
-            
+            DdlEstatusFiniquito.SelectedValueExist(RcveEstatusFiniquito);
-
+            RcveEstatusFiniquito = DdlEstatusFiniquito.SelectedValue.ToEntero();
             CargaRepFiniquitos();
         }
     }
@@ -48,6 +48,7 @@ public partial class Nomina_RepFiniquito :  ClsPaginas
     }
     protected void BtnConsultar_Click(object sender, EventArgs e)
     {
+        RcveEstatusFiniquito = DdlEstatusFiniquito.SelectedValue.ToEntero();
         CargaRepFiniquitos();
     }
 }

OC/RepOCSinFactura.aspx

@@ -69,7 +69,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Sucursal">
                         <ItemTemplate>
-                            <asp:Literal ID="LtSucursal" runat="server" Text='<%# Eval("Sucursal")%>'></asp:Literal>
+                            <asp:Literal ID="LtSucursal" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Vendedor">

OC/RepOCSinFactura.aspx.vb

@@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura
 
     Private Sub CargaCombos()
         'CargaSucursales
-        DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSucursal.DataBind()
 
         'Vendedor

RH/CalculoSBC.aspx

@@ -861,26 +861,41 @@
                                 </div>
                                 <div class="actions">
                                     <div class="btn-group">
+                                    </div>
 
-                                        <asp:LinkButton ID="LnkFormatocMasivaRegistroPatronal"  CssClass="btn btn-default" OnClick="LnkFormatocMasivaRegistroPatronal_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato Registro Patronal</asp:LinkButton>
+                                    <div class="btn-group ">
-                                        <asp:LinkButton ID="LnkFormatocMasiva" CssClass="btn btn-default" OnClick="LnkFormatocMasiva_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato Salario</asp:LinkButton>
+                                        <a class="btn yellow-gold btn-sm" href="javascript:;" data-toggle="dropdown" data-hover="dropdown" data-close-others="true" aria-expanded="true"><i class="fa fa-ad-excel"></i> Formatos
+                                                    <i class="fa fa-angle-down"></i>
+                                        </a>
+                                        <ul class="dropdown-menu pull-right">
+                                            <li>
+                                                <asp:LinkButton ID="LnkFormatocMasivaRegistroPatronal" OnClick="LnkFormatocMasivaRegistroPatronal_Click" runat="server"> Registro Patronal</asp:LinkButton>
+                                            </li>
+                                            <li>
+                                                <asp:LinkButton ID="LnkFormatocMasiva" OnClick="LnkFormatocMasiva_Click" runat="server"> Salario</asp:LinkButton>
+                                            </li>
+                                            <li>
+                                                <asp:LinkButton ID="LnkFormatocMasivaTS" OnClick="LnkFormatocMasivaTS_Click" runat="server"> Tipo salario</asp:LinkButton>
+                                            </li>
+                                        </ul>
                                     </div>
                                 </div>
                             </div>
                             <div class="portlet-body rowpadding ">
                                 <div class="row">
-                                    
+
-                        <label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 65px;">Tipo:</label>
+                                    <label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 65px;">Tipo:</label>
-                        <div class="col-md-4">
+                                    <div class="col-md-4">
-                            <asp:DropDownList ID="ddltipoCarga" runat="server" Style="width: 100% !important;" CssClass="select2me">
+                                        <asp:DropDownList ID="ddltipoCarga" runat="server" Style="width: 100% !important;" CssClass="select2me">
-                                <asp:ListItem Text="Salario" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Salario" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Registro Patronal" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Tipo salario" Value="3"></asp:ListItem>
-                            </asp:DropDownList>
+                                            <asp:ListItem Text="Registro Patronal" Value="2"></asp:ListItem>
-                        </div>
+                                        </asp:DropDownList>
-                                    <asp:Label ID="Label2" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
+                                    </div>
-                                    <div class="col-md-2" id="Div2" runat="server">
+                                    <asp:Label ID="Label2" runat="server" CssClass="col-md-2 ">Fecha :</asp:Label>
+                                    <div class="col-md-4" id="Div2" runat="server">
                                         <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
-                                            <asp:TextBox ID="txtfechacargamasiva" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
+                                            <asp:TextBox ID="txtfechacargamasiva" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="100%" MaxLength="10"></asp:TextBox>
                                             <span class="input-group-btn ">
                                                 <asp:LinkButton ID="lnkcargamasiva" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                             </span>
@@ -911,6 +926,7 @@
             </ContentTemplate>
             <Triggers>
                 <asp:PostBackTrigger ControlID="LnkFormatocMasiva" />
+                <asp:PostBackTrigger ControlID="LnkFormatocMasivaTS" />
                 <asp:PostBackTrigger ControlID="LnkFormatocMasivaRegistroPatronal" />
             </Triggers>
         </asp:UpdatePanel>

RH/CalculoSBC.aspx.cs

@@ -391,6 +391,75 @@ public partial class RH_CalculoSBC : ClsPaginas
             Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia);
         }
     }
+    protected void LnkFormatocMasivaTS_Click(object sender, EventArgs e)
+    {
+        try
+        {
+            bool continuar = true;
+            string msgerror = "";
+            if (dtsalario == null || dtsalario.Rows.Count == 0)
+            {
+                msgerror = "favor de calcular primero";
+                continuar = false;
+            }
+            if (continuar)
+            {
+
+                ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+
+                var libro = wb.AddWorksheet("Salario");
+                int column = 1;
+                libro.Cell(1, column).Value = "Codigo";
+                column++;
+                libro.Cell(1, column).Value = "Empleado";
+                column++;
+                libro.Cell(1, column).Value = "TipodeSalario"; 
+                libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+                libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+
+                int Fila = 1;
+                foreach (DataRow erow in dtsalario.Rows)
+                {
+                    Fila++;
+                    column = 1;
+                    libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
+
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["TipodeSalario"]; 
+                }
+
+                libro.Columns().AdjustToContents();
+                System.IO.Stream fs = new System.IO.MemoryStream();
+                wb.SaveAs(fs);
+                fs.Position = 0;
+                System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
+                using (System.IO.Stream input = fs)
+
+                {
+                    input.CopyTo(memoryStream);
+                }
+                memoryStream.Position = 0;
+
+                Response.Clear();
+                Response.Buffer = true;
+
+                Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
+                Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Plantilla Salario "));
+                Response.BinaryWrite(memoryStream.ToArray());
+                Response.End();
+            }
+            else
+            {
+                Alert(msgerror, TipoMensaje.MsgAdvertencia);
+            }
+        }
+        catch (Exception ex)
+        {
+            Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia);
+        }
+    }
 
     protected void LnkProcesarArchvo_Click(object sender, EventArgs e)
     {
@@ -475,7 +544,7 @@ public partial class RH_CalculoSBC : ClsPaginas
 
             StringBuilder str = new StringBuilder();
             bool rollback = false;
-            using (ClsClaseBase objNomina = new ClsClaseBase( ))
+            using (ClsClaseBase objNomina = new ClsClaseBase())
             using (ClsRH objpersonal = new ClsRH())
             {
 
@@ -483,7 +552,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                 {
                     string Codigo = row["Codigo"].ToString();
                     int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero();
-                    string RegistroPatronal = row["RegistroPatronal"].ToString() ; 
+                    string RegistroPatronal = row["RegistroPatronal"].ToString();
                     int CveMetodoPago = 0;
                     if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) &&
                         objpersonal.DtResultados.Rows.Count == 1)
@@ -501,7 +570,47 @@ public partial class RH_CalculoSBC : ClsPaginas
                         objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalRPUpdate {0},'{1}'", CvePersonal, RegistroPatronal));
                     }
                 }
-               
+
+
+
+            }
+        }
+        if (ddltipoCarga.SelectedValue.ToEntero() == 3)
+        {
+
+            List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
+            Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null;
+            DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true);
+
+            StringBuilder str = new StringBuilder();
+            bool rollback = false;
+            using (ClsClaseBase objNomina = new ClsClaseBase())
+            using (ClsRH objpersonal = new ClsRH())
+            {
+
+                foreach (DataRow row in DTEXcel.FiltraParametros("LEN(Codigo)>0 ").Rows)
+                {
+                    string Codigo = row["Codigo"].ToString();
+                    int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero();
+                    string TipodeSalario = row["TipodeSalario"].ToString();
+                    int CveMetodoPago = 0;
+                    if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) &&
+                        objpersonal.DtResultados.Rows.Count == 1)
+                    {
+                        CvePersonal = objpersonal.CvePersonal;
+                        CveMetodoPago = objpersonal.CveMetodoPago;
+                    }
+                    else
+                    {
+                        CvePersonal = 0;
+                        str.AppendLine(string.Format("No se encontro el codigo {0}<br>", Codigo));
+                    }
+                    if (CvePersonal > 0)
+                    {
+                        objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalTSUpdate {0},'{1}'", CvePersonal, TipodeSalario));
+                    }
+                }
+
 
 
             }

RH/CatAsistenciasInasistencias.aspx

@@ -31,7 +31,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAsistenciasInasistencias,Tipo,AplicaAsistencia,AplicaFalta,AplicaVacacion,AplicaIncapacidad,AplicaRetardo,AplicaAguinaldo,AplicaUtilidades,Estatus" EmptyDataText="No se encontraron AsistenciasInasistenciass Registrados" ToolTip="Listado de AsistenciasInasistenciass" CssClass="table table-striped table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAsistenciasInasistencias,Tipo,AplicaAsistencia,AplicaFalta,AplicaVacacion,AplicaIncapacidad,AplicaRetardo,AplicaAguinaldo,AplicaUtilidades,AplicaPago,AplicaPagoDoble,AplicaPrimaVac,Estatus" EmptyDataText="No se encontraron AsistenciasInasistenciass Registrados" ToolTip="Listado de AsistenciasInasistenciass" CssClass="table table-striped table-hover Widthall" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Tipo" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
@@ -86,6 +86,16 @@
                             <asp:Literal ID="LtlAplicaUtilidades" runat="server" Text='<%# Eval("AplicaUtilidades") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Aplica Pago" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlAplicapago" runat="server" Text='<%# Eval("AplicaPago") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Aplica Pago Doble" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlAplicapagoDoble" runat="server" Text='<%# Eval("AplicaPagoDoble") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
 
 
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
@@ -174,6 +184,10 @@
                                         <label for="AplicaRetardo">Aplica Retardo:</label><br />
                                         <asp:CheckBox ID="AplicaRetardo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
+                                    <div class="col-md-4">
+                                        <label for="ChkAplicaPrimaVac">Aplica Prima Vacacional:</label><br />
+                                        <asp:CheckBox ID="ChkAplicaPrimaVac" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
+                                    </div>
                                 </div>
                                 <div class="row">
                                     <div class="col-md-4">
@@ -184,12 +198,22 @@
                                         <label for="AplicaUtilidades">Aplica Utilidades:</label><br />
                                         <asp:CheckBox ID="AplicaUtilidades" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
+                                    <div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
+                                        <label for="ChkEstatus">Activo:</label><br />
+                                        <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
+                                    </div>
                                 </div>
                                 <div class="row">
+                                    <div class="col-md-4">
+                                        <label for="ChkAplicaPago">Aplica Pago:</label><br />
+                                        <asp:CheckBox ID="ChkAplicaPago" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
+                                    </div>
+                                    <div class="col-md-4">
+                                        <label for="ChkAplicaPagoDoble">Aplica Pago doble:</label><br />
+                                        <asp:CheckBox ID="ChkAplicaPagoDoble" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
+                                    </div>
                                 </div>
-                                <div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
+                                <div class="row">
-                                    <label for="ChkEstatus">Activo:</label><br />
-                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                 </div>
 
                             </div>

RH/CatAsistenciasInasistencias.aspx.vb

@@ -85,10 +85,13 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked
         Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
+        Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0)
+        Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
+        Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
 
 
         If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
+chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
@@ -129,6 +132,11 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         AplicaAguinaldo.Checked = If(GvRow.DataKey("AplicaAguinaldo") = "Aplica", True, False)
         AplicaUtilidades.Checked = If(GvRow.DataKey("AplicaUtilidades") = "Aplica", True, False)
 
+        ChkAplicaPago.Checked = If(GvRow.DataKey("AplicaPago") = "Aplica", True, False)
+        ChkAplicaPagoDoble.Checked = If(GvRow.DataKey("AplicaPagoDoble") = "Aplica", True, False)
+        ChkAplicaPrimaVac.Checked = If(GvRow.DataKey("AplicaPrimaVac") = "Aplica", True, False)
+
+
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
         CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
@@ -156,9 +164,16 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
 
+        Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0)
+        Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
+        Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
+
+
+
 
         If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
-                    chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
+                    chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble,
+                    aplicaPrimaVac) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados

RH/Personal.aspx.vb

@@ -1999,7 +1999,7 @@ Partial Class RH_Personal
                 If TempDTCuentasBancos.Rows.Count > 0 Then
 
                     For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
                             TieneError = True
                             Exit For
                         End If
@@ -3353,7 +3353,7 @@ Partial Class RH_Personal
 
         If CvePersonal > 0 Then
             Dim ObjCuentasBancos As New ClsGenerales
-            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
+            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
 
@@ -3539,7 +3539,7 @@ Partial Class RH_Personal
         End If
         Dim ObjCuentasBancos As New ClsGenerales
         If CvePersonal > 0 Then
-            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico) Then
+            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
                 Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)
@@ -3570,7 +3570,7 @@ Partial Class RH_Personal
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CvePersonal > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
                 DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
                 Alert("Cuenta Bancaria borrada con exito.", TipoMensaje.MsgInformacion)

Ventas/Clientes.aspx.vb

@@ -6542,7 +6542,7 @@ Partial Class Clientes
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CveCliente:=CveCliente) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CveCliente:=CveCliente, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
         Else
             Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
@@ -6624,11 +6624,11 @@ Partial Class Clientes
 
             If CveCliente > 0 Then
 
-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveCliente:=CveCliente) Then
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
                     DTCuentasBancos.Clear()
-                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
                     Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
+                    CargaCuentasBancarias()
                 Else
                     Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError)
                 End If
@@ -6654,16 +6654,15 @@ Partial Class Clientes
                 Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
 
-            End If
+            End If
-
+
         Else
 
-
             If CveCliente > 0 Then
 
-                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
-                    DTCuentasBancos.Clear()
+                    DTCuentasBancos.Clear()
-                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
+                    CargaCuentasBancarias()
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
                 Else
@@ -6716,9 +6715,8 @@ Partial Class Clientes
                     TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
                 Next
                 TempDTCuentasBancos.AcceptChanges()
-            End If
+            End If
-
+
-
             If e.Row.DBCampo("Estatus") = "True" Then
                 e.Row.FCLabel("LlbEstatusTexto").Text = "Activo"
             Else
@@ -6734,9 +6732,9 @@ Partial Class Clientes
         Dim ObjCuentasBancos As New ClsGenerales
 
         If CveCliente > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero()) Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveCliente = {0}", CveCliente)))
+                CargaCuentasBancarias()
 
                 Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
             Else

Ventas/RepProductosServicios.aspx.vb

@@ -255,15 +255,9 @@ Partial Class Ventas_RepProductosServicios
     Protected Sub CargarMarcas()
         If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
             DivMarca.Visible = True
-            LblMarca.Visible = True
+            LblMarca.Visible = True
-
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
-            'Using ObjMarcas As New ClsProductosServicios
+            DdlMarcaPSDes.DataBind()
-            '    If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-            '        DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-            '        DdlMarcaPSDes.DataBind()
-            '    End If
-            'End Using
-            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         End If
         DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
     End Sub

Ventas/Ventas.aspx.vb

@@ -7686,7 +7686,7 @@ Partial Class Ventas
             DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
             DdlClasificacionPyME.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros("Estado = 1", Orderby:="Clasificacion")
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3) and Estado = 1", Orderby:="Clasificacion")
             DdlClasificacionPyME.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros("", Orderby:="Clasificacion")
         End If
         'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)