Venda de passagens - Reserva/venda de passagem

:roll: :? :shock: :( :x

Clubedelphi, preciso de ajuda !

Estou desenvolvendo um software de controle de empresa de turismo e viagens.

Estou tendo mmmmuita dificuldades na parte de vendas. Tenho um Tabela de clientes (Nome, datanasc, ...) - Viagens (Destino, Empresa (Onibus), Hotel, DataSaida, DataRetorno - Passageiros (Venda da Passagem) Onde serão cadastrados (Nome (tabela clientes), Destino (tabela destino), Poltrona (Não podem ser cadastradas duas pessoas na mesma poltrona. Não estou conseguindo nesta parte.), ValorTotal (valor da viagem), QtdParcelas e Valor das parcelas.

No formulário de Vendas: Tem os botoes (Novo, Alterar e Salvar)

Botao Novo: apenas uma linha de codigo: botao:= ´novo´;
Botao Alterar: botao:= ´alterar´;
Botao SALVAR:
procedure TControle.BitBtn2Click(Sender: TObject);
var
sai:boolean;
begin
table1.first;
sai:= false;
while sai = false do
begin
if Table1Poltrona.value = dbedit3.text then
begin
Application.MessageBox(´Esta poltrona já está ocupada! Escolha outra.´, ´Poltrona Ocupada´, MB_OK+MB_ICONERROR);
sai:= true;
end else begin
if botao = ´novo´ then
begin
table1.insert;
Table1Nome.value := DBComboBox1.Text;
Table1Destino.value :=DBComboBox2.text;
table1poltrona.value := dbedit3.text;
table1datasaida.value:= StrToDate(dbedit4.text);
table1dataretorno.value:=Strtodate(dbedit5.text);
table1valortotal.value:= strtoint(dbedit6.text);
table1qtdparcela.value:= Strtoint(dbedit7.text);
table1valorparcela.value:= strtoint(dbedit8.text);
table1.Post;
sai:= true;
end else begin
if botao = ´alterar´ then
begin
table1.edit;
Table1Nome.value := DBComboBox1.Text;
Table1Destino.value :=DBComboBox2.text;
table1poltrona.value := dbedit3.text;
table1datasaida.value:= StrToDate(dbedit4.text);
table1dataretorno.value:=Strtodate(dbedit5.text);
table1valortotal.value:= strtoint(dbedit6.text);
table1qtdparcela.value:= Strtoint(dbedit7.text);
table1valorparcela.value:= strtoint(dbedit8.text);
table1.Post;
sai:= true;
end;
end;
end;
end;
end;


Está acontencendo o seguinte:

Na hora q eu cadastro uma pessoa com o mesmo número de poltrona q outra cadastrada, continua cadastrando normalmente.
Quando eu coloco uma pessoa sem ter cadastrado uma pessoa na poltrona da a msg de poltrona ocupada.

Na tela tem um DBLookupCombobox2: Com todos os nomes dos clientes.
Um DbLookupcombobox1: Com todos os destinos
Um DBEdit3 da poltrona, dbedit6 do valortotal, dbedit7 com qtdparcelas e dbedit8 com valorparcela.

Espero q entendam o q eu disse...


OBS. Neste momento eu estou no msn: diegonunesmeira2@hotmail.com

Preciso de ajuda urgentemente!

Entrem em contato pelo msn e eu mando a UNIT com o erro !

Agradecido, Diego

[b:322f92d42c][color=red:322f92d42c]Título editado pelo Moderador (AZ) - Removido: ´Urgente´[/color:322f92d42c][/b:322f92d42c]