Skip to main content
adicionou 1909 caracteres ao conteúdo
Fonte Link

Por Ex.:Olhando um pouco no framework, consegui identificar o que é feito para trazer os dados da tabela do relatório (mostrarei aqui abreviada, pois algumas informações não são relevantes para a questão)

 SELECT
      CAST(CONCAT(`lr`.`ID`,`pr`.`ID`) AS UNSIGNED) AS `ID`,
      CONCAT(`lr`.`NUMERO_DOCUMENTO`,'-',`pr`.`NUMERO_PARCELA`,'/',`lr`.`QUANTIDADE_PARCELA`) AS `DOCUMENTO`,
      `lr`.`ID`                        AS `ID_LANCAMENTO_RECEBER`,
      `lr`.`QUANTIDADE_PARCELA`        AS `QUANTIDADE_PARCELA`,
      `lr`.`VALOR_A_RECEBER`           AS `VALOR_LANCAMENTO`,
      `lr`.`NUMERO_DOCUMENTO`          AS `NUMERO_DOCUMENTO`,
      `lr`.`ID_PROCESSO_EXPORTACAO`    AS `ID_PROCESSO_EXPORTACAO`,
      `exportacao_processo`.`SITUACAO` AS `SITUACAO`,
      `pr`.`VALOR_RECEBIDO`            AS `VALOR_RECEBIDO`,
      `pr`.`VALOR_RECEBER`             AS `VALOR_RECEBER`,
      `lr`.`ID_MOEDA`                  AS `ID_MOEDA`,
      `moeda`.`NOME`                   AS `NOME_MOEDA`

    FROM (((((((`fin_lancamento_receber` `lr`
             JOIN `fin_parcela_receber` `pr`)
            JOIN `pessoa` `p`)
           JOIN `cliente` `c`)
          JOIN `fin_status_parcela` `s`)
         JOIN `conta_caixa` `cc`)
        JOIN `moeda`
          ON ((`lr`.`ID_MOEDA` = `moeda`.`ID`)))
       LEFT JOIN `exportacao_processo`
         ON ((`exportacao_processo`.`ID` = `lr`.`ID_PROCESSO_EXPORTACAO`)))
    WHERE ((`pr`.`ID_FIN_LANCAMENTO_RECEBER` = `lr`.`ID`)
           AND (`pr`.`ID_FIN_STATUS_PARCELA` = `s`.`ID`)
           AND (`lr`.`ID_CLIENTE` = `c`.`ID`)
           AND (`c`.`ID_PESSOA` = `p`.`ID`)
           AND (`pr`.`ID_CONTA_CAIXA` = `cc`.`ID`))

A Minha ideia é Calcular o Total de "Valor Recebido" em Dolar, Euro, Libra, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

===========================================|===========================================|
id_moeda|id_moeda |nome_moeda|valor_total_a_receber |
==========================================|===========================================|
155|155      | EURO     |155.251,65            | 
84|84       |LIBRA     |25.486,98             |
|===========================================|

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libra, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

===========================================
id_moeda |nome_moeda|valor_total_a_receber
==========================================
155      | EURO     |155.251,65
84       |LIBRA     |25.486,98

Olhando um pouco no framework, consegui identificar o que é feito para trazer os dados da tabela do relatório (mostrarei aqui abreviada, pois algumas informações não são relevantes para a questão)

 SELECT
      CAST(CONCAT(`lr`.`ID`,`pr`.`ID`) AS UNSIGNED) AS `ID`,
      CONCAT(`lr`.`NUMERO_DOCUMENTO`,'-',`pr`.`NUMERO_PARCELA`,'/',`lr`.`QUANTIDADE_PARCELA`) AS `DOCUMENTO`,
      `lr`.`ID`                        AS `ID_LANCAMENTO_RECEBER`,
      `lr`.`QUANTIDADE_PARCELA`        AS `QUANTIDADE_PARCELA`,
      `lr`.`VALOR_A_RECEBER`           AS `VALOR_LANCAMENTO`,
      `lr`.`NUMERO_DOCUMENTO`          AS `NUMERO_DOCUMENTO`,
      `lr`.`ID_PROCESSO_EXPORTACAO`    AS `ID_PROCESSO_EXPORTACAO`,
      `exportacao_processo`.`SITUACAO` AS `SITUACAO`,
      `pr`.`VALOR_RECEBIDO`            AS `VALOR_RECEBIDO`,
      `pr`.`VALOR_RECEBER`             AS `VALOR_RECEBER`,
      `lr`.`ID_MOEDA`                  AS `ID_MOEDA`,
      `moeda`.`NOME`                   AS `NOME_MOEDA`

    FROM (((((((`fin_lancamento_receber` `lr`
             JOIN `fin_parcela_receber` `pr`)
            JOIN `pessoa` `p`)
           JOIN `cliente` `c`)
          JOIN `fin_status_parcela` `s`)
         JOIN `conta_caixa` `cc`)
        JOIN `moeda`
          ON ((`lr`.`ID_MOEDA` = `moeda`.`ID`)))
       LEFT JOIN `exportacao_processo`
         ON ((`exportacao_processo`.`ID` = `lr`.`ID_PROCESSO_EXPORTACAO`)))
    WHERE ((`pr`.`ID_FIN_LANCAMENTO_RECEBER` = `lr`.`ID`)
           AND (`pr`.`ID_FIN_STATUS_PARCELA` = `s`.`ID`)
           AND (`lr`.`ID_CLIENTE` = `c`.`ID`)
           AND (`c`.`ID_PESSOA` = `p`.`ID`)
           AND (`pr`.`ID_CONTA_CAIXA` = `cc`.`ID`))

