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

App_Code/ClsNominas.vb

@@ -2279,8 +2279,6 @@ Public Class ClsNominas
                 .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion
                 .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal
             End With
-
-
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException
@@ -2303,7 +2301,6 @@ Public Class ClsNominas
                 .Add("@Tipo", SqlDbType.Int).Value = Tipo
                 .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
             End With
-
             SqlAdapter.Fill(DTSet)
             retorno = True
         Catch sqEx As SqlException

App_Code/ClsPaginas.vb

@@ -4724,7 +4724,6 @@ Public Class ClsPaginas
             PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75)
             PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75)
             PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91)
-            PaginaDict.Add("/Nomina/ConceptosEspeciales.aspx".ToUpper(), 136)
             PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172)
             PaginaDict.Add("/Nomina/ConceptoNomina.aspx".ToUpper(), 172)
             PaginaDict.Add("/Nomina/RegistroNomina.aspx".ToUpper(), 173)

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -123,12 +123,11 @@ Partial Class AC2_RepAnexoCatalogo
 
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
                         CveSubProyecto = Request("CveSubProyecto").ToString
+                        DdlSubproyecto.SelectedValueExist(CveSubProyecto)
                     End If
 
-
                     ErrorParametros = False
 
-
                     If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
                         TipoReporte = Request("TP").ToEntero
 

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -1712,6 +1712,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, 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
+            Dim IndexData As Integer = 1
+            Dim ColumnasEliminar As New ArrayList
+            For Each dColumn As DataColumn In DtDatosSubProyectoH.Columns
+                'si el nombre es numerico, s la clave del subproyecto
+                If dColumn.ColumnName.ToEntero > 0 Then
+                    If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then
+                        ColumnasEliminar.Add(dColumn.ColumnName)
+                        'DtDatosSubProyectoH.Columns.Remove(dColumn.ColumnName)
+                    End If
+                End If
+
+            Next
+
+            If ColumnasEliminar.Count > 0 Then
+                For Each columna As String In ColumnasEliminar
+                    DtDatosSubProyectoH.Columns.Remove(columna)
+                Next
+            End If
+
         Else
             DtDatosSubProyectoH = Nothing
             Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError)
@@ -1739,43 +1759,59 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         Dim IndexGv As Integer = 1
         Dim IndexMax As Integer = 1
         Dim IndexSubProyecto = 0
-        Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
+        Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
-        Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx
+
+
+        If IndexSubProyectoMAx > GvIngresosSubProyectoH.Columns.Count - 2 Then
+            IndexSubProyectoMAx = GvIngresosSubProyectoH.Columns.Count - 2
+        End If
+        Dim IndexTotales As Integer = 13 + IndexSubProyectoMax
+        If IndexTotales > DtIngresosSubProyectoH.Columns.Count - 2 Then
+            IndexTotales = DtIngresosSubProyectoH.Columns.Count - 2
+        End If
 
         '34
         Dim IDX_LIMPIAR As Integer = 1
 
-        For IDX_LIMPIAR = 1 To 35
+        For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 2
             CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing
             CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = ""
             GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False
         Next
         listaCampos.Clear()
 
-
         If DtIngresosSubProyectoH.Rows.Count > 0 Then
 
-            For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
+            For Each dColumn As DataColumn In DtIngresosSubProyectoH.Columns
 
                 If IndexData >= 13 Then
 
-                    If IndexSubProyecto <= IndexSubProyectoMAx Then
+                    If IndexSubProyecto <= IndexSubProyectoMax Then
 
-                        CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
+                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
+                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
 
-                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
 
-                        If IndexSubProyecto <= IndexSubProyectoMAx Then
+                            If IndexSubProyecto <= IndexSubProyectoMax Then
-                            CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                                Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
-                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                                CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
-                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
+                                CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                                CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub
+                            End If
+                            listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
                         End If
-                        listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
+
                     Else
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                        If IndexGv < GvIngresosSubProyectoH.Columns.Count Then
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                        Else
+                            Exit For
+                        End If
+
                     End If
 
                     IndexGv = IndexGv + 1
@@ -1793,8 +1829,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
             IndexData = 13
-            For IndexData = 13 To IndexTotatles
+            For IndexData = 13 To IndexTotales
-                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
+                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                End If
             Next
 
             Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1823,7 +1861,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         If DtGastosSubProyectoH.Rows.Count > 1 Then
 
-
             IndexData = 0
             IndexGv = 1
             IndexMax = 0
@@ -1832,13 +1869,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns
                 If IndexData >= 13 Then
                     If IndexSubProyecto <= IndexSubProyectoMAx Then
-                        CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                        If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
-                        GvGastosSubProyectoH.Columns(IndexGv).Visible = True
+                            CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
-                        CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                            GvGastosSubProyectoH.Columns(IndexGv).Visible = True
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+                            CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
+                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
+                        End If
+
                     Else
-                        GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                        If IndexGv < DtIngresosSubProyectoH.Columns.Count AndAlso IndexGv < GvIngresosSubProyectoH.Columns.Count Then
-                        GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                            GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                            GvTotalesSubProyectoH.Columns(IndexGv).Visible = False
+                        Else
+                            Exit For
+                        End If
                     End If
 
                     IndexGv = IndexGv + 1
@@ -1847,16 +1891,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 IndexData = IndexData + 1
             Next
 
-
-
             For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
                 TotalActual += dr("ImporteActual").ToString.ToDouble
                 TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
             Next
 
             IndexData = 13
-            For IndexData = 13 To IndexTotatles
+            For IndexData = 13 To IndexTotales
-                Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
+                    Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
+                End If
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1881,8 +1925,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row = DTTotalesSubProyectoH.NewRow
 
             IndexData = 13
-            For IndexData = 13 To IndexTotatles
+            For IndexData = 13 To IndexTotales
-                Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+                If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
+                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)")
+                End If
             Next
 
             Row.Item("Nombre") = "Resultado del ejercicio"
@@ -1949,19 +1995,22 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 Dim IndiceMax As Integer = 1 + CountDinamico
 
                 Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
+                If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
+                    IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2
+                End If
 
                 For IndiceInicio = 1 To IndiceMax
 
-                    Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
+                    If GvGastosSubProyectoH.Columns(IndiceInicio).GetType.Name = "BoundField" Then
-                    Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+                        Dim CveSubProyectoInterno As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
+                        Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
 
+                        If CveSubProyectoInterno.ToEntero > 0 Then
+                            e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoInterno}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
+                        End If
 
-                    If CveSubProyectoIntermo.ToEntero > 0 Then
-                        e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
                     End If
 
-
-
                 Next IndiceInicio
 
                 e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
