[ExtensionOf(formDataFieldStr(SalesCreateOrder,SalesTable,InventLocationId))]
final class DTSalesCreateOrderForm_TransactionAcess_Extension
{
public void lookup(FormControl _formControl, str _filterStr)
{
next lookup( _formControl, _filterStr);
UserId userid ;
UserInfo userInfo;
container inventLocationId;
//inventLocationId inventId;
Query query = new Query();
QueryBuildDataSource queryBuildDataSource;
QueryBuildRange queryBuildRange;
DTSalesTransactionAccess salesTranAccess;
//FormControlEventArgs e;
userid = curUserId();
select id from userInfo
where userInfo.id == userid;
while select * from salesTranAccess
where salesTranAccess.UserId == userInfo.id
&& salesTranAccess.Stock == NoYes::Yes
{
if(salesTranAccess)
{
inventLocationId += salesTranAccess.inventLocationId;
}
}
queryBuildDataSource = query.addDataSource(tableNum(InventLocation));
queryBuildRange = queryBuildDataSource.addRange(fieldNum(InventLocation, inventLocationId));
queryBuildRange.value(con2Str(inventLocationId));
SysTableLookup sysTableLookup;
sysTableLookup = SysTableLookup::newParameters(tableNum(InventLocation), _formControl);
sysTableLookup.addLookupField(fieldNum(InventLocation, InventLocationId));
sysTableLookup.parmQuery(query);
sysTableLookup.performFormLookup();
//FormControlCancelableSuperEventArgs ce = e as FormControlCancelableSuperEventArgs;
//ce.CancelSuperCall();
}
}
André Arnaud de Cal... 291,703 Super User 2024 Season 2
Martin Dráb 230,433 Most Valuable Professional
nmaenpaa 101,156