Total n. º Facturas ou notas de crédito"está incorrectas na versão suíça do Microsoft Dynamics NAV 2009

Modelo: CPR - modelo do Navision código Fiacx

BUGS #: 211717 (Manutenção do conteúdo)

Quando utiliza o idioma alemão (Suíça) para iniciar o relatório do 11584 para 11587 na versão suíça do Microsoft Dynamics NAV 2009, o Total n. º Facturas ou notas de crédito"é sempre mostradas como zero. Este problema ocorre no seguinte produto:

  • A versão suíça do Microsoft Dynamics NAV 2009 R2

  • A versão suíça do Microsoft Dynamics NAV 2009 SP1

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 2009 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.

Se esta correcção não está registada para transferência pública (ou seja, que um URL público para esta correcção não é fornecido neste artigo), a distribuição requer responsável técnico, o membro da equipa de escalamento ou aprovação do gestor e aplicam as seguintes informações:

  • Para receber a correcção, os clientes tem de estar a ocorrer o erro mencionada na secção "Sintomas".

  • Terá de controlar os clientes, esta opção para enviar e fornecer-lhes o próximo service pack quando se tornar disponível (se é lançado um service pack).

Esta correcção está agendada para ser incluída numa versão espanhola do Microsoft Dynamics NAV 2013 ou o Microsoft Dynamics NAV 2013 R2 Service Pack.

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 Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. 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 9015 de ID de objecto de sistema

    objecto.

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 testar sempre correções de código num ambiente controlado antes de aplicar as correcções para os computadores de produção. Antes de aplicar a alteração, volte a importar todas as actualizações SEPA.

