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

App_Code/ClsClientes.vb

@@ -128,7 +128,8 @@ Public Class ClsClientes
     Public Property CveFormaPago33 As Integer
     Public Property CveMetodoPago33 As Integer
     Public Property CveClienteCorporativo As String
-    Public Property DesglosaIEPS As Boolean
+    Public Property DesglosaIEPS As Boolean
+    Public Property NoDesglosaIVA As Boolean
     Public Property AplicaComercioExterior As Boolean
     Public Property CveTipoOperacion As Integer
     Public Property CvePedimento As Integer
@@ -385,6 +386,7 @@ Public Class ClsClientes
 
                 _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString
                 _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean)
+                _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean)
 
                 _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean)
                 _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero
@@ -513,18 +515,22 @@ Public Class ClsClientes
         'SqlAdapter.Dispose()
         Return Retorno
     End Function
-    Public Function GetHistorialVentas(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
+    Public Function GetHistorialVentas(CveCliente As Integer, CveEmpresa As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClienteHistorialVentas")
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop
-        SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
-        SqlAdapter.SelectCommand.Parameters.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-        SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
-        SqlAdapter.SelectCommand.Parameters.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
-        SqlAdapter.SelectCommand.Parameters.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
+            .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
+            .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+            .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -757,7 +763,7 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -878,6 +884,7 @@ Public Class ClsClientes
             .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo
 
             .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0)
+            .Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0)
 
             .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior
             .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion

App_Code/ClsCompras.vb

@@ -438,12 +438,12 @@ Public Class ClsCompras
     End Function
 
     Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer,
-                                     Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer,
+                                     Cantidad As Decimal, PU As Decimal, IVA As Decimal, Total As Decimal, Descuento As Decimal, Observaciones As String, CveOCDetalle As Integer,
                                      Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1,
                                      Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1,
                                      Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0,
-                                     Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0,
-                                     Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0,
+                                     Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0,
+                                     Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0,
                                      Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
@@ -457,12 +457,12 @@ Public Class ClsCompras
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-            .Add("@PU", SqlDbType.Float).Value = PU
-            .Add("@IVA", SqlDbType.Float).Value = IVA
-            .Add("@Total", SqlDbType.Float).Value = Total
-            .Add("@Descuento", SqlDbType.Float).Value = Descuento
-            .Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos
+            .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
+            .Add("@PU", SqlDbType.Decimal).Value = PU
+            .Add("@IVA", SqlDbType.Decimal).Value = IVA
+            .Add("@Total", SqlDbType.Decimal).Value = Total
+            .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
+            .Add("@OtrosGastos", SqlDbType.Decimal).Value = OtrosGastos
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle
             .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion
@@ -476,16 +476,16 @@ Public Class ClsCompras
             .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
             .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
-            .Add("@RetISR", SqlDbType.Float).Value = RetISR
-            .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS
-            .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA
+            .Add("@RetIVA", SqlDbType.Decimal).Value = RetIVA
+            .Add("@RetISR", SqlDbType.Decimal).Value = RetISR
+            .Add("@IEPSPS", SqlDbType.Decimal).Value = IEPSPS
+            .Add("@IEPSPSIVA", SqlDbType.Decimal).Value = IEPSPSIVA
 
-            .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje
-            .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje
-            .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje
-            .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje
-            .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje
+            .Add("@IVAPorcentaje", SqlDbType.Decimal).Value = IVAPorcentaje
+            .Add("@RetIVAPorcentaje", SqlDbType.Decimal).Value = RetIVAPorcentaje
+            .Add("@RetISRPorcentaje", SqlDbType.Decimal).Value = RetISRPorcentaje
+            .Add("@IEPSPSPorcentaje", SqlDbType.Decimal).Value = IEPSPSPorcentaje
+            .Add("@IEPSPSIVAPorcentaje", SqlDbType.Decimal).Value = IEPSPSIVAPorcentaje
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
             .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle

App_Code/ClsGenerales.vb

@@ -2527,7 +2527,7 @@ Public Class ClsGenerales
                                          CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
                                          Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
                                          Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
-                                         Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean
+                                         Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_HistorialBitacoraGet")
 
@@ -2554,6 +2554,8 @@ Public Class ClsGenerales
             .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora
             .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+
 
         End With
         'SqlTypes.SqlDateTime.Null

App_Code/ClsInventarios.vb

@@ -131,8 +131,6 @@ Public Class ClsInventarios
     Public Property ResponsableCarga As String
     Public Property ResponsableRecibio As String
     Public Property Modulo As String
-    Public Property ConAplicacion As Boolean
-
 
 
 
@@ -2309,8 +2307,6 @@ Public Class ClsInventarios
                 FechaI = dr("FechaInicio").ToString
                 FechaF = dr("FechaFin").ToString
                 Estatus = dr("Estatus").ToString
-                ConAplicacion = Convert.ToBoolean(dr("ConAplicacion").ToString)
-
                 Retorno = True
             End If
 

App_Code/ClsNominas.vb