@@ -1971,20 +2020,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
+                If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
+                    IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2
+                End If
 
                 For IndiceInicio = 1 To IndiceMax
-
                     Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
                     e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'")  }  ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
                 Next IndiceInicio
 
-
-
             ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
 
                 Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
                 Dim IndiceInicio As Integer = 1
                 Dim IndiceMax As Integer = 1 + CountDinamico
+                If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
+                    IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2
+                End If
 
                 For IndiceInicio = 1 To IndiceMax
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -32,14 +32,14 @@ Partial Class Inventarios_InventarioFisicoDetalle
             ViewState("CveInventarioFisico") = value
         End Set
     End Property
-    Private Property DtDatos As DataTable
+    'Private Property DtDatos As DataTable
-        Get
+    '    Get
-            Return DirectCast(ViewState("DtVentas"), DataTable)
+    '        Return DirectCast(ViewState("DtVentas"), DataTable)
-        End Get
+    '    End Get
-        Set(value As DataTable)
+    '    Set(value As DataTable)
-            ViewState("DtVentas") = value
+    '        ViewState("DtVentas") = value
-        End Set
+    '    End Set
-    End Property
+    'End Property
     Private Property CveAlmacenes As String
         Get
             Return ViewState("CveAlmacenes").ToString
@@ -216,7 +216,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Else
                     GvIFDUltimoRegistrado.DataSource = Nothing
                 End If
-                DtDatos = ObjInventario.DtResultados
+                'DtDatos = ObjInventario.DtResultados
             End If
         Else
             GvIFD.Columns(6).Visible = False
@@ -261,8 +261,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
             Else
                 GvIFD.DataSource = Nothing
-            End If
+            End If
-            DtDatos = Inventario.DtResultados
+            ' DtDatos = Inventario.DtResultados
         End If
         Inventario.Dispose()
         GvIFD.DataBind()

Inventarios/Kardex.aspx.vb

@@ -238,12 +238,12 @@ Partial Class Inventarios_Kardex
                     Dim Dr = DtTemp.FiltroUltimo("")
                     Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1)
 
-                    LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero()
+                    LtIndicador_Existencia.Text = Dr("Existencias").ToString.ToDecimal.ToString("#,##0.####")
 
                     LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero()
                     LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero()
 
-                    Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0)
+                    Dim CostoPromedio As Decimal = If(Dr("Existencias").ToString.ToDecimal.RoundSQL(4) > 0, Dr("ValorInventario").ToString.ToDecimal.RoundSQL(4) / Dr("Existencias").ToString.ToDecimal.RoundSQL(4), 0)
                     LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero()
                     LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero()
 

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -35,7 +35,7 @@ Partial Class Inventarios_KardexAlmacen
 
         Using ObjPS As New ClsProductosServicios
             If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarca.DataSource = ObjPS.DtResultados.Copy()
+                DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca")
             End If
         End Using
         DdlMarca.DataBind()

Inventarios/RecepcionAlmacen.aspx.vb

@@ -189,11 +189,11 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
-    Private Property TipoCambio As Double
+    Private Property TipoCambio As Decimal
         Get
-            Return ViewState("TipoCambio").ToString.ToDouble
+            Return ViewState("TipoCambio").ToString.ToDecimal
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("TipoCambio") = value
         End Set
     End Property
@@ -1080,7 +1080,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         DdlMonedaTC.SelectedValueExist("2")
                         DdlMonedaTC_SelectedIndexChanged(DdlMonedaTC, EventArgs.Empty)
                         'TxtTipoCambio.Text = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToString, TipoCambio.ToString)
-                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambio)
+                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal, TipoCambio)
                         LtAdvertencia.Text = "El cambio de moneda se aplicara al guardar el movimiento con el tipo de cambio indicado."
                         DivAdvertencia.Visible = True
                     End If
@@ -1139,7 +1139,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     End If
 
-                    Dim CantidadFaltante As Double = DtRecepcion.SUM("CantidadC", "CantidadF > 0")
+                    Dim CantidadFaltante As Decimal = DtRecepcion.SUMD("CantidadC", "CantidadF > 0")
 
                     If UsuarioActual.Empresa.UsaAC AndAlso CantidadFaltante > 0 Then
                         PnlAC.Visible = True
@@ -1300,24 +1300,24 @@ Partial Class Inventarios_RecepcionAlmacen
 #Region "  GVINV  "
     Private Sub CreaDTInv(TmDT As DataTable)
         TmDT.Columns.Add("CveAlmacen", GetType(Integer))
-        TmDT.Columns.Add("PUExtranjero", GetType(Double))
+        TmDT.Columns.Add("PUExtranjero", GetType(Decimal))
-        TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Double))
+        TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Decimal))
         TmDT.Columns.Add("Consec", GetType(Integer))
-        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
+        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Decimal))
         If Not TmDT.Columns.Contains("AplicaSeccion") Then
-            TmDT.Columns.Add("AplicaSeccion", GetType(Double))
+            TmDT.Columns.Add("AplicaSeccion", GetType(Decimal))
         End If
         If Not TmDT.Columns.Contains("AplicaSerie") Then
-            TmDT.Columns.Add("AplicaSerie", GetType(Double))
+            TmDT.Columns.Add("AplicaSerie", GetType(Decimal))
         End If
         If Not TmDT.Columns.Contains("AplicaLote") Then
-            TmDT.Columns.Add("AplicaLote", GetType(Double))
+            TmDT.Columns.Add("AplicaLote", GetType(Decimal))
         End If
         If Not TmDT.Columns.Contains("AplicaCaducidad") Then
-            TmDT.Columns.Add("AplicaCaducidad", GetType(Double))
+            TmDT.Columns.Add("AplicaCaducidad", GetType(Decimal))
         End If
         If Not TmDT.Columns.Contains("CostoIndirecto") Then
-            TmDT.Columns.Add("CostoIndirecto", GetType(Double))
+            TmDT.Columns.Add("CostoIndirecto", GetType(Decimal))
         End If
         If Not TmDT.Columns.Contains("Lote") Then
             TmDT.Columns.Add("Lote", GetType(String))
@@ -1332,7 +1332,7 @@ Partial Class Inventarios_RecepcionAlmacen
             TmDT.Columns.Add("Seleccionado", GetType(Boolean))
         End If
         If Not TmDT.Columns.Contains("CantidadSeleccionada") Then
-            TmDT.Columns.Add("CantidadSeleccionada", GetType(Double))
+            TmDT.Columns.Add("CantidadSeleccionada", GetType(Decimal))
         End If
 
 
