Ver Mensaje Individual
  #7  
Antiguo 09-08-2017
Dergon Dergon is offline
Miembro
 
Registrado: nov 2015
Posts: 38
Reputación: 0
Dergon Va por buen camino
[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 23:20:24. Razón: Corrigiendo
Responder Con Cita