Código Delphi [-] with datamodule29.Query2 do Begin Close; SQl.Clear; SQL.Add('Select idmes from mes where mes=mes'); ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text; Open; mes:=FieldByName('idmes').AsInteger; Close; SQl.Clear; SQL.Add('Select * from mes where idmes=idmes'); ParamByName('pidmes').AsInteger:=mes; Open; inicio:=FieldByName('inicio').AsString; fin:=FieldByName('fin').AsString; Close; SQL.Clear; SQL.Add('Select cargat.carga, cargat.nocarga, cargat.fecha, tcomb.ntcomb from cargat,tcomb'); SQl.Add('Where cargat.fecha between inicio and fin and cargat.idtcomb=tcomb.idtcomb Order By cargat.fecha'); ParamByName('pinicio').AsString:=inicio; ParamByName('pfin').AsString:=fin; Open; end;
with datamodule29.Query2 do Begin Close; SQl.Clear; SQL.Add('Select idmes from mes where mes=mes'); ParamByName('pmes').AsString:=suiDBLookupComboBox2.Text; Open; mes:=FieldByName('idmes').AsInteger; Close; SQl.Clear; SQL.Add('Select * from mes where idmes=idmes'); ParamByName('pidmes').AsInteger:=mes; Open; inicio:=FieldByName('inicio').AsString; fin:=FieldByName('fin').AsString; Close; SQL.Clear; SQL.Add('Select cargat.carga, cargat.nocarga, cargat.fecha, tcomb.ntcomb from cargat,tcomb'); SQl.Add('Where cargat.fecha between inicio and fin and cargat.idtcomb=tcomb.idtcomb Order By cargat.fecha'); ParamByName('pinicio').AsString:=inicio; ParamByName('pfin').AsString:=fin; Open; end;