@@ -2483,6 +2483,52 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+#Region "Prorrateo"
+
+    Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_Prorrateosubproyecto")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ProrrateosubproyectoAdd")
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ProrrateosubproyectoRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
 
 #Region "CRUD_Nom_PersonalIncapacidad"
     Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean

App_Code/ClsPaginas.vb

@@ -1352,7 +1352,7 @@ Public Class ClsPaginas
         End Get
     End Property
     Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1,
-                                           Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1") As DataTable
+                                           Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1", Optional CodigoSATPS As String = "-1") As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
             If CveEmpresa <> -1 Then
@@ -1367,7 +1367,7 @@ Public Class ClsPaginas
 
                 Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow))
 
-                Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
+                'Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
                 If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
                 If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo))
                 Codigo = Codigo.ToUpper().Trim()
@@ -1375,6 +1375,7 @@ Public Class ClsPaginas
                 If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus))
                 If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta))
                 If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS))
+                If CodigoSATPS <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!SATClavePS) = CodigoSATPS))
 
                 Try
                     GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable

App_Code/ClsRH.vb

@@ -2031,12 +2031,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpdateSalariointegrado(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
+    Public Function UpdateSalariointegrado(CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiario As Double) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarioIntegrado")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@SDI", SqlDbType.Money).Value = SDI
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
         End With
@@ -2048,13 +2049,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         End Try
         Return Retorno
     End Function
-    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
+    Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveUsuario As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double, Optional CalcularSDI As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
             .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
             .Add("@SDI", SqlDbType.Money).Value = SDI
@@ -2448,7 +2450,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing
         If registros IsNot Nothing AndAlso registros.Count > 0 Then
-            xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha))))
+            xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo))))
         End If
         Data = New DataTable
         SqlDataAdapter("PA_RH_AsistenciaDetalleUP")

Compras/PopUpBuscarFolioC.aspx

@@ -46,7 +46,7 @@
                     <tr style="text-align: left">
                         <td class="text-right"><b>Proveedor:</b></td>
                         <td>
-                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="180px"></asp:DropDownList>
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" UsaWebService="true"  data-metodo="getproveedores" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
                         </td>
                     </tr>
                     <tr style="text-align: left">

Compras/PopUpBuscarFolioC.aspx.vb

@@ -31,9 +31,9 @@ Partial Class Compras_PopUpBuscarFolioC
     End Sub
 
     Protected Sub CargaProveedor()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 
@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
         If ValidarUnFiltroSeleccionado() Then
             Dim ObjCompras As New ClsCompras()
             If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
-                                 CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
+                                 CveProveedor:=DdlProveedores.SelectedValue.ToEntero, TopSelect:=100) Then
                 If ObjCompras.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjCompras.DtResultados
@@ -112,7 +112,7 @@ Partial Class Compras_PopUpBuscarFolioC
         If TxtDescripcion.Text.Trim.Length > 0 Then Return True
         If TxtObservaciones.Text.Trim.Length > 0 Then Return True
         If DdlTipoDocto.SelectedValue <> "-1" Then Return True
-        If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
+        If DdlProveedores.SelectedValue.ToEntero <> 0 Then Return True
         Return False
     End Function
 End Class

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -58,7 +58,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetConta_ConceptosContables() Then
-            DdlCconceptosContables.DataSource = ObjConta.DtResultados
+            DdlCconceptosContables.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema =  True ")
             DdlConceptoGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema =  True AND EsGlobal = True")
         End If
 

Contratos/RepContratosObraAvances.aspx

@@ -70,8 +70,8 @@
                                 <div class="col-md-1">
                                     Cliente:
                                 </div>
-                                <div class="col-md-1">
-                                    <asp:DropDownList ID="DdlCliente" runat="server"   DataTextField="NombreComercial" DataValueField="CveCliente" Class="select2me" Width="100PX"   ></asp:DropDownList>
+                                <div class="col-md-3">
+                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                 </div>
 
                                 <div class="col-md-1">

Contratos/RepContratosObraAvances.aspx.vb

@@ -19,12 +19,15 @@ Partial Class RepContratosObraAvances
 
     Private Sub CargaDatos()
 
+        Dim CveCliente As Integer = -1
         Dim Con As New ClsContratos
-        Dim DTDatos As New DataTable
+        If DdlCliente.SelectedValue.ToEntero > 0 Then CveCliente = DdlCliente.SelectedValue.ToEntero
 
-        If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, CveCliente, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GVDatos.DataSource = Con.DtResultados
-            DTDatos = Con.DtResultados
+            If Con.DtResultados.Rows.Count > 0 Then
+                Indicadores(Con.DtResultados)
+            End If
         Else
             GVDatos.DataSource = Nothing
         End If
@@ -35,9 +38,7 @@ Partial Class RepContratosObraAvances
         UpDatos.Update()
 
 
-        If DTDatos.Rows.Count > 0 Then
-            Indicadores(DTDatos)
-        End If
+
 
     End Sub
 
@@ -88,15 +89,15 @@ Partial Class RepContratosObraAvances
     End Sub
 
     Private Sub CargaClientes()
