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);
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.
Tipo :
|===========================================|
|id_moeda |nome_moeda|valor_total_a_receber |
|===========================================|
|155 | EURO |155.251,65 |
|84 |LIBRA |25.486,98 |
|===========================================|