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

filtro Empresa. GetHistorialVentas

Browse Source
This commit is contained in:
rrene
2021-09-27 13:00:41 -07:00
parent 1bff04de6e
commit ddb344462a
4 changed files with 128 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
App_Code/ClsClientes.vb
View File

@@ -513,17 +513,21 @@ Public Class ClsClientes
'SqlAdapter.Dispose() 'SqlAdapter.Dispose()
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_ClienteHistorialVentas") DataAdapter("PA_ClienteHistorialVentas")
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente With SqlAdapter.SelectCommand.Parameters
SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@SelectTop", SqlDbType.Int).Value = SelectTop
SqlAdapter.SelectCommand.Parameters.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
SqlAdapter.SelectCommand.Parameters.Add("@FechaI", SqlDbType.DateTime).Value = FechaI .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
SqlAdapter.SelectCommand.Parameters.Add("@FechaF", SqlDbType.DateTime).Value = FechaF .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

4
PortalCliente/PortalCliente.aspx.vb
View File

@@ -272,7 +272,7 @@ Partial Class Ventas_PortalCliente
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes() 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 If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Generales 'Carga Generales
LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0) 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 FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
Dim ObjClientes As New ClsClientes 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 GvPedidos.DataSource = ObjClientes.DtResultados
If ObjClientes.DtResultados.Rows.Count < 21 Then If ObjClientes.DtResultados.Rows.Count < 21 Then
LnkVerMasPedidos.Visible = False LnkVerMasPedidos.Visible = False

61
Ventas/Clientes.aspx.vb
View File

