From 57cf4cfa8b719b927bffd62c46abb5894f810a74 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 6 May 2020 08:48:26 -0700 Subject: [PATCH 1/5] Apoyo logistico --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 26 +++++++- Inventarios/RecepcionAlmacen.aspx | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 97 ++++++++++++++++++++++++++-- Inventarios/TraspasoAlmacen.aspx.vb | 57 ++++++++++------ 5 files changed, 157 insertions(+), 27 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 6256ef9c2..c244877bc 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -467,7 +467,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f2c5ad2e7..b8598bf5b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6390,6 +6390,7 @@ Partial Class Compras_Compras Case 6 'Compra Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" If RBLPago.SelectedValue.ToEntero = 4 Then @@ -6620,6 +6621,13 @@ Partial Class Compras_Compras 'falta el registro de la NC cuando es Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE + + + If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.ToEntero = 9 Then + RegistraConcepto225 = True + End If + + If RegistraConcepto225 Then importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal @@ -6922,6 +6930,12 @@ Partial Class Compras_Compras CveCuenta = CveCuentaProveedorAcreedores Case 18 'NC - Notas de Credito + + + + + + importeMovimiento = importeNC importeMN = importeMovimiento * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" @@ -11509,7 +11523,7 @@ Partial Class Compras_Compras e.Row.FCCheckBox("cbInv").Enabled = False End If - e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(If(DdlTipoCompra.SelectedValue.ToEntero = 9, "CveTipoAlmacen IN (21)", "CveTipoAlmacen IN (1,2,7,14,19)")) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlEAlmacen").DataBind() 'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen")) @@ -11598,6 +11612,12 @@ Partial Class Compras_Compras If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then ' iliana, horacio, marco, RMF. 2017.03.13 StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)" End If + + + If DdlTipoCompra.SelectedValue.ToEntero = 9 Then + StrAlmacenes = "CveTipoAlmacen IN (21)" + End If + e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlAlmacen").DataBind() @@ -19619,6 +19639,10 @@ Partial Class Compras_Compras Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) + If DdlTipoCompra.SelectedValue.ToEntero = 9 Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada + CargaGvInv() + End If + End Sub #End Region diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 8d742140e..598a258d7 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -418,7 +418,7 @@ + DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote, AplicaSeccion,AplicaCaducidad,AplicaLote" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None"> diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 05ef7a391..2ebe9aa83 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -30,7 +30,14 @@ Partial Class Inventarios_RecepcionAlmacen End Property Private Property DtInv As DataTable Get - Return CType(ViewState("DtInv"), DataTable) + If ViewState("DtInv") Is Nothing Then + Return New DataTable + Else + Return CType(ViewState("DtInv"), DataTable) + End If + + + End Get Set(value As DataTable) ViewState("DtInv") = value @@ -854,9 +861,15 @@ Partial Class Inventarios_RecepcionAlmacen If TipoMovimiento = 3 Then CargaAlmacenes(-1, "21,2") End If + + If CveTipoCompra = 9 Then + CargaAlmacenes(-1, "21") + End If + RecibidaCompleta = False Dim CargaSoloUsados As Boolean = False + If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then Dim DtRecepcion As DataTable = Nothing Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() @@ -1164,8 +1177,9 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub CargaGVInv() If UsuarioActual.CveEmpresa = 119 Then DtInv = DtInv.FiltraParametros("", "PS") - End If - + End If + + For Each item As DataRow In DtInv.Rows Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, item("CvePS").ToString.ToEntero).FiltroPrimero("") If Dr IsNot Nothing Then @@ -2098,7 +2112,10 @@ Partial Class Inventarios_RecepcionAlmacen End Function Private Sub GuardaCompraOC() + Dim CveMovimiento As Integer + ' Dim CveMovimientoS + Dim InvFolio As String = "" Dim FechaMovto As Date = TxtFecha.Text.ToDate @@ -2394,7 +2411,9 @@ Partial Class Inventarios_RecepcionAlmacen If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero() - Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24) + + Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") FolioVirtual = ObjInventario.Folio @@ -2486,6 +2505,76 @@ Partial Class Inventarios_RecepcionAlmacen End If End If 'TERMINA: DEVENGAR + + Else + + + + 'VIRTUAL + If CveTipoCompra = 9 And UsuarioActual.Empresa.Funcionalidad(573) = "1" Then + + Dim DtPSVirtual As New DataTable("DtTamanios") + DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) + DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) + DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) + + Dim DtComprasDetalle As DataTable = Nothing + Dim DtTamanios As DataTable = Nothing + + If ObjCompras.GetCompraDetalle(CveCompraSurtir) Then + DtComprasDetalle = ObjCompras.DtResultados.Copy() + End If + + If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + DtTamanios = ObjAcum.DtResultados.Copy() + End If + + For Each GvRow As GridViewRow In GvInv.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + For Each Tam As DataRow In DtTamanios.Rows + If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then + Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero() + Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}") + + If RowCompraDetalle IsNot Nothing Then + Dim Row As DataRow = DtPSVirtual.NewRow() + Row("CvePS") = CvePSCargo + Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal() + Row("PU") = RowCompraDetalle("PU").ToString().ToDecimal() + Row("CveUM") = GvRow.DataKey("CveUM").ToEntero() + DtPSVirtual.Rows.Add(Row) + End If + + End If + Next + + End If + Next + + If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 Then + Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero() + + Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G") + FolioVirtual = ObjInventario.Folio + + For Each RowUsado As DataRow In DtPSVirtual.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next + End If + End If + End If 'ACTUALIZA ESTATUS ALMACEN diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0a27020c6..8bd8d5f1c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -826,9 +826,13 @@ Partial Class Inventarios_TraspasoAlmacen CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) FolioVirtualSalida = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing + Dim dtvirtualLogistico As DataTable = Nothing If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + dtvirtual = ObjInventario.DtResultados + dtvirtualLogistico = ObjInventario.DtResultados.Copy + For Each RowVirtual As DataRow In dtvirtual.Rows Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() @@ -840,9 +844,14 @@ Partial Class Inventarios_TraspasoAlmacen Exit For End If Next + Else ErrorMovInv = True End If + + + + End If 'AGREGAMOS LA ENTRADA @@ -884,30 +893,34 @@ Partial Class Inventarios_TraspasoAlmacen If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() - Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero() + Dim CveTipoAlmacenDestipo As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() + Dim TipoAlmacenEntrada As String = If(CveTipoAlmacenDestipo = 21, "25", "24") + + Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen = { TipoAlmacenEntrada } AND CveSubProyecto={CveSubProyecto}").ToEntero() CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3") - FolioVirtualEntrada = ObjInventario.Folio - Dim dtvirtual As DataTable = Nothing + FolioVirtualEntrada = ObjInventario.Folio + Dim dtvirtual As DataTable = Nothing - If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then - dtvirtual = ObjInventario.DtResultados - For Each RowVirtual As DataRow In dtvirtual.Rows - Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() - Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal() - Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero() + If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then + dtvirtual = ObjInventario.DtResultados + For Each RowVirtual As DataRow In dtvirtual.Rows + Dim CvePS = RowVirtual("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowVirtual("Cantidad").ToString().ToDouble() + Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal() + Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero() - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - ErrorMovInv = True - Exit For - End If - Next - Else - ErrorMovInv = True + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + ErrorMovInv = True + Exit For + End If + Next + Else + ErrorMovInv = True + End If End If - End If - Dim Concepto As String = TxtObservaciones.Text + + Dim Concepto As String = TxtObservaciones.Text If Concepto = "" Then Concepto = "Traspaso" 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO: If Not ErrorMovInv Then @@ -922,7 +935,11 @@ Partial Class Inventarios_TraspasoAlmacen If IdCtaContableSalida = IdCtaContableEntrada Then Contabilizable = False - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then + Dim CveTipoAlmacenDestipo As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero() + Dim CveConceptoPrepoliza As Integer = If(CveTipoAlmacenDestipo = 21, 225, 68) + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, CveConceptoPrepoliza, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable, ImporteMX:=importe) Then ErrorMovInv = True End If From f6d3c445887becfa002035ac9fbc7a8f4be134a3 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 6 May 2020 08:50:14 -0700 Subject: [PATCH 2/5] correcciones en CRM --- CRM/CatEmpresasCRM.aspx | 5 + CRM/CatEmpresasCRM.aspx.cs | 22 +- CRM/CatProbabilidadAcercamiento.aspx.cs | 2 +- CRM/EmpresaCRM.aspx | 5 + CRM/EmpresaCRM.aspx.cs | 20 +- .../Grales/Formatos/RepCatEtapasProceso.rdlc | 12 +- .../RepCatProbabilidadAcercamiento.rdlc | 232 +++++++++--------- 7 files changed, 175 insertions(+), 123 deletions(-) diff --git a/CRM/CatEmpresasCRM.aspx b/CRM/CatEmpresasCRM.aspx index 7095cee60..c4391eec7 100644 --- a/CRM/CatEmpresasCRM.aspx +++ b/CRM/CatEmpresasCRM.aspx @@ -28,6 +28,11 @@
+ +
+ + +
diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs index ad32655d5..9f8de821c 100644 --- a/CRM/CatEmpresasCRM.aspx.cs +++ b/CRM/CatEmpresasCRM.aspx.cs @@ -29,6 +29,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas { if (!IsPostBack) { + CargaTipoProcesos(); CargaMediosCaptacion(); CargaDatos(); } @@ -60,12 +61,22 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1)) { - DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; + DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue)); DdlMedioCaptacion.DataBind(); - DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1")); } ObjCRM.Dispose(); } + + protected void CargaTipoProcesos() + { + ClsCRM ObjCRM = new ClsCRM(); + + if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa)) + { + DdlTipoProceso.DataSource = ObjCRM.DtResultados; + } + DdlTipoProceso.DataBind(); + } #endregion #region "ACCIONES - GRIEDVIEW" @@ -106,4 +117,11 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas } } #endregion + + protected void DdlTipoProcesos_Change(Object sender, EventArgs e) + { + DdlMedioCaptacion.Items.Clear(); + CargaMediosCaptacion(); + UPFiltros.Update(); + } } \ No newline at end of file diff --git a/CRM/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs index 00d6462c7..2997bba1e 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx.cs +++ b/CRM/CatProbabilidadAcercamiento.aspx.cs @@ -254,6 +254,6 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); param.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString())); - ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Etapas Proceso", formato); + ImprimirPDF("Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc", TmpDT, param, "Report Cat Probabilidad Acercamiento", formato); } } \ No newline at end of file diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index a0c86e7ed..e136089ec 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -87,6 +87,11 @@
+
+ + +
+
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index e99b406e2..1ecfcadff 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -225,6 +225,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas { CreoCliente = false; RecuperaCve(); + CargaTipoProceso(); CargaMetodosCaptacion(); CargaVendedores(); CargaSucursales(); @@ -548,12 +549,22 @@ public partial class CRM_EmpresaCRM : ClsPaginas CveContactoEditado = -1; } + protected void CargaTipoProceso() + { + ClsCRM ObjCRM = new ClsCRM(); + if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa)) + { + DdlTipoPrceso2.DataSource = ObjCRM.DtResultados; + } + DdlTipoPrceso2.DataBind(); + } + protected void CargaMetodosCaptacion() { ClsCRM ObjCRM = new ClsCRM(); if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1)) { - DdlMedioCaptacion.DataSource = ObjCRM.DtResultados; + DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoPrceso2.SelectedValue)); DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1")); DdlMedioCaptacionAcercamiento.Items.Clear(); DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados; @@ -1507,4 +1518,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas Mail.SendMail(ClsPaginas.EmpresaNotificaciones, correoVendedor, Asunto,body); } } + + protected void DdlTipoProcesos_Change(Object sender, EventArgs e) + { + DdlMedioCaptacion.Items.Clear(); + CargaMetodosCaptacion(); + UpDatos.Update(); + } } \ No newline at end of file diff --git a/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc index c20511759..d738cd3d9 100644 --- a/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc +++ b/Empresas/Grales/Formatos/RepCatEtapasProceso.rdlc @@ -471,7 +471,9 @@ - Orden @@ -964,10 +966,13 @@ =Parameters!FechaImpresion.Value - Textbox11 @@ -1117,9 +1122,8 @@ ReportParameter1 - String + DateTime true - true ReportParameter1 diff --git a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc index fb6193ac7..cddde8146 100644 --- a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc +++ b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc @@ -18,6 +18,9 @@ 5.89659cm + + 4.7613cm + 1.60341cm @@ -27,9 +30,6 @@ 4.01284cm - - 4.7613cm - @@ -82,6 +82,53 @@ + + + + true + true + + + + + Tipo Proceso + + + + + + + Textbox4 + + + + Black + + + Black + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -223,53 +270,6 @@ - - - - true - true - - - - - Tipo Proceso - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -306,6 +306,37 @@ + + + + true + true + + + + + =Fields!TipoProceso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -402,37 +433,6 @@ - - - - true - true - - - - - =Fields!TipoProceso.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -599,7 +599,7 @@ - 0.79374cm + 0.87322cm true true @@ -710,38 +710,6 @@ 2pt - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -766,6 +734,41 @@ 18.00281cm 0.36335cm 2.06587cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Today + + + + + + + Textbox8 + 0.2202cm + 9.89924cm + 0.37041cm + 2.5cm 5 + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Asunto.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descripción: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + De + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + C.C. Para + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Para: + + + + + + #e0e0e0 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!De.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Para.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CCPara.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Inicio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaInicio.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Fin: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaFin.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Prioridad: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Prioridad.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tema: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Tema.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estatus: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Estatus.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaRegistro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Registró: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Registro.Value + + + 2pt + 2pt + 2pt + 2pt + + + + 3.02083in + + + + + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + NombreEmpresa + 0.26141cm + 5.50016cm + 1.31438cm + 5.19875cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Detalle de Tarea + + + + + + + Textbox3 + 2.03412cm + 5.50016cm + 0.6cm + 5.19875cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.50812cm + true + true + + + true + true + + + + + Usuario Imprimio: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Now + + + + + + + Textbox8 + 0.78203cm + 5.56366cm + 0.37041cm + 5.72096cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.28787cm + 13.94934cm + 0.36335cm + 2.06587cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 2cm + 2cm + 2cm + 2cm + 0.13cm + diff --git a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc index cddde8146..3fd92c938 100644 --- a/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc +++ b/Empresas/Grales/Formatos/RepCatProbabilidadAcercamiento.rdlc @@ -5,7 +5,7 @@ 0.08792cm 0cm - 20.06868cm + 19.15246cm @@ -16,7 +16,7 @@ - 5.89659cm + 7.3197cm 4.7613cm @@ -25,10 +25,10 @@ 1.60341cm - 3.72586cm + 2.55502cm - 4.01284cm + 2.80719cm @@ -457,10 +457,10 @@ DataSet1 - 0.36336cm - 0.06868cm + 0.26431cm + 0.10583cm 1.06771cm - 20cm + 19.04663cm 1 @@ -696,9 +696,9 @@ Textbox10 0.22726cm - 6.97591cm + 7.92841cm 0.36335cm - 2.92333cm + 3.55833cm 3 @@ -765,10 +765,10 @@ Textbox8 - 0.2202cm - 9.89924cm + 0.22726cm + 10.62431cm 0.37041cm - 2.5cm + 5.72096cm 5