From bb81993a47809144ea2e97cac5a49c6f89e9413d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Apr 2020 20:50:32 -0700 Subject: [PATCH] - si laNC ya tiene relacionados pueda eliminarlo --- Compras/Compras.aspx.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f2811f6ab..86456490a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2942,9 +2942,10 @@ Partial Class Compras_Compras 'TIENE AMORTIZACIÓN If GvAnticiposSel.Rows.Count > 0 Then - BtnEliminarCompra.Visible = False + If Not DdlTipoComprobante.SelectedValue.Contiene("NC") Then BtnCancelarCompra.Visible = False + BtnEliminarCompra.Visible = False End If End If @@ -5074,8 +5075,8 @@ Partial Class Compras_Compras For Each dr As DataRow In DtInv.Rows If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then - - importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar) + 'hay que restarle descuento + importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar) - (If(DdlMoneda.SelectedValue.ToEntero = 1, dr("descuento").ToString.ToDouble, dr("descuento").ToString.ToDouble * TipoCambioGuardar) / dr("cantidad").ToString.ToDouble) If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, dr("pu").ToString.ToDouble), CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then ErrorMovInv = True @@ -5158,6 +5159,7 @@ Partial Class Compras_Compras Dim PUInv As Double Dim CveUnidad As Integer Dim CostoIndirecto As Double + Dim tDescuento As Decimal = 0 ListaMovimientosAlmacen.Add(CveMovimientoInventario) @@ -5168,6 +5170,7 @@ Partial Class Compras_Compras CveUnidad = Dr("CveUM").ToString.ToEntero CantidadInv = Dr("Cantidad").ToString.ToDouble PUInv = Dr("PU").ToString.ToDouble + tDescuento = Dr("Descuento").ToString.ToDecimal / CantidadInv.ToDecimal CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then @@ -5202,7 +5205,7 @@ Partial Class Compras_Compras End If 'si no es por serie lote - ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) + ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) - If(DdlMoneda.SelectedValue.ToEntero = 1, tDescuento, tDescuento * TipoCambioGuardar) ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto) If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDouble), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then