I am using the Function Server.
I want answer "OK" to a question.
How can i do it using the function stpapi.enum.answer()?
If i use tcyesno.yes, the message continues appearing.

I have had some sessions run that received warning messages that I had to process. For example sometimes my manual transfer FS gets warning messages and does not process the transfer. In these cases I just pass the message onto the user and go get the next transfer.

I do not recall any process giving a message and then stopping. What session are you referring to? Someone might have a work around or a solution.

Mark

The session tisfc0202m000 presents the message tisfc02028, which have a answer "OK"

Hello Mark, Hello Gil !

I have used enum.answer like in the example bellow and the question never appeared.


... ... ... ...

stpapi.put.field("tudcbo101m000", "tudcb000.esqu.o", p.esqu)
stpapi.put.field("tudcbo101m000", "tudcb000.desc.o", p.desc)
stpapi.put.field("tudcbo101m000", "tudcb000.dcri.o", p.dcri)
stpapi.put.field("tudcbo101m000", "tudcb000.derr.o", p.derr)
stpapi.put.field("tudcbo101m000", "tudcb000.dfor.o", str$(etol(p.dfor)))
stpapi.put.field("tudcbo101m000", "tudcb000.sepa.o", p.sepa)
stpapi.put.field("tudcbo101m000", "tudcb000.auto.o", str$(etol(p.auto)))
stpapi.put.field("tudcbo101m000", "tudcb000.tipo.o", str$(etol(p.tipo)))
stpapi.enum.answer("tudcbo101m000", "tudcb00001.o", tcyesno.yes)

ret = stpapi.insert("tudcbo101m000", true, o.mess)

if not ret then
ret = stpapi.recover("tudcbo101m000", error.msg)
else
o.mess = "Record Inserted Sucessfully in tudcb000."
execute.tudcbo102s000()
endif
... ... ... ...

Ok.
Thanks to all of you.
My problem was solved.

How did you solve the problem? I just found the message in the code and it looked like you did not tell it how many to complete. Was that it? Just curious.

Thanks

Mark

I did tell it to complete through the session tihra1101m000, when was registered the manufactured quantity.
After i read your comments, i saw that the problem was in the source code.

hi,

i'm having problems on answering to a question in : tdinv1120m000


dllFunction = "tdinv1120m000f.put.Ordem_de_recontagem(" + Ordem + ")"

dllFunction = "tdinv1120m000f.put.Armaz_m(" + Chr(34) + Armazem + Chr(34) + ")"

dllFunction = "tdinv1120m000f.put.Localiza_o_de_stock(" + Chr(34) + CodLocalizacao + Chr(34) + ")"

dllFunction = "tdinv1120m000f.put.Artigo(" + Chr(34) + Artigo.ToUpper + Chr(34) + ")"

dllFunction = "tdinv1120m000f.put.n_mero_de_sequ_ncia(" + NrSequencia + ")"

dllFunction = "tdinv1120m000f.find( )"
RetMsg = ClBAAN.SendToBAAN(BAANObj, BAANInstFerromar, BAANManterRecontagemdll, dllFunction, BaanMessage)
Ret = BAANObj.returnvalue.ToString
If Ret <> "1" Then
ManterRecontagem = "E: Art. n existe na ordem"
Else
'Fill field Stock_contado
dllFunction = "tdinv1120m000f.put.Stock_contado(" + StockAcumulado + ")"

dllFunction = "tdinv1120m000f.define.enum.answer(''tdilc50001'' , tcyesno.yes)"

End If



When i say yes to question "tdinv1120m000f.define.enum.answer(''tdilc50001'' , tcyesno.yes)"
i receive the following erro message : "Syntax Error in Function Call"

Where it should be the problem?

regards,

Nuno

hi there,

i have executed : dllFunction = "tdinv1120m000f.define.enum.answer(''tdilc50001'' , 1)"

and it works.