From 4bc559e249f072269498597d7123465ffe989ccb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Feb 2022 12:24:47 -0700 Subject: [PATCH 01/19] -- solo se visualiza el eliminar, cuando es solicitada yautorizada --- Ventas/CatAutorizacionLimites.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index 5bc99ff65..83c09cb04 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -133,7 +133,7 @@ - + From 428b8b9bc0bab5bc764999ae5c53352fd3a93b9d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Feb 2022 12:28:37 -0700 Subject: [PATCH 02/19] =?UTF-8?q?--=20pide=20el=20material=20peligroso,=20?= =?UTF-8?q?solo=20si=20est=C3=A1=20habilidad=20la=20carta=20porte?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx.vb | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 0ff1aca73..36978c5c2 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1249,15 +1249,16 @@ Partial Class ProductosyServicios End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click - If DdlSATPS.txtValue.Value.ToEntero > 0 Then - ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero) - If Not ValidaMaterialPeligrosoMensaje Then + If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte - Exit Sub + ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero) + If Not ValidaMaterialPeligrosoMensaje Then + Exit Sub + End If End If - End If + End If If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia) @@ -1283,10 +1284,6 @@ Partial Class ProductosyServicios Exit Sub End If End If - 'If DdlSubFamilia.SelectedValue = "-1" AndAlso UsuarioActual.TienePermisoProceso(138) Then - ' Alert("Se debe especificar Familia y Subfamilia de Costos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If If UsuarioActual.Empresa.Funcionalidad(265) = "1" And TxtCodigo.Text = "" Then Alert("El código es requerido.", TipoMensaje.MsgAdvertencia) @@ -1303,7 +1300,6 @@ Partial Class ProductosyServicios Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia) Return End If - End If Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero @@ -1329,7 +1325,6 @@ Partial Class ProductosyServicios Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia) Return End If - End If Dim ObjProductosServicios As New ClsProductosServicios() @@ -3111,8 +3106,6 @@ Partial Class ProductosyServicios Dim DTDatos As New DataTable DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}") - - 'Es material Peligros If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then From 97127c5a68f651585c1a449b788d4401ebc65565 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Feb 2022 21:58:45 -0700 Subject: [PATCH 03/19] -parametros de filtro de distribuidor, condiciiones de pago --- App_Code/ClsVentas.vb | 18 ++++++++++--- Ventas/RepProductosServicios.aspx | 30 ++++++++++++++++----- Ventas/RepProductosServicios.aspx.vb | 11 +++++--- Ventas/RepProductosServiciosDetalle.aspx | 24 +++++++++++++++++ Ventas/RepProductosServiciosDetalle.aspx.vb | 20 +++++++++----- Ventas/RepVentas.aspx | 8 ++++++ Ventas/RepVentas.aspx.vb | 6 ++++- 7 files changed, 94 insertions(+), 23 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index fe1026c75..7cd6d11d2 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1421,7 +1421,8 @@ Public Class ClsVentas Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, + Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRep") @@ -1448,6 +1449,7 @@ Public Class ClsVentas .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable End With @@ -1554,7 +1556,8 @@ Public Class ClsVentas Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String, CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, + Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRepDetalle") @@ -1586,6 +1589,7 @@ Public Class ClsVentas .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable End With @@ -1606,7 +1610,8 @@ Public Class ClsVentas CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, - Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean + Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, + Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPS") @@ -1638,6 +1643,8 @@ Public Class ClsVentas .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia + .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor End With @@ -1656,7 +1663,8 @@ Public Class ClsVentas CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, - Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean + Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, + Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") @@ -1691,6 +1699,8 @@ Public Class ClsVentas .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia + .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor End With Try diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index d2e5e16a1..10c47da75 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -216,6 +216,14 @@ + +
+ + + + + +
@@ -310,15 +318,15 @@
- - +
- + - - + +
+
Garantía?:
@@ -329,11 +337,19 @@
- + + +
+ + + + + +
+
-
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 03dadcde8..53ba3b7b7 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -250,9 +250,11 @@ Partial Class Ventas_RepProductosServicios DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) DdlVendedor.Attributes.Add("disabled", "disabled") DdlVendedor.Enabled = False - End If - - + End If + + txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + txtFechaF.Text = Now.ToShortDateString + End Sub #End Region @@ -284,7 +286,8 @@ Partial Class Ventas_RepProductosServicios DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, - CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then + CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable, + CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index aa7f05f21..46ba8f989 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -315,6 +315,30 @@ + +
+ + + + + +
+
+ + + + + +
+ + +
+ + + + + +
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 6d18f91e3..993345dec 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -324,9 +324,7 @@ Partial Class Ventas_RepProductosServiciosDetalle txtFechaI.Text = Fecha txtFechaF.Text = Fecha End If - If FechaI <> "-1" Then - txtFechaI.Text = FechaI - End If + If FechaF <> "-1" Then txtFechaF.Text = FechaF End If @@ -357,7 +355,13 @@ Partial Class Ventas_RepProductosServiciosDetalle End If Else - txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) + + If FechaI = "-1" Then + txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text) + Else + txtFechaI.Text = FechaI + End If + FechaFtemporal = $"01/{AnioMes.Substring(5, 1).PadLeft(2, "0"c)}/{AnioMes.Substring(0, 4)}" If FechaF = "-1" Then @@ -464,7 +468,7 @@ Partial Class Ventas_RepProductosServiciosDetalle UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, - ModalidadContable:=Not ChkLecturaAdmin.Checked) Then + ModalidadContable:=Not ChkLecturaAdmin.Checked, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados TmpDT = ObjVentas.DtResultados Else @@ -616,8 +620,10 @@ Partial Class Ventas_RepProductosServiciosDetalle Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) If EsWS Then DdlClientes.setEsWebService(True) - DdlClientes.SelectedValue = CveCliente.ToString - DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente)) + If CveCliente > 0 Then + DdlClientes.SelectedValue = CveCliente.ToString + DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre") + End If Else DdlClientes.setEsWebService(False) DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index b9214294c..5f500facf 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -304,6 +304,14 @@
+ +
+ + + + + +
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 9784b95ac..d0453b6b6 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -283,6 +283,9 @@ Partial Class Ventas_RepVentas DdlClienteClasificacion.DataBind() DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) + txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + txtFechaF.Text = Now.ToShortDateString + End Sub @@ -330,7 +333,8 @@ Partial Class Ventas_RepVentas If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, - CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then + CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable, + EsDistribuidor:=DdlDistribuidor.selectedvalue.toentero) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else From a7acb78de49b567ec3ff2d2bd98fadaf947e0de5 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 2 Feb 2022 21:59:17 -0700 Subject: [PATCH 04/19] =?UTF-8?q?--=20cmabio=20en=20c=C3=B3digo=2004-=20re?= =?UTF-8?q?faccturaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index d660ba9ab..f1d03693a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2012,7 +2012,7 @@ Partial Class PopUpVerFactura If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then Vta.Timbre.CFDIRelacionados.TipoRelacion = "04" Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString) - Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso" + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos" End If If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b498de99f..8ebe04595 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11026,7 +11026,7 @@ Partial Class Ventas Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso" Case 4 Timbre.CFDIRelacionados.TipoRelacion = "04" - Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso" + Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Sustitución de los CFDI Previos" Case 7 Timbre.CFDIRelacionados.TipoRelacion = "07" Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo" From 1d6eb1236a2a234d3f4389656cef424c1ad99eb2 Mon Sep 17 00:00:00 2001 From: Hector Javier Rodriguez Flores Date: Wed, 2 Feb 2022 23:15:59 -0700 Subject: [PATCH 05/19] fecha null y motivo sin guardar en el boton de actulizar --- CRM/Acercamiento.aspx.cs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 4db633f95..6f7005b92 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -653,7 +653,7 @@ public partial class CRM_Acercamiento : ClsPaginas Double Comision = TxtComision.Text.ToDouble(); int Prioridad = DdlPrioridad.SelectedValue.ToEntero(); - + int CveRechazoMotivo = DdlRechazoMotivo.SelectedValue.ToEntero(); int CveUsuarioIng = UsuarioActual.CveUsuario; if (CveEncuestaProcesoCRM > 0) @@ -675,9 +675,11 @@ public partial class CRM_Acercamiento : ClsPaginas AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = (DateTime)FechaCierre; + AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); - + AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; + + if (cRMService.AcercamientoUpdate(AcercaminetoModel)) { //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text); From 6f971b42209721b6de9f8ee9d29e7d01db351b6a Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 3 Feb 2022 03:17:01 -0700 Subject: [PATCH 06/19] --- GPS/PalletEtiquetaCaja.rdlc | 78 ++++++++++--------------------------- Nomina/Nomina.aspx | 2 +- Nomina/Nomina.aspx.cs | 3 +- vwd.webinfo | 2 + 4 files changed, 26 insertions(+), 59 deletions(-) diff --git a/GPS/PalletEtiquetaCaja.rdlc b/GPS/PalletEtiquetaCaja.rdlc index 539ad27fc..113da5366 100644 --- a/GPS/PalletEtiquetaCaja.rdlc +++ b/GPS/PalletEtiquetaCaja.rdlc @@ -898,7 +898,6 @@ KM12 HERMOSILLO, SONORA 5 - true @@ -2457,41 +2456,20 @@ KM12 HERMOSILLO, SONORA - 1.44667cm + 1.18209cm - - true - true - - - - - =Parameters!noPallet.Value - - - - - - - Textbox821 + + Embedded + CodBarr + FitProportional - Bottom - 2pt - 2pt - 2pt - 2pt - + 5 @@ -2501,37 +2479,16 @@ KM12 HERMOSILLO, SONORA - - true - true - - - - - =Parameters!noPallet.Value - - - - - - - Textbox821 + + Embedded + CodBarr + FitProportional - Bottom - 2pt - 2pt - 2pt - 2pt - + 5 @@ -2542,7 +2499,7 @@ KM12 HERMOSILLO, SONORA - 0.62646cm + 0.49417cm @@ -3026,8 +2983,8 @@ Produce of MX. 0.07228cm 0.05625cm - 10.59604cm - 10.52137cm + 10.19917cm + 10.52136cm @@ -3229,6 +3186,13 @@ tz/88IQXNLT1jvK6x5rYowb8xgXvcqDTfe8tfhiRVs/61rv+9bCPvexnT/va2/72uM+97nfP+977/vfA +qAIhvmYQymZeniYlTmZkGmZjrmZmpmZl0mZkfmZoxmanmmaoNmZqemNosmZrHmaqlkQibmWNtiYr/mWwTiMaqEPiwAAd0gk9NiHEMCbJGiCrDeQyqCYPamXg7l7EZiT3hiYRCGZ4ficlxmY1kmI2EkF0PmTZZid0fmd3Hmd4tmdtHkK4Omd6Dme2lme5Lme5lmY8Pme6Xme9Smf9ymdNUGdrBmf+okQxWieSYmEzEmKFFiMReCGcsicfTiTBcGfzVmTVPAA5Imby8maFNqe0SCG/jl+HFqhH6qhIRqeG8qeJDqi3v9Zoh2qoiBqoimKorTJoiLqojEKo7ZJohhaoXJ5kjUxDzFwAwKRA3qpiMNYjJKIfsNwgUU4oLqpoREKfDDakWqpnggRpdRZn1I6n/vpnluqpQxxpTSapVgKpgJKpm9ppl06plz6pWuKEGjKpoIpn1UaphAKl62nD8vYlwhhgatIjLFYEHYpoHz6h8D4n0/aexc6pzN5o/uQqIAqmo66D2IImZE6qUv5hZbKqJlaqZCKqZ2qh5vqqZQqqpcKqp/KEKFqqqOqqhb6hZz6hQPJepjpjb0ZAE0aqDqKgpLYpBsYqYeqe5FplQKapd44l2AZrGJZmcKqrMmKrMdqrGTprNHMCq1wKa3VSq1Caa3Ziq1Uqa3dyq1KOZ1q6a3h+pNBuXpyupbr95ZU2Z68GIxu2Xp1+qu7F6uxmqIMEasWqa/6yK8+6K8ICYb/6pD7SrD9arADy4QJ64QL+4MNK7AB+5APK7GFCqsI65gCOqtJmaHBCARxGYx3EJU/CZEFiq/0ynu+WLEcmbKyKIqtuIqvWIu0CLO2KLMvO4s367KgiLM7q7Mty4o9C7Q/G7M0e67nWZRFe5MpqRbLiACOmKQQCYYRqRbFSI39F41S+3rpwXqyu6eES2qyWIiEcWiwUwiGZfuQZ+u1Y8uEafuEZnuFb5uFYUu2cIu2CjG1Trq2NWGRG6gIdgiBCqoQ 0FkLf3uGgTsQGeurXIt7CqgW89p/BuiAAii5BAi5D3h/l1uAmWu5k4u5nau5n8u5lZuAkeu5o9u4oOsACOimUyq6CDiSvOqNvOCBDUCoRtoX3YkMMCAQtQugnQEAw/q4izu8xFu8xnu8yJu8yru8zNu8zvu80Bu90ju91Fu91nu92Lu4AQEAOw== + + image/png + iVBORw0KGgoAAAANSUhEUgAAAWMAAABVCAYAAACcloXlAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAhwSURBVHhe7ZZRThxmDAY5FwfiPJwml+GFm2yJZTcr+XOtYrtt1LE0CvllVhPkjHh5MOP5/Pz0rxjm/z38X/j+vPz84QEAwL/L02/GPx5vLy+PF+Pt629/MR/vj9fYfXva/PHm3695ff/wxZ+reif49bEfj/fXeH99/PqIZ1/B6/vXd/pUvmI+3l///Iz/hK9i4d/w93yf7mHRTXHq+/wzVvPN+9VuijvfZ7fuZzz3Ffwu96vm2ffZ7R/t2ddvxv7n1/xu8t88jmdfMcTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tu +ilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix +3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+j8cfhNAi +G/UY+X4AAAAASUVORK5CYII= + Cm ab0e0117-79b9-44e9-a7a3-e3d163f1ee55 diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index f8759d18d..c92264be3 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -196,7 +196,7 @@ Timbrar todos
  • - Registrar provisión + Registrar provisión
  • Ver provisión diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index bbad1203e..f56d87ecc 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -439,7 +439,8 @@ public partial class Nomina_Nomina2 : ClsPaginas int CvePrePolizaProrrateo = drow["CvePrePolizaProrrateo"].ToString().ToEntero(); //LnkConceptoEmpleado.Visible = (Estatus == 1); - LnkRegistrarProvision.Visible = (Estatus >= 2) && (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100); + LnkRegistrarProvision.Visible = (Estatus >= 2);//&& (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100); + LnkRegistrarProvision.Text = CvePrePolizaProvision <= 0 ? "Registrar provisión" : "Regenerar provisión"; LnkConceptoEmpleado.Visible = true;//(Estatus < 2); LnkCargaAsistenciaMasiva.Visible = (Estatus < 2); LnkModalPlantillaNomina.Visible = true; diff --git a/vwd.webinfo b/vwd.webinfo index 7266d7de6..e457e81ff 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -410,6 +410,8 @@ + + From 009aa37880d284690c3bd3e87e9c9df194aeae92 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 3 Feb 2022 07:14:18 -0700 Subject: [PATCH 07/19] =?UTF-8?q?--=20cambio=20en=20plantilla=20de=20p?= =?UTF-8?q?=C3=B3liza=20de=20devoluciones=20de=20efectivo=20de=20compras?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index e8f7cfcc6..431c75456 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2614,7 +2614,7 @@ Partial Class Bancos_IE End If End If If Opcion = "DevDinC" Then - CvePlantillaPoliza = 2 + CvePlantillaPoliza = 40 End If 'Cuando es Egreso sin factura, se registra una compra tipo anticipo @@ -3068,6 +3068,7 @@ Partial Class Bancos_IE Dim ImporteAplicarMN = 0.0D Dim ImporteAplicarME = 0.0D Dim ReferenciaAplicar = ObjIE.Folio + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" @@ -3398,7 +3399,7 @@ Partial Class Bancos_IE End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento, CveSubProyecto:=CveSubProyecto) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If From 8f3526d742afcc76b1f99df51f3cd37e60ab9d27 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 3 Feb 2022 08:32:30 -0700 Subject: [PATCH 08/19] Rep Entradas Salidas Almacenes, Compras desvincular AF --- App_Code/ClsAF.vb | 3 +- App_Code/ClsInventarios.vb | 4 +- Compras/Compras.aspx | 9 +- Compras/Compras.aspx.vb | 63 ++++++++ Empresas/152/Formatos/Factura.rdlc | 191 ++++++++++++++++------- Inventarios/RepEntradasSalidas.aspx | 4 +- Inventarios/RepEntradasSalidas.aspx.vb | 14 ++ Inventarios/RepExistenciasCostos.aspx.vb | 4 +- 8 files changed, 227 insertions(+), 65 deletions(-) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 1ddd0ed3a..ad8c046c4 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -530,7 +530,7 @@ Public Class ClsAF Return Retorno End Function - Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean + Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AF_ActivosFijosCompraUpdate") @@ -541,6 +541,7 @@ Public Class ClsAF .Add("@TipoAF", SqlDbType.Int).Value = TipoAF .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra + .Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle ) End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 80f566d0c..2fcd6752f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1702,7 +1702,7 @@ Public Class ClsInventarios #Region " INVENTARIOS - REPORTES " - Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepExistenciasCostosGet") With SqlAdapter.SelectCommand.Parameters @@ -1710,7 +1710,7 @@ Public Class ClsInventarios .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 209f43a40..413febe66 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -734,7 +734,7 @@ - + <%-- 0 --%> @@ -4476,6 +4476,13 @@ +
    +
    + + +
    +
    + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 291b351fa..6865b06b2 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1778,6 +1778,7 @@ Partial Class Compras_Compras If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then TmpDT = ObjeFacturas.DtResultados TmpDT.Columns.Add("CveSATPSActualizado") + 'TmpDT.Columns.Add("RetIVAPorcentaje") 'TmpDT.Columns.Add("RetISRPorcentaje") 'TmpDT.Columns.Add("IEPSPSPorcentaje") @@ -9929,6 +9930,22 @@ Partial Class Compras_Compras + + If Not TmpDT.Columns.Contains("DesvicularAF") Then + TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) + End If + + For Each drowAF As DataRow In TmpDT.Rows + If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then + If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then + Retorno = False + End If + End If + Next + + + + 'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then Retorno = False @@ -10513,6 +10530,9 @@ Partial Class Compras_Compras tipoCambioPago = 1 End If + + + If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then For Each Row As DataRow In ObjConta.DtResultados.Rows @@ -17900,6 +17920,17 @@ Partial Class Compras_Compras ChkAgregar.Checked = False divagregrarotrops.Visible = False + DVModalAddPSChkDesvincularAF.Visible = False + + + Dim TipoAF As Integer = GvRow.DataKey("TipoAF").ToEntero + ChkModalDesvincularAF.Checked = False + + If CveCompra > 0 AndAlso TipoAF = 2 Then + DVModalAddPSChkDesvincularAF.Visible = True + End If + + UpPSS.Update() RegistraScript("$('#divAddProducto').modal('show');") End Sub @@ -18297,6 +18328,38 @@ Partial Class Compras_Compras GuardaAC() End If + + + + + If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then + + + If Not TmpDT.Columns.Contains("DesvicularAF") Then + TmpDT.Columns.Add("DesvicularAF", GetType(Boolean)) + End If + + Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero + 'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then + + For Each dRow As DataRow In TmpDT.Rows + + If dRow("CveCompraDetalle").ToString.ToEntero = CveCompraDetalleDesvicnualarAF Then + dRow("TipoAF") = 0 + dRow("CveActivoFijo") = 0 + dRow("DesvicularAF") = True + + End If + + Next + TmpDT.AcceptChanges() + 'Else + ' Retorno = False + 'End If + + + End If + UpPS.Update() CargaGvPersonal() diff --git a/Empresas/152/Formatos/Factura.rdlc b/Empresas/152/Formatos/Factura.rdlc index 64dfe394e..7716e04b4 100644 --- a/Empresas/152/Formatos/Factura.rdlc +++ b/Empresas/152/Formatos/Factura.rdlc @@ -477,7 +477,7 @@ true - 6.39118in + 6.74118in 0.06752in 1.60919in 8.23953in @@ -2187,7 +2187,7 @@ Textbox5 - 13.24259cm + 14.13159cm 0.24983cm 0.05496cm 20.88652cm @@ -2408,7 +2408,7 @@ Textbox4 - 13.40338cm + 14.29238cm 0.16383cm 2.44366cm 15.5106cm @@ -2443,7 +2443,7 @@ Textbox19 - 5.26303in + 5.61303in 6.21617in 0.17708in 0.94607in @@ -2478,7 +2478,7 @@ Textbox19 - 5.4555in + 5.8055in 6.21616in 0.17966in 0.94607in @@ -2513,7 +2513,7 @@ Textbox19 - 5.65449in + 6.00449in 6.21616in 0.18819in 0.94607in @@ -2548,7 +2548,7 @@ Textbox19 - 5.86074in + 6.21074in 6.22658in 0.17119in 0.94607in @@ -2584,7 +2584,7 @@ Textbox19 - 6.05137in + 6.40137in 6.237in 0.19596in 0.94607in @@ -2620,7 +2620,7 @@ Textbox42 - 5.28803in + 5.61303in 7.16224in 0.17708in 0.98426in @@ -2655,7 +2655,7 @@ Textbox42 - 5.4805in + 5.8055in 7.16224in 0.17966in 0.98425in @@ -2690,7 +2690,7 @@ Textbox42 - 5.67949in + 6.00449in 7.17266in 0.18819in 0.98425in @@ -2726,7 +2726,7 @@ Textbox42 - 5.88574in + 6.21074in 7.17266in 0.17119in 0.98425in @@ -2762,7 +2762,7 @@ Textbox42 - 6.07637in + 6.40137in 7.18308in 0.19596in 0.98425in @@ -2792,7 +2792,7 @@ Textbox5 - 16.1081cm + 16.9971cm 0.10579cm 0.05496cm 20.88652cm @@ -2808,44 +2808,6 @@ 2pt - - true - true - true - - - - - < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > - - - - - - 2pt - 2pt - 2pt - 2pt - - Embedded ID2 @@ -2854,7 +2816,7 @@ 1.15361cm 2.413cm 2.75323cm - 29 + 28 @@ -2911,7 +2873,7 @@ 1.16095cm 0.62233cm 9.17089cm - 30 + 29 @@ -2952,7 +2914,7 @@ 10.47295cm 0.64039cm 9.53276cm - 31 + 30 =IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") > 0),false,true) @@ -3001,7 +2963,7 @@ 1.15361cm 1.32415cm 19.15078cm - 32 + 31 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20774,1,0), "DsOC") > 0),false,true) @@ -3043,7 +3005,7 @@ 1.15361cm 1.05791cm 19.15078cm - 33 + 32 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20775,1,0), "DsOC") > 0),false,true) @@ -3057,8 +3019,61 @@ 2pt + + true + true + true + + + + + < ** Toda corrección de los datos del comprobante debera efectuarse a más tardar tres dias despues de su expedición. ** > + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + LogoLlantas1 + FitProportional + 12.6957cm + 0.1589cm + 0.85359cm + 20.86494cm + 34 + + + + - 20.32094cm + 21.20994cm