Murilo Piazza

Não sou muito experiente em delphi, não sei se devo inserir atravez de dbedit dentro do clientdataset para listar na grid

Como insiro os outros dados na OFIord Ao clicar no botao chamo a função transação procedure TfrmCadOS.btnInsAltClick(Sender: TObject); begin transacao('CadOS','confirma',cdsCadOS); if btnInsAlt.Caption = 'Inserir' then Messagedlg('Ordem de serviço gerada com sucesso!', mtInformation, [mbOk], 0); btnCan.Enabled := true; edtCod.SetFocus; end; procedure Transacao(Tellog, acao: string; ds: TClientDataSet); var ID : integer; trans : TTransactionDesc; begin try log(Tellog, acao, ds); if acao = 'confirma' then begin camposrequeridos(ds); ds.Post; end; if acao = 'Excluir' then begin ds.Delete; end; dm.Conexao.CloseDataSets; //qr.SQLConnection := dm.Conexao2; ds.ApplyUpdates(-1); //qr.SQLConnection := dm.Conexao; ds.Open; except ds.Cancel; MessageDlg('Não foi possivel executar a operação!', mtError, [mbOk], 0); Abort; end; end; Nela contem a procedure camposrequiridos procedure camposrequeridos(ds: TClientDataSet); var i, cont: Integer; msg: string; begin cont := 0; msg := 'Os campos abaixo não foram informados:' + #13; for i := 0 to ds.Fields.Count - 1 do begin if (ds.Fields[i].Required) and (ds.Fields[i].IsNull) then begin msg := msg + 'Campo: ' + ds.Fields[i].DisplayLabel + #13; cont := cont + 1; end; end; if cont > 0 then begin MessageDlg(msg, mtWarning, [mbOk], 0); abort; end; end;

Boa noite Vou explicar meu cenário Tenho uma query trazendo todos os dados da minha tabela tenho um datasetprovider ligado no meu clientdataset e um datasource ligado na minha query e a grid esta ligada ao meu DataSource Preciso listar na minha grid ''defeitos'' que estao na tabela OFIordDF (Minha query traz todos os dados dessa tabela) Porem quero fazer um filtro nessa amostra de dados, preciso trazer todos os defeitos onde o numero da minha ordem de serviço é X Explicando mais um pouco tenho a tabela OFIord onde insiro a minha ordem de servico e a OFIordDF onde insiro os defeitos da ordem de serviço inseridos na tabela anterior. Select usado na Query SELECT b.CdEmpresa, b.CdOrdemServico, b.CdDefeito, b.DtInclusao, b.DsUsuInclusao, b.DsDefeito FROM OFIOrdDf b inner join OFIOrd a on a.CdOrdemServico = b.CdOrdemServico PRECISO DE UM AUXILIO TAMBEM NA PARTE DE INSERIR OS DEFEITOS NA TABELA Pois preciso inserir os defeitos no clientdataset (Onde estarão listados na grid) e depois inserir o que esta na grid no banco Qualquer duvida ou questionamento é bem vindo