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

- si laNC ya tiene relacionados pueda eliminarlo

Browse Source
This commit is contained in:
rrene
2020-04-01 20:50:32 -07:00
parent 075ade333c
commit bb81993a47
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -2942,9 +2942,10 @@ Partial Class Compras_Compras
'TIENE AMORTIZACIÓN 'TIENE AMORTIZACIÓN
If GvAnticiposSel.Rows.Count > 0 Then If GvAnticiposSel.Rows.Count > 0 Then
BtnEliminarCompra.Visible = False
If Not DdlTipoComprobante.SelectedValue.Contiene("NC") Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC") Then
BtnCancelarCompra.Visible = False BtnCancelarCompra.Visible = False
BtnEliminarCompra.Visible = False
End If End If
End If End If
@@ -5074,8 +5075,8 @@ Partial Class Compras_Compras
For Each dr As DataRow In DtInv.Rows For Each dr As DataRow In DtInv.Rows
If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then
'hay que restarle descuento
importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar) 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 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 ErrorMovInv = True
@@ -5158,6 +5159,7 @@ Partial Class Compras_Compras
Dim PUInv As Double Dim PUInv As Double
Dim CveUnidad As Integer Dim CveUnidad As Integer
Dim CostoIndirecto As Double Dim CostoIndirecto As Double
Dim tDescuento As Decimal = 0
ListaMovimientosAlmacen.Add(CveMovimientoInventario) ListaMovimientosAlmacen.Add(CveMovimientoInventario)
@@ -5168,6 +5170,7 @@ Partial Class Compras_Compras
CveUnidad = Dr("CveUM").ToString.ToEntero CveUnidad = Dr("CveUM").ToString.ToEntero
CantidadInv = Dr("Cantidad").ToString.ToDouble CantidadInv = Dr("Cantidad").ToString.ToDouble
PUInv = Dr("PU").ToString.ToDouble PUInv = Dr("PU").ToString.ToDouble
tDescuento = Dr("Descuento").ToString.ToDecimal / CantidadInv.ToDecimal
CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble
If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
@@ -5202,7 +5205,7 @@ Partial Class Compras_Compras
End If End If
'si no es por serie lote '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) ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then 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 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