[firebase-br] Meio OFF - select com join

Reijanio Nunes Ribeiro rnribeiro em gmail.com
Ter Nov 6 10:42:07 -03 2007


salve galera to meio q no sufoco precisando da ajuda de vc's fiz um select
com join em um sqldataset, pra poder fazer a consulta do tipo incremental de
titulos, pq usando um campo do tipo lookup não da pra fazer esse tipo de
coisa e tenho um botão onde ao clicar nele copia da tabela de duplicatas pra
duplicatasbaixadas e deleta o registro da mesma(duplicatas) so q usando
select com join não aceita nem deletar nem editar, nem salvar nem registro,
ja tentei deixar o campo relacionado como psHidem = true; já tentei deixar
ele como somente leitura ja fiz de tudo um pouco e não consigo fazer salvar
poderiam me dar uma ajuda o código do botão é esse:

procedure TformDup.valorClick(Sender: TObject);
begin
if Application.MessageBox('Deseja Realmente Baixar essa
duplicata','Aviso',0+mb_yesno)= mryes then
begin
Screen.Cursor := crSQLWait;
dm.cdsDuplicatasBaixadas.Insert;
dm.cdsDuplicatasBaixadasIDDUP.Value := dm.Duplicatas2IDDUP.value;
dm.CdsDuplicatasBaixadasDOC.Value := dm.Duplicatas2DOC.Value;
dm.CdsDuplicatasBaixadasIDCLI.Value := dm.Duplicatas2IDCLI.Value;
dm.CdsDuplicatasBaixadasVENC.Value := dm.Duplicatas2VENC.Value;
dm.CdsDuplicatasBaixadasVALOR.Value := dm.Duplicatas2VALOR.Value;
dm.CdsDuplicatasBaixadasSITUACAO.Value := dm.Duplicatas2SITUACAO.Value;
dm.CdsDuplicatasBaixadasDIAS_ATRASO.Value := dm.Duplicatas2DIAS_ATRASO.Value
;
dm.cdsDuplicatasBaixadasVALORPGTO.Value := dm.Duplicatas2VALORPGTO.Value;
dm.cdsDuplicatasBaixadas.Post;
dm.cdsDuplicatasBaixadas.ApplyUpdates(0);
dm.duplicatas2.Delete;
dm.Duplicatas2.ApplyUpdates(0);
end
else
dm.Duplicatas2.CancelUpdates;
dm.cdsDuplicatasBaixadas.CancelUpdates;
Screen.Cursor := crDefault;
edtpesquisa.SetFocus;
end;


e o codigo do select é esse:
SELECT D.*,S.NOME FROM DUPLICATAS D INNER JOIN SACADO S ON (D.IDCLI =
S.IDCLI)



Mais detalhes sobre a lista de discussão lista