Aqui va
este es el proceso...
Código:
procedure TfrmGastos.BitBtn1Click(Sender: TObject);
begin
try
if edGastos.Value = 0 then
showmessage('Falta ingresar los gastos de fabricación...')
else
begin
qryTotalizado.First;
qryUpdate.Params[0].asfloat := qryTotalizadoUni.value;
qryUpdate.Params[1].asfloat := edGastos.value;
qryUpdate.ExecSQL;
end;
showMessage('Proceso Terminado...');
except
on E:Exception do Errores(E.Message);
end;
end;
este proceso es el de Actualizar el Grid...
Código:
procedure TfrmGastos.BitBtn3Click(Sender: TObject);
begin
GridGtos.DataSource.DataSet.Refresh;
end;
y este lo que tiene el componente llamado qryUpdate...
Código:
UPDATE Ventas V
SET
impgtosfab = (V.unidades / :pTotal) * :pTotGtos
WHERE
V.codigoprod = (SELECT codigoprod FROM Producto P WHERE P.codigoprod = V.codigoprod AND P.gtosfab = '*')