diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 51c7abcef..88c21703a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9605,7 +9605,7 @@ Public Class ClsPaginas 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 AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then 'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion TCValuacion = UltimaFluctuacion.TCFluctuacion End If @@ -9803,6 +9803,7 @@ Public Class ClsPaginas Public Property CveProveedor As Integer Public Property CveTipoConceptoProveedor As Integer Public Property CveMoneda As Integer + Public Property Fecha As Date Public Property SerieFolio As String = "" Public Property ProveedorNombre As String = "" Public Property EsImportacion As Boolean = False diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 710d7e509..e406742b0 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -829,6 +829,7 @@ Partial Class Bancos_ProveedoresAbonar CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero + CompraActual.Fecha = gvr.DataKey("Fecha").ToDate CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = gvr.DataKey("TipoCambioOriginal").ToDecimal diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 535bfd2ea..a2b031560 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4102,7 +4102,7 @@
- diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 61f2e8b7f..347adce03 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1819,7 +1819,7 @@ Partial Class Compras_Compras Xml = System.Web.HttpUtility.HtmlDecode(Xml.ToString) Xml = Xml.Replace(Chr(13), "") 'salto de linea Xml = Xml.Replace(Chr(10), "") - Xml = Xml.Replace("
", "") 'adicional, si hay otros + Xml = Xml.Replace("
", "") 'salto de linea html Xml = Xml.Replace("&", "") 'adicional, si hay otros If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then @@ -4834,6 +4834,7 @@ Partial Class Compras_Compras CompraActual.CveTipoConceptoProveedor = CveTipoConcepto CompraActual.CveProveedor = CveProveedor CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraActual.Fecha = TxtFecha.Text.ToDate CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = TipoCambio @@ -5753,7 +5754,6 @@ Partial Class Compras_Compras Dim FechaMovimiento As Date = TxtFecha.Text.ToDate Dim DT As DataTable = Nothing Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder Dim ConceptoPersonal As String = "" Dim IdCtaIVAXAcreditar As Integer = 0 ' Dim IdCtaIVAAcreditable As Integer = 0 @@ -6945,9 +6945,14 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True + Exit For End If End If + Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE} + 'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) Next + Else For Each rw As GridViewRow In GvDeudores.Rows If rw.FCCheckBox("Chk").Checked Then @@ -6957,7 +6962,11 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True + Exit For End If + Dim Pago As New CompraPago With {.ImportePago = importeMovimiento, .CveIE = CveIE} + 'Pago.CveMonedaPago = CveMonedaAnticipo 'pdte + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If Next End If @@ -8423,7 +8432,7 @@ Partial Class Compras_Compras Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal - Dim CvemonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero + Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal If ImporComisionAnticipo = 0 Then @@ -8442,7 +8451,7 @@ Partial Class Compras_Compras Dim Pago As New CompraPago Pago.ImportePago = ImporteAnt Pago.CveIE = CveIE - Pago.CveMonedaPago = CvemonedaAnticipo + Pago.CveMonedaPago = CveMonedaAnticipo Pago.CveCompraAmortizacion = CveCompraNC Pago.CveCreditoDetalle = -1 Pago.OtroGastoIngreso = ImporComisionAnticipo @@ -8453,6 +8462,7 @@ Partial Class Compras_Compras CompraActual.CveTipoConceptoProveedor = CveTipoConcepto CompraActual.CveProveedor = CveProveedor CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraActual.Fecha = TxtFecha.Text.ToDate CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim CompraActual.ProveedorNombre = HplProveedor.Text CompraActual.TC = TipoCambio @@ -8472,9 +8482,7 @@ Partial Class Compras_Compras CompraActual.EsImportacion = chkImportacion.Checked AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta) - End If - End If Next @@ -9329,7 +9337,7 @@ Partial Class Compras_Compras End If 'Removemos los conceptos de la prepoliza - If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO + If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO @@ -10606,8 +10614,8 @@ Partial Class Compras_Compras End Sub Protected Sub GVINV_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvInv.RowUpdating - Dim Cantidad As Double = DirectCast(GvInv.Rows(e.RowIndex).FindControl("txtECantidad"), TextBox).Text.ToDouble - Dim CveUnidadMedida As Integer = DirectCast(GvInv.Rows(e.RowIndex).FindControl("ddlEUnidad"), DropDownList).SelectedValue.ToString.ToEntero + Dim Cantidad As Double = GvInv.Rows(e.RowIndex).FCTextBox("txtECantidad").Text.ToDouble + Dim CveUnidadMedida As Integer = GvInv.Rows(e.RowIndex).FCDropDownList("ddlEUnidad").SelectedValue.ToString.ToEntero DtInv.Rows.Item(e.RowIndex)("Cantidad") = Cantidad DtInv.Rows.Item(e.RowIndex)("CveUM") = CveUnidadMedida diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 914246a36..ea30d6a2b 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -690,6 +690,7 @@ Partial Class Compras_ReembolsosComprobaciones CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero + CompraActual.Fecha = gvr.DataKey("Fecha").ToDate CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString CompraActual.ProveedorNombre = gvr.DataKey("Proveedor") CompraActual.TC = gvr.DataKey("TipoCambio").ToDecimal diff --git a/Scripts/funciones.js b/Scripts/funciones.js index 1135fd9a1..c28864b85 100644 --- a/Scripts/funciones.js +++ b/Scripts/funciones.js @@ -1093,9 +1093,10 @@ function FormatoNumero(Importe, Decimales) { if (isNaN(parseInt(Importe))) return "NaN"; Decimales = Decimales || 2; // parametro opcional, toma el valor 2 por default // var tmpNum = Importe; - - - var tmpNum = parseFloat(Importe).toFixed(Decimales) + + + //var tmpNum = parseFloat(Importe).toFixed(Decimales) //se comenta por el redondeo de $3037.095 + var tmpNum = +(Math.round(Importe + "e+" + Decimales) + "e-" + Decimales); tmpNum = Number(tmpNum).toLocaleString('en'); //tmpNum = tmpNum.toFixed(2).replace(/./g, function (c, i, a) {