@@ -685,7 +685,7 @@ Partial Class Clientes
CreaDtPago() CreaDtPago()
RegistraScript("CargaHeader();") RegistraScript("CargaHeader();")
CargaEstados()
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
TabFiscalContable.Visible = True TabFiscalContable.Visible = True
@@ -767,7 +767,7 @@ Partial Class Clientes
'Configuración de Modalidad Update 'Configuración de Modalidad Update
BtnGuardar.Text = "Guardar Cambios" BtnGuardar.Text = "Guardar Cambios"
LtlTitulo.Text = "Consulta del Cliente:" LtlTitulo.Text = "Consulta del Cliente:"
CargaDatosContrato() 'CargaDatosContrato()
'ImgAddVenta 'ImgAddVenta
@@ -815,6 +815,7 @@ Partial Class Clientes
'CargaCuentasyConceptos() 'CargaCuentasyConceptos()
Else Else
'Configuración de Modalidad Insert 'Configuración de Modalidad Insert
CargaEstados()
If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -1377,13 +1378,13 @@ Partial Class Clientes
If ObjCorporativo.DtResultados.Rows.Count > 0 Then If ObjCorporativo.DtResultados.Rows.Count > 0 Then
Dim dt As DataTable = ObjCorporativo.DtResultados Dim dt As DataTable = ObjCorporativo.DtResultados
DdlCorporativo.DataSource = dt DdlCorporativo.DataSource = dt
DdlCorporativo.DataBind()
DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else Else
DdlCorporativo.DataSource = Nothing DdlCorporativo.DataSource = Nothing
End If End If
End If End If
ObjCorporativo.Dispose() ObjCorporativo.Dispose()
DdlCorporativo.DataBind()
End Sub End Sub
Protected Sub CargaCuentasExistentes() Protected Sub CargaCuentasExistentes()
'SELECTED VALUES 'SELECTED VALUES
@@ -1416,29 +1417,29 @@ Partial Class Clientes
Dim RetSC As Boolean = CargaSucursalesCliente() Dim RetSC As Boolean = CargaSucursalesCliente()
CargaPersonalAsignado()
CargaUsuariosPortal() CargaUsuariosPortal()
CargaOrdenesServiciosCliente() 'CargaPersonalAsignado()
'CargaOrdenesServiciosCliente()
CargaImpuestosLocales() CargaImpuestosLocales()
CargaCuentasContablesDdls() CargaCuentasContablesDdls()
CargaResponsables() CargaResponsables()
CargaCondicionesEntrega() CargaCondicionesEntrega()
'CargaClasificaciones() 'CargaClasificaciones()
CargaGridRetenciones() ' CargaGridRetenciones()
' CargaDocs() ' CargaDocs()
CargaCombos() CargaCombos()
CargaDocumentacionCliente() CargaDocumentacionCliente()
'CargaMetodosPago33() 'CargaMetodosPago33()
'CargaFormaPago33() 'CargaFormaPago33()
'CargaComboCFDI() 'CargaComboCFDI()
CargarPagosNoBancarios() 'CargarPagosNoBancarios()
If UsuarioActual.TienePermisoProceso(279) Then If UsuarioActual.TienePermisoProceso(279) Then
LnkPorcentajeMarcas.Visible = True LnkPorcentajeMarcas.Visible = True
LnkPorcentajePrecios.Visible = True LnkPorcentajePrecios.Visible = True
End If End If
If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS. If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS.
@@ -1584,8 +1585,8 @@ Partial Class Clientes
HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString()) HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString())
DdlPais.SelectedValueExist(ObjClientes.CvePais) DdlPais.SelectedValueExist(ObjClientes.CvePais)
CargaEstado()
CargaEstado()
CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString()) CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString())
@@ -1638,6 +1639,9 @@ Partial Class Clientes
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0) 'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0) 'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
'DIAS DE PAGO 'DIAS DE PAGO
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c}) Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
@@ -1679,6 +1683,8 @@ Partial Class Clientes
TxtExtOtro.Text = ObjClientes.ExtOtros 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.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
If ObjClientes.IdCtaContAnticipos > 0 Then If ObjClientes.IdCtaContAnticipos > 0 Then
DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString())) DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
@@ -1695,6 +1701,8 @@ Partial Class Clientes
If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.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() If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
ActivarRegistroAutomatico() ActivarRegistroAutomatico()
End If
'7eleven '7eleven
TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
@@ -1725,6 +1733,11 @@ Partial Class Clientes
Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia) Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
End If End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
CargaEventoBitacora() CargaEventoBitacora()
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
' CargaCuentasConceptos() ' CargaCuentasConceptos()
@@ -1735,6 +1748,10 @@ Partial Class Clientes
' divCuentasContp.Visible = True ' divCuentasContp.Visible = True
'End If 'End If
'watch.Stop()
'Alert(watch.ElapsedMilliseconds.ToString())
'watch.Start()
If UsuarioActual.Empresa.TipoContabilidad = 1 Then If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos() CargaCuentasConceptos()
divCuentas.Visible = True divCuentas.Visible = True
@@ -1808,7 +1825,7 @@ Partial Class Clientes
End Function End Function
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1) Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
Dim ObjClientes As New ClsClientes() 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 If ObjClientes.DtResultados.Rows.Count > 0 Then
'Carga Grid 'Carga Grid
@@ -2057,6 +2074,8 @@ Partial Class Clientes
ObjMovtos.Dispose() ObjMovtos.Dispose()
GvBancos.DataBind() GvBancos.DataBind()
CargarPagosNoBancarios()
UpBancos.Update() UpBancos.Update()
End Sub End Sub
@@ -5786,7 +5805,7 @@ Partial Class Clientes
If ObjContabilidad.GetCuentas(Id, "-1", -1) Then If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo") Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
End If End If
ObjContabilidad.Dispose()
Return Retorno Return Retorno
End Function End Function
Private Sub SetValues() Private Sub SetValues()
@@ -8408,18 +8427,18 @@ Partial Class Clientes
DdlUsuario.DataBind() DdlUsuario.DataBind()
'Carga Productos 'Carga Productos
DdlPSFiltro.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlPSFiltro.setEsWebService(True)
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then 'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
DdlPSFiltro.SelectedText = "" DdlPSFiltro.SelectedText = ""
DdlPSFiltro.SelectedValue = "-1" DdlPSFiltro.SelectedValue = "-1"
Else 'Else
DdlPSFiltro.ddl.Items.Clear() ' DdlPSFiltro.ddl.Items.Clear()
DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
DdlPSFiltro.ddl.DataBind() ' DdlPSFiltro.ddl.DataBind()
DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If 'End If
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto() CargaTipoCentroCosto()
@@ -10380,9 +10399,9 @@ Partial Class Clientes
Dim ObjVentas As New ClsVentas() Dim ObjVentas As New ClsVentas()
If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
GvClentesPersonalEntrega.DataBind()
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
GvClentesPersonalEntrega.DataBind()
End Sub End Sub
Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
@@ -10438,7 +10457,7 @@ Partial Class Clientes
Private Sub CargaResumenHistorial() Private Sub CargaResumenHistorial()
Dim ObjClientes As New ClsClientes() 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 If ObjClientes.DtResultados.Rows.Count > 0 Then
Dim Cantidad As Double Dim Cantidad As Double

31
Ventas/Ventas.aspx.vb
View File

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