Agregar el concepto 1 en facturas en 0

Ventas/Ventas.aspx.vb

@@ -10902,7 +10902,7 @@ Partial Class Ventas
 
                     End Select
 
-                    If importeMovimiento <> 0 And Not ErrorPrepoliza Then
+                    If (importeMovimiento <> 0 OrElse (importeMovimiento = 0 AndAlso ObjFactura.Total = 0 AndAlso ConceptoContable = 1)) And Not ErrorPrepoliza Then
 
                         If IdCtaContable <= 0 Then
                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
@@ -10930,7 +10930,7 @@ Partial Class Ventas
 
             End If
 
-            'TRASPASA PAGADO
+            'TRASPASA PAGADO (ObjFacturaNC.Pagado > 0) AndAlso
             If ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso ObjFactura.NuevaFactura = 1 Then
                 If Not ObjConta.TraspasarSaldosPrePolizasRefacturacion(ObjFacturaNC.CveVenta, ObjFactura.CveVenta, ObjFactura.CvePrePoliza, CvePlantilaPoliza, UsuarioActual.CveEmpresa) Then
                     ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
@@ -22252,7 +22252,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-
+        'SOLO APLICA DEVOLUCION SI TIENE MOVIMIENTOS DE ALMACEN
         If VentaSaldoAlmacen < 0 Then
             LBAplicaDevolucion.Visible = True
         ElseIf VentaSaldoAlmacen >= 0 Then

vwd.webinfo

@@ -44,6 +44,8 @@
     
   
     
+  
+