Script - Abrir el ERP desde aplicación externa

Creado por David Miralpeix, Modificado el Vie, 31 May a 8:44 A. M. por Adolfo Gonzalvo B

Abrir formulario de objeto, o lanzar un script en concreto desde un programa externo. Previa petición de login si fuera necesario.

Versión 4:

Necesitarán las siguientes aplicaciones:

- ahorainicio.exe: Programa que lanza la aplicación. Puede recibir el parámetro de un id del objeto ahora_link para ejecutarlo.
- lanzalink.exe: Programa que ejecuta un ahora_link. Recibe los parámetros de servidor, base de datos y link.
Utilizaremos el objeto shell para abrir el programa o lanzar el link.

-- Previamente creamos un link asociado a un buscador y a una consulta.
- Se recomienda generar un buscador o un script desde el erp, y el link generado sea el que usemos en el ejemplo.
-- El número 492 hace referencia al IdLink de la tabla ahora_links.
- En este ejemplo generamos un link a un buscador, por lo tanto existe un registro en la tabla buscadores y otro en Ahora_Consultas.
-- Para el ejemplo, creamos un fichero .vbs con la siguiente instrucción.


Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
if not cbool(IsProcessRunning ("pc_055","ahoraini.exe")) then
objShell.Run """C:\Program Files (x86)\AHORA Freeware ERP\AhoraIni.exe""492"
else
objShell.Run """C:\Program Files (x86)\AHORA Freeware ERP\Lib\LanzaLink.exe""miservsql;mibbdd;492 1"
end if
Set objShell = Nothing

'Esta función retorna un boolean indicando si el programa del ERP está abierto
Function IsProcessRunning( strComputer, strProcess )
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strComputer
For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function

Versión 5:

Para Ahora 5 se ha simplificado la aplicación y puede lanzarse de dos formas:

- Mediante la ejecución de un fichero AHR con el texto del IdLink a ejecutar. Esto permite tener un acceso directo en formato "AHR" que abrirá y ejecutará Ahora 5.

- Por línea de comandos al EXE. Si el EXE está abierto ejecutará el IdLink de inmediato, si está cerrado lo abrirá primero y lo ejecutará después.

No es necesario en Ahora 5 lanzar ninguna aplicación externa, el propio EXE lo gestiona todo.

Es importante establecer el contexto en la carpeta de instalación del ERP.

Por ejemplo, esto ejecutaría desde Windows el IdLink 361:

C:\Program Files\AHORA\AHORA ERP 5\AhoraERP.exe 361

Por ejemplo: Un acceso directo que ejecutaría el IdLink 384, que en mi caso es el nodo de gestión de licencias.