From d8072a99057c1b1762d68f719e950a02cc546425 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Dec 2020 12:13:35 -0700 Subject: [PATCH] -- considerar los usados, en las nc --- Compras/Compras.aspx.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index da0b58856..2513846b6 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3958,6 +3958,7 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + '------------------INICIA VALIDACIONES------------------ Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 @@ -6795,6 +6796,19 @@ Partial Class Compras_Compras importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora + + Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable() + Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS") + Select New With + { + .Total = dr2.Field(Of Double)("Total") + }).Sum(Function(item) item.Total) + + importeMovimiento += Valor.ToDecimal + importeMN = importeMovimiento * tipoCambioActual * Multiplicador + End If + Dim ConceptoContabilizacionNC = 225 Dim CveMovimientoDevolucion As Integer = -1