zhilenko_myu
6th December 2022, 04:50
hello
when inserting a row, if there are errors in the data, then afs does not show errors.
for example, if there is no such product in the database.
session = "tdsls4101m000"
stpapi.put.field(session, "tdsls401.orno", orno.o)
error.msg = get.string.arg(1)
retval = stpapi.change.view(session, error.msg)
put.string.arg(1, error.msg)
IF retval = 0 THEN
retval = stpapi.synchronize.dialog(session, "add", error.msg)
session1 = "tdsls4101m000"
IF retval THEN
stpapi.put.field(session1, "tdsls401.item.segment.1", "")
stpapi.put.field(session1, "tdsls401.item.segment.2", zrsfc121.item(1;38))
SELECT *
FROM zazir101
WHERE zazir101.onum = :onum.i
SELECTDO
effn.i = zazir101.effn
ENDSELECT
stpapi.put.field(session1, "tdsls401.effn", str$(effn.i))
stpapi.put.field(session1, "tdsls401.cprj", cprj.i)
stpapi.put.field(session1, "tdsls401.cact", "1")
stpapi.put.field(session1, "tdsls401.qoor", "1")
| stpapi.put.field(session1, "tdsls401.odat", str$(ddat))
stpapi.put.field(session1, "tdsls401.stbp", stbp)
stpapi.put.field(session1, "tdsls401.stad", ofad)
stpapi.put.field(session1, "tdsls401.pric", "10000")
stpapi.put.field(session1, "tdsls401.oamt", "10000")
stpapi.put.field(session1, "tdsls401.ccty", "1")
stpapi.put.field(session1, "tdsls401.cvat", cvat)
retval = stpapi.insert(session1, true, error.msg)
IF not isspace(error.msg) THEN
print.errors(
"1",
session1,
error.msg,
trim$(zrsfc121.item),
orno.o)
ENDIF
IF retval THEN
session2 = "tdsls4830s000"
stpapi.put.field(session2, "inventory.short", str$(etol(tdsls.ssop.no.action)))
stpapi.end.session (session2, error.msg)
retval = stpapi.save(session1, error.msg)
IF not isspace(error.msg) THEN
print.errors(
"2",
session1,
error.msg,
trim$(zrsfc121.item),
orno.o)
ENDIF
ENDIF
ENDIF
ENDIF
stpapi.end.session(session1, error.msg)
stpapi.end.session(session, error.msg)
when inserting a row, if there are errors in the data, then afs does not show errors.
for example, if there is no such product in the database.
session = "tdsls4101m000"
stpapi.put.field(session, "tdsls401.orno", orno.o)
error.msg = get.string.arg(1)
retval = stpapi.change.view(session, error.msg)
put.string.arg(1, error.msg)
IF retval = 0 THEN
retval = stpapi.synchronize.dialog(session, "add", error.msg)
session1 = "tdsls4101m000"
IF retval THEN
stpapi.put.field(session1, "tdsls401.item.segment.1", "")
stpapi.put.field(session1, "tdsls401.item.segment.2", zrsfc121.item(1;38))
SELECT *
FROM zazir101
WHERE zazir101.onum = :onum.i
SELECTDO
effn.i = zazir101.effn
ENDSELECT
stpapi.put.field(session1, "tdsls401.effn", str$(effn.i))
stpapi.put.field(session1, "tdsls401.cprj", cprj.i)
stpapi.put.field(session1, "tdsls401.cact", "1")
stpapi.put.field(session1, "tdsls401.qoor", "1")
| stpapi.put.field(session1, "tdsls401.odat", str$(ddat))
stpapi.put.field(session1, "tdsls401.stbp", stbp)
stpapi.put.field(session1, "tdsls401.stad", ofad)
stpapi.put.field(session1, "tdsls401.pric", "10000")
stpapi.put.field(session1, "tdsls401.oamt", "10000")
stpapi.put.field(session1, "tdsls401.ccty", "1")
stpapi.put.field(session1, "tdsls401.cvat", cvat)
retval = stpapi.insert(session1, true, error.msg)
IF not isspace(error.msg) THEN
print.errors(
"1",
session1,
error.msg,
trim$(zrsfc121.item),
orno.o)
ENDIF
IF retval THEN
session2 = "tdsls4830s000"
stpapi.put.field(session2, "inventory.short", str$(etol(tdsls.ssop.no.action)))
stpapi.end.session (session2, error.msg)
retval = stpapi.save(session1, error.msg)
IF not isspace(error.msg) THEN
print.errors(
"2",
session1,
error.msg,
trim$(zrsfc121.item),
orno.o)
ENDIF
ENDIF
ENDIF
ENDIF
stpapi.end.session(session1, error.msg)
stpapi.end.session(session, error.msg)