--FIX para E01

Ventas/PVCobranza.aspx.vb

@@ -523,7 +523,7 @@ Partial Class Ventas_PVCobranza
                 HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago")
                 HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza")
 
-                If UsuarioActual.CveEmpresa = 189 AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then
+                If UsuarioActual.CveEmpresa.Contiene(189, 1) AndAlso GvRow.DataKey("TipoDocto") = "Rem" Then
                     DivAnticipo.Visible = True
                     ImgAntiPend.Visible = True
                 End If
@@ -572,6 +572,9 @@ Partial Class Ventas_PVCobranza
     End Sub
 
     Private Sub BtnPagar_Click(sender As Object, e As EventArgs) Handles BtnPagar.Click
+
+        Dim GenerarFac As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 189, 197)
+
         'registrar pago
         Dim VentaContado As Boolean = HdnVentaCondicionesPago.Value = "0"
 
@@ -680,7 +683,7 @@ Partial Class Ventas_PVCobranza
             Dim PlazoCobranza As Integer = HdnPlazoCobranza.Value.ToEntero
             Try
                 'FACTURAR LA REMISION PARA HACER EL PAGO
-                If UsuarioActual.CveEmpresa.Contiene(1, 189, 197) AndAlso VentaActual.TipoDocto = "Rem" Then
+                If GenerarFac AndAlso VentaActual.TipoDocto = "Rem" Then
 
                     CveVentaRemision = HdnCveVenta.Value.ToEntero