Hello:

We have a VB Application instaled in some terminals wich hacve to acces to the same BaaN client. If one of those terminals has a BaaN session open, and another tries to connect BaaN An "error 430" happens. Now we are queueing the requests to connect BaaN but It makes the performance to fall untill the application becomes unsuitable.

¿Anybody knows how to solve or avoid this situation?
¿Is there information about the Methods of the class BaaN4.Application?

Thank you

Hi King Willy,

First of all I want to say I am not a developer but the last few days I learnt one thing. In case you used an OLE interface with BAAN then it will not be able to support multiple users/clients trying to access the same interface at the same time.

I do not know if this is what happens in your situation so please explore other alternatives like AFS.

Regards,

Edwin

First of all I want to say I am not a developer but the last few days I learnt one thing. In case you used an OLE interface with BAAN then it will not be able to support multiple users/clients trying to access the same interface at the same time.


Not entirely true. Each OLE interface cannot be shared once started (security issue), but two or more OLE interfaces can be started in parallel. Each bwc file will have to be named differently, and each will start a seperate bshell so it's a bit of a license hungry way to use Baan.

We don't use this - but it is possible.

Not entirely true. Each OLE interface cannot be shared once started (security issue), but two or more OLE interfaces can be started in parallel. Each bwc file will have to be named differently, and each will start a seperate bshell so it's a bit of a license hungry way to use Baan.

What Edwin refers to is multiple requests through the same embedded object. In other words, the same VB application starting multiple instances of the client.
In that case, how would you create different names for the different objects?

Thank you all of you.
I will try to combine actual queue of requests and multiple clients.

hi, King Willy

I need to make the same that you(VB Application + to access BaaN client), but i do not find information enough.

can you help me?

Regards,

Paulo_Piri

Hi, Paulo:
I've no information or documents about methods of BaaN4.application class, but I'll help you if I can. ¿Which is the problem?

thank you for the fast reply.

the problem it is that I do not know as to start.

what need i to access to BAAN IV with VB? DLL's? AFS? BOI? OLE Interfaces?

i am completely confused.... :confused:

Please.... HELP ME.

THANK YOU

This is an example of an inventory transfer. In this VB code, we're calling to session tdilc1120m000 and tdilc1122s000 it's a very simple example, but i think it may help you. There're another examples in directory /baan/samples and there's another good example in Baanboard.com (try searching "Excel to BaaN" in "AFS/DDC/OLE: Function servers".

Sorry for the mistakes in the comments of the script, I know ny englis is not very good, pero lo compenso con mi perfecto conocimiento de la lengua de Cervantes.

Hi all,

First of all, I'm newest in BAAN :cool:
I have connected with sucess to Baan using VB .NET, converting/using the sample of folder of BAAN, but i didn't understand simple things that are great things ehehehheheheheheh :p

Function to Send/Receive information to/from BAAN


Public Sub SendToBAAN(ByVal dllname As String, ByVal dllfunction As String)

Dim Ret As String
Dim ReturnValue As Boolean
'Definir como boleano ou integer... vem como funciona

'Conectar ao BAAN
If BAANObj Is Nothing Then
Ret = ConnectBAAN()
If Ret <> "0" Then
MsgBox(Ret, MsgBoxStyle.Critical)
Exit Sub
End If
End If

BAANObj.ParseExecFunction(dllname, dllfunction)
' check result
ErrorMSG = ""

If BAANObj.Error <> 0 Then
Select Case BAANObj.Error
Case Is = -1
ErrorMSG = "DLL Unknown!"
Case Is = -2
ErrorMSG = "Function Unknown!"
Case Is = -3
ErrorMSG = "Syntax Error in Function Call!"
End Select
MsgBox("Call to BAAN DLL failed, error = " & ErrorMSG, MsgBoxStyle.Critical)
DisconnectBAAN()
End If
ReturnValue = Val(BAANObj.ReturnValue)
Errorsw = False
If ReturnValue = False Then
Errorsw = True
End If
Exit Sub
AutomationError:
MsgBox("BAAN IV automation error: " & BAANObj.Error, MsgBoxStyle.Critical)
End Sub



dllName = "otdsls4120m000f"

dllFunction = "tdsls4120m000f.put.Ordem_de_venda.tdsls045.orno(" + OrdVenda + ")"
Call SendToBAAN(dllName, dllFunction)


I have some questions...

When start my connection to BAAN how do i define my User/Pass?
It's shows me a form, it's possible to do this automaticly?

Other thing is, the BAAN where i'm trying to connect has a lot of enterprises, how can i set which enterprise i want to work with?
When dllName was created it was to a certain enterprise or it's for all?
I hope you understand my confusing question!!! :D

What is ".BWC"?

Sorry for my english :eek:
:D

HI again... :cool:

I heard that one user is associated to a certain company, that's right?
If i want to change it, how can i set the company i want to work?

The other thing i refered, is that when BAAN application is loaded the default user is also loaded. It's possible to change the user when i'm connecting to BAAN?

Best regards,

Nuno