filtro Empresa. GetHistorialVentas
This commit is contained in:
@@ -513,18 +513,22 @@ Public Class ClsClientes
|
||||
'SqlAdapter.Dispose()
|
||||
Return Retorno
|
||||
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
|
||||
|
||||
DataAdapter("PA_ClienteHistorialVentas")
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
SqlAdapter.SelectCommand.Parameters.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@SelectTop", SqlDbType.Int).Value = SelectTop
|
||||
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
|
||||
.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
|
||||
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
|
||||
@@ -272,7 +272,7 @@ Partial Class Ventas_PortalCliente
|
||||
|
||||
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
|
||||
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
|
||||
'Carga Generales
|
||||
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 FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
|
||||
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
|
||||
If ObjClientes.DtResultados.Rows.Count < 21 Then
|
||||
LnkVerMasPedidos.Visible = False
|
||||
|
||||
@@ -683,10 +683,10 @@ Partial Class Clientes
|
||||
CargaCombos()
|
||||
CreaDTVentas()
|
||||
CreaDtPago()
|
||||
RegistraScript("CargaHeader();")
|
||||
|
||||
CargaEstados()
|
||||
|
||||
RegistraScript("CargaHeader();")
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'SI ES USUARIO GPS
|
||||
TabFiscalContable.Visible = True
|
||||
TabRetenciones.Visible = False
|
||||
@@ -767,7 +767,7 @@ Partial Class Clientes
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
LtlTitulo.Text = "Consulta del Cliente:"
|
||||
CargaDatosContrato()
|
||||
'CargaDatosContrato()
|
||||
|
||||
|
||||
'ImgAddVenta
|
||||
@@ -813,8 +813,9 @@ Partial Class Clientes
|
||||
Tab.ActiveTabIndex = Request("ATI").ToEntero()
|
||||
End If
|
||||
'CargaCuentasyConceptos()
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
Else
|
||||
'Configuración de Modalidad Insert
|
||||
CargaEstados()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
|
||||
Dim ObjClientes As New ClsClientes
|
||||
@@ -1376,14 +1377,14 @@ Partial Class Clientes
|
||||
If ObjCorporativo.GetCorporativo(UsuarioActual.CveEmpresa, 1) Then
|
||||
If ObjCorporativo.DtResultados.Rows.Count > 0 Then
|
||||
Dim dt As DataTable = ObjCorporativo.DtResultados
|
||||
DdlCorporativo.DataSource = dt
|
||||
DdlCorporativo.DataBind()
|
||||
DdlCorporativo.DataSource = dt
|
||||
DdlCorporativo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
Else
|
||||
DdlCorporativo.DataSource = Nothing
|
||||
End If
|
||||
End If
|
||||
ObjCorporativo.Dispose()
|
||||
ObjCorporativo.Dispose()
|
||||
DdlCorporativo.DataBind()
|
||||
End Sub
|
||||
Protected Sub CargaCuentasExistentes()
|
||||
'SELECTED VALUES
|
||||
@@ -1409,36 +1410,36 @@ Partial Class Clientes
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus:=-1, TipoCliente:=-1) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
Existe = True
|
||||
Retorno = True
|
||||
|
||||
Retorno = True
|
||||
|
||||
CargaDdlSucursalCliente()
|
||||
CargaDocumentosVenta(CveCliente)
|
||||
|
||||
Dim RetSC As Boolean = CargaSucursalesCliente()
|
||||
|
||||
|
||||
CargaPersonalAsignado()
|
||||
CargaUsuariosPortal()
|
||||
CargaOrdenesServiciosCliente()
|
||||
CargaUsuariosPortal()
|
||||
'CargaPersonalAsignado()
|
||||
'CargaOrdenesServiciosCliente()
|
||||
CargaImpuestosLocales()
|
||||
CargaCuentasContablesDdls()
|
||||
CargaResponsables()
|
||||
CargaCondicionesEntrega()
|
||||
'CargaClasificaciones()
|
||||
CargaGridRetenciones()
|
||||
' CargaDocs()
|
||||
CargaCondicionesEntrega()
|
||||
'CargaClasificaciones()
|
||||
' CargaGridRetenciones()
|
||||
' CargaDocs()
|
||||
CargaCombos()
|
||||
CargaDocumentacionCliente()
|
||||
'CargaMetodosPago33()
|
||||
'CargaFormaPago33()
|
||||
'CargaComboCFDI()
|
||||
CargarPagosNoBancarios()
|
||||
'CargarPagosNoBancarios()
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(279) Then
|
||||
LnkPorcentajeMarcas.Visible = True
|
||||
LnkPorcentajePrecios.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS.
|
||||
@@ -1447,7 +1448,7 @@ Partial Class Clientes
|
||||
CargaCuentasEquipos()
|
||||
End If
|
||||
|
||||
CargaCuentasCaracteristicas()
|
||||
CargaCuentasCaracteristicas()
|
||||
|
||||
If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
|
||||
|
||||
@@ -1583,9 +1584,9 @@ Partial Class Clientes
|
||||
HDLT.Value = If(ObjClientes.DtResultados(0)("LT").ToString() = "", "0", ObjClientes.DtResultados(0)("LT").ToString())
|
||||
HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString() = "", "0", ObjClientes.DtResultados(0)("LG").ToString())
|
||||
|
||||
DdlPais.SelectedValueExist(ObjClientes.CvePais)
|
||||
CargaEstado()
|
||||
DdlPais.SelectedValueExist(ObjClientes.CvePais)
|
||||
|
||||
CargaEstado()
|
||||
|
||||
CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString())
|
||||
|
||||
@@ -1638,6 +1639,9 @@ Partial Class Clientes
|
||||
'If ObjClientes.CveMetodoPago33 > 0 Then DdlMetodoPago33.Items.RemoveAt(0)
|
||||
'If ObjClientes.CveFormaPago33 > 0 Then DdlFormaPago33.Items.RemoveAt(0)
|
||||
|
||||
|
||||
|
||||
|
||||
'DIAS DE PAGO
|
||||
If ObjClientes.RecepcionPagos <> "" AndAlso ObjClientes.RecepcionPagos.Length = 11 Then
|
||||
Dim array As String() = ObjClientes.RecepcionPagos.Split(New Char() {"-"c})
|
||||
@@ -1676,27 +1680,31 @@ Partial Class Clientes
|
||||
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
|
||||
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
|
||||
TxtCelular.Text = ObjClientes.Celular
|
||||
TxtExtOtro.Text = ObjClientes.ExtOtros
|
||||
|
||||
|
||||
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
|
||||
DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
|
||||
DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
|
||||
End If
|
||||
If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
|
||||
If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
|
||||
If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
|
||||
|
||||
|
||||
If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
|
||||
If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.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()
|
||||
ActivarRegistroAutomatico()
|
||||
|
||||
'7eleven
|
||||
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.IdCtaContAnticipos > 0 Then
|
||||
DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
|
||||
DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
|
||||
End If
|
||||
If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
|
||||
If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
|
||||
If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
|
||||
|
||||
|
||||
If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
|
||||
If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.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()
|
||||
ActivarRegistroAutomatico()
|
||||
End If
|
||||
|
||||
|
||||
'7eleven
|
||||
TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
|
||||
|
||||
'FORD
|
||||
@@ -1723,18 +1731,27 @@ Partial Class Clientes
|
||||
|
||||
If Not ObjClientes.Estatus Then
|
||||
Alert("El cliente actualmente se encuentra Inactivo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
'watch.Stop()
|
||||
'Alert(watch.ElapsedMilliseconds.ToString())
|
||||
'watch.Start()
|
||||
|
||||
CargaEventoBitacora()
|
||||
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
|
||||
' CargaCuentasConceptos()
|
||||
' divCuentas.Visible = True
|
||||
' divCuentasContp.Visible = False
|
||||
'Else
|
||||
' divCuentas.Visible = False
|
||||
' divCuentasContp.Visible = True
|
||||
|
||||
CargaEventoBitacora()
|
||||
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
|
||||
' CargaCuentasConceptos()
|
||||
' divCuentas.Visible = True
|
||||
' divCuentasContp.Visible = False
|
||||
'Else
|
||||
' divCuentas.Visible = False
|
||||
' divCuentasContp.Visible = True
|
||||
'End If
|
||||
|
||||
'watch.Stop()
|
||||
'Alert(watch.ElapsedMilliseconds.ToString())
|
||||
'watch.Start()
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
|
||||
CargaCuentasConceptos()
|
||||
divCuentas.Visible = True
|
||||
@@ -1801,14 +1818,14 @@ Partial Class Clientes
|
||||
ObjClientes.Dispose()
|
||||
|
||||
|
||||
watch.Stop()
|
||||
'Alert(watch.ElapsedMilliseconds.ToString())
|
||||
|
||||
watch.Stop()
|
||||
' Alert(watch.ElapsedMilliseconds.ToString())
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
|
||||
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
|
||||
|
||||
'Carga Grid
|
||||
@@ -2057,6 +2074,8 @@ Partial Class Clientes
|
||||
ObjMovtos.Dispose()
|
||||
GvBancos.DataBind()
|
||||
|
||||
CargarPagosNoBancarios()
|
||||
|
||||
UpBancos.Update()
|
||||
End Sub
|
||||
|
||||
@@ -5786,7 +5805,7 @@ Partial Class Clientes
|
||||
If ObjContabilidad.GetCuentas(Id, "-1", -1) Then
|
||||
Retorno = ObjContabilidad.DtResultados.FiltroPrimeroValor("CtaCodigo")
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
Return Retorno
|
||||
End Function
|
||||
Private Sub SetValues()
|
||||
@@ -8408,20 +8427,20 @@ Partial Class Clientes
|
||||
DdlUsuario.DataBind()
|
||||
|
||||
'Carga Productos
|
||||
DdlPSFiltro.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
||||
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
|
||||
DdlPSFiltro.setEsWebService(True)
|
||||
|
||||
'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
||||
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
|
||||
DdlPSFiltro.SelectedText = ""
|
||||
DdlPSFiltro.SelectedValue = "-1"
|
||||
Else
|
||||
DdlPSFiltro.ddl.Items.Clear()
|
||||
DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
|
||||
DdlPSFiltro.ddl.DataBind()
|
||||
DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
End If
|
||||
|
||||
CargaGrupo()
|
||||
DdlPSFiltro.SelectedValue = "-1"
|
||||
'Else
|
||||
' DdlPSFiltro.ddl.Items.Clear()
|
||||
' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero())
|
||||
' DdlPSFiltro.ddl.DataBind()
|
||||
' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
'End If
|
||||
|
||||
CargaGrupo()
|
||||
CargaTipoCentroCosto()
|
||||
|
||||
End Sub
|
||||
@@ -10380,9 +10399,9 @@ Partial Class Clientes
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
|
||||
GvClentesPersonalEntrega.DataBind()
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
GvClentesPersonalEntrega.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
|
||||
@@ -10438,7 +10457,7 @@ Partial Class Clientes
|
||||
|
||||
Private Sub CargaResumenHistorial()
|
||||
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
|
||||
|
||||
Dim Cantidad As Double
|
||||
|
||||
@@ -2435,15 +2435,15 @@ Partial Class Ventas
|
||||
LnkImprimirFormatoTelcel.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
DivDevAlm.Visible = True
|
||||
End If
|
||||
End If
|
||||
ObjInventario.Dispose()
|
||||
End If
|
||||
'If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
|
||||
' Dim ObjInventario As New ClsInventarios
|
||||
' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
' DivDevAlm.Visible = True
|
||||
' End If
|
||||
' End If
|
||||
' ObjInventario.Dispose()
|
||||
'End If
|
||||
|
||||
|
||||
End If
|
||||
@@ -2770,7 +2770,7 @@ Partial Class Ventas
|
||||
CargaFormatoSucursal()
|
||||
|
||||
InicializaDevolucionAlmacen()
|
||||
CargaOtrosConceptos()
|
||||
'CargaOtrosConceptos()
|
||||
CargaFacturaOC()
|
||||
|
||||
'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
|
||||
@@ -6003,7 +6003,7 @@ Partial Class Ventas
|
||||
DivVentasUsados.Visible = True
|
||||
|
||||
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")
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
@@ -6089,7 +6089,7 @@ Partial Class Ventas
|
||||
End Sub
|
||||
Private Sub CargaFacturasARelacionar()
|
||||
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
|
||||
End If
|
||||
End Using
|
||||
@@ -6738,7 +6738,7 @@ Partial Class Ventas
|
||||
|
||||
Dim CveSATNC = "84111506"
|
||||
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
|
||||
DdlNCPS.DataSource = dtt
|
||||
@@ -21371,6 +21371,11 @@ Partial Class Ventas
|
||||
If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInv.DtResultados.Rows.Count > 0 Then
|
||||
CargaGVInv(ObjInv.DtResultados)
|
||||
If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
|
||||
|
||||
DivDevAlm.Visible = True
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
ObjInv.Dispose()
|
||||
|
||||
Reference in New Issue
Block a user