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/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index aae731e67..f08a19c90 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1504,7 +1504,8 @@ Public Class ClsMovimientos Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha, - Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean + Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha, + Optional CveCondicionesPago As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepRecuperacion") With SqlAdapter.SelectCommand.Parameters @@ -1528,6 +1529,7 @@ Public Class ClsMovimientos .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor + .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 79e01ee58..1a8716066 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -144,13 +144,14 @@ Public Class ClsVentas End Sub #End Region - Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer, Optional VerificaAlmacen As Boolean = True) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@VerificaAlmacen", SqlDbType.Bit).Value = If(VerificaAlmacen, 1, 0) End With Try @@ -1421,7 +1422,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 +1450,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 +1557,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 +1590,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 +1611,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 +1644,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 +1664,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 MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") @@ -1688,9 +1697,12 @@ Public Class ClsVentas .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle + .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje .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 @@ -3112,7 +3124,7 @@ Public Class ClsVentas Else If showalert Then - Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError) + Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgAdvertencia) End If End If Else diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 2f98c6f49..95cad2ac0 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3920,7 +3920,7 @@ Public Class Timbrado #Region "Timbra" If ArchivoGenerado Then - cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion) + cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, TimbraProduccion) sw.Stop() swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds) 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 diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index fd05105d7..de7391935 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1523,7 +1523,7 @@ Partial Class Bancos_PopIEVentas Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1ba70513e..dc8dcf979 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -929,7 +929,7 @@ Partial Class Bancos_ProveedoresAbonar Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 927dddc9b..6f700aebb 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ 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); 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..55031430c 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") @@ -6899,7 +6900,7 @@ Partial Class Compras_Compras Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then ErrorPrepoliza = True End If End If @@ -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/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 66dec1738..11c6901a0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2041,7 +2041,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/Empresas/152/Formatos/Factura.rdlc b/Empresas/152/Formatos/Factura.rdlc index 89c1786d6..7716e04b4 100644 --- a/Empresas/152/Formatos/Factura.rdlc +++ b/Empresas/152/Formatos/Factura.rdlc @@ -2620,7 +2620,7 @@ Textbox42 - 5.91303in + 5.61303in 7.16224in 0.17708in 0.98426in @@ -2655,7 +2655,7 @@ Textbox42 - 6.1055in + 5.8055in 7.16224in 0.17966in 0.98425in @@ -2690,7 +2690,7 @@ Textbox42 - 6.30449in + 6.00449in 7.17266in 0.18819in 0.98425in @@ -2726,7 +2726,7 @@ Textbox42 - 6.51074in + 6.21074in 7.17266in 0.17119in 0.98425in @@ -2762,7 +2762,7 @@ Textbox42 - 6.70137in + 6.40137in 7.18308in 0.19596in 0.98425in 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/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index af21343d2..7f5d10e5c 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4874,10 +4874,9 @@ Partial Class Inventarios_RecepcionAlmacen Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() Dim Serie As String = RowExcel("Serie").ToString() - Dim Lote As String '= RowExcel("Lote").ToString() - Dim FechaCaducidad As Date '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate) - Dim Observaciones As String '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString - + Dim Lote As String = "" '= RowExcel("Lote").ToString() + Dim FechaCaducidad As Date = MinFecha '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate) + Dim Observaciones As String = "" '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString Dim Valido As Boolean = True diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx index 738610fb6..5fe457b7e 100644 --- a/Inventarios/RepEntradasSalidas.aspx +++ b/Inventarios/RepEntradasSalidas.aspx @@ -208,7 +208,9 @@ - + diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index aa7f9afff..33a3b9bc3 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -293,7 +293,13 @@ Partial Class Inventarios_ReporteEntradasSalidas Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CvePS").ToEntero <= 0 Then + e.Row.CssClass = "Totales" + Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM) + 'e.Row.Cells(0).Text = $"{e.Row.DataKey("Codigo")}" + e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" + 'e.Row.Cells(4).Text = $"{e.Row.DataKey("PS")}" + Else e.Row.Cells(9).BackColor = Drawing.Color.LightGray e.Row.Cells(13).BackColor = Drawing.Color.LightGray @@ -306,6 +312,14 @@ Partial Class Inventarios_ReporteEntradasSalidas e.Row.FCLabel("lbEntradaImp").Text = If(e.Row.DBCampo("EntradaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("EntradaImp").ToDouble.ToString("N2")) e.Row.FCLabel("lbSalidaImp").Text = If(e.Row.DBCampo("SalidaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SalidaImp").ToDouble.ToString("N2")) e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2")) + + + + + '0,1,4 + + + End If End If diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx index 865f278ec..5df327151 100644 --- a/Inventarios/RepExistenciasCostos.aspx +++ b/Inventarios/RepExistenciasCostos.aspx @@ -132,7 +132,7 @@ - + diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb index ad3a4570a..6b6945618 100644 --- a/Inventarios/RepExistenciasCostos.aspx.vb +++ b/Inventarios/RepExistenciasCostos.aspx.vb @@ -60,7 +60,7 @@ Partial Class Inventarios_RepExistenciasCostos Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso Request("FechaI") IsNot Nothing AndAlso Request("FechaF") IsNot Nothing Then ' Alert(Request("CvePS").ToString, TipoMensaje.MsgAdvertencia) - Dim CveAlmacen = IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero + Dim CveAlmacen As String = IfNull(Request("CveAlmacen"), "-1").ToString CargaDatos(Request("CvePS").ToString.Trim.ToEntero, Request("CveProveedor").ToString.Trim.ToEntero, @@ -129,6 +129,8 @@ Partial Class Inventarios_RepExistenciasCostos DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) DdlAlmacen.DataBind() DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) + If Not IsNothing(Request("CveAlmacen")) Then If DdlAlmacen.Items.FindByValue(Request("CveAlmacen").ToString) Is Nothing Then Dim CveAlmacen = Request("CveAlmacen").ToString @@ -174,7 +176,7 @@ Partial Class Inventarios_RepExistenciasCostos CargaDatos(CvePS, CveProveedor, CveMoneda, CveConcepto, fechaI, fechaF, CveAlmacen, CveClasificacion, DdlPersonal.SelectedValue.ToEntero) End Sub - Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As Integer, CveClasificacion As Integer, CvePersonal As Integer) + Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As String, CveClasificacion As Integer, CvePersonal As Integer) If CvePS > 0 Then LnkKardex.Visible = True LnkKardex.NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}", CvePS) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index a35765415..db965ef7c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -644,15 +644,6 @@ Partial Class Inventarios_TraspasoAlmacen Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1") - 'If UsuarioActual.CveEmpresa = 140 Then - ' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero - - ' If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then - ' tSerie = "-1" - ' End If - - 'End If - Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad) If Valido Then @@ -1476,16 +1467,6 @@ Partial Class Inventarios_TraspasoAlmacen Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie")) - ''codigo temporal - 'If UsuarioActual.CveEmpresa = 140 Then - ' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero - - ' If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then - ' AplicaSerie = False - ' End If - - 'End If - ThSerie.Visible = AplicaSerie TdSerie.Visible = AplicaSerie TxtnSerie.Visible = AplicaSerie 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/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index df473c7fe..aa488d514 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -133,7 +133,7 @@ - + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 08500af56..bba882c29 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -623,11 +623,9 @@ Partial Class Ventas_ClientesAbonar If RblTipoPago.SelectedValue = "1" Then - Dim ValFechaDocumento As Boolean = False - Dim FoliosFechasValFechaDocumento As New StringBuilder - - FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
    ") + Dim FoliosFechasValFechaDocumento As New StringBuilder + FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
    ") For Each gvRowVal As GridViewRow In GvCxC.Rows @@ -813,26 +811,12 @@ Partial Class Ventas_ClientesAbonar Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If End If - 'If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then - ' If ObjIE.DtResultados.Rows.Count > 0 Then - ' Dim tFecha As Date = TxtFechaDocumento.Text.ToDate - ' Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day) - ' Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC") - - ' If drr IsNot Nothing Then - ' FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate - ' TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal - ' End If - - ' End If - 'End If - If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then dtConceptos = ObjMov.DtResultados End If @@ -2586,7 +2570,7 @@ Partial Class Ventas_ClientesAbonar Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If 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 diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index d2e5e16a1..ba350812e 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -215,7 +215,7 @@ - +
    @@ -289,6 +289,14 @@
    +
    + +
    + + + + +
    @@ -298,27 +306,21 @@
    - - -
    - -
    - - +
    - - +
    - + - - + +
    +
    Garantía?:
    @@ -329,11 +331,26 @@
    - + + +
    + + + + + +
    + +
    + +
    +
    +
    +
    - +
    diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 03dadcde8..f7a31600e 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -63,11 +63,12 @@ Partial Class Ventas_RepProductosServicios SetValues() If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then - LblLitraje.Visible = True DvLitraje.Visible = True 'garantia divgarantia1.Visible = True divgarantia2.Visible = True + divdistribuidor1.Visible = True + divdistribuidor2.Visible = True End If End If @@ -250,9 +251,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 +287,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 @@ -364,11 +368,15 @@ Partial Class Ventas_RepProductosServicios FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1") FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1") - Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}", - e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"), - e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), - e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"), - FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0)) + Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19} + &FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30} + &TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}", + e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"), + e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), + e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"), + FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, + CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0), + e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor")) e.Row.FCLiteral("LtlGrupo").Text = String.Format("{2}", Css, Liga, e.Row.DBCampo("Gpo")) diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx index aa7f05f21..aca9dc857 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx +++ b/Ventas/RepProductosServiciosDetalle.aspx @@ -315,10 +315,41 @@ - +
    - + + + + +
    +
    + Garantía?: +
    +
    + + + + + +
    + + +
    + + + + + +
    +
    + +
    + +
    +
    + +
    diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 6d18f91e3..48888726d 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -316,6 +316,11 @@ Partial Class Ventas_RepProductosServiciosDetalle CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero + DdlGarantia.SelectedValueExist(If(Request("EsGarantia") IsNot Nothing AndAlso Request("EsGarantia").ToEntero() > 0, Request("EsGarantia").ToEntero(), -1).ToString) + DdlCondicionesPago.SelectedValueExist(If(Request("CveCondicionesPago") IsNot Nothing AndAlso Request("CveCondicionesPago").ToEntero() > 0, Request("CveCondicionesPago").ToEntero(), -1).ToString) + DdlDistribuidor.SelectedValueExist(If(Request("EsDistribuidor") IsNot Nothing AndAlso Request("EsDistribuidor").ToEntero() > 0, Request("EsDistribuidor").ToEntero(), -1).ToString) + ChkLitraje.Checked = Request("MostrarLitraje") IsNot Nothing AndAlso Request("MostrarLitraje").ToEntero() > 0 + TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero DdlTipoCliente.SelectedValueExist(TipoCliente) @@ -324,9 +329,11 @@ 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 +364,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 @@ -380,6 +393,14 @@ Partial Class Ventas_RepProductosServiciosDetalle txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text) + If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then + DvLitraje.Visible = True + 'garantia + divgarantia1.Visible = True + divgarantia2.Visible = True + divdistribuidor1.Visible = True + divdistribuidor2.Visible = True + End If If FechaEjec <> "-1" Then TxtFechaIEjec.Text = FechaEjec @@ -464,7 +485,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, MostrarLitraje:=ChkLitraje.Checked, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados TmpDT = ObjVentas.DtResultados Else @@ -616,8 +637,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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4d42a9454..c42c53288 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11072,7 +11072,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" @@ -14897,7 +14897,7 @@ Partial Class Ventas Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If @@ -25462,7 +25462,7 @@ Partial Class Ventas Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha) If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then - If UltimaFluctuacion.FechaFluctuacion < tFecha Then + If UltimaFluctuacion.FechaFluctuacion <= tFecha Then FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion End If diff --git a/vwd.webinfo b/vwd.webinfo index 7266d7de6..e457e81ff 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -410,6 +410,8 @@ + +