@@ -1600,7 +1600,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         RegistraScript("playsonidito('beep-07.wav')")
                         UPInv.Update()
                         Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-                        Dr("CantidadSurtidaPantalla") = TxtCantidad.Text.ToDouble
+                        Dr("CantidadSurtidaPantalla") = TxtCantidad.Text.ToDecimal
                         DtInv.AcceptChanges()
                         Exit Sub
                     End If
@@ -1732,7 +1732,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDouble
+            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
             DtInv.AcceptChanges()
         Next
 
@@ -1891,7 +1891,7 @@ Partial Class Inventarios_RecepcionAlmacen
             DtDatosLoteDetalle = New DataTable
             DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer))
             DtDatosLoteDetalle.Columns.Add("ConsecId", GetType(Integer))
-            DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Double))
+            DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Decimal))
             DtDatosLoteDetalle.Columns.Add("CvePS", GetType(Integer))
             DtDatosLoteDetalle.Columns.Add("CveUM", GetType(Integer))
             DtDatosLoteDetalle.Columns.Add("PU", GetType(Decimal))
@@ -1919,7 +1919,7 @@ Partial Class Inventarios_RecepcionAlmacen
         GvLote.DataBind()
 
         'VALIDA QUE SIGA AGREGANDO
-        If Not DtDatosLoteDetalle.SUM("Cantidad", String.Format("ConsecId = {0}", CveConsecSerie)) < LbLoteCantidad2.Text.ToDouble Then
+        If Not DtDatosLoteDetalle.SUM("Cantidad", String.Format("ConsecId = {0}", CveConsecSerie)) < LbLoteCantidad2.Text.ToDecimal Then
             BtnAddPSLote.Enabled = False
             If CerrarCompletado Then
                 RegistraScript("$('#DivLote').modal('hide');")
@@ -1945,11 +1945,11 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
             Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDouble
+            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
             DtInv.AcceptChanges()
         Next
 
-        RVCantidadLote.MaximumValue = (If((LbLoteCantidad2.Text.ToDouble - Contador) = 0, 0.02, LbLoteCantidad2.Text.ToDouble - Contador)).ToString.FormatoNumero
+        RVCantidadLote.MaximumValue = (If((LbLoteCantidad2.Text.ToDecimal - Contador) = 0, 0.02, LbLoteCantidad2.Text.ToDecimal - Contador)).ToString.FormatoNumero
 
         TxtCantidadLote.Text = "1"
         TxtLote.Text = ""
@@ -1990,7 +1990,7 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
         Dim Row = DtDatosLoteDetalle.NewRow
-        Dim CantidadLote = TxtCantidadLote.Text.ToDouble
+        Dim CantidadLote = TxtCantidadLote.Text.ToDecimal
 
         Dim MensajeSinExistencias As New StringBuilder
         Dim ObjInventarios As New ClsInventarios
@@ -2055,7 +2055,7 @@ Partial Class Inventarios_RecepcionAlmacen
 #Region "  GUARDAR  "
     Private Function ValidaGuardar() As Boolean
 
-        Dim TotalCantidad As Double = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCTextBox("TbCantidadF").Text.ToDouble)
+        Dim TotalCantidad As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCTextBox("TbCantidadF").Text.ToDecimal)
         If TotalCantidad <= 0 Then
             Alert("No se seleccionó ninguna cantidad de productos a guardar. Por favor verifique e intente nuevamente.", TipoMensaje.MsgAdvertencia)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2084,9 +2084,9 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
 
-        Dim TotalPorDevengar As Double = 0.0
+        Dim TotalPorDevengar As Decimal = 0
         If UsuarioActual.Empresa.UsaAC Then
-            TotalPorDevengar += GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Gvr.FCTextBox("TxtImporte").Text.ToDouble)
+            TotalPorDevengar += GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Gvr.FCTextBox("TxtImporte").Text.ToDecimal)
             If TotalPorDevengar <= 0 Then
                 Alert("Especifique el importe del presupuesto", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2112,7 +2112,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjComprasDif.RecepcionAlmacenGet(CveCompraSurtir, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) Then
                 DtDatosCompra = ObjComprasDif.DtResultados
             End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
             Dim CantConsulta = DtDatosCompra.SUM(VariableCampo)
             If Math.Abs(CantidadGV - CantConsulta) > 0.01 Then
                 CargaCompra(CveCompraSurtir, -1)
@@ -2132,7 +2132,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjComprasDif.RecepcionAlmacenOCGet(CveOCSurtir, UsuarioActual.CveEmpresa) Then
                 DtDatosOC = ObjComprasDif.DtResultados.FiltraParametros("CantidadCompra = 0")
             End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
             Dim CantConsulta = DtDatosOC.SUM(VariableCampo)
             If Math.Abs(CantidadGV - CantConsulta) > 0.1 Then
                 CargaOCPorSurtir(CveOCSurtir)
@@ -2151,7 +2151,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjComprasDif.RecepcionAlmacenImportacionGet(CveImportacionSurtir, CveImportacionCompra, CveImportacionProveedor, UsuarioActual.CveEmpresa) Then
                 DtDatosImportacion = ObjComprasDif.DtResultados
             End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
             Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
             If CantidadGV <> CantConsulta Then
                 CargaImportacionSurtir(CveImportacionSurtir)
@@ -2170,7 +2170,7 @@ Partial Class Inventarios_RecepcionAlmacen
             If ObjComprasDif.RecepcionAlmacenFleteGet(CveFleteSurtir, CveFleteOrdenCompra, CveFleteCompra, UsuarioActual.CveEmpresa) Then
                 DtDatosImportacion = ObjComprasDif.DtResultados
             End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
             Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
             If CantidadGV <> CantConsulta Then
                 CargaFleteSurtir(CveFleteSurtir)
@@ -2441,7 +2441,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Try
             'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
             If CveOCSurtir > 0 And CveMoneda <> 1 Then
-                TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
+                TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
             End If
 
             If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
@@ -2513,7 +2513,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                     SumaTotal += PU + CostoIndirecto
                                     If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                         If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                            PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                                            PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (PU))
                                         End If
                                     End If
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Serie:=Dr("Serie").ToString, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2530,7 +2530,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                     SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                     If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                         If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                         End If
                                     End If
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2548,7 +2548,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
                                     Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
                                     If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                                     End If
                                 End If
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2614,7 +2614,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 SumaTotal += PU.RoundAD + CostoIndirecto ' se redondea a dos decimales. por la unidad es uno
                                 If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                     If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                                        PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (PU))
                                     End If
                                 End If
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Serie:=Dr("Serie").ToString, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2631,7 +2631,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                 If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                     If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                     End If
                                 End If
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2648,7 +2648,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
                                 Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
                                 If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                    PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                                    PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                                 End If
                             End If
                             If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2680,7 +2680,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     If CveTipoCompra = 8 Then 'entrada almacen con costo indirecto cargado en la misma compra
                         tTotalInsertado = dtt.SUMD("Total") ' está incluido el costo indirecto en la factura
                     End If
