ISTech Support Forum

ISTech Support Forum
http://www.istechforum.com/YaBB.pl
Evo-ERP and DBA Classic >> Suggestions for Updates >> Ext. UDF (SU-A)
http://www.istechforum.com/YaBB.pl?num=1416865861

Message started by Kelloggs on 11/24/14 at 14:51:01

Title: Ext. UDF (SU-A)
Post by Kelloggs on 11/24/14 at 14:51:01

This idea have been very useful to us. The Ext UDF is capable of passing "values" to any external program.
Right inside EVO we are able to call any supporting application now.

We use it to call our own "Non-Conformance" and "Pressure Testing Reports" Application, among others.
And by converting the Grid into a Program we are able to create our own menus.

But there is a problem, if Allen can have the "External Call" button to close the grid would be great! because right now it stays open.

http://www.incanet.ca/dba/var/albums/udf_ext.JPG?m=1416864105

On the "WORKORDERS" Grid we are calling "wo_link.exe" Evo is passing the MTWO_WIP_WOPRE and MTWO_WIP_WOSUF as parameters.

Here is the code (VB6)

Dim var_sql As String
'------------------------------------------
'------------------------------------------
Public odbc_msa As String
Public conn_msa As New ADODB.Connection
Public rs_msa As New ADODB.Recordset
Public cmd_msa As New ADODB.Command
'------------------------------------------
'------------------------------------------

Public Sub Main()
Dim dblProcesID As Double
Dim WrdArray() As String

app_db = App.Path & "\wo_link.mdb" 'Your ms access database
app_exe = "C:\Program Files (x86)\Microsoft Office\OFFICE11\MSACCESS.EXE " 'Path to your MS Access Executable Note there is a space at the end
odbc_msa = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & app_db & ";" '12.0 for MS Access 2003

'Evo's Parameters
WrdArray() = Split(Command$)
For i = LBound(WrdArray) To UBound(WrdArray)
If i = 0 Then
wo_pre = WrdArray(i)
Else
If i = 2 Then
wo_suf = WrdArray(i)
End If
End If
Next i

'Delete Previus Record
var_sql = "DELETE FROM local_link;"
msa_conn (var_sql)

'Insert New Record
var_sql = "INSERT INTO local_link (wo_pre, wo_suf) VALUES (" & wo_pre & "," & wo_suf & ");"
msa_conn (var_sql)

'Open DB
dblProcesID = Shell(app_exe & app_db, vbNormalFocus)

'Exit App
End

End Sub

Public Sub msa_conn(the_sql As String)
conn_msa.ConnectionString = odbc_msa
conn_msa.Open

Set cmd_msa.ActiveConnection = conn_msa
cmd_msa.CommandText = the_sql
cmd_msa.Execute

conn_msa.Close

End Sub

:P

Kelloggs