-        Dim dt As DataTable = Nothing
-        Dim Cli As New ClsClientes
-        If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            dt = Cli.DtResultados
-        End If
-        Cli.Dispose()
-        DdlCliente.DataSource = dt
-        DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+        'Dim dt As DataTable = Nothing
+        'Dim Cli As New ClsClientes
+        'If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        '    dt = Cli.DtResultados
+        'End If
+        'Cli.Dispose()
+        'DdlCliente.DataSource = dt
+        'DdlCliente.DataBind()
+        'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 #End Region

General/ExcelToBD.aspx.cs

@@ -83,9 +83,10 @@ public partial class General_ExcelToBD : System.Web.UI.Page
         DdlWorkBooks.DataBind();
         if (workBooks.Count > 0)
         {
-            DdlWorkBooks.SelectedIndex = 0;
+            DdlWorkBooks.SelectedIndex = 1;
             DdlWorkBooks_SelectedIndexChanged(null, null);
         }
+        LnkContinuar_Click(null, null);
     }
 
     protected void DdlWorkBooks_SelectedIndexChanged(object sender, EventArgs e)
@@ -100,7 +101,7 @@ public partial class General_ExcelToBD : System.Web.UI.Page
             columnas = workSheet.LastRowUsed().CellCount();
             TxtFilas.Text = Filas.ToString();
             TxtInicia.Text = "2";
-            TxtColumnas.Text = "62";// columnas.ToString();
+            TxtColumnas.Text = "48";//"62";// columnas.ToString();
         }
 
     }

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2229,6 +2229,14 @@ Partial Class Inventarios_RecepcionAlmacen
             Return False
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+            Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
+            If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
+                Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
+                Return False
+            End If
+        End If
+
         'VERIFICA EXISTENCIAS
         If TipoMovimiento > 1 Then
             Dim MensajeExistencias As New StringBuilder
@@ -2263,14 +2271,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
-            Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos
-            If Filesgral Is Nothing OrElse Filesgral.Count = 0 Then
-                Alert("Es necesario agregar un documento.", TipoMensaje.MsgAdvertencia)
-                Return False
-            End If
-        End If
-
         Return True
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -3883,6 +3883,14 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
                 End If
 
+                'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
+                If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
+                        ErrorMovInv = True
+                        Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
+                    End If
+                End If
+
 
             Else
                 ErrorMovInv = True

Nomina/ChecadorAsistencia.aspx