-                    If (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundAD <> tTotalInsertado.RoundAD Then
+                    If (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL <> tTotalInsertado.RoundSQL Then
                         ErrorMovInv = True
                         Alert("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado, TipoMensaje.MsgError)
                         GuardaLog("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado)
@@ -3249,8 +3249,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                             If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
                                                 'COMPLEMENTARIA
-                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
+                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
                                                         ErrorMovInv = True
                                                         Exit For
                                                     End If
@@ -3273,8 +3273,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                         If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
                                             'COMPLEMENTARIA
-                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=EsContabilizable) Then
+                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, Contabilizable:=EsContabilizable) Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=EsContabilizable) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, Contabilizable:=EsContabilizable) Then
                                                     ErrorMovInv = True
                                                 End If
                                             Else
@@ -3355,7 +3355,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim TotalNC As Decimal = 0
                     Dim CveClasificacionDifCostoNC = -1
                     Dim tTipoCambio As Decimal = 1
-                    If CveMoneda <> 1 Then tTipoCambio = TipoCambio.ToDecimal
+                    If CveMoneda <> 1 Then tTipoCambio = TipoCambio
 
                     For Each gvr As GridViewRow In GvInv.Rows
                         TotalNC += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * gvr.DataKey("PU").ToDecimal * tTipoCambio
@@ -4128,7 +4128,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         DdlMonedaTC.SelectedValueExist("2")
                         DdlMonedaTC_SelectedIndexChanged(DdlMonedaTC, EventArgs.Empty)
                         'TxtTipoCambio.Text = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToString, TipoCambio.ToString)
-                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambio)
+                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal, TipoCambio)
                         If TipoCambio > 0 Then
                             LtAdvertencia.Text = "El cambio de moneda se aplicara al guardar el movimiento con el tipo de cambio indicado."
                             DivAdvertencia.Visible = True
@@ -4210,7 +4210,7 @@ Partial Class Inventarios_RecepcionAlmacen
         'TipoCambio = TxtTipoCambio.Text.ToDouble
 
         If CveOCSurtir > 0 Then
-            TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
+            TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
         End If
 
         For Each Dr As DataRow In DtInv.Rows

Inventarios/Remanufactura.aspx.vb

@@ -22,22 +22,12 @@ Partial Class Inventarios_Remanufactura
             Return ViewState("IdCtaContRetIVA").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaRetIVA As Integer
+
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
-        End Get
-    End Property
     Private ReadOnly Property IdCtaContRetISR As Integer
         Get
             Return ViewState("IdCtaContRetISR").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property MensajeAlert As StringBuilder
         Get
             Return CType(ViewState("MensajeAlert"), StringBuilder)
@@ -539,9 +529,7 @@ Partial Class Inventarios_Remanufactura
                 ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
 
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
             End If
         End If
 
@@ -774,7 +762,6 @@ Partial Class Inventarios_Remanufactura
         Dim importeMovimiento As Decimal
         Dim FechaMovimiento As Date = Date.Today
         Dim IdCtaContable As Integer
-        Dim CveCuenta As Integer
         Dim IdCtaContableCliente As Integer
         Dim Concepto As String = ViewState("VentaFolio").ToString
         Dim Referencia As String = ViewState("VentaFolio").ToString
@@ -790,7 +777,6 @@ Partial Class Inventarios_Remanufactura
                 TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
                 importeMovimiento = 0
                 IdCtaContable = 0
-                CveCuenta = 0
                 Multiplicador = (Row("Multiplicador").ToString.ToEntero)
                 Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", "")
 
@@ -891,16 +877,6 @@ Partial Class Inventarios_Remanufactura
                                 End If
                             End If
 
-                            'Contabilidad SIG
-                            If CveCuentaRetIVA > 0 Then
-                                CveCuenta = CveCuentaRetIVA
-                            Else
-                                If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                    End If
-                                End If
-                            End If
                         End If
 
                     Case 9 'Ret ISR por Trasladar
@@ -921,16 +897,6 @@ Partial Class Inventarios_Remanufactura
                                 End If
                             End If
 
-                            'Contabilidad SIG
-                            If CveCuentaRetISR > 0 Then
-                                CveCuenta = CveCuentaRetISR
-                            Else
-                                If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                    End If
-                                End If
-                            End If
                         End If
 
 
@@ -950,7 +916,6 @@ Partial Class Inventarios_Remanufactura
                             If importeMovimiento > 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                 If ObjConta.DtResultados.Rows.Count > 0 Then
                                     IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
-                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladarSIG").ToString.ToEntero
                                 End If
                             End If
                         End If

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1042,11 +1042,9 @@ Partial Class Inventarios_TraspasoAlmacen
 
                         Dim resultado As DataTable = ObjInventario.DtResultados
                         Dim importe As Decimal = resultado.SUMD("Total").RoundAD
-                        'Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
+                        Dim Contabilizable As Boolean = False
-                        'Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
-                        Dim Contabilizable As Boolean = True
 
-                        If IdCtaContableOrigen = IdCtaContableDestino And TipoAlmacenDestino <> 26 Then Contabilizable = False
+                        If TipoAlmacenOrigen = 26 AndAlso TipoAlmacenDestino <> 26 Then Contabilizable = True 'IdCtaContableOrigen = IdCtaContableDestino AndAlso
 
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then
                             ErrorMovInv = True

Nomina/ConceptosEspeciales.aspx

