[Tauro78]

ok, aqui te pongo el codigo,

Código Delphi [-]
 
procedure TfrmEmpresasAltas.cxButton1Click(Sender: TObject);
begin
if (Trim(Edit1.Text) = EmptyStr) or (cxDateEdit1.Text = '') or (cxDateEdit2.Text = '') or (cxDateEdit3.Text = '')
    then
   begin
     MessageDlg('Se deben completar todos los campos.', MtInformation, [MbOK], 0);
     Exit;
   end
     else
       begin
        with DMTablas.SPExiste_Empresa do
          begin
            Close;
            ParamByName('@SP_NOMBRE').AsString := UpperCase(Edit1.Text);
            ExecProc;
            if ParamByName('@RESULTADO').AsInteger = 1 then
              begin
                MessageDlg('Ya existe una empresa con ese nombre.', MtInformation, [MbOK], 0);
                Close;
                Exit;
              end
                else
                  begin
                    try
                      DMTablas.SPAlta_Empresa.Close;
                      DMTablas.SPAlta_Empresa.ParamByName('@NOMBRE').AsString := UpperCase(Edit1.Text);
                      DMTablas.SPAlta_Empresa.ParamByName('@FECHA_VTO_DGI').AsDateTime := cxDateEdit1.Date;
                      DMTablas.SPAlta_Empresa.ParamByName('@FECHA_VTO_BPS').AsDateTime := cxDateEdit2.Date;
                      DMTablas.SPAlta_Empresa.ParamByName('@FECHA_VTO_PL_TRABAJO').AsDateTime := cxDateEdit3.Date;
                      DMTablas.SPAlta_Empresa.ExecProc;
                    except
                      raise;
                    end;
                      DMTablas.SPAlta_Empresa.Close;
                      Edit1.Text := '';              
                      cxDateEdit1.Text := '';    
                      cxDateEdit2.Text := '';
                      cxDateEdit3.Text := '';
                  end;
          end;
       end;
end;