diff --git a/AF/AF.aspx b/AF/AF.aspx index ecf2bb86b..c14f4ae7a 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -2555,8 +2555,8 @@
- - + + <%----%>
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index a9d79c531..dce43d4f1 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -971,10 +971,10 @@ Partial Class AF_AF UpDatos.Update() End Sub Private Sub CargaProveedor() - DdlProveedor.Items.Clear() - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() + 'DdlProveedor.Items.Clear() + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlProveedor.DataBind() UpAddPolizas.Update() End Sub @@ -1009,7 +1009,7 @@ Partial Class AF_AF UpDatos.Update() BtnAgregarPoliza.Text = "Agregar" LabelPolizas.InnerText = "Agregar Póliza de seguro" - DdlProveedor.SelectedIndex = 0 + 'DdlProveedor.SelectedIndex = 0 TxtPolizaSeguro.Text = "" TxtFechaExpPoliza.Text = "" TxtFechaVenPoliza.Text = "" diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 728d1d200..5615d03b2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6229,30 +6229,6 @@ Public Class ClsContabilidad #End Region -#Region "IDisposable Support" - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - - If Not Data Is Nothing Then Data.Dispose() : Data = Nothing - If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - End If - Me.disposedValue = True - End Sub - Public Sub Dispose() Implements IDisposable.Dispose - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region #Region "Periodos Bloqueo Meses" Public Function GetPeriodosBloqueo(CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -6376,8 +6352,6 @@ Public Class ClsContabilidad End Function #End Region - - #Region "ESTADO RESULTADOS HORIZONTAL" @@ -6567,4 +6541,32 @@ Public Class ClsContabilidad Return Retorno End Function + + +#Region "IDisposable Support" + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + End If + Me.disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + + End Class \ No newline at end of file diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 49aab559a..f772f0635 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1157,7 +1157,7 @@ Public Class ClsPaginas Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) If Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() - If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) + If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) ObjSubProyectos.Dispose() GuardaLog("Se Cargo GlobalDTProyectosUsuarios") End If @@ -5706,6 +5706,7 @@ Public Class ClsPaginas Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) wsreport = Nothing params = Nothing + ds.Dispose() : ds = Nothing Else If IsNothing(MR) Then MR = New ReportViewer Try @@ -5735,6 +5736,7 @@ Public Class ClsPaginas 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") End Try MR.Dispose() + MR = Nothing 'Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) 'If File.Exists(ruta) Then ' Bytes = File.ReadAllBytes(ruta) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 27d0fa4ca..9a643e6ef 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1807,7 +1807,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String, NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, - Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False) As Boolean + Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1891,6 +1891,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Sindicalizado", SqlDbType.Bit).Value = Sindicalizado .Add("@Pensionado", SqlDbType.Bit).Value = Pensionado .Add("@CvePais", SqlDbType.Int).Value = CvePais + .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 625017e87..eb7963a0e 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3658,6 +3658,7 @@ Public Class Timbrado + End If #Region "Complemento Pago" @@ -3780,6 +3781,159 @@ Public Class Timbrado End If #End Region + +#Region "C O M P L E M E N T O C A R T A P O R T E" + + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + + + + ''DATOS GENERALES + Dim ComCartaPorte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorte() + Dim Transp As Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteTranspInternac + ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí) + ComCartaPorte.EntradaSalidaMercSpecified = False + ComCartaPorte.ViaEntradaSalidaSpecified = False + ComCartaPorte.TotalDistRecSpecified = False + + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Ubicaciones = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} + For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones + 'origen + ComCartaPorte.Ubicaciones(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion + ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False + ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida + ComCartaPorte.Ubicaciones(i).Origen = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen, + .RFCRemitente = ubica.Origen.RFCRemitente, + .NombreRemitente = ubica.Origen.NombreRemitente, + .FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate} + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, + .NumeroExterior = ubica.Origen.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Origen.Domicilio.NumeroInterior, + .Colonia = ubica.Origen.Domicilio.Colonia, + .Localidad = ubica.Origen.Domicilio.Localidad, + .Referencia = ubica.Origen.Domicilio.Referencia, + .Municipio = ubica.Origen.Domicilio.Municipio, + .Estado = ubica.Origen.Domicilio.Estado, + .CodigoPostal = ubica.Origen.Domicilio.CP} + 'falta pais + + + + ComCartaPorte.Ubicaciones(i).Destino = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, + .RFCDestinatario = ubica.Destino.RFCDestinatario, + .NombreDestinatario = ubica.Destino.NombreDestinatario, + .FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate} + + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, + .NumeroExterior = ubica.Destino.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Destino.Domicilio.NumeroInterior, + .Colonia = ubica.Destino.Domicilio.Colonia, + .Localidad = ubica.Destino.Domicilio.Localidad, + .Referencia = ubica.Destino.Domicilio.Referencia, + .Municipio = ubica.Destino.Domicilio.Municipio, + .Estado = ubica.Destino.Domicilio.Estado, + .CodigoPostal = ubica.Destino.Domicilio.CP} + + + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + 'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) + 'destino + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) + 'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) + Next + + End If + + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + ComCartaPorte.Mercancias = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercancias + ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal + ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal + ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias + ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal + ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso + + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Mercancias.Mercancia = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {} + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + ComCartaPorte.Mercancias.Mercancia(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia + ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción + ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad + ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad + ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones + ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje + ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg + ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt + + 'cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + Next + End If + End If + + ' + If Carta.FiguraTransporte IsNot Nothing Then + + If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then + ComCartaPorte.FiguraTransporte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporte + + ComCartaPorte.FiguraTransporte.CveTransporte = Profact.TimbraCFDI33.Complementos.CartaPorte10.c_CveTransporte.Item02 + 'ComCartaPorte.FiguraTransporte.CveTransporte. + + 'cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro) + + 'cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM) + + 'If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then + 'For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques + 'cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) + ' Next + ' + 'End If + End If + + + 'If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + ' Dim i As Integer = 0 + ' ComCartaPorte.FiguraTransporte.Operadores = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1)() {} + ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + ' Dim Oper = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador() + ' Oper.RFCOperador = concep.RFCOperador + ' Oper.NumLicencia = concep.NumLicencia + ' Oper.NombreOperador = concep.NombreOperador + ' Oper.NumRegIdTribOperador = concep.NumRegidTribOperador + ' 'Oper.ResidenciaFiscalOperador = concep.ResidenciaFiscalOperador + ' ComCartaPorte.FiguraTransporte.Operadores + ' 'cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador) + ' Next + 'End If + + End If + + End If + + End If + +#End Region + + #Region "Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index cd4a6e804..419a93c51 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -143,7 +143,7 @@
- +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index cc089bec4..e281fdbab 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -26,14 +26,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Sub - Private Sub CargaDatos() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjConta.DtResultados - End If - ObjConta.Dispose() - GvDatos.DataBind() - End Sub + 'Private Sub CargaDatos() + ' Dim ObjConta As New ClsContabilidad + ' If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then + ' GvDatos.DataSource = ObjConta.DtResultados + ' End If + ' ObjConta.Dispose() + ' GvDatos.DataBind() + 'End Sub Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad @@ -67,8 +67,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCuentaGlobal.DataSource = ObjConta.DtResultados End If ObjConta.Dispose() - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - + DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlClientes.setEsWebService(True) DdlPersonal.setEsWebService(True) @@ -102,7 +102,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -123,7 +123,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta")) DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero) - DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor")) + DdlProveedor.ddl.SelectedValueExist(GvRow.DataKey("CveProveedor")) DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen")) TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") @@ -151,41 +151,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr IsNot Nothing Then - If Dr("AplicaCliente").ToString = "True" Then - divCliente.Visible = True - DdlClientes.setEsWebService(True) - End If - If Dr("AplicaProveedor").ToString = "True" Then - divProveedor.Visible = True - End If + divCliente.Visible = Dr("AplicaCliente").ToString = "True" - If Dr("AplicaPersonal").ToString = "True" Then - divPersonal.Visible = True - DdlPersonal.setEsWebService(True) + divProveedor.Visible = Dr("AplicaProveedor").ToString = "True" - End If + divPersonal.Visible = Dr("AplicaPersonal").ToString = "True" - If Dr("AplicaImpuesto").ToString = "True" Then - divPorcentajeIVA.Visible = True - End If + divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True" + divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True" - If Dr("AplicaClasificacion").ToString = "True" Then - divClasificacion.Visible = True - End If + divBancos.Visible = Dr("AplicaBancos").ToString = "True" - If Dr("AplicaBancos").ToString = "True" Then - divBancos.Visible = True - End If + divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True" - If Dr("AplicaAlmacen").ToString = "True" Then - divAlmacen.Visible = True - End If - - If Dr("AplicaSubProyecto").ToString = "True" Then - divSubProyectos.Visible = True - End If + divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True" If Dr("AplicaActivoFijo").ToString = "True" Then divActivoFijo.Visible = True @@ -194,9 +175,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) End If - If Dr("AplicaNomina").ToString = "True" Then - divConceptoNomina.Visible = True - End If + divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" End If End Sub diff --git a/General/PopUpPaqueteriasGuias.aspx.cs b/General/PopUpPaqueteriasGuias.aspx.cs index 09f056b8a..8b76b39b9 100644 --- a/General/PopUpPaqueteriasGuias.aspx.cs +++ b/General/PopUpPaqueteriasGuias.aspx.cs @@ -814,7 +814,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas private string getCorreoString() { ClsVentas ObjVentas = new ClsVentas(); - if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa)) + if (ObjVentas.GetVenta(CveVenta,UsuarioActual.CveEmpresa) && ObjVentas.DtResultados.Rows.Count > 0 ) { int CveVendedor = ObjVentas.DtResultados.Rows[0]["CveVendedor"].ToEntero(); int CveCliente = ObjVentas.DtResultados.Rows[0]["CveCliente"].ToEntero(); diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 66f0a2f72..5f5646989 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1036,13 +1036,16 @@ Partial Class Inventarios_EntregaAlmacen End Sub Private Sub CargaDocumentos(tCveVenta As Integer) - Dim objInv As New ClsEdocumentacion - - If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then - GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''") - End If - objInv.Dispose() - GvDocs.DataBind() + If tCveVenta > 0 Then + Dim objInv As New ClsEdocumentacion + + If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then + GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''") + End If + objInv.Dispose() + GvDocs.DataBind() + End If + End Sub diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index de0b9518b..37fc0f621 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -190,6 +190,20 @@
+ +
+ +
+ + + + + + + + +
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0404397b4..2fb2b064c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -189,6 +189,10 @@ Partial Class Inventarios_TraspasoAlmacen LblResponsable.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then + divFechaEnvio.Visible = True + End If + CargaCombos() CreaDT() diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx index bcd279f98..8ae601114 100644 --- a/Nomina/ChecadorAsistencia.aspx +++ b/Nomina/ChecadorAsistencia.aspx @@ -135,12 +135,14 @@ - - - - - - + + + + + <%----%> + <%----%> + +
diff --git a/Nomina/ChecadorAsistencia.aspx.cs b/Nomina/ChecadorAsistencia.aspx.cs index 72a8e28da..6a0c98066 100644 --- a/Nomina/ChecadorAsistencia.aspx.cs +++ b/Nomina/ChecadorAsistencia.aspx.cs @@ -196,6 +196,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas 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"))) { + //Alert("Entre"); GvBitacora.DataSource = ObjGral.DtResultados; GvBitacora.DataBind(); } @@ -348,6 +349,16 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); DdlTipoAsistenciasB.DataBind(); + DdlTipoAsistenciasB.SelectedValueExist(CveAsistenciasInasistencias); + if (DdlTipoAsistenciasB.SelectedIndex == 0) + { + DdlTipoAsistenciasB.Enabled = false; + }else + { + DdlTipoAsistenciasB.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros(string.Format("CveEmpresa = {0} AND CveAsistenciasInasistencias IN({1},{2})", UsuarioActual.CveEmpresa, DdlTipoAsistenciasB.Items[0].Value, DdlTipoAsistenciasB.SelectedValue)); + DdlTipoAsistenciasB.DataBind(); + DdlTipoAsistenciasB.Enabled = true; + } /* DdlAsisProyectoB.DataSource = DdlAsisProyecto.DataSource; DdlAsisProyectoB.DataBind(); @@ -359,7 +370,6 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas CargarCentrosDeCosto(DdlAsisProyectoB, DdlAsisSubProyectoB, LblAsisProyectoB, LblAsisSubProyecto); PnlProyectoB.Visible = PnlProyecto.Visible; - DdlTipoAsistenciasB.SelectedValueExist(CveAsistenciasInasistencias); DdlAsisProyectoB.SelectedValueExist(CveProyecto); DdlAsisSubProyectoB.SelectedValueExist(CveSubProyecto); } diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 79a6753a5..c311c48da 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -5129,8 +5129,8 @@ Partial Class OC option72.Visible = True DivFolioAdicional.Visible = True generarAnticipo.Visible = True - Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual) - Ddlcliente.DataBind() + 'Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual) + 'Ddlcliente.DataBind() 'Ddlcliente.Items.Insert(0, New ListItem(" - ", "-1")) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index e55325a71..84965a024 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -948,6 +948,18 @@ +
+ +
+ + + + + + + +
+