Autor
Mensagem
Boa Noite, não sei se alguem ja passou pelo seguinte problema,
em um botao novo eu dou um append qpara um novo registro, quando não navego pelo dbgrid funciona normalmente, ou seja insere um registro no final do cds, agora se eu me movimentar pelo dbgrid e em seguida clicar nesse botao novo para dar um append para um novo registro o mesmo não entra em modo de edicao, continua em modo browse.
Não sei se consegui me expressar de forma clara !
aí vai.
Obrigado!
procedure TfrmCaixaLancto.btnNovo_nClick(Sender: TObject);
begin
if gRegistro = EmptyStr then
Begin
MessageDlg('Por Favor, Escolha um Caixa/Banco para trabalhar!',mtInformation,[mbOk],0);
Exit;
end;
DM.cds_Caixa_lancto.Cancel;
DM.cds_Caixa_lancto.Append;
grpDados_Lancamentos.Enabled := True;
HabilitaCampos(True);
dbchkExporta_contabilidade.Checked := True;
{Botões}
btnSeleciona.Enabled := False;
btnNovo_n.Enabled := False;
btnSalvar_n.Enabled := True;
btnCancelar_n.Enabled := True;
btnEditar_n.Enabled := False;
btnExcluir_n.Enabled := False;
btnImprimir_n.Enabled := False;
btnSair_n.Enabled := True;
grdDados.Enabled := False;
dbeDocumento.SetFocus;
end;






País: Brasil
Estado: RS
Cidade: Caxias do Sul
Mensagens: 1574
Citação:
Bom Dia,
Já tentei usar o insert e o problema persiste.
Grato pela ajuda!
Bom Dia,
Já tentei usar o insert e o problema persiste.
Grato pela ajuda!
Bom dia
Comente tudo! Deixando apenas, a abertura e o fechamento do clientdataset, o grid ligado ao datasource (nada de eventos!) e o código referente ao botão novo! Testa! Funcionou? Então vai retirando gradativamente os comentários e testando. Isso é uma forma de tentarmos descobrir, o que está ocorrendo.
[]'s