@@ -1,101 +0,0 @@
-<%@ Page Title="Nómina - Pre Nómina" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ConceptosEspeciales.aspx.vb" Inherits="Nomina_ConceptosEspeciales" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    Pre Nómina
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="portlet solid grey-cascade portlet-filter" style="">
-                <div class="portlet-title portlet-filterT" style="">
-                    <div class="titlefiltros caption ">
-                        <ul class="list-inline">
-                            <li>Proyecto:
-                        <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 220px !important;" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                        </asp:DropDownList>
-                            </li>
-                            <li>SubProyecto:
-                         <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;" ValidationGroup="GrpGuardar">
-                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                         </asp:DropDownList>
-                            </li>
-                            <li>Turno:
-                        <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                        </asp:DropDownList>
-                            </li>
-                            <li>Concepto:
-                        <asp:DropDownList ID="DdlConceptos" runat="server" AppendDataBoundItems="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                        </asp:DropDownList>
-                            </li>
-                        </ul>
-                    </div>
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-    <br />
-    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <table border="0" cellpadding="0" cellspacing="0">
-                <tr>
-                    <td align="right">
-                        <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" class="btn btn-primary" />
-                    </td>
-                    <td>
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Empleados con los filtros especificados" ToolTip="Conceptos Especiales" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                            <Columns>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Código</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:Literal ID="LtlCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Literal>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="250px" />
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Nombre</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="250px" />
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Aplica</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:CheckBox ID="ChkAplica" runat="server" />
-                                    </ItemTemplate>
-                                    <ItemStyle Width="250px" />
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Importe</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:TextBox ID="TxtImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:TextBox>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="250px" />
-                                </asp:TemplateField>
-                            </Columns>
-                            <RowStyle CssClass="Texto" />
-                            <HeaderStyle CssClass="Titulos" />
-                        </asp:GridView>
-                    </td>
-                </tr>
-            </table>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>

Nomina/ConceptosEspeciales.aspx.vb

@@ -1,119 +0,0 @@
-Option Strict On
-Option Explicit On
-
-Imports Extensiones
-Imports System.Data
-
-Partial Class Nomina_ConceptosEspeciales
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            CargaProyecto()
-            CargaTurnos()
-        End If
-    End Sub
-
-#Region "CargaCombos"
-
-    Private Sub CargaConceptos()
-        DdlConceptos.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
-        DdlConceptos.DataBind()
-    End Sub
-
-    Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
-        DdlProyecto.DataBind()
-    End Sub
-
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
-
-    Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlTurno.DataBind()
-    End Sub
-
-#End Region
-
-    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
-    End Sub
-
-    'Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
-    '    CargaPeriodos()
-    'End Sub
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        'If DdlPeriodo.SelectedValue <> "-1" Then
-        '    Dim ObjNomina As New ClsRH
-
-        '    Dim FechaI, FechaF As Date
-        '    FechaI = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue).Rows(0)("FechaInicio").ToString.ToDate
-        '    FechaF = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue).Rows(0)("FechaFin").ToString.ToDate
-
-        '    If ObjNomina.GetPreNomina(DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
-        '        GvDatos.DataSource = ObjNomina.DtResultados
-        '    Else
-        '        GvDatos.DataSource = Nothing
-        '    End If
-
-        '    ObjNomina.Dispose()
-
-        '    GvDatos.DataBind()
-        '    UPDatos.Update()
-        'Else
-        '    Alert("Debe de seleccionar el Período con el que se desea trabajar", TipoMensaje.MsgAdvertencia)
-        'End If
-    End Sub
-
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
-                e.Row.FCLiteral("LtlNombre").Text = "Sub Proyecto: " & e.Row.DBCampo("SubProyecto")
-                'e.Row.Cells(0).ColumnSpan = 22
-                e.Row.HorizontalAlign = HorizontalAlign.Left
-            ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
-                e.Row.FCLiteral("LtlNombre").Text = "Turno: " & e.Row.DBCampo("Turno")
-                'e.Row.Cells(0).ColumnSpan = 22
-                e.Row.HorizontalAlign = HorizontalAlign.Left
-            End If
-        End If
-    End Sub
-
-    Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcel("ConceptosEspeciales")
-    End Sub
-
-    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
-        Dim ObjPersonal As New ClsRH
-        ObjPersonal.IniciaTransacSQL()
-
-        Dim OcurrioError As Boolean = False
-        For Each Row As GridViewRow In GvDatos.Rows
-            If Row.DataKey("CvePersonal") <> "" Then
-                If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
-                                                        Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
-                                                        Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
-                    OcurrioError = True
-                    ObjPersonal.RollBack()
-                    Exit For
-                End If
-            End If
-        Next
-
-        If Not OcurrioError Then
-            ObjPersonal.Commit()
-            Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
-        Else
-            Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
-        End If
-
-        ObjPersonal.Dispose()
-    End Sub
-End Class

Nomina/Finiquito.aspx

@@ -219,7 +219,7 @@
                                         <div class="col-md-4">
                                             <div class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtAntiguedad" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
-                                                <asp:Label runat="server" Text="Antiguedad: " AssociatedControlID="TxtAntiguedad"></asp:Label>
+                                                <asp:Label runat="server" Text="Antigüedad: " AssociatedControlID="TxtAntiguedad"></asp:Label>
                                             </div>
                                         </div>
                                         <div class="col-md-4">
@@ -251,12 +251,12 @@
 
                                             </div>
                                             <div class="col-md-4 text-center">
-                                                Separación unica
+                                                Separación única
                                                 <br />
                                                 <asp:CheckBox ID="chkSeparacionUnica" CssClass="chksino" Text=" " runat="server" />
                                             </div>
                                             <div class="col-md-4 text-center">
-                                                Prima de antiguedad
+                                                Prima de antigüedad
                                                 <br />
                                                 <asp:CheckBox ID="chkPrimaantiguedad" CssClass="chksino" Text=" " runat="server" />
                                             </div>

Nomina/ReportedeAcumulados.aspx

@@ -10,7 +10,7 @@
             }
         }
 
-        
+
         .GvConceptos tr td a {
             color: #5b9bd1;
         }
@@ -74,10 +74,11 @@
         .isOnlyBisibleP td:nth-child(-n+3) a {
             color: #999;
         }
-        
+
         .isOnlyBisibleD td:nth-last-child(-n+3) a {
             color: #999;
         }
+
         .isOnlyBisibleO td:nth-last-child(-n+3) a {
             color: #999;
         }
@@ -135,6 +136,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Acumulados de Nóminas
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -168,10 +170,14 @@
                             <label class="col-md-1 mediocol">del:</label>
                             <div class="col-md-1">
                                 <%--<asp:TextBox ID="TxtPeriodoInicio" Text="0" CssClass="form-control" runat="server"></asp:TextBox>--%>
-                                <div class="form-group input-iconright">
+
-                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="TxtRpdFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkRpdFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
                                     <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtRpdFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtRpdFechaInicio" PopupButtonID="LnkRpdFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
                                     <asp:RequiredFieldValidator ID="rfvRpdFechaInicio" runat="server" ControlToValidate="TxtRpdFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaInicio"></ajax:ValidatorCalloutExtender>
                                 </div>
@@ -179,10 +185,13 @@
                             <label class="col-md-1 mediocol">al:</label>
                             <div class="col-md-1">
                                 <%--<asp:TextBox ID="TxtPeriodoFin" Text="99" CssClass="form-control" runat="server"></asp:TextBox>--%>
