Este artigo aplica-se para o Microsoft Dynamics NAV para todos os países e todos os idiomas.
Sintomas
Quando introduzir um valor de Código de endereço de envio-a na encomenda de venda no Microsoft Dynamics NAV 2013, o Código postal, Cidade e Distrito valores não são transferidos a partir da ficha ' Envio-a endereço para o campo Envio-a Cód. , do campo Envio-a cidade e o campo Envio-a Distrito na encomenda de venda. Este problema só ocorre se o valor de Código de país/região envio-a já está especificado na encomenda de venda e o valor difere do valor de Código de país/região no endereço ' envio-a nova.
Resolução
Informações sobre correção
Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2013 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.
Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.
Informações de instalação
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.
Para implementar esta correcção, tem de ter uma licença de desenvolvedor.
Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
-
A permissão Modificar para o objecto que estará a alterar.
-
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .
Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.
Alterações de código
Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:
-
Altere o código nos campos na tabela ' Localização ' (14) do seguinte modo:
Código existente... 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);
...Código de substituição
... 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);
... -
Altere o código nos campos na tabela ' Cliente ' (18) da seguinte forma:
Código existente... { 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),
...Código de substituição
... { 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),
... -
Altere o código nos campos na tabela ' Fornecedor ' (23) do seguinte modo:
Código existente... { 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] }
...Código de substituição
... { 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] }
... -
Altere o código nos campos existentes na tabela de cabeçalho de vendas (36) do seguinte modo:
Código existente 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;
...Código de substituição 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;
...Código existente 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;
...Código de substituição 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;
...Código existente 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;
...Código de substituição 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;
... -
Altere o código nos campos da tabela de cabeçalho de compras (38) do seguinte modo:
Código existente 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);
...Código de substituição 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);
...Código existente 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);
...Código de substituição 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);
...Código existente 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");
...Código de substituição 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");
... -
Altere o código nos campos da tabela de informações da empresa (79) do seguinte modo:
Código existente... 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 }
...Código de substituição
... 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 }
... -
Altere o código nos campos na tabela de recursos (156) do seguinte modo:
Código existente... { 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),
...Código de substituição
... { 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),
... -
Altere o código nos campos existentes na tabela de projecto (167) do seguinte modo:
Código existente... 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
...Código de substituição
... 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
... -
Altere o código nos campos da tabela Envio-a endereço (222) do seguinte modo:
Código existente... 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"
...Código de substituição
... 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"
... -
Altere o código na função ClearFields na tabela código postal (225) do seguinte modo:
Código existente... 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.
}
}
...Código de substituição
... CountryCode := PostCodeRec."Country/Region Code";
County := PostCodeRec.County;
END;
END;
BEGIN
END.
}
}
... -
Altere o código nos campos na tabela conta bancária (270) do seguinte modo:
Código existente... 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.)));
...Código de substituição
... 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.)));
... -
Altere o código nos campos na tabela cabeçalho da carta de aviso (295) do seguinte modo:
Código existente... 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
...Código de substituição
... 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
... -
Altere o código nos campos na tabela cabeçalho da nota de juros (302) do seguinte modo:
Código existente... 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
...Código de substituição
... 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
... -
Altere o código nos campos da tabela ' Contacto ' (5050) do seguinte modo:
Código existente... { 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 }
...Código de substituição
... { 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 }
... -
Altere o código nos campos na tabela Endereço Alt. contacto (5051) do seguinte modo:
Código existente... 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 }
...Código de substituição
... 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 }
... -
Altere o código nos campos na tabela Empregado (5200) do seguinte modo:
Código existente... { 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
...Código de substituição
... { 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
... -
Altere o código nos campos na tabela endereço alternativo (5201) do seguinte modo:
Código existente... { 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 }
}
...Código de substituição
... { 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 }
}
... -
Altere o código nos campos da tabela de União (5209) do seguinte modo:
Código existente... { 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 }
}
...Código de substituição
... { 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 }
}
... -
Altere o código nos campos na tabela Centro de responsabilidade (5714) do seguinte modo:
Código existente... 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));
...Código de substituição
... 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));
... -
Altere o código nos campos na tabela Cabeç. Transfer (5740) do seguinte modo:
Código existente 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
...Código de substituição 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
...Código existente 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",
...Código de substituição 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",
... -
Altere o código nos campos da tabela de cabeçalho de serviço (5900) do seguinte modo:
Código existente 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;
...Código de substituição 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;
...Código existente 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
...Código de substituição 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
...Código existente 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;
...Código de substituição 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;
... -
Altere o código nos campos da tabela de cabeçalho do envio devolução (6650) do seguinte modo:
Código existente 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);
...Código de substituição 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);
...Código existente 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);
...Código de substituição 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);
...Código existente 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 }
...Código de substituição 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 }
... -
Altere o código nos campos da tabela de cabeçalho de recepção de devolução (6660) do seguinte modo:
Código existente 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);
...Código de substituição 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);
...Código existente 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);
...Código de substituição 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);
...Código existente 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 }
...Código de substituição 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 }
...
Pré-requisitos
Tem de ter o Microsoft Dynamics NAV 2013 instalado para aplicar esta correcção.
Informações de remoção
Não é possível remover esta correcção.
Estado
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .
