AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios en globalDT

Browse Source
This commit is contained in:
rrene
2023-01-27 06:29:34 -07:00
parent 18da5211f5
commit a93574b082
5 changed files with 460 additions and 2148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -72,22 +72,12 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombos()
'Dim ObjPS As New ClsProductosServicios
'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
' DdlMarca.DataSource = ObjPS.DtResultados
' DdlMarca.DataBind()
' DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
' DdlMarca.SelectedValue = "-1"
'End If
'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1"
DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
DdlTipoUso.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa)
DdlTipoUso.DataBind()
DdlTipoUso.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipoUso.SelectedValue = "-1"
@@ -124,7 +114,7 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaM.DataBind()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa)
DdlTipoUsoM.DataBind()
End Sub

266
App_Code/ClsPaginas.vb
View File

@@ -1129,43 +1129,45 @@ Public Class ClsPaginas
Application("GlobalDTModulos") = value
End Set
End Property
Property GlobalDTMonedas() As DataTable
Public Shared Property GlobalDTMonedas() As DataTable
Get
GlobalDTMonedas = DirectCast(Application("GlobalDTMonedas"), DataTable)
Dim AppNombre As String = "GlobalDTMonedas"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjMonedas As New ClsMonedas
If ObjMonedas.GetMonedas() Then HttpContext.Current.Application(AppNombre) = ObjMonedas.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
ObjMonedas.Dispose()
End If
GlobalDTMonedas = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTMonedas") = value
Dim AppNombre As String = "GlobalDTMonedas"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Property GlobalDTMonedasAlias() As DataTable
Get
GlobalDTMonedasAlias = DirectCast(Application("GlobalDTMonedasAlias"), DataTable)
Dim AppNombre As String = "GlobalDTMonedasAlias"
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjMonedas As New ClsMonedas
If ObjMonedas.GetMonedasAlias() Then HttpContext.Current.Application(AppNombre) = ObjMonedas.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
ObjMonedas.Dispose()
End If
GlobalDTMonedasAlias = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTMonedasAlias") = value
Dim AppNombre As String = "GlobalDTMonedasAlias"
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
' Get
' If CveEmpresa <> -1 Then
' Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
' GlobalDTSucursales = Dv.ToTable
' Dv.Dispose()
' Else
' GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
' End If
' End Get
' Set(value As DataTable)
' Application("GlobalDTSucursales") = value
' End Set
'End Property
Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1, Optional RegimenFiscalReceptor As String = "-1") As DataTable
Public Shared Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1, Optional RegimenFiscalReceptor As String = "-1") As DataTable
Get
Dim AppNombre As String = "GlobalDTSATUsosCFDI"
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATUsosCFDI() Then Application(AppNombre) = ObjGrales.DtResultados
If ObjGrales.GetSATUsosCFDI() Then HttpContext.Current.Application(AppNombre) = ObjGrales.DtResultados
ObjGrales.Dispose()
End If
@@ -1177,40 +1179,40 @@ Public Class ClsPaginas
Tipo.AppendFormat("AND RegimenFiscalReceptor LIKE '%{0}%'", RegimenFiscalReceptor)
End If
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Tipo.ToString(), " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Tipo.ToString(), " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
GlobalDTSATUsosCFDI = Dv.ToTable
Dv.Dispose()
Else
GlobalDTSATUsosCFDI = DirectCast(Application(AppNombre), DataTable)
GlobalDTSATUsosCFDI = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATUsosCFDI"
Application(AppNombre) = value
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
Dim ObjUnidadesMedida As New ClsUnidadesMedida()
If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados
If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUnidadesMedida.DtResultados
ObjUnidadesMedida.Dispose()
End If
If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows)
GlobalDTUnidadesMedida = Dv.ToTable
Dv.Dispose()
Else
GlobalDTUnidadesMedida = DirectCast(Application(AppNombre), DataTable)
GlobalDTUnidadesMedida = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
Application(AppNombre) = value
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable
@@ -4134,30 +4136,45 @@ Public Class ClsPaginas
Application(AppNombre) = value
End Set
End Property
Property GlobalDTAcumTiposDefecto() As DataTable
Public Shared Property GlobalDTAcumTiposDefecto(CveEmpresa As Integer) As DataTable
Get
GlobalDTAcumTiposDefecto = DirectCast(Application("GlobalDTAcumTiposDefecto"), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTAcumTiposDefecto") = value
End Set
End Property
Property GlobalDTAcumTiposUso() As DataTable
Get
GlobalDTAcumTiposUso = DirectCast(Application("GlobalDTAcumTiposUso"), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTAcumTiposUso") = value
End Set
End Property
Dim AppNombre As String = String.Format("GlobalDTAcumTiposDefecto-{0}", CveEmpresa)
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.TiposDefectoGet(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjAcumuladores.DtResultados
ObjAcumuladores.Dispose()
End If
GlobalDTAcumTiposDefecto = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTAcumTiposDefecto-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Public Shared Property GlobalDTAcumTiposUso(CveEmpresa As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTAcumTiposUso-{0}", CveEmpresa)
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.TiposUsoGet(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjAcumuladores.DtResultados
ObjAcumuladores.Dispose()
End If
GlobalDTAcumTiposUso = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTAcumTiposUso-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa)
If Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"})
If ObjAcumuladores.GarantiasMesesGet(-1, CveEmpresa) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"})
ObjAcumuladores.Dispose()
End If
@@ -4192,17 +4209,6 @@ Public Class ClsPaginas
End If
'If CveMarca <> -1 Then
' Dim Str As StringBuilder = New StringBuilder()
' If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca)
' Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
' GlobalDTCultivosCuadro = Dv.ToTable
' Dv.Dispose()
'Else
'End If
GlobalDTCultivosCuadro = DirectCast(Application(AppNombre), DataTable)
End Get
@@ -4212,79 +4218,23 @@ Public Class ClsPaginas
End Set
End Property
Property GlobalDTAcumTamaños() As DataTable
Public Shared Property GlobalDTAcumTamaños(CveEmpresa As Integer) As DataTable
Get
GlobalDTAcumTamaños = DirectCast(Application("GlobalDTAcumTamaños"), DataTable)
Dim AppNombre As String = String.Format("GlobalDTAcumTamaños-{0}", CveEmpresa)
If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.TamañoGet(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjAcumuladores.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
End Using
End If
GlobalDTAcumTamaños = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Application("GlobalDTAcumTamaños") = value
Dim AppNombre As String = String.Format("GlobalDTAcumTamaños-{0}", CveEmpresa)
HttpContext.Current.Application(AppNombre) = value
End Set
End Property
#Region "GDT'S RASTREO"
Property GlobalDTDispositivos(CveCliente As Integer) As DataTable
Get
Dim Str As StringBuilder = New StringBuilder()
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveCliente <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTDispositivos"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTDispositivos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTDispositivos = DirectCast(Application("GlobalDTDispositivos"), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTDispositivos") = value
End Set
End Property
Public Sub RecargaGlobalDTDispositivos(GPS As ClsGPS)
If GPS.DispositivosGet(-1, -1, -1, -1) Then
GlobalDTDispositivos(-1) = GPS.DtResultados
End If
End Sub
Property GlobalDTDispositivosUsuarios(CveCliente As Integer, Optional CveUsuario As Integer = -1) As DataTable
Get
If Application("GlobalDTDispositivosUsuarios") Is Nothing Then
Dim ObjGPS As New ClsGPS
If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
End If
ObjGPS.Dispose()
End If
Dim Str As StringBuilder = New StringBuilder()
If CveUsuario <> -1 Then Str.AppendFormat("CveUsuario = {0}", CveUsuario)
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveUsuario <> -1 OrElse CveCliente <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTDispositivosUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTDispositivosUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTDispositivosUsuarios = DirectCast(Application("GlobalDTDispositivosUsuarios"), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTDispositivosUsuarios") = value
End Set
End Property
#End Region
Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable
Get
@@ -4346,6 +4296,66 @@ Public Class ClsPaginas
#End Region
#Region "GDT'S RASTREO"
Property GlobalDTDispositivos(CveCliente As Integer) As DataTable
Get
Dim Str As StringBuilder = New StringBuilder()
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveCliente <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTDispositivos"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTDispositivos = Dv.ToTable
Dv.Dispose()
Else
GlobalDTDispositivos = DirectCast(Application("GlobalDTDispositivos"), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTDispositivos") = value
End Set
End Property
Public Sub RecargaGlobalDTDispositivos(GPS As ClsGPS)
If GPS.DispositivosGet(-1, -1, -1, -1) Then
GlobalDTDispositivos(-1) = GPS.DtResultados
End If
End Sub
Property GlobalDTDispositivosUsuarios(CveCliente As Integer, Optional CveUsuario As Integer = -1) As DataTable
Get
If Application("GlobalDTDispositivosUsuarios") Is Nothing Then
Dim ObjGPS As New ClsGPS
If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
End If
ObjGPS.Dispose()
End If
Dim Str As StringBuilder = New StringBuilder()
If CveUsuario <> -1 Then Str.AppendFormat("CveUsuario = {0}", CveUsuario)
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveUsuario <> -1 OrElse CveCliente <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTDispositivosUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTDispositivosUsuarios = Dv.ToTable
Dv.Dispose()
Else
GlobalDTDispositivosUsuarios = DirectCast(Application("GlobalDTDispositivosUsuarios"), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTDispositivosUsuarios") = value
End Set
End Property
#End Region
Public Enum SisParametros As Integer
URL = 1
DirectorioSitio = 2
@@ -10515,8 +10525,8 @@ Public Class ClsPaginas
If Pago.TipoPago = "I" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R
Dim Ret As New ConceptosRetenciones
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
'If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
'If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
If UsuarioActual.CveEmpresa.Contiene(119) Then
If Pago.FechaDocumentoRelacionado.Year <= 2017 Then

2292
App_Code/Modelos.vb
View File

File diff suppressed because it is too large Load Diff

18
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -492,7 +492,7 @@ Partial Class Inventarios_RecepcionUsados
Dim CveTamanio As Integer = 1
Dim CveUM As Integer = -1
Dim PU As Decimal = 0
Dim RowTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={CvePS}")
Dim RowTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CvePSCargo > 0 AND CvePSCargo={CvePS}")
Dim CodigoPS As String = ""
Dim UnidaMedida As String = ""
@@ -1044,8 +1044,8 @@ Partial Class Inventarios_RecepcionUsados
End If
Dim PU As Decimal = 0
If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={DdlProducto2.SelectedValue}").Rows.Count > 0 Then
PU = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0 AND CvePSCargo={DdlProducto2.SelectedValue}").Rows(0)("Cargo").ToString.ToDecimal
If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0 AND CvePSCargo={DdlProducto2.SelectedValue}").Rows.Count > 0 Then
PU = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0 AND CvePSCargo={DdlProducto2.SelectedValue}").Rows(0)("Cargo").ToString.ToDecimal
End If
AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedItem.Text, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDouble, PU,
@@ -1318,7 +1318,7 @@ Partial Class Inventarios_RecepcionUsados
If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
Dim DrTamanio As DataRow = GlobalDTAcumTamaños().FiltroPrimero($"CveTamaño={Dr("CveTamaño").ToString.ToEntero}")
Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CveTamaño={Dr("CveTamaño").ToString.ToEntero}")
If DrTamanio IsNot Nothing Then
Dim Cargo As Decimal = DrTamanio("Cargo").ToString().ToDecimal() * Dr("Cantidad").ToString.ToDecimal()
Dim Bonificacion As Decimal = DrTamanio("Bonificacion").ToString().ToDecimal() * Dr("Cantidad").ToString.ToDecimal()
@@ -2815,7 +2815,7 @@ Partial Class Inventarios_RecepcionUsados
IVA = SubTotal * PorcentajeIVA
Dim Descuento As Decimal = 0
Dim ImporteCargo As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Cargo", String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa)).ToDecimal()
Dim ImporteCargo As Decimal = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Cargo", String.Format("CveTamaño = {0} ", CveTamaño)).ToDecimal()
'SI ES AJUSTE O GARANTIA SOLO DEBE SUMAR EL IMPORTE DE LA GARANTIA SI NO RECIBIO USADO
If RblUsadosAjuste.SelectedValue = "1" AndAlso ImporteCargo <= 0 Then
@@ -3207,7 +3207,7 @@ Partial Class Inventarios_RecepcionUsados
Protected Sub CargaTipoDeUso()
DdlTipoUso.Items.Clear()
DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoUso.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa)
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoUso.DataBind()
End Sub
@@ -3217,7 +3217,7 @@ Partial Class Inventarios_RecepcionUsados
End Sub
Protected Sub CargaTipoDefecto()
DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto(UsuarioActual.CveEmpresa)
DdlTipoDefecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoDefecto.DataBind()
End Sub
@@ -3259,7 +3259,7 @@ Partial Class Inventarios_RecepcionUsados
End If
End If
Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}")
Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CveTamaño = {CveTamaño}")
If DrCargo IsNot Nothing Then
CargoVendido = DrCargo("Cargo").ToString.ToDecimal
@@ -3386,7 +3386,7 @@ Partial Class Inventarios_RecepcionUsados
If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then
CveTamaño = ObjPS.DtResultados.FiltroPrimeroValor("CveTamaño").ToEntero
End If
Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa))
Dim drDatos As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveTamaño = {0} ", CveTamaño))
Dim Importe As Decimal = 0
Dim drTamañoPS As DataRow = Nothing

18
Ventas/PV.aspx.vb
View File

@@ -5182,7 +5182,7 @@ Partial Class PV
' End If
'Next
If DdlRecepcionUsados.SelectedValue.ToEntero() > 0 Then
Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
Entregado += (1D * DrTamanio("Cargo").ToString().ToDecimal)
UltimoEntregado += (DrTamanio("Cargo").ToString().ToDecimal)
@@ -7049,13 +7049,13 @@ Partial Class PV
DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoUso.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa)
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto(UsuarioActual.CveEmpresa)
DdlTipoDefecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
Dim DtTamanios = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo > 0")
Dim DtTamanios = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0")
CargaModelos()
CargaBCIAjuste()
@@ -7448,7 +7448,7 @@ Partial Class PV
End If
End If
Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} And CveTamaño = {CveTamaño}")
Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CveTamaño = {CveTamaño}")
If DrCargo IsNot Nothing Then
CargoVendido = DrCargo("Cargo").ToString.ToDecimal
@@ -7577,7 +7577,7 @@ Partial Class PV
If TmpDT.Select($"Consec={ConsecutivoVenta}").Length > 0 Then
Dim Dr As DataRow = TmpDT.Select($"Consec={ConsecutivoVenta}")(0)
Dim CvePSCargo As Integer = -1
Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").FiltroPrimero("")
Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").FiltroPrimero("")
If DrCargo IsNot Nothing Then
CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
CargoActual = DrCargo("Cargo").ToString.ToDouble
@@ -7875,7 +7875,7 @@ Partial Class PV
' End If
'Next
Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
If DdlRecepcionUsados.SelectedValue.ToEntero() > 0 Then
TotalCargos += CantidadUsado * DrTamanio("Cargo").ToString().ToDecimal
@@ -8039,7 +8039,7 @@ Partial Class PV
Dim ListaPScargo As New List(Of MConceptoUsado)
Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
Dim DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
@@ -8470,7 +8470,7 @@ Partial Class PV
End Sub
Protected Sub DdlRecepcionUsados_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlRecepcionUsados.SelectedValue.ToEntero() > 0 Then
Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($" CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño")))
Else
DdlBCIUsado.Items.Clear()