-                                <div class="form-group input-iconright">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
-                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
+                                    <asp:TextBox ID="TxtRpdFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
                                     <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtRpdFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtRpdFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
                                     <asp:RequiredFieldValidator ID="rfvRpdFechaFin" runat="server" ControlToValidate="TxtRpdFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporterepperde"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvRpdFechaFin"></ajax:ValidatorCalloutExtender>
                                 </div>
@@ -268,186 +277,178 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <ajax:TabContainer ID="Tab" runat="server" Width="100%" AutoPostBack="True">
-                <ajax:TabPanel ID="TabNominas" runat="server" HeaderText="Acumulados nómina">
-                    <ContentTemplate>
 
-                        <div class="portlet light  xspadding bordered " id="pnldl">
+            <div class="portlet light  xspadding bordered " id="pnldl">
-                            <div class="portlet-title">
+                <div class="portlet-title">
-                                <div class="caption ">
+                    <div class="caption ">
-                                    <i class="fa fa-bookmark font-yellow-gold"></i>
+                        <i class="fa fa-bookmark font-yellow-gold"></i>
-                                    <span class="caption-subject font-yellow-gold bold uppercase">Acumulados nómina</span>
+                        <span class="caption-subject font-yellow-gold bold uppercase">Acumulados nómina</span>
-                                </div>
+                    </div>
 
-                                <div class="tools">
+                    <div class="tools">
-                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                    <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
+                        <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
-                                </div>
+                    </div>
-                                <div class="actions">
+                    <div class="actions">
-                                    <div class="btn-group">
+                        <div class="btn-group">
-                                    </div>
-                                </div>
-                                <div style="float: right;">
-                                    <asp:TextBox CssClass="TxtBusqueda form-control input-sm" runat="server" onkeyup="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
-                                    <a href="javascript:;" onclick="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
-                                </div>
-                            </div>
-                            <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
-                                <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePersonal,Nombre,Codigo,Turno,Departamento,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
-                                    CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2" data-heighterror="360">
-                                    <Columns>
-
-                                        <asp:TemplateField>
-                                            <HeaderTemplate></HeaderTemplate>
-                                            <ItemTemplate>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="20px" HorizontalAlign="Left" />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Nombre</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlNombre" runat="server"></asp:Literal>
-                                            </ItemTemplate>
-                                            <ItemStyle Width="300px" HorizontalAlign="Left" />
-                                        </asp:TemplateField>
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-                                        <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
-
-                                        <asp:TemplateField>
-                                            <ItemTemplate>
-                                                <div style="width: 70px; text-align: right;">
-                                                </div>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                    </Columns>
-                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>
-                                    <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
-                                    <RowStyle CssClass="Texto"></RowStyle>
-                                </asp:GridView>
-                            </div>
                         </div>
-                    </ContentTemplate>
+                    </div>
-                </ajax:TabPanel>
+                    <div style="float: right;">
+                        <asp:TextBox CssClass="TxtBusqueda form-control input-sm" runat="server" onkeyup="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
+                        <a href="javascript:;" onclick="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
+                    </div>
+                </div>
+                <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
+                    <asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePersonal,Nombre,Codigo,Turno,Departamento,SubProyecto" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
+                        CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2" data-heighterror="360">
+                        <Columns>
 
-            </ajax:TabContainer>
+                            <asp:TemplateField>
+                                <HeaderTemplate></HeaderTemplate>
+                                <ItemTemplate>
+                                </ItemTemplate>
+                                <ItemStyle Width="20px" HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                            <asp:TemplateField>
+                                <HeaderTemplate>Nombre</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlNombre" runat="server"></asp:Literal>
+                                </ItemTemplate>
+                                <ItemStyle Width="300px" HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+                            <asp:BoundField Visible="false" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="80px" />
+
+                            <asp:TemplateField>
+                                <ItemTemplate>
+                                    <div style="width: 70px; text-align: right;">
+                                    </div>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+
+                        </Columns>
+                        <HeaderStyle CssClass="Titulos"></HeaderStyle>
+                        <AlternatingRowStyle CssClass="TextoAlterno"></AlternatingRowStyle>
+                        <RowStyle CssClass="Texto"></RowStyle>
+                    </asp:GridView>
+                </div>
+            </div>
         </ContentTemplate>
-
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">

Nomina/ReportedeAcumulados.aspx.cs

