|
|
| Defines a field wich is used as salesman limited access functionality |
 |
| FieldName |
Field Name |
|
RecordBegin(PIVc,-,"pi1");
RecordField(ItemCode,M4Code,20,INVc);
RecordField(VECode,M4Code,20,VEVc);
RecordField(VEItemCode,M4Str,20,0);
RecordField(Comment,M4Str,60,0);
RecordField(PurPrice,M45Val,0,0);
RecordField(DefaultChoice,M4Mark,0,0);
RecordField(VEName,M4Str,60,0);
RecordField(Math,M4Matrix,0,0);
RecordField(NormPOQty,M4Qty,0,0);
RecordField(MinPOQty,M4Qty,0,0);
RecordField(Manufacturer,M4Code,20,VEVc);
RecordField(OrgCountry,M4Code,5,0);
RecordField(VendDefChoice,M4Int,0,0);
RecordField(PIFactor,M45Val,0,0);
RecordField(PurchaseCost,M4PrcStr,20,0);
RecordField(CurncyCode,M4Code,5,CurncyCodeVc);
RecordField(ExtraCaost,M4Val,0,0);
RecordField(Unit,M4Str,10,0);
RecordField(VEUnit,M4Str,10,0);
RecordField(PlannedDelDays,M4UVal,0,0);
RecordField(SalesGroup,M4Code,5,SalesGroupVc);
FieldIsGroup(SalesGroup);
RecordField(SalesMan,M4Code,10,UserVc);
FieldIsUser(SalesMan);
ArrayBegin(Math,-,1);
ArrayField(Text,M4Str,100,0);
EndArray;
MainKeyBegin(MainKey,1);
StoreInBaseKey;
AppendFieldToKeyName(SalesGroup);
AppendFieldToKeyName(SalesMan);
KeySegment(ItemCode);
KeySegment(VECode);
KeySegment(VEItemCode);
EndRecord;
|
««