@@ -4,6 +4,9 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        .GvBitacora th:nth-child(n+2){
+            text-align: left;
+        }
         .AdsCHeader .GvNominas th:nth-child(1),
         .AdsCHeader .GvNominas td:nth-child(1) {
             text-align: left;
@@ -128,7 +131,7 @@
                             </div>
                         </div>
                         <div class="portlet-body">
-                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
                                 <Columns>
                                     <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
                                         <ItemTemplate>
@@ -139,8 +142,8 @@
                                     <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <%--<asp:BoundField DataField="Asistencia" HeaderText="Fecha" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%>
-                                    <%--<asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />--%>
+                                    <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
                                 </Columns>

Nomina/ChecadorAsistencia.aspx.cs

@@ -191,10 +191,10 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
         DataTable dtCon = generateTable();
         GvNominas.DataSource = dtCon;
         GvNominas.DataBind();
-        DateTime fechai = TxtFecha.Text.ToDateTime();
-        DateTime fechaf = fechai.AddDays(1);
+        DateTime fechai = TxtRpdFechaInicio.Text.ToDateTime();
+        DateTime fechaf = TxtRpdFechaFin.Text.ToDateTime().AddDays(1);
         using (ClsGenerales ObjGral = new ClsGenerales()) { 
-            if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechai.ToString("yyyy/MM/dd")))
+            if (ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, FechaInicio: fechai.ToString("yyyy/MM/dd"), FechaFin: fechaf.ToString("yyyy/MM/dd")))
             {
                 //Alert("Entre");
                 GvBitacora.DataSource = ObjGral.DtResultados;

Nomina/Nomina.aspx

@@ -186,10 +186,10 @@
                 <asp:LinkButton ID="LnkAutorizar" Visible="false" OnClick="LnkAutorizar_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Autorizar</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
+                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
+                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
             </li>
             <li>
                 <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink>
@@ -198,7 +198,10 @@
                 <asp:HyperLink ID="LnkProvisionNominaAsimilados" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión Asimilados</asp:HyperLink>
             </li>
             <li>
-                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
+                <asp:LinkButton ID="LnkOpenProrrateo" OnClick="LnkOpenProrrateo_Click" runat="server"><i class="fa fa-percent"></i> Prorrateo</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkAsistenciaIncidencias" Visible="true" OnClick="LnkAsistenciaIncidencias_Click" runat="server"><i class="fa fa-check-square"></i>Incidencias asistencia </asp:LinkButton>
@@ -245,6 +248,10 @@
             <li>
                 <asp:HyperLink ID="HypPDFSTimbrados" Visible="false" onclick="GETPDF(-1,0)" NavigateUrl="#" runat="server"><i class="fa fa-download" aria-hidden="true"></i>Recibos timbrados</asp:HyperLink>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkOpenCancelarTimbre" OnClick="LnkOpenCancelarTimbre_Click" runat="server"><i class="fa fa-download"></i> CancelarTimbre</asp:LinkButton>
+            </li>
+
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkListaRaya" />
@@ -909,7 +916,7 @@
                                         </div>
                                     </div>
 
-                                    
+
                                     <div class="portlet light  xspadding bordered " id="pnlBitacora">
                                         <div class="portlet-title">
                                             <div class="caption ">
@@ -919,23 +926,23 @@
                                             <div class="tools">
                                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                                 <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
-                                            </div> 
+                                            </div>
                                         </div>
                                         <div class="portlet-body " style="padding: 0px;">
-                                             
-                            <asp:GridView ID="GvBitacora" OnRowDataBound="GvBitacora_RowDataBound" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
-                                <Columns>
-                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
-                                </Columns>
-                            </asp:GridView>
+
+                                            <asp:GridView ID="GvBitacora" OnRowDataBound="GvBitacora_RowDataBound" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                                                <Columns>
+                                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                                        <ItemTemplate>
+                                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+                                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
+                                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
+                                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
+                                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
+                                                </Columns>
+                                            </asp:GridView>
                                         </div>
                                     </div>
                                 </ContentTemplate>
@@ -3431,6 +3438,146 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+
+
+
+    <div id="DModalProrrateo" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpModalProrrateo" class="modal-dialog" style="width:900px;" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Prorrateo</h4>
+                    </div>
+                    <div class="modal-body">
+                  
+
+
+                        <div class="portlet light bordered xspadding" id="portletprorrateo">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="icon-pin font-green"></i>
+                                    <span class="caption-subject bold uppercase">Agregar prorrateo</span>
+                                </div>
+                                
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a> 
+                                </div>
+                            </div>
+                            <div class="portlet-body" style="display:none">
+                                <div class="form-group form-md-line-input input-iconright"> 
+                                    <asp:DropDownList ID="DdlPRPersonal" DataTextField="CodigoNombreCompleto" DataValueField="CvePersonal" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control select2me">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:Label runat="server" AssociatedControlID="DdlPRPersonal" Enabled="false" Text="Empleado"></asp:Label>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-6" runat="server" id="divPRddlproyeto">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlPRProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label ID="LblPRProyecto" runat="server" Text="Proyecto:" AssociatedControlID="DdlPRProyecto"></asp:Label>
+                                        </div>
+                                    </div>
+
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlPRSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label ID="LblPRSubProyeccto" AssociatedControlID="DdlPRSubProyecto" runat="server" Text="SubProyecto:"></asp:Label>
+
+                                        </div>
+                                    </div>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control " ID="TxtPorcentaje" runat="server"  Text="0"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPorcentaje" Text="Porcentaje"></asp:Label>
+                                </div>
+                                <div class="text-right">
+                                    <asp:LinkButton ID="LnkAgregarProrrateo" OnClick="LnkAgregarProrrateo_Click" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton>
+                                </div>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GVProrrateo" OnRowDataBound="GVProrrateo_RowDataBound" DataKeyNames="CvePersonal,CveSubProyecto,Porcentaje" runat="server" GridLines="None" Width="100%" CellSpacing="0"
+                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False">
+                            <Columns>
+                                <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="NombreCompleto" HeaderText="Empleado" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="SubProyecto" HeaderText="Centro de costos" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="Porcentaje" DataFormatString="{0:P2}" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="right" HeaderStyle-HorizontalAlign="Left" />
+                                <asp:TemplateField HeaderStyle-Width="30">
+                                    <ItemTemplate>
+                                        <div style="min-width: 30px; text-align: right; white-space: nowrap; padding-right: 10px;">
+                                            <asp:LinkButton runat="server" ID="LnkEliminarProrrateo" OnClick="LnkEliminarProrrateo_Click" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>"
+                                                data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el prorrateo?" data-btn-ok-label="si" />
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+
+                    <div class="modal-footer">
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+    <asp:Panel runat="server" ClientIDMode="Static" ID="DmodalCancelartimbre" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCancelarFolioFiscal" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cancelar timbre fiscal</h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-8">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtFolioFiscal" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">Folio Fiscal</asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTotal" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtTotal">Total</asp:Label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRFCEmisor" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Emisor</asp:Label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRFCReceptor" CssClass="form-control input-sm  " runat="server"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtPeriodo">RFC Receptor</asp:Label>
+                                </div>
+                            </div>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkCancelarFolioFiscal" OnClick="LnkCancelarFolioFiscal_Click" CssClass="btn btn-success" runat="server">Cancelar folio fiscal</asp:LinkButton>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </asp:Panel>
     <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
     <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
     <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

Nomina/Nomina.aspx.cs

@@ -193,11 +193,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
+            DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
+            LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
             LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100);
             TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
+            CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);
             CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
             divddlproyeto.Visible = DdlProyecto.Visible;
