From afe6c3ce2e88dd2dd1185b6fe642768fee39754f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 2 Apr 2020 10:20:01 -0700 Subject: [PATCH] Agregar el concepto 1 en facturas en 0 --- Ventas/Ventas.aspx.vb | 6 +++--- vwd.webinfo | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c07c65184..db4d0f6e2 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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("
" & 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 diff --git a/vwd.webinfo b/vwd.webinfo index 40d1fe36c..1d2829323 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -44,6 +44,8 @@ + +