Fórum Comando em Delphi #223762

:cry:

Olá,

Estou de volta com mais uma dúvida, eu tenho um form na minha aplicação que trabalha Tabela Master e Tabela Detalhes e toda vez que eu tenho que inserir algum tipo de dados eu entro com os dados para a tabela master aí eu salvo para gerar um código e depois edito para terminar de inserir os dados, como devo procedir para evitar essa trabalheira toda, segue a linha de comando que estou usando:



procedure Tfrm_Grow.SalvarExecute(Sender: TObject);
Var
T : Integer;
V_total : Real;
begin
T := MB_OK + MB_ICONINFORMATION;
if Trim(DBCTipo.Text)= ´´ Then
begin
Application.MessageBox(´Informe o Tipo de Venda´,´Informe´,T);
DBCTipo.SetFocus;
end
else
begin
if trim(DBLVendedor.Text) = ´´ Then
begin
Application.MessageBox(´Informe o Vendedor´,´Informe´,T);
DBLVendedor.SetFocus;
end
else
begin
if Trim(DBLFabrica.Text) = ´´ Then
begin
Application.MessageBox(´Informe a Fábrica´,´Informe´,T);
DBLFabrica.SetFocus;
end
else
begin
if Trim(DBLRazao.Text) = ´´ Then
begin
Application.MessageBox (´Informe a Razão´,´Informe´,T);
DBLRazao.SetFocus;
end
else
begin
if trim (DBEPrazo.Text) = ´´ Then
begin
Application.MessageBox(´Informe o Prazo de Pagamento´,´Informe´,T);
DBEPrazo.SetFocus;
end
else
begin
if trim (DBCFrete.Text) = ´´ Then
begin
Application.MessageBox(´Informe o as Condições do Frete´,´Informe´,T);
DBCFrete.SetFocus;
end
else
begin
DM.Tb_Grow.Post;
if Operacao = ´Novo´ then
begin
DM.Tb_Grow.Edit;
DM.Tb_Grow.FieldByName(´Indexador´).AsInteger:= DBECodigo.Field.AsInteger;
DM.Tb_Grow.Post
end;
Operacao := ´Salvar´;
Configurar_Botoes;
Configurar_Campos;
V_total := 0;
DM.Tb_Itens.First;
While not DM.Tb_Itens.Eof do
begin
if not varisnull (DM.Tb_Itens.fieldByName (´Sub_total´).AsFloat) then
begin
V_Total := DM.Tb_Itens.fieldByName (´Sub_total´).AsFloat + V_Total;
end ;
DM.Tb_Itens.Next;
end;
DM.Tb_Grow.Edit;
DBEGeral.Field.AsFloat := V_Total;
DM.Tb_Grow.Post;
end;
end;
end;
end;
end;
end;
end;