-concepto null, y folio poliza

PortalCliente/PortalCliente.aspx.vb

@@ -543,7 +543,7 @@ Partial Class Ventas_PortalCliente
 
 #Region "  PAGO PROSEPAGO  "
     Private Sub InicializaProsepago()
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 145) Then
             GvCxC.Columns(10).Visible = False
             LBPagar.Visible = False
         End If
@@ -632,7 +632,7 @@ Partial Class Ventas_PortalCliente
 
         Dim uriString = ""
         Select Case UsuarioActual.CveEmpresa
-            Case 1, 4, 7, 11, 12
+            Case 1, 4, 7, 11, 12, 145
                 uriString = "https://www.prosepago.com/tvirtual/tvds.aspx?ppost=1&t=123" ' VSH SEGURIDAD
             Case Else
                 Alert("Sin terminal de pago configurada. Por favor comuniquese con su proveedor para verificar.", TipoMensaje.MsgAdvertencia)