A Minha ideia é Calcular o Total de "Valor Recebido" em Dolar, Euro, Libra, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

|===========================================|
|id_moeda |nome_moeda|valor_total_a_receber |
|===========================================|
|155      | EURO     |155.251,65            | 
|84       |LIBRA     |25.486,98             |
|===========================================|
Especificando Melhor a Maneira com que gostaria que trouxesse os dados
Fonte Link

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, pesquisei alguns métodos de fazê-lo com uma repetição que passava um parâmetro e somava o valor_a_receber com base em uma moeda específica, mas neste caso eu precisaria especificar cada uma das moedas, são mais de 150.

    while not CDSGrid.Eof do
  begin
  if cdsgrid.fielbyname('ID_MOEDA').AsInteger = 155 Then
  begin  
   ValorReceber := cdsgrid.fielbyname('valor_a_receber').AsExtended + 
 ValorReceber
    CDSGrid.Next;
  end;

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, LibreLibra, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

Tipo :

===========================================
id_moeda |nome_moeda|valor_total_a_receber
==========================================
155      | EURO     |155.251,65
84       |LIBRA     |25.486,98

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, pesquisei alguns métodos de fazê-lo com uma repetição que passava um parâmetro e somava o valor_a_receber com base em uma moeda específica, mas neste caso eu precisaria especificar cada uma das moedas, são mais de 150.

    while not CDSGrid.Eof do
  begin
  if cdsgrid.fielbyname('ID_MOEDA').AsInteger = 155 Then
  begin  
   ValorReceber := cdsgrid.fielbyname('valor_a_receber').AsExtended + 
 ValorReceber
    CDSGrid.Next;
  end;

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libre, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, pesquisei alguns métodos de fazê-lo com uma repetição que passava um parâmetro e somava o valor_a_receber com base em uma moeda específica, mas neste caso eu precisaria especificar cada uma das moedas, são mais de 150.

    while not CDSGrid.Eof do
  begin
  if cdsgrid.fielbyname('ID_MOEDA').AsInteger = 155 Then
  begin  
   ValorReceber := cdsgrid.fielbyname('valor_a_receber').AsExtended + 
 ValorReceber
    CDSGrid.Next;
  end;

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libra, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

Tipo :

===========================================
id_moeda |nome_moeda|valor_total_a_receber
==========================================
155      | EURO     |155.251,65
84       |LIBRA     |25.486,98
adicionado o tipo de banco de dados e o jeito de diferenciação das moedas e código já usado
Fonte Link

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, e não consigo pensar em uma maneira viávelpesquisei alguns métodos de fazê-lo com uma repetição que passava um parâmetro e somava o valor_a_receber com base em uma moeda específica, mas neste caso eu precisaria especificar cada uma das moedas, são mais de 150.

    while not CDSGrid.Eof do
  begin
  if cdsgrid.fielbyname('ID_MOEDA').AsInteger = 155 Then
  begin  
   ValorReceber := cdsgrid.fielbyname('valor_a_receber').AsExtended + 
 ValorReceber
    CDSGrid.Next;
  end;

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libre, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, e não consigo pensar em uma maneira viável de fazê-lo.

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libre, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

Bom, atualmente estou trabalhando num projeto no qual usamos ClientDataSet's para comunicar com o banco de dados. Meu problema é o Seguinte, Tenho um relatório de Recebimento no Setor de Exportação, em que tem vários registros em Várias Moedas diferentes.Eu preciso Somar o Valor das Parcelas do Recebimento, com Base na Sua Moeda, pesquisei alguns métodos de fazê-lo com uma repetição que passava um parâmetro e somava o valor_a_receber com base em uma moeda específica, mas neste caso eu precisaria especificar cada uma das moedas, são mais de 150.

    while not CDSGrid.Eof do
  begin
  if cdsgrid.fielbyname('ID_MOEDA').AsInteger = 155 Then
  begin  
   ValorReceber := cdsgrid.fielbyname('valor_a_receber').AsExtended + 
 ValorReceber
    CDSGrid.Next;
  end;

Estou Usando O Servidor MySQL 8.0, consigo distinguir as moedas por um campo chamado ID_MOEDA que contém somente 1 id específico para cada moeda (Ex.: ID_MOEDA Do Euro = 155);

Exemplo de Como São Exibidos os Dados

Por Ex.: Calcular o Total de "Valor Recebido" em Dolar, Euro, Libre, etc.. de Um Jeito Dinâmico que varra todos os registros, identifique as Moedas, e faça um totalizador para cada Moeda.

adicionado o tipo de banco de dados e o jeito de diferenciação das moedas
Fonte Link
Carregando
adicionado o tipo de banco de dados e o jeito de diferenciação das moedas
Fonte Link
Carregando
Pergunta fechada como "Não é adequada para este site" por Maniero
tags editadas
Link
Carregando
Fonte Link
Carregando