Pessoal, to montando uma procedure que quando clico no botao Novo Cliente
ele pega o Maximo código do cliente cadastrado e coloca pra min
automaticamente no TDBEdit o novo código do cliente. Mas esta gerando um
erro na hora que clico no botão Objeto Parameter definido incorretamente.
As iinformaçoes são inconsistentes e incompletas
O que ta de errado??
procedure TFrmCadCli.BtnNovoClick(Sender: TObject);
begin
with Datamodule6.ADOQuery1 do
begin
Close;
Datamodule6.ADOCommand1.CommandText := 'select max(codcli) as codigo
from CadCli';
Open;
end;
Datamodule6.ADO_CADCLI.insert;
if Datamodule6.ADOQuery1['codigo'] <> null then
Datamodule6.ADO_CADCLI['codcli'] := Datamodule6.ADOQuery1['codigo'] + 1
else
Datamodule6.ADO_CADCLI['codcli'] := '1';
Datamodule6.ADOQuery1.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