+            divPRddlproyeto.Visible = DdlPRProyecto.Visible;
             PnlProyecto.Visible = DdlProyecto.Visible;
             if (PnlProyecto.Visible)
             {
@@ -1128,7 +1132,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
         LogicNominas lognom = new LogicNominas();
         Usuario UsuarioActual = null;
-        if (EsProduccion ==false)
+        if (EsProduccion == false)
         {
 
             //Usuario UsuarioActual = null;
@@ -1196,34 +1200,53 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (CveNomina > 0)
         {
-            ClsNominas Nom = new ClsNominas();
-            if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
+            using (ClsNominas Nom = new ClsNominas())
             {
-                Timbrado ObjTimbrado = new Timbrado();
 
-                string FolioFiscal = Nom.FolioFiscal;
-                decimal Total = Nom.Total.ToString().ToDecimal();
-                string RFCReceptor = Nom.RFC;
-                string RFCEmisor = UsuarioActual.Empresa.RFC;
-
-
-                if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
+                if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
                 {
-                    Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
+                    Timbrado ObjTimbrado = new Timbrado();
 
-                    Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
-                }
-                else
-                {
+                    string FolioFiscal = Nom.FolioFiscal;
+                    decimal Total = Nom.Total.ToString().ToDecimal();
+                    string RFCReceptor = Nom.RFC;
+                    string RFCEmisor = UsuarioActual.Empresa.RFC;
+                    string SerieFolio = Nom.SerieFolio;
 
-                    ObjTimbrado.MensajeErrorCFDI.GuardaLog();
-                    Alert($"no se pudo cancelar el folio fiscal<br>{ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia);
+                    if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
+                    {
+                        try
+                        {
+                            string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta);
+                            string archivo = string.Format("{0}{1}.xml", ruta, SerieFolio);
+                            int contador = 1;
+                            string archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
+                            while (System.IO.File.Exists(archivonew))
+                            {
+                                archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolio, contador++);
+                            }
+                            File.Move(archivo, archivonew);
+                        }
+                        catch (Exception)
+                        {
+                            Alert("Ocurrió un error al mover el archivo fiscal cancelado");
+                        }
+
+                        Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
+
+                        Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+                    }
+                    else
+                    {
+
+                        ObjTimbrado.MensajeErrorCFDI.GuardaLog();
+                        Alert($"no se pudo cancelar el folio fiscal<br>{ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia);
+                    }
                 }
+
+
             }
 
-
-            Nom.Dispose();
-
             cargaDatos();
         }
     }
@@ -7200,4 +7223,124 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         }
     }
+
+    protected void LnkCancelarFolioFiscal_Click(object sender, EventArgs e)
+    {
+
+        Timbrado ObjTimbrado = new Timbrado();
+        string FolioFiscal = TxtFolioFiscal.Text;
+        decimal Total = TxtTotal.Text.ToDecimal();
+        string RFCReceptor = TxtRFCReceptor.Text;
+        string RFCEmisor = TxtRFCEmisor.Text;
+        if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
+        {
+            Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+        }
+        else
+        {
+
+            Alert(ObjTimbrado.MensajeErrorCFDI, TipoMensaje.MsgAdvertencia);
+        }
+        ObjTimbrado = null;
+    }
+
+    protected void LnkOpenCancelarTimbre_Click(object sender, EventArgs e)
+    {
+        RegistraScript(string.Format("$('#{0}').modal();", DmodalCancelartimbre.ClientID));
+    }
+
+
+    protected void LnkOpenProrrateo_Click(object sender, EventArgs e)
+    {
+        using (ClsRH onom = new ClsRH())
+        {
+
+            if (onom.GetPersonal(-1, UsuarioActual.CveEmpresa))
+            {
+                DdlPRPersonal.DataSource = onom.DtResultados;
+                DdlPRPersonal.DataBind();
+            }
+        }
+        using (ClsNominas onom = new ClsNominas())
+        {
+
+            GVProrrateo.DataSource = null;
+            if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+            {
+                GVProrrateo.DataSource = onom.DtResultados;
+            }
+            GVProrrateo.DataBind();
+        }
+        RegistraScript(string.Format("$('#DModalProrrateo').modal();"));
+        UpModalProrrateo.Update();
+    }
+    protected void LnkEliminarProrrateo_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int CvePersonal, CveSubProyecto;
+        CvePersonal = gvrow.DataKey("CvePersonal").ToEntero();
+        CveSubProyecto = gvrow.DataKey("CveSubProyecto").ToEntero();
+
+        using (ClsNominas onom = new ClsNominas())
+        {
+
+            if (onom.ProrrateosubproyectoRemove(CvePersonal, CveSubProyecto))
+            {
+                GVProrrateo.DataSource = null;
+                if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+                {
+                    GVProrrateo.DataSource = onom.DtResultados;
+                }
+                GVProrrateo.DataBind();
+                Alert("Se ha eliminado satisfactoriamente.");
+            }
+        }
+    }
+
+
+    protected void GVProrrateo_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            int CvePersonal, CveSubProyecto;
+            decimal Porcentaje;
+            CvePersonal = e.Row.DataKey("CvePersonal").ToEntero();
+            CveSubProyecto = e.Row.DataKey("CveSubProyecto").ToEntero();
+            Porcentaje = e.Row.DataKey("Porcentaje").ToDecimal();
+            if (CveSubProyecto > 0)
+            {
+
+            }
+            else
+            {
+                e.Row.FindControl("LnkEliminarProrrateo").Visible = false;
+                e.Row.CssClass = Porcentaje == 1 ? "info" : "danger";
+            }
+        }
+    }
+
+    protected void LnkAgregarProrrateo_Click(object sender, EventArgs e)
+    {
+
+        int CvePersonal, CveSubProyecto;
+        decimal Porcentaje;
+
+        CvePersonal = DdlPRPersonal.SelectedValue.ToEntero();
+        CveSubProyecto = DdlPRSubProyecto.SelectedValue.ToEntero();
+        Porcentaje = TxtPorcentaje.Text.ToDecimal();
+        using (ClsNominas onom = new ClsNominas())
+        {
+            if (onom.ProrrateosubproyectoAdd(CvePersonal, CveSubProyecto, Porcentaje))
+            { 
+                GVProrrateo.DataSource = null;
+                if (onom.ProrrateosubproyectoGET(UsuarioActual.CveEmpresa))
+                {
+                    GVProrrateo.DataSource = onom.DtResultados;
+                }
+                GVProrrateo.DataBind();
+                Alert("Se ha agregado satisfactoriamente.");
+            }
+        }
+        UpModalProrrateo.Update();
+    }
 }

