Impresion de entradas/salidas en stimulsoft
This commit is contained in:
@@ -7,7 +7,7 @@ Partial Class Sistemas_CatSesiones
|
||||
|
||||
Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
|
||||
If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
|
||||
CargaUsuarios()
|
||||
CargaUsuarios()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTUsuarioResponsable" Then
|
||||
CargaUsuariosResponsable()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
|
||||
@@ -35,7 +35,7 @@ Partial Class Sistemas_CatSesiones
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then
|
||||
CargaPaises()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then
|
||||
CargaEstados()
|
||||
CargaEstados()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
|
||||
CargaColonias()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
|
||||
@@ -92,29 +92,29 @@ Partial Class Sistemas_CatSesiones
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATMotivoTraslado" Then
|
||||
CargaSATMotivoTraslado()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
|
||||
CargaConceptosContables()
|
||||
CargaConceptosContables()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
|
||||
CargaDTClasificacionPorcentaje()
|
||||
CargaDTClasificacionPorcentaje()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
|
||||
CargaDTInvPSSeccionesAlmacen()
|
||||
CargaDTInvPSSeccionesAlmacen()
|
||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
|
||||
CargaGlobalDTTipoTransacciones()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CargaGlobalDTTipoTransacciones()
|
||||
Using ObjBancos As New ClsBancos
|
||||
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
|
||||
If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
|
||||
If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
|
||||
If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub CargaGlobalDTTipoTransacciones()
|
||||
Using ObjBancos As New ClsBancos
|
||||
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
|
||||
If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
|
||||
If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
|
||||
If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaConceptosContables()
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
|
||||
@@ -130,8 +130,8 @@ Partial Class Sistemas_CatSesiones
|
||||
Private Sub CargaContratos()
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
|
||||
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
|
||||
' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
|
||||
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
|
||||
' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
|
||||
ObjContratos.Dispose()
|
||||
GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
|
||||
End Sub
|
||||
@@ -216,7 +216,7 @@ Partial Class Sistemas_CatSesiones
|
||||
|
||||
Private Sub CargaVenta()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
|
||||
'If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
|
||||
If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
|
||||
If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
|
||||
|
||||
@@ -232,11 +232,11 @@ Partial Class Sistemas_CatSesiones
|
||||
If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
|
||||
'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
|
||||
ObjPS.Dispose()
|
||||
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
|
||||
Using ObjVenta As New ClsVentas
|
||||
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
|
||||
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
|
||||
End If
|
||||
GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
|
||||
Using ObjVenta As New ClsVentas
|
||||
If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
|
||||
Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
|
||||
End If
|
||||
End Using
|
||||
|
||||
'Fin Carga Usuarios
|
||||
@@ -290,9 +290,9 @@ Partial Class Sistemas_CatSesiones
|
||||
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
|
||||
Else
|
||||
Application("GlobalDTUsuarios") = Nothing
|
||||
End If
|
||||
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
|
||||
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
|
||||
End If
|
||||
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
|
||||
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
|
||||
ObjUsuarios.Dispose()
|
||||
'Fin Carga Usuarios
|
||||
End Sub
|
||||
@@ -300,12 +300,12 @@ Partial Class Sistemas_CatSesiones
|
||||
Private Sub CargaUsuariosResponsable()
|
||||
'Carga Usuarios
|
||||
Dim ObjUsuarios As New ClsSisUsuarios
|
||||
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
|
||||
Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
|
||||
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
|
||||
Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
|
||||
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
|
||||
Else
|
||||
Application("GlobalDTUsuarioResponsable") = Nothing
|
||||
End If
|
||||
End If
|
||||
ObjUsuarios.Dispose()
|
||||
'Fin Carga Usuarios
|
||||
End Sub
|
||||
@@ -402,25 +402,25 @@ Partial Class Sistemas_CatSesiones
|
||||
|
||||
Private Sub CargaPaises()
|
||||
Dim Gral As New ClsGenerales
|
||||
GlobalDTGralPaises = Nothing
|
||||
'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
||||
GlobalDTGralPaises = Nothing
|
||||
'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
|
||||
If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
||||
|
||||
Gral.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEstados()
|
||||
GlobalDTGralEstados("") = Nothing
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
'Gral.Dispose()
|
||||
GlobalDTGralEstados("") = Nothing
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
'Gral.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaColonias()
|
||||
GlobalDTGralColonias("", "", "") = Nothing
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
'Gral.Dispose()
|
||||
GlobalDTGralColonias("", "", "") = Nothing
|
||||
'Dim Gral As New ClsGenerales
|
||||
'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
|
||||
'Gral.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -482,10 +482,10 @@ Partial Class Sistemas_CatSesiones
|
||||
End Sub
|
||||
|
||||
'Compras
|
||||
Private Sub CargaProveedores()
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
|
||||
Private Sub CargaProveedores()
|
||||
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
|
||||
Dim ObjProveedores As New ClsCompProveedores
|
||||
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing
|
||||
If ObjProveedores.GetClasificacionProveedores Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing
|
||||
@@ -570,7 +570,7 @@ Partial Class Sistemas_CatSesiones
|
||||
End If
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
Application("TipoCambioActual") = Nothing
|
||||
Application("TipoCambioActual") = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub CargarEquivalencias()
|
||||
@@ -606,19 +606,19 @@ Partial Class Sistemas_CatSesiones
|
||||
' Response.Redirect(dominio)
|
||||
'End If
|
||||
LblTotal.Text = dominio
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDTClasificacionPorcentaje()
|
||||
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
||||
ObjGenerales.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDTInvPSSeccionesAlmacen()
|
||||
GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
|
||||
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDTClasificacionPorcentaje()
|
||||
|
||||
Dim ObjGenerales As New ClsGenerales
|
||||
If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
|
||||
ObjGenerales.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDTInvPSSeccionesAlmacen()
|
||||
GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
|
||||
GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user