AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras pago compra

Browse Source
This commit is contained in:
rrene
2022-09-22 19:47:25 -07:00
parent f9377a751f
commit 29d8524950
6 changed files with 26 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPaginas.vb
View File

@@ -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

1
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -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

2
Compras/Compras.aspx
View File

@@ -4102,7 +4102,7 @@
<div class="col-md-12">
<asp:UpdatePanel ID="UPDeudores" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron moviemientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor"
<asp:GridView ID="GvDeudores" runat="server" AutoGenerateColumns="False" CssClass="ScrollAD" data-heigth="200px" EmptyDataText="No se encontraron moviemientos" DataKeyNames="CveIE,Saldo,RazonSocial,Folio,CveProveedor,CveMoneda"
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField>

26
Compras/Compras.aspx.vb
View File

@@ -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("<br />", "") 'adicional, si hay otros
Xml = Xml.Replace("<br />", "") '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

1
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -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

7
Scripts/funciones.js
View File

@@ -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) {