PortalCliente/PortalCliente.aspx.vb

@@ -272,7 +272,7 @@ Partial Class Ventas_PortalCliente
 
     Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=CveClienteSucursal) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=CveClienteSucursal) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 'Carga Generales
                 LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
@@ -1726,7 +1726,7 @@ Partial Class Ventas_PortalCliente
         Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
         Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetHistorialVentas(CveCliente, TopPedidos, CveClienteSucursal:=-1, TipoDocto:="Pd2", CveEstatusFactura:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, TopPedidos, CveClienteSucursal:=-1, TipoDocto:="Pd2", CveEstatusFactura:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF) Then
             GvPedidos.DataSource = ObjClientes.DtResultados
             If ObjClientes.DtResultados.Rows.Count < 21 Then
                 LnkVerMasPedidos.Visible = False

RH/ActualizacionMasiva.aspx.vb

@@ -205,7 +205,7 @@ Partial Class RH_ActualizacionMasiva
                     '    ObjPersonal.RollBack()
                     '    Exit For
                     'End If
-                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(),, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCCheckBox("ChkCalcularSDI").Checked) Then
 
@@ -361,7 +361,7 @@ Partial Class RH_ActualizacionMasiva
                         If Not IsNothing(drow) Then
 
                             Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
-                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(),
                                                           Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal(), ChkCalcularSDIXLS.Checked) Then
                                 contador = contador + 1
                             Else

RH/CalculoSBC.aspx.cs

@@ -126,7 +126,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                 double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
                 double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
                 double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
-                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
+                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
                 {
 
                 }
@@ -144,7 +144,7 @@ public partial class RH_CalculoSBC : ClsPaginas
         /*
         
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"),UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
          * */
     }

RH/CatPersonal.aspx.vb

@@ -1141,8 +1141,8 @@ Partial Class RH_CatPersonal
                    -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
                    DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
                    0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
-                   TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151
-                   ,CveMedioTransporte:= DdlMedioTransporte.SelectedValue.ToEntero()
+                   TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
+                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero()
                 ) Then
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True

RH/Personal.aspx.vb

@@ -6466,7 +6466,7 @@ Partial Class RH_Personal
         calcularSDI()
 
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
                 TxtSalarioDiario.Text = TxtFISalariodiario.Text
                 TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
                 'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
@@ -6496,7 +6496,7 @@ Partial Class RH_Personal
         TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
         TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
 
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text

Ventas/Clientes.aspx.vb

@@ -683,10 +683,10 @@ Partial Class Clientes
             CargaCombos()
             CreaDTVentas()
             CreaDtPago()
-            RegistraScript("CargaHeader();")
-
-            CargaEstados()
-
+            RegistraScript("CargaHeader();")
+
+
+
             If UsuarioActual.Empresa.CvePlataforma = 3 Then  'SI ES USUARIO GPS
                 TabFiscalContable.Visible = True
                 TabRetenciones.Visible = False
@@ -767,7 +767,7 @@ Partial Class Clientes
                     'Configuración de Modalidad Update
                     BtnGuardar.Text = "Guardar Cambios"
                     LtlTitulo.Text = "Consulta del Cliente:"
-                    CargaDatosContrato()
+                    'CargaDatosContrato()
 
 
                     'ImgAddVenta
@@ -813,8 +813,9 @@ Partial Class Clientes
                     Tab.ActiveTabIndex = Request("ATI").ToEntero()
                 End If
                 'CargaCuentasyConceptos()
-            Else
-                'Configuración de Modalidad Insert
+            Else
+                'Configuración de Modalidad Insert
+                CargaEstados()
 
                 If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
                     Dim ObjClientes As New ClsClientes
