--ajustes de concepto 04 con activos fijos

Ventas/Ventas.aspx.vb

@@ -3584,7 +3584,7 @@ Partial Class Ventas
                 DivBloqueoAcceso.Visible = False
             End If
         Else
-            DivBloqueoacceso.Visible = False
+            DivBloqueoAcceso.Visible = False
         End If
     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
             If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then
                 concepto.ObjetoImpuesto = "04"
-                'se ajusta a un centavo, para que se pueda emitir con un centavo.
-                If UsuarioActual.CveEmpresa = 140 Then
-                    concepto.ObjetoImpuesto = "02"
-                    concepto.Descuento = concepto.Descuento - 0.01D
-                    Obj.SubTotal = Obj.SubTotal + 0.01D
-                    Obj.Total = Obj.Total + 0.01D
-                End If
+                ''se ajusta a un centavo, para que se pueda emitir con un centavo.
+                'If UsuarioActual.CveEmpresa = 140 Then
+                '    concepto.ObjetoImpuesto = "02"
+                '    concepto.Descuento = concepto.Descuento - 0.01D
+                '    Obj.SubTotal = Obj.SubTotal + 0.01D
+                '    Obj.Total = Obj.Total + 0.01D
+                'End If
             End If
 
             Timbre.Conceptos.Add(concepto)
@@ -14969,6 +14969,12 @@ Partial Class Ventas
                                     CveVentaAplicar = CveDevolucion
                                     CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                 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"})