diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 364a870bc..d71b07428 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -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 diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index 471ed5960..e045fe0f5 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -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 diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ed7a105e3..c1e76f507 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0a069fb11..472e2f3ab 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -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()