@@ -1376,14 +1377,14 @@ Partial Class Clientes
         If ObjCorporativo.GetCorporativo(UsuarioActual.CveEmpresa, 1) Then
             If ObjCorporativo.DtResultados.Rows.Count > 0 Then
                 Dim dt As DataTable = ObjCorporativo.DtResultados
-                DdlCorporativo.DataSource = dt
-                DdlCorporativo.DataBind()
+                DdlCorporativo.DataSource = dt
                 DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1"))
             Else
                 DdlCorporativo.DataSource = Nothing
             End If
         End If
-        ObjCorporativo.Dispose()
+        ObjCorporativo.Dispose()
+        DdlCorporativo.DataBind()
     End Sub
     Protected Sub CargaCuentasExistentes()
         'SELECTED VALUES
@@ -1409,36 +1410,36 @@ Partial Class Clientes
         If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus:=-1, TipoCliente:=-1) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 Existe = True
-                Retorno = True
-
+                Retorno = True
+
                 CargaDdlSucursalCliente()
                 CargaDocumentosVenta(CveCliente)
 
                 Dim RetSC As Boolean = CargaSucursalesCliente()
 
-
-                CargaPersonalAsignado()
-                CargaUsuariosPortal()
-                CargaOrdenesServiciosCliente()
+                CargaUsuariosPortal()
+                'CargaPersonalAsignado()
+                'CargaOrdenesServiciosCliente()
                 CargaImpuestosLocales()
                 CargaCuentasContablesDdls()
                 CargaResponsables()
-                CargaCondicionesEntrega()
-                'CargaClasificaciones()
-                CargaGridRetenciones()
-                ' CargaDocs()
+                CargaCondicionesEntrega()
+                'CargaClasificaciones()
+                ' CargaGridRetenciones()
+                ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()
-                CargarPagosNoBancarios()
+                'CargarPagosNoBancarios()
 
                 If UsuarioActual.TienePermisoProceso(279) Then
                     LnkPorcentajeMarcas.Visible = True
                     LnkPorcentajePrecios.Visible = True
-                End If
-
+                End If
+
+
                 If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
 
                 If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS. 
@@ -1447,7 +1448,7 @@ Partial Class Clientes
                     CargaCuentasEquipos()
                 End If
 
-                CargaCuentasCaracteristicas()
+                CargaCuentasCaracteristicas()
 
                 If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
 
@@ -1583,9 +1584,9 @@ Partial Class Clientes
                 HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString() = "", "0", ObjClientes.DtResultados(0)("LT").ToString())
                 HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString())
 
-                DdlPais.SelectedValueExist(ObjClientes.CvePais)
-                CargaEstado()
+                DdlPais.SelectedValueExist(ObjClientes.CvePais)
 
+                CargaEstado()
 
                 CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString())
 
@@ -1638,6 +1639,9 @@ Partial Class Clientes
                 'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
                 'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
 
+
+
+
                 'DIAS DE PAGO
                 If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
                     Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
@@ -1676,27 +1680,31 @@ Partial Class Clientes
                 TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
                 TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
                 TxtCelular.Text = ObjClientes.Celular
-                TxtExtOtro.Text = ObjClientes.ExtOtros
-
-
-                If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
-                If ObjClientes.IdCtaContAnticipos > 0 Then
-                    DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
-                    DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
-                End If
-                If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
-                If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
-                If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
-
-
-                If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
-                If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
-
-                If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString()
-                If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
-                ActivarRegistroAutomatico()
-
-                '7eleven
+                TxtExtOtro.Text = ObjClientes.ExtOtros
+
+
+                If UsuarioActual.CveEmpresa.Contiene(119, 4, 7, 11, 12, 122, 145) Then
+
+                    If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
+                    If ObjClientes.IdCtaContAnticipos > 0 Then
+                        DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
+                        DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
+                    End If
+                    If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
+                    If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
+                    If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
+
+
+                    If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
+                    If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
+
+                    If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString()
+                    If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
+                    ActivarRegistroAutomatico()
+                End If
+
+
+                '7eleven
                 TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
 
                 'FORD
@@ -1723,18 +1731,27 @@ Partial Class Clientes
 
                 If Not ObjClientes.Estatus Then
                     Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
-                End If
+                End If
+
+                'watch.Stop()
+                'Alert(watch.ElapsedMilliseconds.ToString())
+                'watch.Start()
 
-                CargaEventoBitacora()
-                'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
-                '    CargaCuentasConceptos()
-                '    divCuentas.Visible = True
-                '    divCuentasContp.Visible = False
-                'Else
-                '    divCuentas.Visible = False
-                '    divCuentasContp.Visible = True
+
+                CargaEventoBitacora()
+                'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                '    CargaCuentasConceptos()
+                '    divCuentas.Visible = True
+                '    divCuentasContp.Visible = False
+                'Else
+                '    divCuentas.Visible = False
+                '    divCuentasContp.Visible = True
                 'End If
 
+                'watch.Stop()
+                'Alert(watch.ElapsedMilliseconds.ToString())
+                'watch.Start()
+
                 If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                     CargaCuentasConceptos()
                     divCuentas.Visible = True
@@ -1801,14 +1818,14 @@ Partial Class Clientes
         ObjClientes.Dispose()
 
 
