From d6270982ac3381b47ec0bf8e5f8123ea9233e689 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 11 Aug 2023 13:22:10 -0700 Subject: [PATCH 1/9] envio correo --- Ventas/Ventas.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f95461772..f8b132830 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3201,6 +3201,8 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente Else ChkEnviarFactura.Checked = EnviarCorreoCliente ChkEnviarFactura.Visible = True @@ -10329,7 +10331,7 @@ Partial Class Ventas Try 'MANDA CORREO Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False) + Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False) Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) Hilo.Start() Catch ex As Exception @@ -16574,7 +16576,7 @@ Partial Class Ventas Try 'MANDA CORREO Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False) + Dim Factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False) Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) Hilo.Start() Catch ex As Exception @@ -17339,6 +17341,7 @@ Partial Class Ventas ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente End If If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "PA", "Pd2") AndAlso (ReceptorRFC = "XAXX010101000" Or LblRFC.Text = "XAXX010101000") Then From c3fc57dc604486dfdcdfd6a7ac7424f4898ca058 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 11 Aug 2023 13:38:32 -0700 Subject: [PATCH 2/9] Verifica chk de envio de correo --- Ventas/Ventas.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f8b132830..e1becf4fa 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2949,6 +2949,7 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + End If 'Modalidad Contrato From bf648fe469578a5563987ff8ee69ae2af4d39e2c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Aug 2023 18:36:31 -0700 Subject: [PATCH 3/9] =?UTF-8?q?--=20correcci=C3=B3n=20de=20recalcular=20im?= =?UTF-8?q?puestos=20al=20cambiar=20de=20ps?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 7977a458d..6939a75fb 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -4038,19 +4038,6 @@ Partial Class OC_OC IEPSPS = DrPS("IEPSPorcentaje").ToString.ToDecimal IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0) - If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then - RetISR = DrPS("RetISR").ToString.ToDecimal - RetIVA = DrPS("RetIVA").ToString.ToDecimal - If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then - RetIVA = RetIVA / 2 - End If - 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL - ' IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal - 'End If - - ' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0) - End If - If DdlProveedores.SelectedValue.ToEntero > 0 Then 'Si es Proveedor Extranjero el IVA es 0% Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("") @@ -4065,6 +4052,17 @@ Partial Class OC_OC End If End If + If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then + RetISR = DrPS("RetISR").ToString.ToDecimal + RetIVA = DrPS("RetIVA").ToString.ToDecimal + If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then + RetIVA = RetIVA / 2 + End If + IvaPS = -1 + End If + + + CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text From 9bc6c4f94008bc139f5510197352592b080c260d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Aug 2023 18:59:57 -0700 Subject: [PATCH 4/9] =?UTF-8?q?--=20cambio=20en=20prep=C3=B3lizas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 6939a75fb..fd42cbdd9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -3030,13 +3030,13 @@ Partial Class OC_OC ' Exit For 'End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, SerieFolio, Fecha, 0, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=tCveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, -DiferenciaInvOC, 177, SerieFolio, SerieFolio, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=tCveSubProyecto) Then TieneError = True Exit For End If - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, SerieFolio, Fecha, 0, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, SerieFolio, Fecha, 0, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, ImporteME, 228, SerieFolio, SerieFolio, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, SerieFolio, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then TieneError = True Exit For End If @@ -8120,12 +8120,12 @@ Partial Class OC_OC PU = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * TCAjuste ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal Importe176 = Importe228 + Importe229 - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Importe228, lblFolio.Text, 228, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=-Importe228, ImporteME:=-Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Importe229, lblFolio.Text, 229, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=-Importe229, ImporteME:=-Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Importe228, -Importe228, 228, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=-Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Importe229, -Importe229, 229, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=-Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then ErrorPrepoliza = True Exit For Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Importe176, lblFolio.Text, 176, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe176, ImporteME:=Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Importe176, Importe176, 176, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then ErrorPrepoliza = True Exit For Else @@ -8143,7 +8143,7 @@ Partial Class OC_OC ''-pesos a dólares CveMonedaOC = 2 TCAjuste = TxtTCCambioMoneda.Text.ToDecimal - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -Importe176, lblFolio.Text, 176, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=-Importe176, ImporteME:=-Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -Importe176, -Importe176, 176, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=-Importe176, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then ErrorPrepoliza = True Exit For Else @@ -8160,17 +8160,16 @@ Partial Class OC_OC PU = Importe176PU If Not ConservaPU Then PU = Importe176PU / TCAjuste - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe228, lblFolio.Text, 228, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe228, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe229, lblFolio.Text, 229, Concepto, Now, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Importe229, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe228, Importe228, 228, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe229, Importe229, 229, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=Importe228, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then ErrorPrepoliza = True Exit For Else If difcosto <> 0 Then Dim tcveSub As Integer = DtDetalle.MAX("CveSubProyecto").ToEntero Dim tcveClasif As Integer = DtDetalle.MAX("CveClasificacion").ToEntero - Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {tcveClasif}").ToString.ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, difcosto, lblFolio.Text, 69, Concepto, Now, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=difcosto, ImporteME:=difcosto, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveSubProyecto:=tcveSub, CveClasificacion:=tcveClasif, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, difcosto, difcosto, 69, lblFolio.Text, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=difcosto, CveOCDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, CveSubProyecto:=tcveSub, CveClasificacion:=tcveClasif, CveMovimientoAlmacen:=CveMovimientoAlmacen) Then ErrorPrepoliza = True Exit For End If From 39e0f6c479dac223923ad3d7712172aa6a805641 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 11 Aug 2023 19:10:28 -0700 Subject: [PATCH 5/9] req requerir CveProveedor al generar OC, OI agenda --- App_Code/CalendarEvent.vb | 3 +++ App_Code/ClsOIEventos.vb | 4 +-- Ashx/CargaEventos.ashx | 2 ++ CRM/Acercamiento.aspx.cs | 2 +- Compras/Compras.aspx | 5 ++-- Compras/Compras.aspx.vb | 2 ++ Compras/Proveedores.aspx | 11 +++++++-- Compras/Proveedores.aspx.vb | 7 ++++++ Empresas/158/Formatos/Factura.rdlc | 11 ++++++--- Inicio.aspx | 9 ++++++- OC/OC.aspx.vb | 24 ++++++++++++++++-- OI/PopUpAgenda.aspx.vb | 39 ++++++++++++++++++++++++------ Sistemas/DefinicionEmpresa.aspx.vb | 6 ++--- Ventas/Clientes.aspx | 10 ++++++-- 14 files changed, 108 insertions(+), 27 deletions(-) diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index 44dbcf836..05748e891 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -42,6 +42,9 @@ Public Class CalendarEvent Public Property CveSubProyectoUsuarioAtendio As Integer + Public Property CveCompra As Integer + Public Property SerieFolioCompra As String + End Class diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index c812a6f51..56d781b38 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -2488,12 +2488,12 @@ Public Class ClsOIEventos Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1, Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -1, Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1) As Boolean + Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveCompra As Integer = -1) As Boolean Dim Retorno As Boolean = False Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, - CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto) + CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto, CveCompra:=CveCompra) Return Retorno End Function diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 5be0ee8b2..6dfb8875c 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -196,6 +196,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.NombreProveedor = dr("NombreProveedor").ToString cevent.NomprePersonal = dr("NomprePersonal").ToString + cevent.CveCompra = dr("CveCompra").ToString.ToEntero + cevent.SerieFolioCompra = dr("SerieFolioCompra").ToString cevent.CveOS = dr("CveOS").ToString.ToEntero cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 53d1ec98b..ceb7351e6 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -1408,7 +1408,7 @@ public partial class CRM_Acercamiento : ClsPaginas BtnGuardarAcercamiento.Visible = false; BtnEliminarAcercamiento.Visible = false; - DivAccionesBitacoraActividades.Visible = false; + DivAccionesBitacoraActividades.Visible = true; DivAccionesBitacoraArchivos.Visible = false; LnkCerrarAcercamiento.Visible = false; diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7644e534e..7e8e59b76 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3014,8 +3014,9 @@ Agregar --%> -
-
+
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9c21cafd4..cb772c048 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1296,6 +1296,8 @@ Partial Class Compras_Compras DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True DVModalAnticipoFechaEjecucion.Visible = True + HlEvento.Visible = True + HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;" Else ViewState("CveProveedor") = -1 diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index ede08210b..e878fb243 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -3044,8 +3044,14 @@ Agregar --%> -
- Agendar +
+ + Agendar +
+ + + + @@ -3055,6 +3061,7 @@ + diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index cfdbc97fb..9ecc4b10e 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -536,9 +536,13 @@ Partial Class Compras_Proveedores End If HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveProveedor=" & CveProveedor & "&TB_iframe=true&height=370&width=600;" + LtlTareaNueva.Visible = True + LtlTareaNueva.Text = String.Format(" Tarea", CveProveedor) CargaRepresentantes() + + Else 'Configuración de Modalidad Insert @@ -2776,6 +2780,9 @@ Partial Class Compras_Proveedores ObjEventoBitacora.Dispose() GvEB.DataBind() End Sub + Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) + CargaEventoBitacora() + End Sub Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs) Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument) diff --git a/Empresas/158/Formatos/Factura.rdlc b/Empresas/158/Formatos/Factura.rdlc index 5b71c2e4a..551bbc326 100644 --- a/Empresas/158/Formatos/Factura.rdlc +++ b/Empresas/158/Formatos/Factura.rdlc @@ -2006,10 +2006,10 @@ 2.35552in - 0.76635in + 0.67141in - 0.57354in + 0.66848in 0.59047in @@ -2415,7 +2415,7 @@ Myriad Pro 7.5pt Normal - #,0.00 + #,0.000 @@ -2557,7 +2557,9 @@ - CodigoObjetoImpuesto @@ -2571,6 +2573,7 @@ 2pt + true diff --git a/Inicio.aspx b/Inicio.aspx index aac7cdca9..125ebff4c 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1877,7 +1877,7 @@ //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 ) { + if (event.CveEmpresaCRM > 0 || event.CveAcercamientoCRM > 0 || event.CvePersonal > 0 || event.CveCliente > 0 || event.CveProveedor > 0 || event.CveCompra > 0) { $("#<%=LnkTituloLink.ClientID%>").css("display", ""); @@ -1907,6 +1907,13 @@ $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Proveedores.aspx?CveProveedor=" + event.CveProveedor); } + if (event.CveCompra > 0) { + $("#<%=LnkTituloLink.ClientID%>").text("Comppra: " + event.SerieFolioCompra); + $("#<%=LnkTituloLink.ClientID%>").attr("href", "/Compras/Compras.aspx?CveCompra=" + event.CveCompra); + } + + + } else { $("#<%=LnkTituloLink.ClientID%>").css("display", "none") diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 27eb7218e..904b0dc2b 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -827,7 +827,14 @@ Partial Class OC_OC DdlSubProyecto.Items.Clear() ' aqui tiene otras condiciones especiales - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + + + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectoContrato.Items.Clear() @@ -1959,7 +1966,14 @@ Partial Class OC_OC Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "") DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)) 'DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) ' GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) + + If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + Else + DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ").FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + End If + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -2543,6 +2557,12 @@ Partial Class OC_OC End If End If + + If TipoOC.ToUpper = "REQ" AndAlso CveEstatusFinalOK = CboE.SelectedValue.ToEntero AndAlso DdlProveedores.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + 'VALIDA QUE TENGA LAS COTIZACIONES QUE DEBEN TENER If UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso (TipoOC.ToUpper = "REQ" And CveEstatusFinalOK = CboE.SelectedValue.ToEntero) Then If CveConfianzaProveedor > 0 Then diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb index 39af5e7be..11d980faf 100644 --- a/OI/PopUpAgenda.aspx.vb +++ b/OI/PopUpAgenda.aspx.vb @@ -334,6 +334,10 @@ Partial Class OI_PopUpAgenda CargaContarto(Request("CveContrato").ToEntero) End If + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CargaCompra(CveCompra:=Request("CveCompra").ToEntero) + End If + If Request("CveEvento") IsNot Nothing AndAlso IsNumeric(Request("CveEvento")) AndAlso Request("CveEvento").ToEntero > 0 Then @@ -355,6 +359,9 @@ Partial Class OI_PopUpAgenda End If End If End Sub + + + Private Sub Tarea() '1 CveTipoEvento = 1 @@ -684,6 +691,12 @@ Partial Class OI_PopUpAgenda CveUsuario = Request("CveUsuario").ToEntero End If + + Dim CveCompra As Integer = -1 + If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + CveCompra = Request("CveCompra").ToEntero + End If + '------------------------------------------ 'Recorrro Grid para obtener el usuario PARA For Each RowPara As GridViewRow In GVUsuarios.Rows @@ -710,7 +723,7 @@ Partial Class OI_PopUpAgenda Alert("La Nueva Tarea se guardó correctamente.", TipoMensaje.MsgInformacion) End If ElseIf CveTipoEvento = 2 Then - If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor) Then + If ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveCompra:=CveCompra) Then Alert("La Nueva Agenda se guardó correctamente.", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End If ElseIf CveTipoEvento = 3 Then @@ -1260,13 +1273,13 @@ Partial Class OI_PopUpAgenda End Sub Private Sub CargaProveedor(CveProveedor As Integer) - 'Dim ObjClaves As New ClsCompProveedores - ' hacerlo con el global dt - 'If ObjClaves.GetProveedores(CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then - ' If ObjClaves.DtResultados.Rows.Count > 0 Then - ' LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial - ' End If - 'End If + Dim ObjClaves As New ClsCompProveedores + + If ObjClaves.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + If ObjClaves.DtResultados.Rows.Count > 0 Then + LtlAgenda.Text = ObjClaves.CveProveedor & " - " & ObjClaves.NombreComercial + End If + End If End Sub Private Sub CargaUsuario(CveUsuario As Integer) @@ -1290,6 +1303,16 @@ Partial Class OI_PopUpAgenda End If End Sub + Private Sub CargaCompra(CveCompra As Integer) + Dim objCompra As New ClsCompras + + If objCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = objCompra.DtResultados.Rows(0) + LtlAgenda.Text = $" Compra: {dr("SerieFolio").ToString}" + End If + objCompra.Dispose() + End Sub + #End Region End Class diff --git a/Sistemas/DefinicionEmpresa.aspx.vb b/Sistemas/DefinicionEmpresa.aspx.vb index f6c772a5c..1ec831d97 100644 --- a/Sistemas/DefinicionEmpresa.aspx.vb +++ b/Sistemas/DefinicionEmpresa.aspx.vb @@ -502,8 +502,8 @@ Partial Class Sistemas_DefinicionEmpresa TxtPlantillaVenta.Text = .PlantillaMailVenta TxtAsunto.Text = .AsuntoPlantillaMailVenta - TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion - TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion + TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion + TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion 'NUEVOS TxtAreaGeografica.Text = .AreaGeografica @@ -914,7 +914,7 @@ Partial Class Sistemas_DefinicionEmpresa If TextoError = "" Then ObjEmpresas.Commit() If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit() - Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa2.aspx"";") + Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/DefinicionEmpresa.aspx"";") Session("FileUpload") = "" CargaDatos() UpDatos.Update() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index c52366fff..fbd6f8e67 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4853,11 +4853,17 @@ Agregar --%> -
-
+ +
+ + Agendar
+ + From 9f87b1eb6f8175c745d0c317c87d6dfea02724bf Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Aug 2023 19:11:47 -0700 Subject: [PATCH 6/9] =?UTF-8?q?--=20se=20quit=C3=B3=20codigo=20de=20PyME?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 108 ------- Ventas/Ventas.aspx.vb | 736 +----------------------------------------- 2 files changed, 12 insertions(+), 832 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 7488f3721..399e49507 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1333,7 +1333,6 @@ - <%--18--%> @@ -6332,113 +6331,6 @@ - -