-- GDiaz, si not tiene pago, que permita para ecommerce

Inventarios/EntregaAlmacen.aspx.vb

@@ -6,8 +6,6 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-
-
 Partial Class Inventarios_EntregaAlmacen
     Inherits ClsPaginas
 
@@ -699,8 +697,8 @@ Partial Class Inventarios_EntregaAlmacen
                             Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("")
 
                             LtlRegistra.Text = drvs("VendedorNombre").ToString
-
-                            If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then
+                            'subproyecto e-commerce, si se permite surtir, sin tener registro de pago. cvesubproyecto:12849
+                            If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CveSubProyecto").ToString <> "12849" AndAlso (drvs("CondicionesPago").ToString = "0" OrElse drvs("TipoDocto").ToString = "Rem") Then
                                 Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError)
                                 BtnGuardar.Visible = False
                             End If
@@ -3458,11 +3456,11 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             Limpia()
-                CargaPendientes()
-                LimpiaCampos()
-                CargaBitacora = False
-            Else
-                ObjInventario.RollBack()
+            CargaPendientes()
+            LimpiaCampos()
+            CargaBitacora = False
+        Else
+            ObjInventario.RollBack()
             Alert(TextoError.ToString(), TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If