Boa tarde, estou fazendo rotina pra fechamento do inventário tanto no SPED como Sintegra, porém está dando diferença no somatório dos dois. Estou usando data como referência 31/12/2018. Estou usando a mesma consulta mas de formas diferentes, no qual o valor correto seria o do sintegra, e do sped está dando a mais, onde será que estou errando? Segue meus códigos:
CÓDIGO DO SINTEGRA:
procedure TFSintegraTela.PopulaCDSEstoqueRegistro74(pDataFim: TDate);
var
SQL, DataEstoque : String;
begin
CDSEstoque.Filtered := False;
CDSEstoque.Filter := '';
DataEstoque := FormatDateTime('yyyy-mm-dd',pDataFim);
SQL := 'SELECT M.ID_PRODUTO,A.NOME_PRODUTO, A.NCM, SUM(M.QUANTIDADE) AS QTDADE, SUM(M.VALOR_TOTAL) AS CUSTO_TOTAL, '+
'(SUM(M.VALOR_TOTAL) / SUM(M.QUANTIDADE)) AS CUSTO_UNI, B.SIGLA AS UND '+
'FROM movimento_produto M '+
'INNER JOIN produto A ON (A.ID = M.ID_PRODUTO) '+
'INNER JOIN unidade_produto B ON (B.ID = A.ID_UNIDADE) '+
'WHERE (M.DATA_MOVIMENTO <= '+QuotedStr(DataEstoque)+') '+
'GROUP BY M.ID_PRODUTO ORDER BY A.NOME_PRODUTO;' ;
QueryEstoque.Close;
QueryEstoque.SQLConnection := TDBExpress.getConexao;
QueryEstoque.SQL.Text := SQL;
QueryEstoque.Open;
CDSEstoque.Active :=True;
CDSEstoque.First;
if RadioEstoques.ItemIndex = 0 then
begin
CDSEstoque.Filtered := False;
CDSEstoque.Filter := 'QTDADE > 0';
CDSEstoque.Filtered := True;
end
else
CDSEstoque.Filtered := False;
end;
end;
Ao final ele me retorna: Rows: 5;396 Valor total do inventário: 623.837,97
CÓDIGO DO SPED:
procedure PopulaCDSBlocoH(pDataFim: TDate);
var
SQL, DataEstoque: String;
cdsTemp: TClientDataSet;
begin
CDSEstoque := TSQLQuery.Create(nil);
DataEstoque := FormatDateTime('yyyy-mm-dd', pDataFim);
SQL := 'SELECT M.ID_PRODUTO, A.NOME_PRODUTO, A.NCM, SUM(M.QUANTIDADE) AS QTDADE, ' +
'SUM(M.VALOR_TOTAL) AS CUSTO_TOTAL, '+
'(SUM(M.VALOR_TOTAL) / SUM(M.QUANTIDADE)) AS CUSTO_UNI, B.SIGLA AS UND '+
'FROM movimento_produto M '+
'INNER JOIN produto A ON (A.ID = M.ID_PRODUTO) '+
'INNER JOIN unidade_produto B ON (B.ID = A.ID_UNIDADE) '+
'WHERE (M.DATA_MOVIMENTO <= '+QuotedStr(DataEstoque)+') '+
'AND M.QUANTIDADE > 0 GROUP BY M.ID_PRODUTO ORDER BY A.NOME_PRODUTO';
CDSEstoque.SQLConnection := TDBExpress.getConexao;
CDSEstoque.SQL.Text := SQL;
CDSEstoque.Open;
CDSEstoque.First;
end;
Ao final ele me retorna: Rows: 6.996 Valor total do inventário: 1.449,628,17