diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 0eb004041..062a5f89d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -16,6 +16,9 @@ Imports Stimulsoft.Report Imports System.Xml Imports System.Web.Http.ValueProviders Imports ADServerControl +Imports System.Net.Http +Imports Newtonsoft.Json +Imports Newtonsoft.Json.Linq 'NOTA AD TEAM @@ -7687,8 +7690,14 @@ Public Class ClsPaginas Dim Archivo As New System.IO.FileInfo(RutaFormato) If Archivo.Exists Then - + 'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ' RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") + ' retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") + 'Else + ' retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) + 'End If retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) + Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) If Guardar Then If Not ArchivoPDF.Exists Then @@ -7711,6 +7720,12 @@ Public Class ClsPaginas Else params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + 'If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + ' RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") + ' retorno = StreamBytesStimulsoft("Facturas", RutaFormatoDefault, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") + 'Else + ' retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) + 'End If retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) End If Catch ex As Exception @@ -7719,6 +7734,82 @@ Public Class ClsPaginas Return retorno End Function + + Protected Function StreamBytesStimulsoft(Opcion As String, RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF") As Byte() + 'limpio ReportViwer + Dim sw As New System.Diagnostics.Stopwatch() + sw.Start() + Dim Bytes As Byte() = Nothing + + Dim CveUsuario As Integer = 0 + Dim CveEmpresa As Integer = 0 + Dim RutaEmpresa As String = "" + + If Context.Session("UsuarioSIG") IsNot Nothing Then + CveUsuario = UsuarioActual.CveUsuario + CveEmpresa = UsuarioActual.CveEmpresa + RutaEmpresa = UsuarioActual.Empresa.RutaArchivos + End If + + Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) + + 'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA + If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") Then + bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "") + End If + + RutaReporte.Replace("/", "\") + + If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then + RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) + End If + + 'SITIO DE PRUEBA EN IIS + Dim Url = New Uri(String.Format("{0}{1}", "http://localhost:2202/", Opcion)) + + Try + Dim dataSourceArray As New JArray() + Dim paramsArray As New JArray() + + For Each rds As ReportDataSource In DataSource + dataSourceArray.Add(New JObject(New JProperty("Nombre", rds.Name), New JProperty("Valor", JArray.Parse(JsonConvert.SerializeObject(rds.Value))))) + Next + + For Each param As ReportParameter In Parametros + paramsArray.Add(New JObject(New JProperty("Nombre", param.Name), New JProperty("Valor", param.Values.Item(0)))) + Next + + Dim payload As New JObject( + New JProperty("formato", Formato), + New JProperty("ruta", RutaReporte), + New JProperty("parametros", paramsArray), + New JProperty("dataSource", dataSourceArray) + ) + + Dim data = New StringContent(payload.ToString(), Encoding.UTF8, "application/json") + + Using httpClient = New HttpClient() + Using request = New HttpRequestMessage(HttpMethod.Post, Url) + 'request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO=100", CveEmpresa, DateTime.UtcNow.Ticks))) + request.Content = New StringContent(payload.ToString(), Encoding.UTF8, "application/json") + Dim response = httpClient.SendAsync(request).Result + If response.StatusCode = Net.HttpStatusCode.OK Then + Bytes = response.Content.ReadAsByteArrayAsync().Result + End If + End Using + End Using + Catch ex As Exception + OnError("Ocurrió un error al descargar la factura", ex) + End Try + + sw.Stop() + + If sw.Elapsed.TotalSeconds > 5 Then + GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") + End If + + Return Bytes + End Function Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) If o Is Nothing Then diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index b801573a8..7bc5842be 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4641,8 +4641,8 @@ Namespace Modelos ''' Cancela la factura para poder realizar la refacturacion ''' ''' - Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje - Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion) + Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0, Optional CveEstatusFacturaAsignado As Integer = -1) As MCancelacionVentaMensaje + Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado) End Function ''' ''' Cancela la factura y realiza las operaciones correspondientes diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index f3eade517..7da7e124b 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -839,7 +839,7 @@ Partial Class Bancos_IE - DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa) + DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)") DdlMotivoCancelacion.DataBind() DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1")) @@ -5489,10 +5489,14 @@ Partial Class Bancos_IE Dim DescripcionAus As String = TxtDescripcion.Text - If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento:{DdlTipoTransaccion.SelectedItem.Text}") + If DdlTipoTransaccion.SelectedItem.Text <> "Seleccione Tipo Movimiento" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Movimiento: {DdlTipoTransaccion.SelectedItem.Text}") + + DescripcionAus = $"{DescripcionAus}, Fecha Documento: {TxtFechaDocumento.Text} , Observaciones: {TxtObservaciones.Text} . " + If DdlCuenta.SelectedItem.Text <> "Seleccione" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Cuenta:{DdlCuenta.SelectedItem.Text}") If TxtFolio.Text <> "" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Número:{TxtFolio.Text}") If TxtImporte.Text <> "" AndAlso TxtImporte.Text <> "0" Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Importe:{TxtImporte.Text}") + If DdlCliente.Visible Then DescripcionAus = String.Format("{0} {1}", DescripcionAus, $"Páguese A:{DdlCliente.SelectedText}") ElseIf DdlProveedores.Visible Then @@ -5898,7 +5902,7 @@ Partial Class Bancos_IE e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = True - e.Row.FCDropDownList("DdlMotivoCancelacion").DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlMotivoCancelacion").DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)") e.Row.FCDropDownList("DdlMotivoCancelacion").DataBind() e.Row.FCDropDownList("DdlMotivoCancelacion").Items.Insert(0, New ListItem("Seleccione Uno", "-1")) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 7046abfe8..b0404e0a8 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2468,8 +2468,16 @@ Partial Class ContabilidadC_RegPrePolizaS + + End If + If Row("Abono").ToString.ToDecimal > 0 And Row("Cargo").ToString.ToDecimal > 0 Then + Alert($"Se detecto un error en el registro {ContadorRegistros}, se tiene un valor en cargo({Row("Cargo").ToString.ToDecimal.ToString("###,###,###.00")}) y abono({Row("Abono").ToString.ToDecimal.ToString("###,###,###.00")})", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString = "" Then Alert($" El registro {ContadorRegistros} es movimiento bancario y no se especifica el tipo de transferencia , importe: {ImporteDocumento.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia) @@ -2539,6 +2547,8 @@ Partial Class ContabilidadC_RegPrePolizaS Next + + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index cad593981..5caea88e1 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index 5d6ac0536..5d1de1b2f 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt index 33b2abbc9..1101f58c1 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt differ diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 668f6b8b2..a0f2533fa 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -589,6 +589,7 @@ Partial Class Inventarios_RecepcionUsados dt.Columns.Add("TotalExtranjero", Type.GetType("System.Double")) dt.Columns.Add("CveTamaño", Type.GetType("System.Int32")) dt.Columns.Add("Tamaño", Type.GetType("System.String")) + dt.Columns.Add("CveVentaDetalle", Type.GetType("System.Int32")) CargaGVM(dt) DtMovimientos = dt.Clone @@ -1048,7 +1049,8 @@ Partial Class Inventarios_RecepcionUsados Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String, - CveAF As String, Observaciones As String, Lote As String, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Tamaño As String, CveTamaño As Integer) + CveAF As String, Observaciones As String, Lote As String, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Tamaño As String, CveTamaño As Integer, + Optional CveVentaDetalle As Integer = -1) 'If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub @@ -1116,6 +1118,7 @@ Partial Class Inventarios_RecepcionUsados registro.Item("CveTamaño") = CveTamaño registro.Item("Tamaño") = Tamaño + registro.Item("CveVentaDetalle") = CveVentaDetalle DtMovimientos.Rows.Add(registro) CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) @@ -1281,7 +1284,7 @@ Partial Class Inventarios_RecepcionUsados ImporteConcepto = Dr("PU").ToString.ToDecimal End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then Mensaje = "Error al guardar los movimientos" ErrorMovInv = True Exit For @@ -2269,6 +2272,18 @@ Partial Class Inventarios_RecepcionUsados DtUsados = ObjVentas.DtResultados.Copy() End If + 'RELACIONA LA VENTA DETALLA DE LA REMISION + If DtUsados IsNot Nothing Then + DtUsados.Columns.Add(New DataColumn("CveVentaDetalle", GetType(Integer))) + For Each RowUsado As DataRow In DtUsados.Rows + Dim CveVentaDetalle As Integer = Me.ObjFactura.DtDetalle.FiltroPrimeroValor("CveVentaDetalle", $"EsCargo = 1 AND Cantidad = {RowUsado("Cantidad")} AND CvePS = {RowUsado("CvePS")}").ToEntero() + If CveVentaDetalle > 0 Then + RowUsado("CveVentaDetalle") = CveVentaDetalle + End If + Next + + End If + Dim RecepcionValida As Boolean = True If ObjVentas.GetVentasUsados(ObjFactura.CveVenta, ObjFactura.CveSubProyecto, ObjFactura.Fecha, UsuarioActual.CveEmpresa, ServicioDomicilio:=ObjFactura.ServicioDomicilio) Then @@ -2334,7 +2349,9 @@ Partial Class Inventarios_RecepcionUsados Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero() Dim PU As Double = RowUsado("PU").ToString().ToDouble() - AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño) + Dim CveVentaDetalle = RowUsado("CveVentaDetalle").ToString().ToEntero() + + AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle) Next End If diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 1a6e0e97f..3f7fde58b 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -6158,7 +6158,7 @@ - +
@@ -6226,7 +6226,7 @@ <%--table table-striped table-advance table-hover Widthall ScrollAD tabla_correcto grides Widthall mysmallbtn--%> - + @@ -6310,8 +6310,8 @@ - - + + @@ -6327,7 +6327,7 @@
- +
@@ -6365,7 +6365,7 @@ Aplicado - +
@@ -6458,7 +6458,7 @@
- +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 9daf8def2..a0207adfd 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1449,15 +1449,26 @@ Partial Class Clientes ' CargaGridRetenciones() ' CargaDocs() CargaCombos() - CargaDocumentacionCliente() - 'CargaMetodosPago33() - 'CargaFormaPago33() - 'CargaComboCFDI() - 'CargarPagosNoBancarios() - - If UsuarioActual.TienePermisoProceso(279) Then + CargaDocumentacionCliente() + 'CargaMetodosPago33() + 'CargaFormaPago33() + 'CargaComboCFDI() + 'CargarPagosNoBancarios() + + + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then LnkPorcentajeMarcas.Visible = True - LnkPorcentajePrecios.Visible = True + LnkPorcentajePrecios.Visible = True + + If UsuarioActual.TienePermisoProceso(279) Then + TrPreciosPP.Visible = True + TrAgregarPMarca.Visible = True + + BtnGuardarPorcentajesMarca.Visible = True + BtnGuardarPorcentajes.Visible = True + End If + End If @@ -1474,9 +1485,9 @@ Partial Class Clientes If ObjClientes.Pais = "" Then ObjClientes.Pais = "México" - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then - LnkAgregarVendedorSucursal.Visible = True - End If + 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then + ' LnkAgregarVendedorSucursal.Visible = True + 'End If 'Campos para Modificación LtlCliente.Text = ObjClientes.Nombre @@ -1517,7 +1528,20 @@ Partial Class Clientes LblFechaCaptura.Text = ObjClientes.FechaIng.ToShortDateString() LblUsuarioCapturo.Text = ObjClientes.Usuario TxtNombreCorto.Text = ObjClientes.NombreCorto - DdlVendedor.SelectedValueExist(ObjClientes.Vendedor.ToString()) + + Dim CveVendedor = ObjClientes.Vendedor.ToEntero() + 'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor)) + 'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV + If String.IsNullOrEmpty(Vendedor) Then + Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedor)) + End If + DdlVendedor.SelectedValueExistInsert(CveVendedor, Vendedor) + Else + DdlVendedor.SelectedValueExist(CveVendedor) + End If + 'TxtVendedor.Text = ObjClientes.Vendedor TxtPlazoCobranza.Text = ObjClientes.PlazoCobranza.ToString() TxtPlazoCobranzaRemision.Text = ObjClientes.PlazoCobranzaRemision.ToString() @@ -8948,8 +8972,28 @@ Partial Class Clientes CargaDTPorcentajePrecios(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' ")) + End Sub + Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If UsuarioActual.TienePermisoProceso(279) Then + e.Row.FCLinkButton("imgE").Visible = True + e.Row.FCLinkButton("lnkRemove").Visible = True + End If + + End If + End Sub + + Protected Sub GvP_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvP.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If UsuarioActual.TienePermisoProceso(279) Then + e.Row.FCLinkButton("imgE").Visible = True + e.Row.FCLinkButton("lnkRemove").Visible = True + End If + + End If End Sub - Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing GvM.EditIndex = e.NewEditIndex @@ -10422,6 +10466,7 @@ Partial Class Clientes Alert("Los cambios se guardaron satisfactoriamente.") End Using - End Sub + End Sub + End Class diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 8d4cb3db8..ed0629450 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1560,7 +1560,7 @@ Partial Class PV End If DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString) CargarAlmacenes() - + CargaFoliosGarantia() CargaClienteSucursal(DbRowVenta("CveClienteSucursal").ToString.ToEntero) @@ -2042,13 +2042,12 @@ Partial Class PV End If - 'GUARDA USADOS - If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then - OcurrioError = True - End If + If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing AndAlso TmpDTRecepcionUsados.Rows.Count > 0 Then + If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then + OcurrioError = True + End If - If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing Then For Each drow As DataRow In TmpDTRecepcionUsados.Rows If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then OcurrioError = True @@ -2057,12 +2056,12 @@ Partial Class PV Next End If - 'GUARDAR AJUSTES' - If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then - OcurrioError = True - End If - + 'GUARDAR AJUSTES If Not OcurrioError AndAlso TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then + If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then + OcurrioError = True + End If + For Each Dr As DataRow In TmpDTAjustes.Rows If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("CodigoTD").ToString, Dr("TipoComprobante").ToString.ToEntero, @@ -2075,11 +2074,12 @@ Partial Class PV End If 'GUARDAR POLIZA VIRTUAL - If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then - OcurrioError = True - End If + If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing AndAlso TmpDTPolizaVirtual.Rows.Count > 0 Then + + If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then + OcurrioError = True + End If - If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing Then For Each drow As DataRow In TmpDTPolizaVirtual.Rows If ObjAcum.AddPolizaVirtual(CveVenta, drow("CveVentaDetalle").ToString().ToEntero(), drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("Descuento").ToString.ToDecimal, drow("Total").ToString.ToDecimal, drow("TipoServicio").ToString.ToEntero, drow("TipoPoliza").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, drow("AnioVehiculo").ToString.ToEntero, CBool(drow("TieneUsado").ToString), @@ -2711,6 +2711,8 @@ Partial Class PV UpParametros.Update() End If + CargaFoliosGarantia() + If ObjCliente.GetSucursales(CveCliente) Then DdlSucursalCliente.DataSource = ObjCliente.DtResultados If ObjCliente.DtResultados.Rows.Count > 0 Then @@ -3000,7 +3002,7 @@ Partial Class PV 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE If UsuarioActual.CveVendedor > 0 Then If CveVenta <= 0 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + If Not UsuarioActual.TienePermisoProceso(161) Then DdlVendedor.Enabled = False End If 'multiples vendedores visible @@ -4395,11 +4397,17 @@ Partial Class PV End Sub Private Sub DdlSubProyectoDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoDatos.SelectedIndexChanged CambiaSucursalGeneral() + CargaFoliosGarantia() + UpAjuste.Update() + UpModalVenta.Update() + End Sub + + Private Sub CargaFoliosGarantia() If UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then Dim ObjAcum As New ClsAcumuladores - If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then - DdlFolioGarantia.DataSource = ObjAcum.DtResultados.FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}") + If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), Area:=1) Then + DdlFolioGarantia.DataSource = ObjAcum.DtResultados End If ObjAcum.Dispose() DdlFolioGarantia.DataBind() @@ -7045,6 +7053,7 @@ Partial Class PV DdlBCIAjuste.Items.Clear() If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then + DdlBCIAjuste.SelectedValue = Nothing DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}") DdlBCIAjuste.DataBind() DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -7295,7 +7304,7 @@ Partial Class PV Protected Sub ChkAjuste_CheckedChanged(sender As Object, e As EventArgs) If ChkAjuste.Checked Then - + CargaFoliosGarantia() 'For Each Gvr As GridViewRow In GvRecepcionUsados.Rows ' If Gvr.RowType = DataControlRowType.DataRow Then ' Gvr.FCTextBox("TxtCantidad").Text = "" diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 8672f7241..4b60fe73a 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -406,7 +406,15 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas { factura.CveEstatusRefacturacion = CveEstatusRefacturacion; } - retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion); + + int CveEstatusFactura = -1; + //SI LA FACTURA YA ESTA CANCELADA, LA ASIGNA YA COMO CANCELADA + if (CveEstatus == 5) + { + CveEstatusFactura = CveEstatus; + } + + retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstatusFacturaAsignado: CveEstatusFactura); } else { diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 03b5936b4..0059f9a58 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1930,6 +1930,31 @@ Partial Class Ventas ViewState("CveVendedorCliente") = value End Set End Property + Private Property CveVendedorClienteSucursal As Integer + Get + Return If(IsNothing(ViewState("CveVendedorClienteSucursal")), -1, ViewState("CveVendedorClienteSucursal")).ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveVendedorClienteSucursal") = value + End Set + End Property + + Private Property CveVendedorContrato As Integer + Get + Return If(IsNothing(ViewState("CveVendedorContrato")), -1, ViewState("CveVendedorContrato")).ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveVendedorContrato") = value + End Set + End Property + Private Property CveVendedorEmpresaCRM As Integer + Get + Return If(IsNothing(ViewState("CveVendedorEmpresaCRM")), -1, ViewState("CveVendedorEmpresaCRM")).ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveVendedorEmpresaCRM") = value + End Set + End Property Private Property DiasCredito As Integer Get Return ViewState("DiasCredito").ToString().ToEntero() @@ -2203,6 +2228,9 @@ Partial Class Ventas ViewState("CvePrecioListaCliente") = 0 Me.CveVendedorVenta = -1 Me.CveVendedorCliente = -1 + Me.CveVendedorClienteSucursal = -1 + Me.CveVendedorContrato = -1 + Me.CveVendedorEmpresaCRM = -1 Me.EsGarantia = False idCuentaContabilizacion = 1 CveEmpresaCRM = 0 @@ -2883,16 +2911,16 @@ Partial Class Ventas If CveVenta < 1 Then CargaFolios() 'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE - If UsuarioActual.CveVendedor > 0 Then - If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then - DdlVendedor.Enabled = False - End If - 'multiples vendedores visible - If UsuarioActual.TienePermisoProceso(153) Then - DdlVendedor.Enabled = True - End If - End If + 'If UsuarioActual.CveVendedor > 0 Then + ' If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + ' If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ' DdlVendedor.Enabled = False + ' End If + ' 'multiples vendedores visible + ' If UsuarioActual.TienePermisoProceso(153) Then + ' DdlVendedor.Enabled = True + ' End If + 'End If If UsuarioActual.Empresa.Funcionalidad(301).ToEntero() > 0 Then TxtFecha.Enabled = False @@ -3632,6 +3660,8 @@ Partial Class Ventas NumeroContrato = DrContrato("NumeroContrato").ToString() DescripcionContrato = DrContrato("DescripcionContrato").ToString() NumeroLicitacion = DrContrato("NumeroLicitacion").ToString().Trim + + Me.CveVendedorContrato = DrContrato("CveVendedor").ToString().ToEntero() DdlVendedor.SelectedValueExist(DrContrato("CveVendedor")) If DrContrato("CveSucursalCliente").ToString().ToEntero() > 0 Then @@ -4702,14 +4732,14 @@ Partial Class Ventas Me.CveVendedorVenta = DbRowVenta("CveVendedor").ToString().ToEntero() 'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then - Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) - 'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV - If String.IsNullOrEmpty(Vendedor) Then - Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) - End If - DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor) - End If + 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then + ' Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) + ' 'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV + ' If String.IsNullOrEmpty(Vendedor) Then + ' Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta)) + ' End If + ' DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor) + 'End If If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then 'sino está seleccionada la asginada la debe de cargar @@ -5546,6 +5576,13 @@ Partial Class Ventas 'TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) 'TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) ''TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal)) + + ObjVentas.DtResultados.Columns.Add("TieneProntoPago", GetType(String)) + ObjVentas.DtResultados.Columns.Add("ImporteProntoPago", GetType(Decimal)) + + ObjVentas.DtResultados.Columns("TieneProntoPago").DefaultValue = "No" + ObjVentas.DtResultados.Columns("ImporteProntoPago").DefaultValue = 0 + GvPS.DataSource = ObjVentas.DtResultados GvPS.DataBind() End If @@ -5867,6 +5904,7 @@ Partial Class Ventas UpEmpresaCRM.Visible = True End If + Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero() DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString()) DdlVendedor.Enabled = False @@ -6137,18 +6175,18 @@ Partial Class Ventas TxtFordGSDB.Text = ObjCliente.Ford_GSDB If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()) CveVendedorCliente = ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() End If 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO - If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - End If + 'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + ' DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + 'End If - If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then - DdlVendedor.Enabled = False - End If + 'If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + ' DdlVendedor.Enabled = False + 'End If + CargaVendedores() UpFacturar.Update() @@ -6370,10 +6408,6 @@ Partial Class Ventas End If BloqueaCondiconesPago() DeshabilitarAplicarNotaDeCredito(LblRFC.Text) - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - CargaVendedoresSubProyectos() - End If End Sub Private Sub CargaRelacionadasPendientes() @@ -6946,7 +6980,7 @@ Partial Class Ventas ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString() ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString() ViewState("CliNoInt") = ObjCliente.DtResultados.Rows(0)("NoInt").ToString() - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) + Me.CveVendedorClienteSucursal = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero() ViewState("CveClienteSucursal") = ObjCliente.DtResultados(0)("CveClienteSucursal").ToString() ViewState("CliCorreoCot") = ObjCliente.DtResultados.Rows(0)("CorreoCotizacion").ToString() @@ -7014,7 +7048,8 @@ Partial Class Ventas LblEstado.Text = ObjCliente.Estado LblCP.Text = ObjCliente.CP LblTelefono.Text = ObjCliente.Telefono - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString()) + Me.CveVendedorClienteSucursal = -1 + Me.CveVendedorCliente = ObjCliente.DtResultados.Rows(0)("CveVendedor").ToString().ToEntero() ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoInt") = ObjCliente.NoInt PlazoCobranza = ObjCliente.PlazoCobranza @@ -7035,10 +7070,12 @@ Partial Class Ventas End If End If - 'SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO - If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - End If + ''SI LA SUCURSAL DEL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO + 'If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + ' DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + 'End If + + CargaVendedores() 'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES If CveVenta <= 0 Then @@ -13634,7 +13671,7 @@ Partial Class Ventas Case 30 'PAGO - BANCOS - If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then + If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 AndAlso ObjFactura.TipoDocto <> "Rem" Then For Each DrPago As DataRow In DtPagos.Rows CveIEPago = -1 @@ -17004,9 +17041,7 @@ Partial Class Ventas End If ObjSubProyectos.Dispose() - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - CargaVendedoresSubProyectos() - End If + CargaVendedores() UpDetalle.Update() End Sub @@ -17189,43 +17224,93 @@ Partial Class Ventas UpParametros.Update() End Sub Private Sub CargaVendedores() + Dim CveVendedorActual As Integer = 0 - Dim CveVendedorActual = DdlVendedor.SelectedValue.ToEntero() - - If Not CveVendedorActual > 0 AndAlso Me.CveVendedorCliente > 0 Then - DdlVendedor.SelectedValueExist(Me.CveVendedorCliente) - CveVendedorActual = Me.CveVendedorCliente - End If + Dim EsVentaNueva As Boolean = (Me.CveVenta <= 0 OrElse Me.EsCreaApartirDe OrElse NuevaFactura = 1) DdlVendedor.Items.Clear() + DdlVendedor.SelectedValue = Nothing + + DdlVendedorSucursal.Items.Clear() + DdlVendedorSucursal.SelectedValue = Nothing + If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then - DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1") + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("(CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1") Else DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") End If - DdlVendedor.SelectedValue = "0" - DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - CargaVendedoresSubProyectos() - End If - DdlVendedorSucursal.DataSource = DdlVendedor.DataSource DdlVendedor.DataBind() DdlVendedorSucursal.DataBind() - DdlVendedor.SelectedValueExist(CveVendedorActual) + DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar")) + DdlVendedorSucursal.Items.Insert(0, New ListItem("Sin Asignar")) - If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) + DdlVendedor.SelectedValueExist("0") + DdlVendedorSucursal.SelectedValueExist("0") + + 'SI NO ES VENTA ACTUAL + If EsVentaNueva Then + 'PRIMERO TOMA EL VENDEDOR DEL USUARIO + If UsuarioActual.CveVendedor > 0 Then + CveVendedorActual = UsuarioActual.CveVendedor + End If + 'DAR PREFERENCIA AL VENDEDOR ASIGNADO AL CLIENTE + If Me.CveVendedorCliente > 0 Then + CveVendedorActual = Me.CveVendedorCliente + End If + 'DAR PREFERENCIA AL VENDEDOR ASIGNADO LA SUCURSAL CLIENTE + If Me.CveVendedorClienteSucursal > 0 Then + CveVendedorActual = Me.CveVendedorClienteSucursal + End If + 'SI TIENE CONTRATO TOMA EL DEL CONTRATO + If Me.CveVendedorContrato > 0 Then + CveVendedorActual = Me.CveVendedorContrato + End If + 'SI ES EMPRESA CRM TOMA DE AQUI + If Me.CveVendedorEmpresaCRM > 0 Then + CveVendedorActual = Me.CveVendedorEmpresaCRM + End If + Else + 'SI ES VENTA EXISTENTE TOMA EL DE LA VENTA + If Me.CveVendedorVenta > 0 Then + CveVendedorActual = Me.CveVendedorVenta + End If End If - If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then - DdlVendedor.Enabled = False + If CveVendedorActual > 0 Then + Dim VendedorActual As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {CveVendedorActual}") + 'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV + If String.IsNullOrEmpty(VendedorActual) Then + VendedorActual = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", CveVendedorActual)) + End If + + If String.IsNullOrEmpty(VendedorActual) Then + DdlVendedor.SelectedValueExist(CveVendedorActual) + Else + DdlVendedor.SelectedValueExistInsert(CveVendedorActual, VendedorActual) + End If End If + If UsuarioActual.CveEmpresa = 140 Then + If Not UsuarioActual.TienePermisoProceso(161) Then + DdlVendedor.Enabled = False + End If + Else + If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then + DdlVendedor.Enabled = False + End If + End If + + + 'multiples vendedores visible + If UsuarioActual.TienePermisoProceso(153) Then + DdlVendedor.Enabled = True + End If + + UPPVentas.Update() 'TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo") End Sub #End Region @@ -33644,23 +33729,29 @@ Partial Class Ventas UpModalSolicitud.Update() End Sub - Private Sub CargaVendedoresSubProyectos() + 'Private Sub CargaVendedoresSubProyectos() - Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) + ' DdlVendedor.Items.Clear() + ' DdlVendedor.SelectedValue = Nothing - If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then - DdlVendedor.Items.Clear() - DdlVendedor.SelectedValue = Nothing + ' Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) - DdlVendedor.DataSource = DtVendedoresSucursales - DdlVendedor.DataBind() - DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + ' If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then + ' DdlVendedor.DataSource = DtVendedoresSucursales + ' DtVendedoresSucursales.Dispose() + ' Else + ' If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then + ' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue)).FiltraParametros("VendedorTipo = 1") + ' Else + ' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") + ' End If + ' End If - DtVendedoresSucursales.Dispose() - End If + ' DdlVendedor.DataBind() + ' DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) - UpParametros.Update() - End Sub + ' UpParametros.Update() + 'End Sub Public Class MAnticipoRelacionado Public Property CveVenta As Integer