@@ -159,7 +159,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
     {
         DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo.FiltraParametros("Estatus = 'Activo'");
         DdlTipoPeriodo.DataBind();
-        DdlTipoPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlTipoPeriodo.Items.Insert(0, new ListItem("Todos", "-1"));
         if (DdlTipoPeriodo.Items.Count > 0)
         {
             DdlTipoPeriodo.SelectedIndex = 0;

PortalCliente/PortalCliente.aspx.vb

@@ -726,28 +726,20 @@ Partial Class Ventas_PortalCliente
 
                         Dim MensajeAlert As New StringBuilder
                         Dim ObjConta As New ClsContabilidad
-                        Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
+                        Dim ObjCliente As New ClsClientes(ObjConta.IniciaTransacSQL)
-
+
-                        Dim CveCuentacliente = -1
+
                         Dim IdCuentaCliente = -1
-                        Dim IdCtaContMonedaExtranjera = -1
+                        Dim IdCtaContMonedaExtranjera = -1
-                        Dim CveCuentaComplementaria = -1
-                        Dim CveCuentaMonedaExtranjera = -1
                         Dim IdCtaContRetIVA = -1
-                        Dim IdCtaContRetISR = -1
+                        Dim IdCtaContRetISR = -1
-                        Dim CveCuentaRetIVA = -1
+
-                        Dim CveCuentaRetISR = -1
+
-
                         If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then
                             IdCuentaCliente = ObjCliente.IdCtaContClientes
-                            CveCuentacliente = ObjCliente.CveCuentaClientes
                             IdCtaContMonedaExtranjera = ObjCliente.IdCtaContMonedaExtranjera
-                            CveCuentaMonedaExtranjera = ObjCliente.CveCuentaMonedaExtranjera
-                            CveCuentaComplementaria = ObjCliente.CveCuentaComplementaria
                             IdCtaContRetIVA = ObjCliente.IdCtaContRetIVA
                             IdCtaContRetISR = ObjCliente.IdCtaContRetISR
-                            CveCuentaRetIVA = ObjCliente.CveCuentaRetIVA
-                            CveCuentaRetISR = ObjCliente.CveCuentaRetISR
                         Else
                             TieneError = True
                             MensajeError.Append("Ocurrió un error al cargar la información contable del cliente. Por favor vuelva a intentar<br>")
@@ -3154,9 +3146,7 @@ Partial Class Ventas_PortalCliente
                 End If
 
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
             End If
         End If
         ObjCliente.Dispose()

RH/Personal.aspx

@@ -719,7 +719,9 @@
 
 
                                                     <div>
-                                                        <asp:GridView ID="GvPersonalAltas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
+                                                        <asp:GridView ID="GvPersonalAltas" runat="server" AutoGenerateColumns="False" OnRowDataBound="GvPersonalAltas_RowDataBound"
+                                                            CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" 
+                                                            DataKeyNames="CvePersonalAltas,FechaInicio,FechaFin">
                                                             <Columns>
                                                                 <asp:BoundField HeaderText="Fecha Inicio" DataField="FechaInicio" DataFormatString="{0:d}">
                                                                     <ItemStyle Width="150px" />
@@ -742,6 +744,64 @@
                                                             <AlternatingRowStyle CssClass="TextoAlterno" />
                                                             <HeaderStyle CssClass="Titulos" />
                                                         </asp:GridView>
+
+
+                                                        
+                                                            <div id="ModalUpAltas" class="modal ADS fade" role="dialog">
+                                                                <div class="modal-dialog">
+                                                                    <div class="modal-content"  >
+                                                                        <div class="modal-header "> <button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">Actualiazar alta</h4></div> 
+                                                                        <div class="modal-body">
+                                                                            <asp:UpdatePanel runat="server" ID="UpAltasUpdate" UpdateMode="Conditional">
+                                                                                <ContentTemplate> 
+                                                                                    <div class="row">
+                                                                                        <div class="col-md-6">
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="        width: 100px !important">
+
+                                                                                                <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        width: 160px;">
+                                                                                                    <asp:TextBox ID="TxtFechaInicioUA" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                    <span class="input-group-btn ">
+                                                                                                        <asp:LinkButton ID="LnkFechaInicioUA" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                                                    </span>
+                                                                                                    <ajax:MaskedEditExtender ID="MEEFechaInicioUA" runat="server" TargetControlID="TxtFechaInicioUA" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                                                    <ajax:CalendarExtender runat="server" ID="CeeFechaInicioUA" TargetControlID="TxtFechaInicioUA" PopupButtonID="LnkFechaInicioUA" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                                                    <label>Fecha Inicial</label>
+                                                                                                </div>
+                                                                                            </div>
+                                                                                        </div>
+                                                                                        <div class="col-md-6">
+                                                                                            <div class="form-group form-md-line-input input-iconright " style="        width: 100px !important">
+                                                                                                <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        width: 160px;">
+                                                                                                    <asp:TextBox ID="TxtFechaFinUA" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                    <span class="input-group-btn ">
+                                                                                                        <asp:LinkButton ID="LnkFechaFinUA" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                                                    </span>
+                                                                                                    <ajax:MaskedEditExtender ID="MeeFechaFinUA" runat="server" TargetControlID="TxtFechaFinUA" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                                                    <ajax:CalendarExtender runat="server" ID="CeeFechaFinUA" TargetControlID="TxtFechaFinUA" PopupButtonID="LnkFechaFinUA" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                                                    <label>Fecha Final</label>
+                                                                                                </div>
+                                                                                                <br />
+                                                                                            </div>
+                                                                                        </div>
+                                                                                    </div>
+                                                                                </ContentTemplate>
+                                                                            </asp:UpdatePanel>
+                                                                        </div>
+                                                                        <div class="modal-footer">
+                                                                            <asp:UpdatePanel runat="server">
+                                                                                <ContentTemplate>
+
+                                                                                    <asp:Button ID="LnkUpAltas" runat="server" Text="Actualizar" OnClick="LnkUpAltas_Click" class="btn btn-primary" />
+                                                                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                                                                                </ContentTemplate>
+                                                                            </asp:UpdatePanel>
+                                                                        </div>
+                                                                    </div>
+                                                                </div>
+                                                            </div>
+
+
                                                     </div>
                                                 </div>
                                             </div>

RH/Personal.aspx.vb

@@ -6507,12 +6507,82 @@ Partial Class RH_Personal
 
 
 
+    Property CvePersonalAltas As Integer
+        Get
+            If ViewState("CvePersonalAltas") Is Nothing Then
+                Return 0
+            Else
+                Return DirectCast(ViewState("CvePersonalAltas"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalAltas") = value
+        End Set
+    End Property
 
     Protected Sub LnkUpAltass_Click(sender As Object, e As EventArgs)
-
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
+        TxtFechaInicioUA.Text = String.Format("{0:dd/MM/yyyy}", GvRow.DataKey("FechaInicio").ToDateTime())
+        Dim fechafin As DateTime = GvRow.DataKey("FechaFin").ToDateTime()
+        If fechafin.Year < 1900 Then
+            TxtFechaFinUA.Text = ""
+        Else
+            TxtFechaFinUA.Text = String.Format("{0:dd/MM/yyyy}", fechafin)
+        End If
+        UpAltasUpdate.Update()
+        RegistraScript("$('#ModalUpAltas').modal();")
     End Sub
 
     Protected Sub LnkDAltas_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
+        Dim strquery As String = String.Format("DELETE [RH_PersonalAltas] WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal)
+        Using objbase As New ClsClaseBase
+            If (objbase.runQuerystr(strquery)) Then
+                Using objrh As New ClsRH()
+                    If objrh.GetPersonalAltas(CvePersonal) Then
+                        GvPersonalAltas.DataSource = objrh.DtResultados
+                        GvPersonalAltas.DataBind()
+                        UpDatos.Update()
+                    End If
+                End Using
+                Alert("Alta eliminada")
+            End If
+        End Using
+    End Sub
+
+    Protected Sub LnkUpAltas_Click(sender As Object, e As EventArgs)
+
+        Dim strfin As String = ""
+        Dim fechafin As DateTime = TxtFechaFinUA.Text.ToDateTime()
+        If fechafin.Year < 1900 Then
+            strfin = ",[FechaFin]=null"
+        Else
+            strfin = String.Format(",[FechaFin]='{0:yyyy-MM-dd}'", fechafin)
+
+        End If
+        Dim strquery As String = String.Format("UPDATE [RH_PersonalAltas] SET [FechaInicio]='{2:yyyy-MM-dd}' {3}  WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal, TxtFechaInicioUA.Text.ToDateTime(), strfin)
+        Using objbase As New ClsClaseBase
+            If (objbase.runQuerystr(strquery)) Then
+                Using objrh As New ClsRH()
+                    If objrh.GetPersonalAltas(CvePersonal) Then
+                        GvPersonalAltas.DataSource = objrh.DtResultados
+                        GvPersonalAltas.DataBind()
+                        UpDatos.Update()
+                    End If
+                End Using
+                Alert("Alta actualizada")
+            End If
+        End Using
+    End Sub
+
+    Protected Sub GvPersonalAltas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCLinkButton("LnkUpAltass").Visible = UsuarioActual.TienePermisoProceso(327)
+            e.Row.FCLinkButton("LnkDAltas").Visible = e.Row.FCLinkButton("LnkUpAltass").Visible
+        End If
 
     End Sub
 End Class
+

Ventas/PV.aspx.vb

@@ -7112,7 +7112,7 @@ Partial Class PV
         Dim TotalCargos As Decimal = 0
         Dim TotalCantidad As Decimal = 0
         Dim StrTamanios As New StringBuilder()
-        StrTamanios.Append("Se recibierón los siguientes usados:")
+        StrTamanios.Append("Se recibieron los siguientes usados:")
 
         'For Each Gvr As GridViewRow In Gv.Rows
         '    If Gvr.RowType = DataControlRowType.DataRow Then

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -133,8 +133,8 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlMoneda.DataBind()
 
-        txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+        'txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
-        txtFechaF.Text = Now.ToShortDateString
+        'txtFechaF.Text = Now.ToShortDateString
 
         'Cargamos las fechas
         FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString

Ventas/Ventas.aspx

@@ -3959,7 +3959,7 @@
                         <div style="max-height: 300px; overflow-y: auto;">
                             <asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
                                 ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
-                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,CveCliente">
+                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente">
                                 <Columns>
                                     <asp:TemplateField>
                                         <ItemTemplate>

Ventas/Ventas.aspx.vb

@@ -797,31 +797,19 @@ Partial Class Ventas
             Return ViewState("IdCtaContAnticipos").ToString().ToEntero()
         End Get
     End Property
-    Private ReadOnly Property CveCuentaAnticipos As Integer
+
-        Get
-            Return ViewState("CveCuentaAnticipos").ToString().ToEntero()
-        End Get
-    End Property
     Private ReadOnly Property IdCtaContRetIVA As Integer
         Get
             Return ViewState("IdCtaContRetIVA").ToString().ToEntero()
         End Get
     End Property
-    Private ReadOnly Property CveCuentaRetIVA As Integer
+
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString().ToEntero()
-        End Get
-    End Property
     Private ReadOnly Property IdCtaContRetISR As Integer
         Get
             Return ViewState("IdCtaContRetISR").ToString().ToEntero()
         End Get
     End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
+
-        Get
-            Return ViewState("CveCuentaRetISR").ToString().ToEntero()
-        End Get
-    End Property
 
     Private ReadOnly Property CodCliente As String
         Get
@@ -5595,15 +5583,11 @@ Partial Class Ventas
                 ViewState("Vendedor") = ObjCliente.Vendedor
                 ViewState("CtaContable") = ObjCliente.CuentaContable
                 ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
-                ViewState("CveCuentaClientes") = ObjCliente.CveCuentaClientes
                 ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
                 ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
                 ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
-                ViewState("CveCuentaAnticipos") = ObjCliente.CveCuentaAnticipos
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
                 ViewState("CodCliente") = ObjCliente.Codigo
 
                 ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
@@ -14984,7 +14968,7 @@ Partial Class Ventas
     Private Function AgregarPrePolizasXTrasladar(ObjConta As ClsContabilidad, CvePrePoliza As Integer, PorcentajeAmortizacion As Decimal, TipoCambio As Decimal, ByRef CuentasContablesInvalidas As StringBuilder, ByRef idCuentaContabilizacion As Integer, ByRef CveCuentaContabilizacion As Integer, Importe13 As Decimal, Importe8 As Decimal, Importe9 As Decimal) As Boolean
         Dim ImporteMovimiento As Decimal
         Dim ImporteMX As Decimal
-        Dim IdCtaContable, CveCuenta As Integer
+        Dim IdCtaContable As Integer
         Dim FechaMovimiento As Date = Now
         Dim Concepto As String = ViewState("VentaFolio").ToString()
         Dim PrePolizaCorrecta = True
@@ -15008,7 +14992,7 @@ Partial Class Ventas
             End If
 
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15019,7 +15003,6 @@ Partial Class Ventas
 
         If IdCtaContRetIVA <> 0 Then
             IdCtaContable = IdCtaContRetIVA
-            CveCuenta = CveCuentaRetIVA
         Else
             If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
                 If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -15034,7 +15017,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15061,7 +15044,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15074,7 +15057,7 @@ Partial Class Ventas
 
         Dim ImporteMovimiento As Decimal
         Dim ImporteMX As Decimal
-        Dim IdCtaContable, CveCuenta As Integer
+        Dim IdCtaContable As Integer
         Dim FechaMovimiento As Date = Now
         Dim Concepto As String = ViewState("VentaFolio").ToString()
         Dim PrePolizaCorrecta = True
@@ -15100,13 +15083,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            ''ContaSIG
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-            'If CveCuenta <= 0 Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15124,27 +15101,13 @@ Partial Class Ventas
             End If
         End If
 
-        ''Conta SIG
-        'If CveCuentaRetIVA <> 0 Then
-        '    CveCuenta = CveCuentaRetIVA
-        'Else
-        '    If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
-        '        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
-        '    End If
-        'End If
-
         If ImporteMovimiento > 0 Then
             If IdCtaContable <= 0 Then
                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
                 idCuentaContabilizacion = 0
             End If
 
-            'If CveCuenta <= 0 Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
                 PrePolizaCorrecta = False
             End If
         End If
@@ -15164,15 +15127,6 @@ Partial Class Ventas
             End If
         End If
 
-        'If CveCuentaRetISR <> 0 Then
-        '    CveCuenta = CveCuentaRetISR
-        'Else
-        '    If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
-        '        If ObjConta.DtResultados.Rows.Count > 0 Then
-        '            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
-        '        End If
-        '    End If
-        'End If
 
         If ImporteMovimiento > 0 Then
             If IdCtaContable <= 0 Then
@@ -15180,12 +15134,7 @@ Partial Class Ventas
                 idCuentaContabilizacion = 0
             End If
 
-            'If CveCuenta <= 0 Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX) Then
-            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString())
-            '    CveCuentaContabilizacion = 0
-            'End If
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
                 PrePolizaCorrecta = False
             End If
         End If

vwd.webinfo

@@ -266,6 +266,12 @@
     
   
     
+  
+    
+  
+    
+  
+