[RESOLVIDO] Gracias a todos por la mano,consegui hacerlo de esta manera.
[RESOLVIDO]
Gracias a todos por la mano,consegui hacerlo de esta manera.
Código Delphi [-]
procedure TFrmConVenta.BitBtn1Click(Sender: TObject);
begin
if CheckBox1.Checked = false then
begin
DBGrid1.DataSource.DataSet := dm_dados.sqlConVenta;
dm_dados.sqlConVenta.Close;
dm_dados.sqlConVenta.ParamByName('mov').AsInteger:=StrToInt(editcodini.Text);
dm_dados.sqlConVenta.ParamByName('numvend').AsInteger:=StrToInt(editcodvend.Text);
dm_dados.sqlConVenta.ParamByName('numcli').AsInteger:=StrToInt(edtnumcli.Text);
dm_dados.sqlConVenta.ParamByName('datavend').AsDate:=StrToDate(MaskEdit1.Text);
dm_dados.sqlConVenta.Open;
end
else
begin
If CheckBox1.Checked = true then
DBGrid1.DataSource.DataSet:= sql_sem_filtro;
MaskEdit1.Text := DateToStr(date);
begin
sql_sem_filtro.Close;
sql_sem_filtro.ParamByName('datavend').AsDate:=StrToDate(MaskEdit1.Text);
sql_sem_filtro.Open;
end;
end;
end;
end.
Última edición por Dergon fecha: 09-08-2017 a las 22:20:24.
Razón: Corrigiendo
|