QlikView - Configuración AHORA Puente

Creado por David Miralpeix, Modificado el Vie, 16 Feb a 12:28 P. M. por David Miralpeix

En la parte superior derecha se encuentra un botón que nos abrirá los asientos que hayamos seleccionado en una pantalla del ERP, desde la que podremos acceder al documento asociado.

NOTA:

Esta funcionalidad se configura bajo petición normalmente ya que no es posible que un usuario lo pueda configurar.

Para activar esta funcionalidad es necesario definir una función de VB6 en el gestor de módulos de QlikView
(solo para usuarios avanzados o técnicos en QlikView).

El Script de configuración es el siguiente:

sub verAsientos
  
  'set field = ActiveDocument.GetField("IdEjercicio")
  'msgbox(field.GetCardinal)
    
  'msgbox(field.GetFieldCount)
  
  Dim lnumAsientos 'as String
  lEjerciciosCount = ActiveDocument.Variables("vEjerciciosCount").GetContent().String
  
  if cLng(lEjerciciosCount)<>1 Then
    Msgbox  "Solo se puede consultar asientos de UN  EJERCICIO, acote la consulta.",48,"Visualizacion Asientos"
     exit sub
  
  End if
  
  ms = ActiveDocument.GetCurrentModuleSecurity
  if ms <> 2 then
      msgbox "Debe Permitir acceso al Sistema en el Script de Módulo, pulse CTRL+SHIFT+M",48,"ERROR DE SEGURIDAD"
      exit sub
  end if 
  
         ' msgbox "Intentando Puente"
   Set lAhora = CreateObject("AhoraPuente.Puente")
  
   'msgbox "Puente Ok"

  Set lgCn = lAhora.ObtenerConexion
   msgbox "Conexion Realizada"  

  
  if lgCn Is Nothing Then
    msgbox "Abra Ahora ERP con su usuario e inténtelo de nuevo",16,"ERROR CONEXIÓN AHORA ERP"
    exit sub
  End If
  
  Dim lAsientos 'as String
  Dim lEjercicio 'as String
  Dim lEmpresa 'as String

  lAsientos = ActiveDocument.Variables("vAsientos").GetContent().String
  lEjercicio = ActiveDocument.Variables("vEjercicio").GetContent().String  
  lEmpresa = ActiveDocument.Variables("vEmpresa").GetContent().String  
  lEmpresaEntero = CLng(lEmpresa)
  
  lgCn.ConectaEmpresa 0,0,0,lEmpresaEntero
  
  'Dim ltest 'as String 
  ' ltest = "2404,2412"
'  
  'msgbox test

  Set lFrm = lgCn.ahoraproceso("ObjFormConta_Apuntes",False)
    lFrm.carga_extracto CLng(lEjercicio), 0, Nothing, cstr(lAsientos), True
  

  
end sub

Necesitamos ejecutar el exe de Ahora Puente como administradores, lo encontraremos en la ruta de instalación de la aplicación:

C:\Program Files (x86)\AHORA Freeware ERP\Ahora Puente.exe

Daremos acceso al Sistema para ejecutar la macro cuando nos lo solicite QlikView.

Comprobamos que el parámetro Ahora Puente en nuestra base de datos está activado mediante la siguiente consulta:

SELECT * FROM Ceesi_configuracion WHERE Parametro = 'ACTIVAPUENTE'

En caso de que se encuentre a OFF, lo activaremos o solicitaremos su activación.

UPDATE Ceesi_configuracion SET Valor = 'ON' WHERE Parametro = 'ACTIVAPUENTE'