-- cambio en propiedad Extension y Path, del objeto Archivo
This commit is contained in:
@@ -445,7 +445,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
|
||||
Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
|
||||
Dim dttemp As DataTable
|
||||
Dim dttemp As DataTable = Nothing
|
||||
'sino existe, recarga los datos
|
||||
Dim ObjUsr As New ClsInventarios
|
||||
If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then dttemp = ObjUsr.DtResultados
|
||||
|
||||
@@ -343,7 +343,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
|
||||
|
||||
Dim DtDetalle As DataTable = Nothing
|
||||
Dim objContratos As New ClsContratos
|
||||
If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then
|
||||
If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveUsuario) Then
|
||||
DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
|
||||
Else
|
||||
DtDetalle = Nothing
|
||||
|
||||
Reference in New Issue
Block a user