-- correción bloqueo de facturación de remisiones, no surtidad E119

Ventas/Ventas.aspx.vb

@@ -5031,7 +5031,7 @@ Partial Class Ventas
             If Not HplSaldoAuxiliar.Text.ToDouble > 0 Then
                 HplSaldoAuxiliar.Visible = False
                 HplPagado.Visible = True
-                Dim EsCancelado = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5
+                Dim EsCancelado As Boolean = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero() = 5
                 If EsCancelado Then
                     HplPagado.Text = "<b>CANCELADO<b>"
                 End If
@@ -5184,7 +5184,7 @@ Partial Class Ventas
                     DdlTipoRetencion.Visible = True
                 End If
                 If TmpDT IsNot Nothing Then
-                    Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                    Dim PorcentajeRetIVA As Decimal = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
                     LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
                 End If
 
@@ -5575,10 +5575,11 @@ Partial Class Ventas
                     BtnsFacturar.Visible = True
 
                     'E119, bloquear la facturación de remisiones que no estén surtidas
-                    If UsuarioActual.CveEmpresa = 119 AndAlso DbRowVenta("SaldoAlmacen").ToString.ToDecimal = 0 Then
-                        BtnsFacturar.Visible = False
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        If TmpDT.SUM("Cantidad") <> TmpDT.SUM("CantidadInventario") Then 'que ya esté surtida totalmente
+                            BtnsFacturar.Visible = False
+                        End If
                     End If
-
                     LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
 
                     'ACTIVA CONVERSION DE MONEDA