Hello all,

I am working now in Baan IV again, I am trying to generate sales orders using AFS, but normally when I create a sales orders externally and I put order date older than today session launch a warning message that not avoid to save the order header, but when I trying to make same process way AFS in syntaxis "stpapi.insert" return value is zero and mess returns "Order date older today". And record is NOT SAVE....

Same behaviour appears when order is blocking automatically, when I create external way message appears but I can continue creating order header, and when I generate way AFS, stpapi.insert returns 0 and I can't create and save record.

How can I do in order to simulate external process using AFS, I mean, ignore message and save record header.

Thanks in advance,

Is it a message or a question?

And its son strange because en Baan V (i did the same process) and the messages are auto aceppt and the process continues, but in Baan IV the message stop the process and record is not save. What is the last solution known about tools objects in Baan IV? I have installed 2051822stnd but I have read about solution 206149stnd of november 2005, is this the last solution?

Thanks in advanced.

Sorry I do not know the latest solution, but that is not typical for Baan 4. I think I get the same type message on creating purchase orders - I just ignore it.

Hello

The following code works o.k. for me.


stpapi.put.field("tdsls4101m000", "tdsls040.orno", str$(tdbow002.grno))
stpapi.put.field("tdsls4101m000", "tdsls040.cuno", str$(tdbow002.cuno))
stpapi.put.field("tdsls4101m000", "tdsls040.cotp", str$(tdbow002.cotp))
stpapi.put.field("tdsls4101m000", "tdsls040.eono", str$(tdbow002.eono))
stpapi.put.field("tdsls4101m000", "tdsls040.odat", str$(tdbow002.odat))
stpapi.put.field("tdsls4101m000", "tdsls040.prdt", str$(tdbow002.prdt))
if tdbow002.ddat < date.num() then
stpapi.put.field("tdsls4101m000", "tdsls040.ddat", str$(date.num()))
else
stpapi.put.field("tdsls4101m000", "tdsls040.ddat", str$(tdbow002.ddat))
endif
stpapi.put.field("tdsls4101m000", "tdsls040.o.bdat", str$(tdbow002.o_bdat))
if not isspace(tdbow002.cdec) then
stpapi.put.field("tdsls4101m000", "tdsls040.cdec", str$(tdbow002.cdec))
endif
if not isspace(tdbow002.crte) then
stpapi.put.field("tdsls4101m000", "tdsls040.crte", str$(tdbow002.crte))
endif
stpapi.put.field("tdsls4101m000", "tdsls040.ccur", str$(tdbow002.ccur))
stpapi.put.field("tdsls4101m000", "tdsls040.refa", str$(tdbow002.refa))
stpapi.put.field("tdsls4101m000", "tdsls040.refb", str$(tdbow002.refb))
stpapi.put.field("tdsls4101m000", "tdsls040.ccor", str$(tdbow002.ccor))
stpapi.put.field("tdsls4101m000", "tdsls040.cdel", str$(tdbow002.cdel))
retins = stpapi.insert("tdsls4101m000", true, e.mess)
if retins then
stpapi.get.field("tdsls4101m000", "tdsls040.orno", orno$)
tdbow002.orno = lval( orno$)
stpapi.get.field("tdsls4101m000", "tdsls040.crte", crte$)
stpapi.get.field("tdsls4101m000", "tdsls040.cdec", cdec$)
if not isspace( tdbow002.nama) then
stpapi.handle.subproc("tdsls4101m000", "tdsls4103s000", "add")
stpapi.application.option("tdsls4101m000", 1, 1, e.mess)
if isspace( e.mess) then
stpapi.put.field("tdsls4103s000", "tdsls042.orno", str$(tdbow002.orno))
stpapi.put.field("tdsls4103s000", "tdsls042.nama", str$(tdbow002.nama))
stpapi.put.field("tdsls4103s000", "tdsls042.namb", str$(tdbow002.namb))
stpapi.put.field("tdsls4103s000", "tdsls042.namc", str$(tdbow002.namc))
stpapi.put.field("tdsls4103s000", "tdsls042.namd", str$(tdbow002.namd))
stpapi.put.field("tdsls4103s000", "tdsls042.ccty", str$(tdbow002.ccty))
stpapi.put.field("tdsls4103s000", "tdsls042.pstc", str$(tdbow002.pstc))
stpapi.put.field("tdsls4103s000", "tdsls042.name", str$(tdbow002.name))
stpapi.put.field("tdsls4103s000", "tdsls042.namf", str$(tdbow002.namf))
stpapi.put.field("tdsls4103s000", "tdsls042.crte", str$(crte$))
stpapi.put.field("tdsls4103s000", "tdsls042.cdec", str$(cdec$))
retins = stpapi.insert("tdsls4103s000", true, e.mess)
if retins then
| alles ok
else
tdbow002.errm = e.mess
retrec = stpapi.recover("tdsls4103s000", e.mess )
endif
endif
stpapi.end.session("tdsls4103s000", e.mess)
endif
tdbow002.stat = 9
else
tdbow002.stat = 10
tdbow002.errm = e.mess
retrec = stpapi.recover("tdsls4101m000", e.mess)
endif
if tdbow002.orno then
insert.header.text()
block.sales.order()
endif
db.update(ttdbow002, db.retry)