Hola buen dia!, tengo una duda sobre como consultar en un query el estado de uno de sus campo (el campo es booleano), mi s codigos seria los siguientes (SQL y el de delphi):
Código Delphi
[-]procedure TForm_Reparaciones.SpeedButton1Click(Sender: TObject);
Var
dia1,dia2:string;
Total,cobrado:real;
Pagado:boolean;
begin
dbgrid1.DataSource:=Datamodule1.DS_Query_Reparaciones;
dia1:= FormatDateTime('dd/mm/yy', monthcalendar1.Date);
dia2:= FormatDateTime('dd/mm/yy', monthcalendar2.Date);
DataModule1.Query_reparaciones.Close;
DataModule1.Query_Reparaciones.Parameters.ParamByName('fecha1').Value:= dia1;
DataModule1.Query_Reparaciones.Parameters.ParamByName('fecha2').Value:= dia2;
DataModule1.Query_Reparaciones.Open;
Total:=0;
cobrado:=0;
Pagado:= datamodule1.Query_Reparaciones.FieldByName('Pagado').Value;
while not (DataModule1.Query_reparaciones.Eof) do
begin
if (datamodule1.Query_Reparaciones.FieldByName('Precio_Final').asString <> '') and
(datamodule1.Table_RMA.FieldByName('Precio_Final').AsString <> '0') then
if (pagado = true) then
cobrado:= cobrado + strtofloat(DataModule1.Query_Reparaciones.FieldByName('Precio_Final').AsString);
Total:= Total + strtofloat(DataModule1.Query_Reparaciones.FieldByName('Precio_Final').AsString);
DataModule1.Query_Reparaciones.Next;
end;
Label3.Caption:= floatTostr(Total);
label5.caption:= floattostr(cobrado);
end;
Código SQL
[-]SELECT
Fecha,
RMA,
CodCliente,
Cliente,
Equipo1,
Equipo2,
Equipo3,
Precio_Final,
MO,
Pagado
FROM
RMA
WHERE
(:fecha1 <= Fecha) and (Fecha <= :fecha2)
order by(fecha)
Muchas gracias pos su ayuda y muy feliz dia a todas aquellas q sean madres!