Cet article s’applique à Microsoft Dynamics NAV pour tous les pays et tous les paramètres régionaux de langue.
Symptômes
Lorsque vous entrez une valeur de Code adresse de livraison sur une commande client dans Microsoft Dynamics NAV 2013, Code postal, Ville et région les valeurs ne sont pas transférés à partir de la fiche adresse destinataire dans le champ Code postal destinataire , du champ Ville destinataire et le champ Région livraison sur la commande client. Ce problème se produit uniquement si la valeur de Code pays/région destinataire est déjà spécifiée dans la commande client et la valeur diffère de la valeur du Code de pays/région sur la nouvelle adresse de livraison.
Résolution
Informations sur le correctif
Un correctif pris en charge est désormais disponible auprès de Microsoft. Toutefois, il est conçu uniquement pour corriger le problème décrit dans cet article. Il s’applique uniquement aux systèmes rencontrant ce problème spécifique. Ce correctif peut subir des tests supplémentaires. Par conséquent, si vous n’êtes pas sérieusement concerné par ce problème, nous vous recommandons d’attendre le prochain service pack Microsoft Dynamics NAV 2013 ou la prochaine version de Microsoft Dynamics NAV qui comprendra ce correctif.
Remarque Dans certains cas, les frais généralement encourus pour la prise en charge des appels peuvent être annulés si un technicien du Support technique pour Microsoft Dynamics et les produits associés détermine qu’une mise à jour spécifique peut résoudre votre problème. Les coûts habituels du support technique s’appliqueront aux autres questions et problèmes qui ne relèvent pas de la mise à jour spécifique en question.
Informations sur l’installation
Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Ceci inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent aider à expliquer la fonctionnalité d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.
Remarque Avant d’installer ce correctif, vérifiez que tous les utilisateurs du client Microsoft Navision sont enregistrés sur le système. Cela inclut les utilisateurs du client Microsoft Navision Application Services (NAS). Vous devez être le seul utilisateur client connecté lors de l’implémentation de ce correctif.
Pour appliquer ce correctif, vous devez posséder une licence développeur.
Il est recommandé que le compte d’utilisateur dans la fenêtre Logins Windows ou dans la fenêtre Logins base de données est affecté à l’ID de rôle « SUPER ». Si le compte d’utilisateur ne peut pas être affecté à l’ID de rôle « SUPER », vous devez vérifier que le compte d’utilisateur dispose des autorisations suivantes :
-
L’autorisation de modification pour l’objet que vous allez modifier.
-
L’autorisation d’exécution pour l’objet ID objet système 5210 et pour l’objet ID objet système 9015 .
Remarque Vous n’êtes pas obligé de disposer des droits pour les banques de données excepté si vous devez réparer des données.
Modifications du code
Remarque Toujours tester le code des correctifs dans un environnement contrôlé, avant d'appliquer les correctifs à vos ordinateurs de production.
Pour résoudre ce problème, procédez comme suit :
-
Modifiez le code dans les champs de la table magasin (14) comme suit :
Code existant... 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);
...Code de remplacement
... 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);
... -
Modifiez le code dans les champs de la table client (18) comme suit :
Code existant... { 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),
...Code de remplacement
... { 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),
... -
Modifiez le code dans les champs de la table fournisseur (23) comme suit :
Code existant... { 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] }
...Code de remplacement
... { 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] }
... -
Modifiez le code dans les champs de la table en-tête vente (36) comme suit :
Code existant 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;
...Code de substitution 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;
...Code existant 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;
...Code de substitution 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;
...Code existant 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;
...Code de substitution 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;
... -
Modifiez le code dans les champs de la table en-tête achat (38) comme suit :
Code existant 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);
...Code de substitution 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);
...Code existant 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);
...Code de substitution 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);
...Code existant 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");
...Code de substitution 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");
... -
Modifiez le code dans les champs de la table d’informations sur la société (79) comme suit :
Code existant... 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 }
...Code de remplacement
... 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 }
... -
Modifiez le code dans les champs dans la table (156) comme suit :
Code existant... { 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),
...Code de remplacement
... { 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),
... -
Modifiez le code dans les champs de la table de travail (167) comme suit :
Code existant... 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
...Code de remplacement
... 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
... -
Modifiez le code dans les champs de la table Adresse destinataire (222) comme suit :
Code existant... 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"
...Code de remplacement
... 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"
... -
Modifiez le code dans la fonction ClearFields dans la table Code postal (225) comme suit :
Code existant... 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.
}
}
...Code de remplacement
... CountryCode := PostCodeRec."Country/Region Code";
County := PostCodeRec.County;
END;
END;
BEGIN
END.
}
}
... -
Modifiez le code dans les champs de la table compte bancaire (270) comme suit :
Code existant... 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.)));
...Code de remplacement
... 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.)));
... -
Modifiez le code dans les champs de la table en-tête relance (295) comme suit :
Code existant... 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
...Code de remplacement
... 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
... -
Modifiez le code dans les champs de la table en-tête facture d’intérêts (302) comme suit :
Code existant... 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
...Code de remplacement
... 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
... -
Modifiez le code dans les champs de la table Contact (5050) comme suit :
Code existant... { 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 }
...Code de remplacement
... { 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 }
... -
Modifiez le code dans les champs de la table adresse secondaire Contact (5051) comme suit :
Code existant... 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 }
...Code de remplacement
... 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 }
... -
Modifiez le code dans les champs de la table Employee (5200) comme suit :
Code existant... { 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
...Code de remplacement
... { 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
... -
Modifiez le code dans les champs de la table adresse secondaire (5201) comme suit :
Code existant... { 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 }
}
...Code de remplacement
... { 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 }
}
... -
Modifiez le code dans les champs de la table mutuelle (5209) comme suit :
Code existant... { 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 }
}
...Code de remplacement
... { 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 }
}
... -
Modifiez le code dans les champs de la table Centre de gestion (5714) comme suit :
Code existant... 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));
...Code de remplacement
... 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));
... -
Modifiez le code dans les champs de la table en-tête transfert (5740) comme suit :
Code existant 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
...Code de substitution 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
...Code existant 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",
...Code de substitution 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",
... -
Modifiez le code dans les champs de la table en-tête Service (5900) comme suit :
Code existant 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;
...Code de substitution 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;
...Code existant 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
...Code de substitution 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
...Code existant 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;
...Code de substitution 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;
... -
Modifiez le code dans les champs de la table en-tête expédition retour (6650) comme suit :
Code existant 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);
...Code de substitution 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);
...Code existant 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);
...Code de substitution 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);
...Code existant 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 }
...Code de substitution 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 }
... -
Modifiez le code dans les champs de la table en-tête réception retour (6660) comme suit :
Code existant 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);
...Code de substitution 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);
...Code existant 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);
...Code de substitution 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);
...Code existant 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 }
...Code de substitution 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 }
...
Conditions préalables
Vous devez disposer de Microsoft Dynamics NAV 2013 est installé pour appliquer ce correctif.
Informations sur la suppression
Vous ne pouvez pas supprimer ce correctif.
État
Microsoft a confirmé l'existence de ce problème dans les produits Microsoft répertoriés dans la section « S'applique à ».
Remarque Il s’agit d’un article de « Dernière minute » créé directement à partir de l’organisation de support technique de Microsoft. Les informations contenues dans ce document sont fournies en l'état, en réponse à des problèmes nouveaux. En raison de la rapidité de leur mise à disposition, les documents peuvent contenir des erreurs typographiques et peuvent être révisés à tout moment sans préavis. Consultez les Conditions d’utilisation pour d’autres considérations.
