Rotina para Inserção

procedure FF_Disparar_Processo_Insercao_Produto();

//------------------------------------------------------------------------------
procedure TF_Produtos.FF_Disparar_Processo_Insercao_Produto();
begin if(self.BitBtn6.Caption = 'Inserir novo produto') then begin
self.FF_Limpar_Edits(); //... limpar os edits ...
self.FF_Habilitar_Edits(true); //...habilitar os edits {3,4,5} ... self.FF_Habilitar_Botoes_Insert(False); //...impedir o funcionamento de todos os botões, com exceção do {fechar, cancelar, salvar}
self.BitBtn6.Caption:= 'Salvar novo produto';
self.Edit2.Text:= inttostr(self.FF_Pegar_Novo_Produto_Id); end else if ((self.BitBtn6.Caption = 'Salvar novo cliente') and (true)) then begin
self.FF_Popular_Grid_Produtos();
self.FF_Atualizar_Cartao_Produto();
self.FF_Habilitar_Edits(False); //...habilitar os edits {3,4,5} ...
self.FF_Habilitar_Botoes_Insert(True); //...impedir o funcionamento de todos os botões, com exceção do {fechar, cancelar, salvar}
self.BitBtn6.Caption:= 'Inserir novo cliente';
end;
end;