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

--ajustes de concepto 04 con activos fijos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-29 17:15:38 -07:00
parent 66900b46fb
commit 2324bf20b7
1 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Ventas/Ventas.aspx.vb
View File

@@ -3584,7 +3584,7 @@ Partial Class Ventas
DivBloqueoAcceso.Visible = False DivBloqueoAcceso.Visible = False
End If End If
Else Else
DivBloqueoacceso.Visible = False DivBloqueoAcceso.Visible = False
End If End If
End Sub End Sub
@@ -12955,13 +12955,13 @@ Partial Class Ventas
'si el codigo objeto impuesto es 02 y no tiene desglose de impuestos por el descuento, debe asignar el valor 04 - Si objeto de impuesto y no causa impuesto 'si el codigo objeto impuesto es 02 y no tiene desglose de impuestos por el descuento, debe asignar el valor 04 - Si objeto de impuesto y no causa impuesto
If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then
concepto.ObjetoImpuesto = "04" concepto.ObjetoImpuesto = "04"
'se ajusta a un centavo, para que se pueda emitir con un centavo. ''se ajusta a un centavo, para que se pueda emitir con un centavo.
If UsuarioActual.CveEmpresa = 140 Then 'If UsuarioActual.CveEmpresa = 140 Then
concepto.ObjetoImpuesto = "02" ' concepto.ObjetoImpuesto = "02"
concepto.Descuento = concepto.Descuento - 0.01D ' concepto.Descuento = concepto.Descuento - 0.01D
Obj.SubTotal = Obj.SubTotal + 0.01D ' Obj.SubTotal = Obj.SubTotal + 0.01D
Obj.Total = Obj.Total + 0.01D ' Obj.Total = Obj.Total + 0.01D
End If 'End If
End If End If
Timbre.Conceptos.Add(concepto) Timbre.Conceptos.Add(concepto)
@@ -14969,6 +14969,12 @@ Partial Class Ventas
CveVentaAplicar = CveDevolucion CveVentaAplicar = CveDevolucion
CveVentaAmortizacionAplicar = ObjFactura.CveVenta CveVentaAmortizacionAplicar = ObjFactura.CveVenta
End If End If
'verifico que el AF, tenga valores iguales cuando esté vacío o "-1"
Dim drs As DataRow() = TmpDTDetalle.Select(" CveActivoFijo IS NULL")
For Each dr As DataRow In drs
dr("CveActivoFijo") = "-1"
Next
TmpDTDetalle.AcceptChanges()
DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA", "CveActivoFijo"}) DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA", "CveActivoFijo"})