Code: Select all
If Mode = 12
If IsEmpty(TESTCARD->Autoinc1)
Declare nNumber Type Numeric
nNumber := Val(ReadINI("MyCardFile", "AutoInc1", PathData() + "User", "0")) + 1
WriteINI("MyCardFile", "AutoInc1", NTrim(nNumber), PathData() + "User")
TESTCARD->Autoinc1 := nNumber
Endif
Endif
Code: Select all
Declare cTranNo Type Character
cTranNo := TranInc(ReadINI("MyCardFile", "AutoInc1", PathData() + "User", "0"))
WriteINI("MyCardFile", "AutoInc1", cTranNo, PathData() + "User")
TESTCARD->Autoinc1 := cTranNo
Users browsing this forum: Google [Bot] and 2 guests
Copyright © 1985 - 2019 Capital Office Business Software. All Rights Reserved.