Данная статья относится к Microsoft Dynamics NAV для всех стран и всех языковых стандартов.
Симптомы
При вводе значения Код адреса поставки заказа на продажу в Microsoft Dynamics NAV 2013, Почтовый индекс, Город и Округ значения не переносятся из карточки Поставка Адрес в поле Поставка Код Post , поля Поставка Город и Поставка Район заказа на продажу. Эта проблема возникает только в том случае, если уже указано значение Код страны или региона поставки по заказу на продажу и значение отличается от значения Кода страны или региона на новый адрес поставки.
Решение
Сведения об исправлении
Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2013 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.
Примечание. В особых случаях оплата, предусмотренная в службу поддержки может быть отменена Если специалист службы технической поддержки Microsoft Dynamics и связанных продуктов определит, что решения проблемы является специально выпущенное. Затраты на обычные услуги службы поддержки будут применяться к дополнительным вопросам и проблемам, которые не охватываются конкретным обновлением.
Сведения об установке
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без явных или подразумеваемых гарантий. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры. Тем не менее они не изменит примеров для обеспечения функциональных возможностей или создания процедур для определенных требований.
Примечание. Перед установкой данного исправления убедитесь, что все пользователи Microsoft Navision вошли выход из системы. Это включает в себя пользователей клиентских служб приложений Microsoft Navision (NAS). Должен быть только клиент пользователя, который вошел в систему, при реализации данного исправления.
Чтобы реализовать это исправление, необходимо иметь лицензию разработчика.
Рекомендуется, чтобы учетной записи пользователя в окне Логины Windows или в окне Логины базы данных был присвоен идентификатор роли «SUPER» Если учетная запись пользователя не может быть назначена роль «SUPER» идентификатор, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения.
-
Изменение разрешений для объекта, подлежащий изменению.
-
Разрешение Execute для объекта идентификатор объекта системы 5210 и 9015 идентификатор объекта системного объекта.
Примечание. Необходимо иметь права к хранилищам данных, если необходимо выполнить восстановление данных.
Изменения кода
Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы устранить эту проблему, выполните следующие действия:
-
Измените код поля в таблице Склад (14) следующим образом:
Существующий код... ValidateTableRelation=No;
TestTableRelation=No }
{ 5715; ;County ;Text30 }
{ 5718; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 5719; ;Home Page ;Text90 ;ExtendedDatatype=URL }
// Delete the following lines.
{ 5720; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND ("Country/Region Code" <> '') THEN
Postcode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 5724; ;Use As In-Transit ;Boolean ;OnValidate=BEGIN
IF "Use As In-Transit" THEN BEGIN
TESTFIELD("Require Put-away",FALSE);
TESTFIELD("Require Pick",FALSE);
TESTFIELD("Use Cross-Docking",FALSE);
...Код для замены
... ValidateTableRelation=No;
TestTableRelation=No }
{ 5715; ;County ;Text30 }
{ 5718; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 5719; ;Home Page ;Text90 ;ExtendedDatatype=URL }
// Add the following line.
{ 5720; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 5724; ;Use As In-Transit ;Boolean ;OnValidate=BEGIN
IF "Use As In-Transit" THEN BEGIN
TESTFIELD("Require Put-away",FALSE);
TESTFIELD("Require Pick",FALSE);
TESTFIELD("Use Cross-Docking",FALSE);
... -
Измените код поля в таблице Клиент (18) следующим образом:
Существующий код... { 32 ; ;Place of Export ;Code20 }
{ 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Customer;
ValidateTableRelation=No;
TestTableRelation=No }
{ 34 ; ;Customer Disc. Group;Code20 ;TableRelation="Customer Discount Group" }
// Delete the following lines.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 36 ; ;Collection Method ;Code20 }
{ 37 ; ;Amount ;Decimal ;AutoFormatType=1;
AutoFormatExpr="Currency Code" }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Customer),
...Код для замены
... { 32 ; ;Place of Export ;Code20 }
{ 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Customer;
ValidateTableRelation=No;
TestTableRelation=No }
{ 34 ; ;Customer Disc. Group;Code20 ;TableRelation="Customer Discount Group" }
// Add the following line.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 36 ; ;Collection Method ;Code20 }
{ 37 ; ;Amount ;Decimal ;AutoFormatType=1;
AutoFormatExpr="Currency Code" }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Customer),
... -
Измените код в таблице поставщиков (23) в поля следующим образом:
Существующий код... { 30 ; ;Shipment Method Code;Code10 ;TableRelation="Shipment Method" }
{ 31 ; ;Shipping Agent Code ;Code10 ;TableRelation="Shipping Agent" }
{ 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Vendor;
ValidateTableRelation=No;
TestTableRelation=No }
// Delete the following lines.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Vendor),
No.=FIELD(No.)));
Editable=No }
{ 39 ; ;Blocked ;Option ;OptionString=[ ,Payment,All] }
...Код для замены
... { 30 ; ;Shipment Method Code;Code10 ;TableRelation="Shipment Method" }
{ 31 ; ;Shipping Agent Code ;Code10 ;TableRelation="Shipping Agent" }
{ 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Vendor;
ValidateTableRelation=No;
TestTableRelation=No }
// Add the following line.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Vendor),
No.=FIELD(No.)));
Editable=No }
{ 39 ; ;Blocked ;Option ;OptionString=[ ,Payment,All] }
... -
Измените код поля в таблице Продажа Заголовок (36) следующим образом:
Существующий код 1... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Delete the following lines.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Bill-to Country/Region Code" <> xRec."Bill-to Country/Region Code") AND (xRec."Bill-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Bill-to City","Bill-to Post Code","Bill-to County");
END;
}
// End of the lines.
{ 88 ; ;Sell-to Post Code ;Code20 ;TableRelation="Post Code";
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Sell-to City","Sell-to Post Code","Sell-to County","Sell-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Код для замены 1
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Add the following line.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 88 ; ;Sell-to Post Code ;Code20 ;TableRelation="Post Code";
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Sell-to City","Sell-to Post Code","Sell-to County","Sell-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Существующий код 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Sell-to County ;Text30 }
// Delete the following lines.
{ 90 ; ;Sell-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Sell-to Country/Region Code" <> xRec."Sell-to Country/Region Code") AND (xRec."Sell-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Sell-to City","Sell-to Post Code","Sell-to County");
END;
}
// End of the lines.
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation="Post Code";
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Код для замены 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Sell-to County ;Text30 }
// Add the following line.
{ 90 ; ;Sell-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation="Post Code";
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Существующий код 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Delete the following lines.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
END;
}
// End of the lines.
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 97 ; ;Exit Point ;Code10 ;TableRelation="Entry/Exit Point";
OnValidate=BEGIN
UpdateSalesLines(FIELDCAPTION("Exit Point"),FALSE);
END;
...Код для замены 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Add the following line.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 97 ; ;Exit Point ;Code10 ;TableRelation="Entry/Exit Point";
OnValidate=BEGIN
UpdateSalesLines(FIELDCAPTION("Exit Point"),FALSE);
END;
... -
Измените код поля в таблице Покупка Заголовок (38) следующим образом:
Существующий код 1... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Pay-to County ;Text30 }
// Delete the following lines.
{ 87 ; ;Pay-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Pay-to Country/Region Code" <> xRec."Pay-to Country/Region Code") AND (xRec."Pay-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Pay-to City","Pay-to Post Code","Pay-to County");
END;
}
// End of the lines.
{ 88 ; ;Buy-from Post Code ;Code20 ;TableRelation=IF (Buy-from Country/Region Code=CONST()) "Post Code"
ELSE IF (Buy-from Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Buy-from Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Buy-from City","Buy-from Post Code","Buy-from County","Buy-from Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 1
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Pay-to County ;Text30 }
// Add the following line.
{ 87 ; ;Pay-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 88 ; ;Buy-from Post Code ;Code20 ;TableRelation=IF (Buy-from Country/Region Code=CONST()) "Post Code"
ELSE IF (Buy-from Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Buy-from Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Buy-from City","Buy-from Post Code","Buy-from County","Buy-from Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Buy-from County ;Text30 }
// Delete the following lines.
{ 90 ; ;Buy-from Country/Region Code;Code10;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Buy-from Country/Region Code" <> xRec."Buy-from Country/Region Code") AND (xRec."Buy-from Country/Region Code" <> '') THEN
PostCode.ClearFields("Buy-from City","Buy-from Post Code","Buy-from County");
END;
}
// End of the lines.
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Buy-from County ;Text30 }
// Add the following line.
{ 90 ; ;Buy-from Country/Region Code;Code10;TableRelation=Country/Region }
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Delete the following lines.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
END;
}
// End of the lines.
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 95 ; ;Order Address Code ;Code10 ;TableRelation="Order Address".Code WHERE (Vendor No.=FIELD(Buy-from Vendor No.));
OnValidate=BEGIN
IF "Order Address Code" <> '' THEN BEGIN
OrderAddr.GET("Buy-from Vendor No.","Order Address Code");
...Код для замены 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Add the following line.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 95 ; ;Order Address Code ;Code10 ;TableRelation="Order Address".Code WHERE (Vendor No.=FIELD(Buy-from Vendor No.));
OnValidate=BEGIN
IF "Order Address Code" <> '' THEN BEGIN
OrderAddr.GET("Buy-from Vendor No.","Order Address Code");
... -
Измените код поля в таблице Фирма Информация (79) следующим образом:
Существующий код... ValidateTableRelation=No;
TestTableRelation=No }
{ 33 ; ;Ship-to County ;Text30 }
{ 34 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 35 ; ;Home Page ;Text80 ;ExtendedDatatype=URL }
// Delete the following lines.
{ 36 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
{ 37 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
END;
}
// End of the lines.
{ 38 ; ;IBAN ;Code50 ;OnValidate=BEGIN
CheckIBAN(IBAN);
END;
}
{ 39 ; ;SWIFT Code ;Code20 }
...Код для замены
... ValidateTableRelation=No;
TestTableRelation=No }
{ 33 ; ;Ship-to County ;Text30 }
{ 34 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 35 ; ;Home Page ;Text80 ;ExtendedDatatype=URL }
// Add the following lines.
{ 36 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 37 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region }
// End of the lines.
{ 38 ; ;IBAN ;Code50 ;OnValidate=BEGIN
CheckIBAN(IBAN);
END;
}
{ 39 ; ;SWIFT Code ;Code20 }
... -
Измените код поля в таблице ресурс (156) следующим образом:
Существующий код... { 55 ; ;Automatic Ext. Texts;Boolean }
{ 56 ; ;No. Series ;Code10 ;TableRelation="No. Series";
Editable=No }
{ 57 ; ;Tax Group Code ;Code10 ;TableRelation="Tax Group" }
{ 58 ; ;VAT Prod. Posting Group;Code10 ;TableRelation="VAT Product Posting Group" }
// Delete the following lines.
{ 59 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 60 ; ;IC Partner Purch. G/L Acc. No.;Code20;
TableRelation="IC G/L Account" }
{ 900 ; ;Qty. on Assembly Order;Decimal ;FieldClass=FlowField;
CalcFormula=Sum("Assembly Line"."Remaining Quantity (Base)" WHERE (Document Type=CONST(Order),
Type=CONST(Resource),
...Код для замены
... { 55 ; ;Automatic Ext. Texts;Boolean }
{ 56 ; ;No. Series ;Code10 ;TableRelation="No. Series";
Editable=No }
{ 57 ; ;Tax Group Code ;Code10 ;TableRelation="Tax Group" }
{ 58 ; ;VAT Prod. Posting Group;Code10 ;TableRelation="VAT Product Posting Group" }
// Add the following line.
{ 59 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 60 ; ;IC Partner Purch. G/L Acc. No.;Code20;
TableRelation="IC G/L Account" }
{ 900 ; ;Qty. on Assembly Order;Decimal ;FieldClass=FlowField;
CalcFormula=Sum("Assembly Line"."Remaining Quantity (Base)" WHERE (Document Type=CONST(Order),
Type=CONST(Resource),
... -
Измените код поля в таблицу заданий (167) следующим образом:
Существующий код... ValidateTableRelation=No;
TestTableRelation=No }
{ 66 ; ;No. Series ;Code10 ;TableRelation="No. Series";
Editable=No }
{ 67 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region;
// Delete the following lines.
OnValidate=BEGIN
IF ("Bill-to Country/Region Code" <> xRec."Bill-to Country/Region Code") AND (xRec."Bill-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Bill-to City","Bill-to Post Code","Bill-to County");
END;
// End of the lines.
Editable=Yes }
{ 68 ; ;Bill-to Name 2 ;Text50 }
{ 117 ; ;Reserve ;Option ;OptionString=Never,Optional,Always }
{ 1000; ;WIP Method ;Code20 ;TableRelation="Job WIP Method".Code WHERE (Valid=CONST(Yes));
OnValidate=VAR
...Код для замены
... ValidateTableRelation=No;
TestTableRelation=No }
{ 66 ; ;No. Series ;Code10 ;TableRelation="No. Series";
Editable=No }
{ 67 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region;
Editable=Yes }
{ 68 ; ;Bill-to Name 2 ;Text50 }
{ 117 ; ;Reserve ;Option ;OptionString=Never,Optional,Always }
{ 1000; ;WIP Method ;Code20 ;TableRelation="Job WIP Method".Code WHERE (Valid=CONST(Yes));
OnValidate=VAR
... -
Измените код поля в таблице адрес поставки (222) следующим образом:
Существующий код... IF "Shipping Agent Code" <> xRec."Shipping Agent Code" THEN
VALIDATE("Shipping Agent Service Code",'');
END;
}
{ 32 ; ;Place of Export ;Code20 }
// Delete the following lines.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 54 ; ;Last Date Modified ;Date ;Editable=No }
{ 83 ; ;Location Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No)) }
{ 84 ; ;Fax No. ;Text30 }
{ 85 ; ;Telex Answer Back ;Text20 }
{ 91 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code"
...Код для замены
... IF "Shipping Agent Code" <> xRec."Shipping Agent Code" THEN
VALIDATE("Shipping Agent Service Code",'');
END;
}
{ 32 ; ;Place of Export ;Code20 }
// Add the following line.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 54 ; ;Last Date Modified ;Date ;Editable=No }
{ 83 ; ;Location Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No)) }
{ 84 ; ;Fax No. ;Text30 }
{ 85 ; ;Telex Answer Back ;Text20 }
{ 91 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code"
... -
Измените код в функцию ClearFields в таблице Почтовый индекс (225) следующим образом:
Существующий код... CountryCode := PostCodeRec."Country/Region Code";
County := PostCodeRec.County;
END;
END;
// Delete the following lines.
PROCEDURE ClearFields@1(VAR City@1000 : Text[30];VAR PostCode@1001 : Code[20];VAR County@1002 : Text[30]);
BEGIN
City := '';
PostCode := '';
County := '';
END;
// End of the lines.
BEGIN
END.
}
}
...Код для замены
... CountryCode := PostCodeRec."Country/Region Code";
County := PostCodeRec.County;
END;
END;
BEGIN
END.
}
}
... -
Измените код поля в таблице банковский счет (270) следующим образом:
Существующий код... END;
}
{ 24 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 26 ; ;Statistics Group ;Integer }
{ 29 ; ;Our Contact Code ;Code10 ;TableRelation=Salesperson/Purchaser }
// Delete the following lines.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 37 ; ;Amount ;Decimal ;AutoFormatType=1;
AutoFormatExpr="Currency Code" }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Bank Account),
No.=FIELD(No.)));
...Код для замены
... END;
}
{ 24 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 26 ; ;Statistics Group ;Integer }
{ 29 ; ;Our Contact Code ;Code10 ;TableRelation=Salesperson/Purchaser }
// Add the following line.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 37 ; ;Amount ;Decimal ;AutoFormatType=1;
AutoFormatExpr="Currency Code" }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Bank Account),
No.=FIELD(No.)));
... -
Измените код в таблице Памятка Заголовок (295) в поля следующим образом:
Существующий код... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Delete the following line.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 11 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 12 ; ;Currency Code ;Code10 ;TableRelation=Currency;
OnValidate=BEGIN
IF CurrFieldNo = FIELDNO("Currency Code") THEN
IF Undo THEN BEGIN
...Код для замены
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Add the following line.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 11 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 12 ; ;Currency Code ;Code10 ;TableRelation=Currency;
OnValidate=BEGIN
IF CurrFieldNo = FIELDNO("Currency Code") THEN
IF Undo THEN BEGIN
... -
Измените код поля в таблице заголовка процент ноты (302) следующим образом:
Существующий код... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Delete the folloiwng lines.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '')THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 11 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 12 ; ;Currency Code ;Code10 ;TableRelation=Currency;
OnValidate=BEGIN
IF CurrFieldNo = FIELDNO("Currency Code") THEN
IF Undo THEN BEGIN
...Код для замены
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Add the following line.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 11 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 12 ; ;Currency Code ;Code10 ;TableRelation=Currency;
OnValidate=BEGIN
IF CurrFieldNo = FIELDNO("Currency Code") THEN
IF Undo THEN BEGIN
... -
Измените код поля в таблице Contact (5050) следующим образом:
Существующий код... { 10 ; ;Telex No. ;Text20 }
{ 15 ; ;Territory Code ;Code10 ;TableRelation=Territory }
{ 22 ; ;Currency Code ;Code10 ;TableRelation=Currency }
{ 24 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 29 ; ;Salesperson Code ;Code10 ;TableRelation=Salesperson/Purchaser }
// Delete the following lines.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Rlshp. Mgt. Comment Line" WHERE (Table Name=CONST(Contact),
No.=FIELD(No.),
Sub No.=CONST(0)));
Editable=No }
...Код для замены
... { 10 ; ;Telex No. ;Text20 }
{ 15 ; ;Territory Code ;Code10 ;TableRelation=Territory }
{ 22 ; ;Currency Code ;Code10 ;TableRelation=Currency }
{ 24 ; ;Language Code ;Code10 ;TableRelation=Language }
{ 29 ; ;Salesperson Code ;Code10 ;TableRelation=Salesperson/Purchaser }
// Add the following line.
{ 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 38 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Rlshp. Mgt. Comment Line" WHERE (Table Name=CONST(Contact),
No.=FIELD(No.),
Sub No.=CONST(0)));
Editable=No }
... -
Измените код поля в таблице Контакт Альт (5051) следующим образом:
Существующий код... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Delete the following lines.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 12 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 13 ; ;Telex No. ;Text20 }
{ 14 ; ;Extension No. ;Text30 }
{ 15 ; ;Mobile Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 16 ; ;Pager ;Text30 }
...Код для замены
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;County ;Text30 }
// Add the following line.
{ 10 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 12 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 13 ; ;Telex No. ;Text20 }
{ 14 ; ;Extension No. ;Text30 }
{ 15 ; ;Mobile Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 16 ; ;Pager ;Text30 }
... -
Измените код поля в таблице Employee (5200) следующим образом:
Существующий код... { 20 ; ;Birth Date ;Date }
{ 21 ; ;Social Security No. ;Text30 }
{ 22 ; ;Union Code ;Code10 ;TableRelation=Union }
{ 23 ; ;Union Membership No.;Text30 }
{ 24 ; ;Gender ;Option ;OptionString=[ ,Female,Male] }
// Delete the following lines.
{ 25 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 26 ; ;Manager No. ;Code20 ;TableRelation=Employee }
{ 27 ; ;Emplymt. Contract Code;Code10 ;TableRelation="Employment Contract" }
{ 28 ; ;Statistics Group Code;Code10 ;TableRelation="Employee Statistics Group" }
{ 29 ; ;Employment Date ;Date }
{ 31 ; ;Status ;Option ;OnValidate=BEGIN
...Код для замены
... { 20 ; ;Birth Date ;Date }
{ 21 ; ;Social Security No. ;Text30 }
{ 22 ; ;Union Code ;Code10 ;TableRelation=Union }
{ 23 ; ;Union Membership No.;Text30 }
{ 24 ; ;Gender ;Option ;OptionString=[ ,Female,Male] }
// Add the following line.
{ 25 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 26 ; ;Manager No. ;Code20 ;TableRelation=Employee }
{ 27 ; ;Emplymt. Contract Code;Code10 ;TableRelation="Employment Contract" }
{ 28 ; ;Statistics Group Code;Code10 ;TableRelation="Employee Statistics Group" }
{ 29 ; ;Employment Date ;Date }
{ 31 ; ;Status ;Option ;OnValidate=BEGIN
... -
Измените код поля в таблице альтернативный адрес (5201) следующим образом:
Существующий код... { 13 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Human Resource Comment Line" WHERE (Table Name=CONST(Alternative Address),
No.=FIELD(Employee No.),
Alternative Address Code=FIELD(Code)));
Editable=No }
// Delete the following lines.
{ 14 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
}
KEYS
{
{ ;Employee No.,Code ;Clustered=Yes }
}
...Код для замены
... { 13 ; ;Comment ;Boolean ;FieldClass=FlowField;
CalcFormula=Exist("Human Resource Comment Line" WHERE (Table Name=CONST(Alternative Address),
No.=FIELD(Employee No.),
Alternative Address Code=FIELD(Code)));
Editable=No }
// Add the following line.
{ 14 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
}
KEYS
{
{ ;Employee No.,Code ;Clustered=Yes }
}
... -
Измените код поля в таблице объединения (5209) следующим образом:
Существующий код... { 9 ; ;Address 2 ;Text50 }
{ 10 ; ;County ;Text30 }
{ 11 ; ;Fax No. ;Text30 }
{ 12 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 13 ; ;Home Page ;Text80 ;ExtendedDatatype=URL }
// Delete the following lines.
{ 14 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
}
KEYS
{
{ ;Code ;Clustered=Yes }
}
...Код для замены
... { 9 ; ;Address 2 ;Text50 }
{ 10 ; ;County ;Text30 }
{ 11 ; ;Fax No. ;Text30 }
{ 12 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail }
{ 13 ; ;Home Page ;Text80 ;ExtendedDatatype=URL }
// Add the following line.
{ 14 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
}
KEYS
{
{ ;Code ;Clustered=Yes }
}
... -
Измените код поля в таблице Дистрибуторский Центр (5714) следующим образом:
Существующий код... PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
ValidateTableRelation=No;
TestTableRelation=No }
// Delete the folloiwng lines.
{ 7 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
END;
}
// End of the lines.
{ 8 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 9 ; ;Fax No. ;Text30 }
{ 10 ; ;Name 2 ;Text50 }
{ 11 ; ;Contact ;Text50 }
{ 12 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1));
...Код для замены
... PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
ValidateTableRelation=No;
TestTableRelation=No }
// Add the following line.
{ 7 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region }
{ 8 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No. }
{ 9 ; ;Fax No. ;Text30 }
{ 10 ; ;Name 2 ;Text50 }
{ 11 ; ;Contact ;Text50 }
{ 12 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1));
... -
Измените код в таблице Перемещение Заголовок (5740) в поля следующим образом:
Существующий код 1... ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;Transfer-from County;Text30 }
{ 10 ; ;Trsf.-from Country/Region Code;Code10;
// Delete the following lines.
TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Trsf.-from Country/Region Code" <> xRec."Trsf.-from Country/Region Code") AND
(xRec."Trsf.-from Country/Region Code" <> '')
THEN
PostCode.ClearFields("Transfer-from City","Transfer-from Post Code","Transfer-from County");
END;
}
// End of the lines.
{ 11 ; ;Transfer-to Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No));
OnValidate=VAR
Location@1000 : Record 14;
Confirmed@1001 : Boolean;
BEGIN
...Код для замены 1
... ValidateTableRelation=No;
TestTableRelation=No }
{ 9 ; ;Transfer-from County;Text30 }
{ 10 ; ;Trsf.-from Country/Region Code;Code10;
// Add the folloiwng line.
TableRelation=Country/Region }
{ 11 ; ;Transfer-to Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No));
OnValidate=VAR
Location@1000 : Record 14;
Confirmed@1001 : Boolean;
BEGIN
...Существующий код 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 18 ; ;Transfer-to County ;Text30 }
// Delete the following lines.
{ 19 ; ;Trsf.-to Country/Region Code;Code10;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Trsf.-to Country/Region Code" <> xRec."Trsf.-to Country/Region Code") AND (xRec."Trsf.-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Transfer-to City","Transfer-to Post Code","Transfer-to County");
END;
}
// End of the lines.
{ 20 ; ;Posting Date ;Date }
{ 21 ; ;Shipment Date ;Date ;OnValidate=BEGIN
TestStatusOpen;
TransferRoute.CalcReceiptDate(
"Shipment Date",
...Код для замены 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 18 ; ;Transfer-to County ;Text30 }
// Add the following line.
{ 19 ; ;Trsf.-to Country/Region Code;Code10;TableRelation=Country/Region }
{ 20 ; ;Posting Date ;Date }
{ 21 ; ;Shipment Date ;Date ;OnValidate=BEGIN
TestStatusOpen;
TransferRoute.CalcReceiptDate(
"Shipment Date",
... -
Измените код поля в таблице Сервис Заголовок (5900) следующим образом:
Существующий код 1... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Delete the following lines.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Bill-to Country/Region Code" <> xRec."Bill-to Country/Region Code") AND (xRec."Bill-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Bill-to City","Bill-to Post Code","Bill-to County");
END;
}
// End of the lines.
{ 88 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code"
ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Код для замены 1
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Add the following line.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 88 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code"
ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
END;
...Существующий код 2
... TestTableRelation=No }
{ 89 ; ;County ;Text30 }
{ 90 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
VALIDATE("Ship-to Country/Region Code");
// Delete the following lines.
IF ("Country/Region Code" <> xRec."Country/Region Code") AND (xRec."Country/Region Code" <> '') THEN
PostCode.ClearFields(City,"Post Code",County);
// End of the lines.
END;
}
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
...Код для замены 2
... TestTableRelation=No }
{ 89 ; ;County ;Text30 }
{ 90 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
VALIDATE("Ship-to Country/Region Code");
END;
}
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
...Существующий код 3
... ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
// Delete the following lines.
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
// End of the lines.
IF "Ship-to Country/Region Code" <> '' THEN
"VAT Country/Region Code" := "Ship-to Country/Region Code"
ELSE
"VAT Country/Region Code" := "Country/Region Code"
END;
...Код для замены 3
... ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF "Ship-to Country/Region Code" <> '' THEN
"VAT Country/Region Code" := "Ship-to Country/Region Code"
ELSE
"VAT Country/Region Code" := "Country/Region Code"
END;
... -
Измените код поля в таблице Возврат Расх. (6650) следующим образом:
Существующий код 1... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Pay-to County ;Text30 }
// Delete the following lines.
{ 87 ; ;Pay-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Pay-to Country/Region Code" <> xRec."Pay-to Country/Region Code") AND (xRec."Pay-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Pay-to City","Pay-to Post Code","Pay-to County");
END;
}
// End of the lines.
{ 88 ; ;Buy-from Post Code ;Code20 ;TableRelation=IF (Buy-from Country/Region Code=CONST()) "Post Code"
ELSE IF (Buy-from Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Buy-from Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Buy-from City","Buy-from Post Code","Buy-from County","Buy-from Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 1
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Pay-to County ;Text30 }
// Add the following line.
{ 87 ; ;Pay-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 88 ; ;Buy-from Post Code ;Code20 ;TableRelation=IF (Buy-from Country/Region Code=CONST()) "Post Code"
ELSE IF (Buy-from Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Buy-from Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Buy-from City","Buy-from Post Code","Buy-from County","Buy-from Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Buy-from County ;Text30 }
// Delete the following lines.
{ 90 ; ;Buy-from Country/Region Code;Code10;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Buy-from Country/Region Code" <> xRec."Buy-from Country/Region Code") AND (xRec."Buy-from Country/Region Code" <> '') THEN
PostCode.ClearFields("Buy-from City","Buy-from Post Code","Buy-from County");
END;
}
// End of the lines.
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Buy-from County ;Text30 }
// Add the following line.
{ 90 ; ;Buy-from Country/Region Code;Code10;TableRelation=Country/Region }
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Delete the following lines.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
END;
}
// End of the lines.
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 95 ; ;Order Address Code ;Code10 ;TableRelation="Order Address".Code WHERE (Vendor No.=FIELD(Buy-from Vendor No.)) }
{ 97 ; ;Entry Point ;Code10 ;TableRelation="Entry/Exit Point" }
{ 98 ; ;Correction ;Boolean }
{ 99 ; ;Document Date ;Date }
...Код для замены 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Add the following line.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 95 ; ;Order Address Code ;Code10 ;TableRelation="Order Address".Code WHERE (Vendor No.=FIELD(Buy-from Vendor No.)) }
{ 97 ; ;Entry Point ;Code10 ;TableRelation="Entry/Exit Point" }
{ 98 ; ;Correction ;Boolean }
{ 99 ; ;Document Date ;Date }
... -
Измените код поля в таблице заголовок приходной накладной возврата (6660) следующим образом:
Существующий код 1... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Delete the following lines.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Bill-to Country/Region Code" <> xRec."Bill-to Country/Region Code") AND (xRec."Bill-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Bill-to City","Bill-to Post Code","Bill-to County");
END;
}
// End of the lines.
{ 88 ; ;Sell-to Post Code ;Code20 ;TableRelation=IF (Sell-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Sell-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Sell-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Sell-to City","Sell-to Post Code","Sell-to County","Sell-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 1
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 86 ; ;Bill-to County ;Text30 }
// Add the following line.
{ 87 ; ;Bill-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 88 ; ;Sell-to Post Code ;Code20 ;TableRelation=IF (Sell-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Sell-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Sell-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Sell-to City","Sell-to Post Code","Sell-to County","Sell-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Sell-to County ;Text30 }
// Delete the following lines.
{ 90 ; ;Sell-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Sell-to Country/Region Code" <> xRec."Sell-to Country/Region Code") AND (xRec."Sell-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Sell-to City","Sell-to Post Code","Sell-to County");
END;
}
// End of the lines.
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Код для замены 2
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 89 ; ;Sell-to County ;Text30 }
// Add the following line.
{ 90 ; ;Sell-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 91 ; ;Ship-to Post Code ;Code20 ;TableRelation=IF (Ship-to Country/Region Code=CONST()) "Post Code"
ELSE IF (Ship-to Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Ship-to Country/Region Code));
OnValidate=BEGIN
PostCode.ValidatePostCode(
"Ship-to City","Ship-to Post Code","Ship-to County","Ship-to Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);
...Существующий код 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Delete the following lines.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region;
OnValidate=BEGIN
IF ("Ship-to Country/Region Code" <> xRec."Ship-to Country/Region Code") AND (xRec."Ship-to Country/Region Code" <> '') THEN
PostCode.ClearFields("Ship-to City","Ship-to Post Code","Ship-to County");
END;
}
// End of the lines.
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 97 ; ;Exit Point ;Code10 ;TableRelation="Entry/Exit Point" }
{ 98 ; ;Correction ;Boolean }
{ 99 ; ;Document Date ;Date }
{ 100 ; ;External Document No.;Code35 }
...Код для замены 3
... END;
ValidateTableRelation=No;
TestTableRelation=No }
{ 92 ; ;Ship-to County ;Text30 }
// Add the following line.
{ 93 ; ;Ship-to Country/Region Code;Code10 ;TableRelation=Country/Region }
{ 94 ; ;Bal. Account Type ;Option ;OptionString=G/L Account,Bank Account }
{ 97 ; ;Exit Point ;Code10 ;TableRelation="Entry/Exit Point" }
{ 98 ; ;Correction ;Boolean }
{ 99 ; ;Document Date ;Date }
{ 100 ; ;External Document No.;Code35 }
...
Предварительные условия
Необходимо иметь Microsoft Dynamics NAV 2013 для установки этого исправления.
Сведения об удалении
Установленное обновление удалить нельзя.
Статус
Корпорация Майкрософт подтверждает, что это проблема продуктов Майкрософт, перечисленных в разделе "Относится к".
Примечание. Это статья «БЫСТРАЯ ПУБЛИКАЦИЯ», созданная непосредственно из технической поддержки корпорации Майкрософт. Сведения, содержащиеся в настоящем документе, предоставляются "как есть" в ответ на возникающие проблемы. В результате скорости предоставления материалов они могут включать опечаток и быть изменены в любое время без предварительного уведомления. Другие вопросы, связанные с Условиями использования см.
