Skip to main content
tags editadas
Link
Sorack
  • 26,5mil
  • 6
  • 43
  • 96
Fonte Link
wribeiro
  • 281
  • 3
  • 20

Diferença entre consultas MySQL - Delphi

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