Para resolver este problema, siga estes passos:

  1. Altere o código nas secções dados produto número 1 na tabela Dsct SR. Lista de facturas relatório padrão (11584):
    Código existente

    ...ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Delete the following lines.
    SourceExpr="Document Type";
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...

    Código de substituição

    ...   ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Add the following lines.
    SourceExpr=[ ("Document Type" = "Document Type"::Invoice)];
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    { 1150010;TextBox ;17100;0 ;150 ;423 ;Visible=No;
    SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
    // End of the added lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...



  2. Altere o código na função CalcExrate na tabela Dsct SR. Lista de facturas relatório padrão (11584):
    Código existente 1

    ...<PaddingLeft>2pt</PaddingLeft>
    <PaddingRight>2pt</PaddingRight>
    </Style>
    <Value>=iif(True,
    CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Delete the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)
    // End of the deleted line.

    +CStr(Code.CalcProfit(Fields!Cust__Ledger_Entry__Profit__LCY__.Value))+chr(177)
    +CStr(Code.CalcFooterProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY__.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY__.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    ...

    Código de substituição 1

    ...<PaddingLeft>2pt</PaddingLeft>
    <PaddingRight>2pt</PaddingRight>
    </Style>
    <Value>=iif(True,
    CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Add the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+Chr(177)
    // End of the added line.

    +CStr(Code.CalcProfit(Fields!Cust__Ledger_Entry__Profit__LCY__.Value))+chr(177)
    +CStr(Code.CalcFooterProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY__.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY__.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    ...

    Código existente 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Delete the following lines.
    Function CalcNoOfInvoices(DocumentType as string)
    if DocumentType = "Invoice"
    // End of the deleted lines.
    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function

    ...

    Código de substituição 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Add the following lines.
    Function CalcNoOfInvoices(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function

    ...

    Código existente 3

    ...NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Delete the following lines.
    Function CalcNoOfCredMemos(DocumentType as string)
    if DocumentType = "Credit Memo"
    // End of the deleted lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function

    ...

    Código de substituição 3

    ...NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Add the following lines.
    Function CalcNoOfCredMemos(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function

    ...

    Código existente 4

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY__">
    <DataField>Cust__Ledger_Entry__Amount__LCY__</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY__Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY__Format</DataField>
    ...

    Código de substituição 4

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>

    // Add the following lines.
    <Field Name="Cust__Ledger_Entry__Document_Type_1">
    <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
    </Field>
    // End of the added lines.

    <Field Name="Cust__Ledger_Entry__Amount__LCY__">
    <DataField>Cust__Ledger_Entry__Amount__LCY__</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY__Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY__Format</DataField>
    ...
  3. Altere o código nas secções dados produto número 1 na tabela Dsct SR. Relatório FCY de lista de facturas (11585):
    Código existente

    ...  ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Delete the following lines.
    SourceExpr="Document Type";
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...

    Código de substituição

    ... ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Add the following lines.
    SourceExpr=("Document Type" = "Document Type"::Invoice);
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    { 1150011;TextBox ;17100;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;
    SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
    // End of the added lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...
  4. Altere o código na função CalcExrate na tabela Dsct SR. Relatório FCY de lista de facturas (11585):
    Código existente 1

    ...<TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Delete the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
    // End of the deleted line.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control56.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...

    Código de substituição 1

    ...<TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Add the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
    // End of the added line.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control56.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...


    Código existente 2

     TotalProfitLCY = 0      TotalProfitPct  = 0
    TotalAmountLCY = 0
    End Function


    // Delete the following lines.
    Function CalcNoOfInvoices(DocumentType as string)
    if DocumentType = "Invoice"
    // End of the deleted lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código de substituição 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Add the following lines.
    Function CalcNoOfInvoices(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código existente 3

    ...NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Delete the following lines.
    Function CalcNoOfCredMemos(DocumentType as string)
    if DocumentType = "Credit Memo"
    // Add of the deleted lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código de substituição 3

    ...NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Add the following lines.
    Function CalcNoOfCredMemos(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código existente 4

    ...TotalAmountLCY = TotalAmountLCY + AmountLCY 
    return TotalAmountLCY
    End Function</Code>
    <DataSets>
    <DataSet Name="DataSet_Result">
    <Fields>
    <Field Name="Customer_Invoices_ListCaption">
    <DataField>Customer_Invoices_ListCaption</DataField>
    </Field>
    <Field Name="FORMAT_TODAY_0_4_">
    ...

    Código de substituição 4

    ...TotalAmountLCY = TotalAmountLCY + AmountLCY 
    return TotalAmountLCY
    End Function</Code>
    <DataSets>
    <DataSet Name="DataSet_Result">

    // Add the following lines.
    <DataSetInfo xmlns="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
    <DataSetName>DataSet</DataSetName>
    <TableName>Result</TableName>
    </DataSetInfo>
    // End of the added lines.

    <Fields>
    <Field Name="Customer_Invoices_ListCaption">
    <DataField>Customer_Invoices_ListCaption</DataField>
    </Field>
    <Field Name="FORMAT_TODAY_0_4_">
    ...

    Código existente 5

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_No___Control11">
    <DataField>Cust__Ledger_Entry__Document_No___Control11</DataField>
    </Field>
    <Field Name="COPYSTR_FORMAT__Document_Type___1_1__Control13">
    <DataField>COPYSTR_FORMAT__Document_Type___1_1__Control13</DataField>
    ...

    Código de substituição 5

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>

    // Add the following lines.
    <Field Name="Cust__Ledger_Entry__Document_Type_1">
    <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
    </Field>
    // End of the added linds.

    <Field Name="Cust__Ledger_Entry__Document_No___Control11">
    <DataField>Cust__Ledger_Entry__Document_No___Control11</DataField>
    </Field>
    <Field Name="COPYSTR_FORMAT__Document_Type___1_1__Control13">
    <DataField>COPYSTR_FORMAT__Document_Type___1_1__Control13</DataField>
    ...

    Código existente 6

    ... </Fields>
    <Query>
    <CommandText />
    <DataSourceName>DummyDataSource</DataSourceName>
    </Query>

    // Delete the following lines.
    <rd:DataSetInfo>
    <rd:DataSetName>DataSet</rd:DataSetName>
    <rd:TableName>Result</rd:TableName>
    </rd:DataSetInfo>
    // End of the deleted lines.

    </DataSet>
    </DataSets>
    <DataSources>
    <DataSource Name="DummyDataSource">
    <ConnectionProperties>
    ...

    Código de substituição 6

    ...</Fields>
    <Query>
    <CommandText />
    <DataSourceName>DummyDataSource</DataSourceName>
    </Query>
    </DataSet>
    </DataSets>
    <DataSources>
    <DataSource Name="DummyDataSource">
    <ConnectionProperties>
    ...
  5. Altere o código nas secções dados produto número 1 na tabela Dsct SR. Lista de facturas mapa (11586) de registo:
    Código existente

    ...  ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Delete the following lines.
    SourceExpr="Document Type";
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...

    Código de substituição

    ...ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Add the following lines.
    SourceExpr=("Document Type" = "Document Type"::Invoice);
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    { 1150012;TextBox ;17100;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;
    SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
    // End of the added lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...
  6. Altere o código na função CalcExrate na tabela Dsct SR. Lista de facturas mapa (11586) de registo:
    Código existente 1

    ...TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Delete the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
    // End of the deleted lines.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control41.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...

    Código de substituição 1

    ... <TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Add of the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
    // End of the added line.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control41.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...

    Código existente 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Delete the following lines.
    Function CalcNoOfInvoices(DocumentType as string)
    if DocumentType = "Invoice"
    // End of the deleted lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código de substituição 2

    ... TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Add the following lines.
    + Function CalcNoOfInvoices(DocumentType as Boolean)
    + if DocumentType
    // End of the added lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código existente 3

    ...end if
    return NoOfInvoices
    End Function

    Function CalcNoOfCredMemos(DocumentType as string)

    // Delete the following line.
    if DocumentType = "Credit Memo"
    // End of the deleted line.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código de substituição 3

    ...end if
    return NoOfInvoices
    End Function

    Function CalcNoOfCredMemos(DocumentType as string)

    // Add the following line.
    if DocumentType
    // End of the added line.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código existente 4

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control41</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control41Format</DataField>
    ...

    Código de substituição 4

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>

    // Add the following lines.
    <Field Name="Cust__Ledger_Entry__Document_Type_1">
    <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
    </Field>
    // End of the added lines.

    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control41</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control41Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control41Format</DataField>
    ...


  7. Altere o código nas secções dados produto número 1 na tabela Dsct SR. Relatório de pagamento de lista de facturas (11587):
    Código existente

    ... ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Delete the following lines.
    SourceExpr="Document Type";
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    // End of the deleted lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...

    Código de substituição

    ... ForeColor=65535;
    SourceExpr="Sales (LCY)";
    DataSetFieldName=Cust__Ledger_Entry__Sales__LCY__ }
    { 1150005;TextBox ;17250;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;

    // Add the following lines.
    SourceExpr=("Document Type" = "Document Type"::Invoice);
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_ }
    { 1150013;TextBox ;17100;0 ;150 ;423 ;Visible=No;
    ForeColor=65535;
    SourceExpr=("Document Type" = "Document Type"::"Credit Memo");
    DataSetFieldName=Cust__Ledger_Entry__Document_Type_1 }
    // End of the added lines.

    }
    }
    { PROPERTIES
    {
    SectionType=Body;
    ...
  8. Altere o código na função CalcExrate na tabela Dsct SR. Relatório de pagamento de lista de facturas (11587):
    Código existente 1

    ...<TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    //Delete the following line.
    +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_.Value))+chr(177)
    // End of the deleted line.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control100.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...

    Código de substituição 1

    ...<TextAlign>Right</TextAlign>
    <VerticalAlign>Middle</VerticalAlign>
    </Style>
    <Value>=iif(True
    ,CStr(Code.CalcNoOfInvoices(Fields!Cust__Ledger_Entry__Document_Type_.Value))+Chr(177)

    // Add the following line.
    + +CStr(Code.CalcNoOfCredMemos(Fields!Cust__Ledger_Entry__Document_Type_1.Value))+chr(177)
    // End of the added line.

    +CStr(Code.CalcProfitPct(Fields!Cust__Ledger_Entry__Profit__LCY___Control33.Value,Fields!Cust__Ledger_Entry__Sales__LCY__.Value))+chr(177)
    +CStr(Code.CalcAmountLCY(Fields!Cust__Ledger_Entry__Amount__LCY___Control100.Value)),"")</Value>
    </Textbox>
    </ReportItems>
    </TableCell>
    ...

    Código existente 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Delete the following lines.
    Function CalcNoOfInvoices(DocumentType as string)
    if DocumentType = "Invoice"
    // End of the deleted lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código de substituição 2

    ...TotalProfitLCY = 0
    TotalProfitPct = 0
    TotalAmountLCY = 0
    End Function


    // Add the following lines.
    Function CalcNoOfInvoices(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    ...

    Código existente 3

    ...NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Delete the following lines.
    Function CalcNoOfCredMemos(DocumentType as string)
    if DocumentType = "Credit Memo"
    // End of the deleted lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código de substituição 3

    ... NoOfInvoices += 1
    end if
    return NoOfInvoices
    End Function


    // Add the following lines.
    Function CalcNoOfCredMemos(DocumentType as Boolean)
    if DocumentType
    // End of the added lines.

    NoOfCredMemos += 1
    end if
    return NoOfCredMemos
    End Function


    ...

    Código existente 4

    ...<DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control100</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control100Format</DataField>
    ...

    Código de substituição 4

    ... <DataField>Cust__Ledger_Entry__Sales__LCY__Format</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Document_Type_">
    <DataField>Cust__Ledger_Entry__Document_Type_</DataField>
    </Field>

    // Add the following lines.
    <Field Name="Cust__Ledger_Entry__Document_Type_1">
    <DataField>Cust__Ledger_Entry__Document_Type_1</DataField>
    </Field>
    // End of the added lines.

    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control100</DataField>
    </Field>
    <Field Name="Cust__Ledger_Entry__Amount__LCY___Control100Format">
    <DataField>Cust__Ledger_Entry__Amount__LCY___Control100Format</DataField>
    ...






Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • A versão suíça do Microsoft Dynamics NAV 2009 R2

  • A versão suíça do Microsoft Dynamics NAV 2009 SP1

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".

Referências

DynamicsNAVSE VSFT: 337170

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.

Author: Vanessa.Garcia
Writer: v-luzo
Revisor técnico: Vanessa.Garcia
Editor:

Precisa de mais ajuda?

Aumente os seus conhecimentos
Explore as formações
Seja o primeiro a obter novas funcionalidades
Aderir ao Microsoft insiders

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×