-        watch.Stop()
-        'Alert(watch.ElapsedMilliseconds.ToString())
-
+        watch.Stop()
+        ' Alert(watch.ElapsedMilliseconds.ToString())
+
         Return Retorno
     End Function
     Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
 
                 'Carga Grid
@@ -2057,6 +2074,8 @@ Partial Class Clientes
         ObjMovtos.Dispose()
         GvBancos.DataBind()
 
+        CargarPagosNoBancarios()
+
         UpBancos.Update()
     End Sub
 
@@ -5786,7 +5805,7 @@ Partial Class Clientes
         If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
             Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
         End If
-
+        ObjContabilidad.Dispose()
         Return Retorno
     End Function
     Private Sub SetValues()
@@ -8408,20 +8427,20 @@ Partial Class Clientes
         DdlUsuario.DataBind()
 
         'Carga Productos
-        DdlPSFiltro.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
+        DdlPSFiltro.setEsWebService(True)
+
+        'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+        DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
             DdlPSFiltro.SelectedText = ""
-            DdlPSFiltro.SelectedValue = "-1"
-        Else
-            DdlPSFiltro.ddl.Items.Clear()
-            DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
-            DdlPSFiltro.ddl.DataBind()
-            DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
-        End If
-
-        CargaGrupo()
+            DdlPSFiltro.SelectedValue = "-1"
+            'Else
+            '    DdlPSFiltro.ddl.Items.Clear()
+            '    DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
+            '    DdlPSFiltro.ddl.DataBind()
+            '    DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+            'End If
+
+            CargaGrupo()
         CargaTipoCentroCosto()
 
     End Sub
@@ -10380,9 +10399,9 @@ Partial Class Clientes
         Dim ObjVentas As New ClsVentas()
         If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
             GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
-            GvClentesPersonalEntrega.DataBind()
         End If
         ObjVentas.Dispose()
+        GvClentesPersonalEntrega.DataBind()
     End Sub
 
     Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
@@ -10438,7 +10457,7 @@ Partial Class Clientes
 
     Private Sub CargaResumenHistorial()
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetHistorialVentas(CveCliente, -1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, -1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
 
                 Dim Cantidad As Double

Ventas/Ventas.aspx.vb

@@ -2435,15 +2435,15 @@ Partial Class Ventas
                         LnkImprimirFormatoTelcel.Visible = True
                     End If
 
-                    If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
-                        Dim ObjInventario As New ClsInventarios
-                        If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
-                            If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                DivDevAlm.Visible = True
-                            End If
-                        End If
-                        ObjInventario.Dispose()
-                    End If
+                    'If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
+                    '    Dim ObjInventario As New ClsInventarios
+                    '    If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+                    '        If ObjInventario.DtResultados.Rows.Count > 0 Then
+                    '            DivDevAlm.Visible = True
+                    '        End If
+                    '    End If
+                    '    ObjInventario.Dispose()
+                    'End If
 
 
                 End If
@@ -2770,7 +2770,7 @@ Partial Class Ventas
             CargaFormatoSucursal()
 
             InicializaDevolucionAlmacen()
-            CargaOtrosConceptos()
+            'CargaOtrosConceptos()
             CargaFacturaOC()
 
             'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
@@ -6003,7 +6003,7 @@ Partial Class Ventas
             DivVentasUsados.Visible = True
 
             Dim ObjClientes As New ClsClientes
-            If ObjClientes.GetHistorialVentas(CveCliente, CveClienteSucursal:=-1, TipoDocto:="Ing", CveEstatusFactura:=-1) Then
+            If ObjClientes.GetHistorialVentas(CveCliente, UsuarioActual.CveEmpresa, CveClienteSucursal:=-1, TipoDocto:="Ing", CveEstatusFactura:=-1) Then
                 DdlVentaUsado.DataSource = ObjClientes.DtResultados.FiltraParametros("UsadoMarcado = 0")
             End If
             ObjClientes.Dispose()
@@ -6089,7 +6089,7 @@ Partial Class Ventas
     End Sub
     Private Sub CargaFacturasARelacionar()
         Using ObjClientes As New ClsClientes
-            If ObjClientes.GetHistorialVentas(Me.CveCliente, TipoDocto:="Ing") Then
+            If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ing") Then
                 DdlFacturaARelacionar.DataSource = ObjClientes.DtResultados
             End If
         End Using
@@ -6738,7 +6738,7 @@ Partial Class Ventas
 
         Dim CveSATNC = "84111506"
         Dim dtt As New DataTable
-        dtt = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC
+        dtt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CodigoSATPS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC
 
         If dtt IsNot Nothing Then
             DdlNCPS.DataSource = dtt
@@ -21376,6 +21376,11 @@ Partial Class Ventas
         If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
             If ObjInv.DtResultados.Rows.Count > 0 Then
                 CargaGVInv(ObjInv.DtResultados)
+                If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
+
+                    DivDevAlm.Visible = True
+
+                End If
             End If
         End If
         ObjInv.Dispose()

vwd.webinfo

@@ -320,6 +320,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+