...
CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
Buy-from Vendor No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Delete the following lines.
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
OptionString=,Company,Person }
// End of the deleted lines.
{ 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact;
OnValidate=VAR
Cont@1001 : Record 5050;
...
...
CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
Buy-from Vendor No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Add the following lines.
AccountType@1000001 : 'Customer,Vendor';
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
OptionString=[ ,Company,Person] }
// End of the added lines.
{ 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact;
OnValidate=VAR
Cont@1001 : Record 5050;
...